Compatibility files that haven't been used in a long time.

Mac/Compat/chdir.c

-/* Chdir for the Macintosh.
-   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
-   Pathnames must be Macintosh paths, with colons as separators. */
-
-#include "macdefs.h"
-
-#ifdef __MWERKS__
-/* XXXX All compilers should use this, really */
-#include <LowMem.h>
-#else
-/* Last directory used by Standard File */
-#define SFSaveDisk	(*(short *)0x214)
-#define CurDirStore (*(long *)0x398)
-#endif
-
-/* Change current directory. */
-
-int
-chdir(path)
-	char *path;
-{
-	WDPBRec pb;
-	
-	pb.ioNamePtr= (StringPtr) Pstring(path);
-	pb.ioVRefNum= 0;
-	pb.ioWDDirID= 0;
-	if (PBHSetVol(&pb, FALSE) != noErr) {
-		errno= ENOENT;
-		return -1;
-	}
-	if (PBHGetVol(&pb, FALSE) == noErr) {
-		/* Set the Standard File directory */
-#ifdef __MWERKS__
-		LMSetSFSaveDisk(-pb.ioWDVRefNum);
-		LMSetCurDirStore(pb.ioWDDirID);
-#else
-		SFSaveDisk= -pb.ioWDVRefNum;
-		CurDirStore= pb.ioWDDirID;
-#endif
-	}
-	return 0;
-}

Mac/Compat/dirent.h

-/*
- * "Dir.h" for the Macintosh.
- * Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
- */
-
-#define MAXNAMLEN 31
-#define MAXPATH 256
-
-#define DIR  struct _dir
-
-struct _dir {
-	short vrefnum;
-	long dirid;
-	int nextfile;
-};
-
-struct dirent {
-	char d_name[MAXPATH];
-};
-
-extern DIR *opendir(char *);
-extern struct dirent *readdir(DIR *);
-extern void closedir(DIR *);

Mac/Compat/getbootvol.c

-/* Return the name of the boot volume (not the current directory).
-   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
-*/
-
-#include "macdefs.h"
-
-char *
-getbootvol(void)
-{
-	short vrefnum;
-	static unsigned char name[32];
-	
-	(void) GetVol(name, &vrefnum);
-	p2cstr(name);
-		/* Shouldn't fail; return ":" if it does */
-	strcat((char *)name, ":");
-	return (char *)name;
-}

Mac/Compat/getwd.c

-/* Get full pathname of current working directory.  The pathname is
-   copied to the parameter array 'cwd', and a pointer to this array
-   is also returned as function result.  If an error occurred, however,
-   the return value is NULL but 'cwd' is filled with an error message.
-   
-   BUG: expect spectacular crashes when called from a directory whose
-   path would be over MAXPATH bytes long (files in such directories are
-   not reachable by full pathname).
-   
-   Starting with the dir ID returned by PBHGetVol, we do successive
-   PBGetCatInfo's to get a component of the path until we reach the
-   root (recognized by a dir ID of 2).  We move up along the path
-   using the dir ID of the parent directory returned by PBGetCatInfo.
-   
-   Then we catenate the components found in reverse order with the volume
-   name (already gotten from PBHGetVol), with intervening and trailing
-   colons
-   
-   The code works correctly on MFS disks (where it always returns the
-   volume name) by simply skipping the PBGetCatinfo calls in that case.
-   There is a 'bug' in PBGetCatInfo when called for an MFS disk (with
-   HFS running): it then seems to call PBHGetVInfo, which returns a
-   larger parameter block.  But we won't run into this problem because
-   we never call PBGetCatInfo for the root (assuming that PBHGetVol
-   still sets the root ID in this case).
-
-   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
-*/
-
-#include "macdefs.h"
-#include <stdio.h>
-
-#define ROOTID 2 /* Root directory ID */
-
-char *
-getwd(char *cwd)
-{
-	/* Universal parameter block. */
-	union {
-		struct HFileInfo f;
-		struct DirInfo d;
-		struct WDPBRec w;
-	} pb;
-	char buf[MAXPATH]; /* Buffer to store the name components */
-	char *ecwd, *ebuf; /* Pointers to end of used part of cwd and buf */
-	int err; /* Error code of last I/O call */
-	
-	/* First, get the default volume name and working directory ID. */
-	
-	pb.w.ioNamePtr= (unsigned char *)cwd;
-	err= PBHGetVolSync(&pb.w);
-	if (err != noErr) {
-		sprintf(cwd, "I/O error %d in PBHGetVolSync", err);
-		return NULL;
-	}
-	p2cstrcpy(cwd, (StringPtr)cwd);
-	ecwd = strchr(cwd, EOS);
-	ebuf= buf;
-	*ebuf = EOS;
-	
-	/* Next, if at least we're running HFS, walk up the path. */
-	
-	{
-		long dirid= pb.w.ioWDDirID;
-		pb.d.ioVRefNum= pb.w.ioWDVRefNum;
-		while (dirid != ROOTID) {
-			pb.d.ioNamePtr= (unsigned char *) ++ebuf;
-			pb.d.ioFDirIndex= -1;
-			pb.d.ioDrDirID= dirid;
-			err= PBGetCatInfoSync((CInfoPBPtr)&pb.d);
-			if (err != noErr) {
-				sprintf(cwd, "I/O error %d in PBGetCatInfoSync", err);
-				return NULL;
-			}
-			dirid= pb.d.ioDrParID;
-			p2cstrcpy(ebuf, (StringPtr)ebuf);
-			ebuf += strlen(ebuf);
-			/* Should check for buf overflow */
-		}
-	}
-	
-	/* Finally, reverse the list of components and append it to cwd.
-	   Ebuf points at the EOS after last component,
-	   and there is an EOS before the first component.
-	   If there are no components, ebuf equals buf (but there
-	   is still an EOS where it points).
-	   Ecwd points at the EOS after the path built up so far,
-	   initially the volume name.
-	   We break out of the loop in the middle, thus
-	   appending a colon at the end in all cases. */
-	
-	for (;;) {
-		*ecwd++ = ':';
-		if (ebuf == buf)
-			break;
-		do { } while (*--ebuf != EOS); /* Find component start */
-		strcpy(ecwd, ebuf+1);
-		ecwd= strchr(ecwd, EOS);
-	}
-	*ecwd= EOS;
-	return cwd;
-}

Mac/Compat/macgetmtime.c

-/***********************************************************
-Copyright 1991-1997 by Stichting Mathematisch Centrum, Amsterdam,
-The Netherlands.
-
-                        All Rights Reserved
-
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the names of Stichting Mathematisch
-Centrum or CWI or Corporation for National Research Initiatives or
-CNRI not be used in advertising or publicity pertaining to
-distribution of the software without specific, written prior
-permission.
-
-While CWI is the initial source for this software, a modified version
-is made available by the Corporation for National Research Initiatives
-(CNRI) at the Internet address ftp://ftp.python.org.
-
-STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
-REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
-CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
-DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
-PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
-TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-******************************************************************/
-
-#include "macstat.h"
-
-/* Interfaced used by import.c */
-
-long
-getmtime(path)
-	char *path;
-{
-	struct macstat st;
-	if (macstat(path, &st) != 0)
-		return -1L;
-	return st.st_mtime;
-}

Mac/Compat/macstat.c

-/* Minimal 'stat' emulation: tells directories from files and
-   gives length and mtime.
-   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
-   Updated to give more info, August 1994.
-*/
-
-#include "macstat.h"
-#include "macdefs.h"
-
-/* Bits in ioFlAttrib: */
-#define LOCKBIT	(1<<0)		/* File locked */
-#define DIRBIT	(1<<4)		/* It's a directory */
-
-int
-macstat(path, buf)
-	char *path;
-	struct macstat *buf;
-{
-	union {
-		DirInfo d;
-		FileParam f;
-		HFileInfo hf;
-	} pb;
-	short err;
-	
-	pb.d.ioNamePtr = (unsigned char *)Pstring(path);
-	pb.d.ioVRefNum = 0;
-	pb.d.ioFDirIndex = 0;
-	pb.d.ioDrDirID = 0;
-	pb.f.ioFVersNum = 0; /* Fix found by Timo! See Tech Note 102 */
-	err = PBGetCatInfoSync((CInfoPBPtr)&pb);
-	if (err != noErr) {
-		errno = ENOENT;
-		return -1;
-	}
-	if (pb.d.ioFlAttrib & LOCKBIT)
-		buf->st_mode = 0444;
-	else
-		buf->st_mode = 0666;
-	if (pb.d.ioFlAttrib & DIRBIT) {
-		buf->st_mode |= 0111 | S_IFDIR;
-		buf->st_size = pb.d.ioDrNmFls;
-		buf->st_rsize = 0;
-	}
-	else {
-		buf->st_mode |= S_IFREG;
-		if (pb.f.ioFlFndrInfo.fdType == 'APPL')
-			buf->st_mode |= 0111;
-	}
-	buf->st_ino = pb.hf.ioDirID;
-	buf->st_nlink = 1;
-	buf->st_uid = 1;
-	buf->st_gid = 1;
-	buf->st_size = (buf->st_mode & S_IFDIR) ? 0 : pb.f.ioFlLgLen;
-	buf->st_mtime = buf->st_atime = pb.f.ioFlMdDat;
-	buf->st_ctime = pb.f.ioFlCrDat;
-	buf->st_rsize = (buf->st_mode & S_IFDIR) ? 0 : pb.f.ioFlRLgLen;
-	*(unsigned long *)buf->st_type =
-		(buf->st_mode & S_IFDIR) ? 0 : pb.f.ioFlFndrInfo.fdType;
-	*(unsigned long *)buf->st_creator =
-		(buf->st_mode & S_IFDIR) ? 0 : pb.f.ioFlFndrInfo.fdCreator;
-	return 0;
-}

Mac/Compat/macstat.h

-/* Include file belonging to stat emulator.
-   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
-   Updated August 1994. */
-
-struct macstat {
-	unsigned short st_dev;
-	unsigned long st_ino;
-	unsigned short st_mode;
-	unsigned short st_nlink;
-	unsigned short st_uid;
-	unsigned short st_gid;
-	unsigned short st_rdev;
-	unsigned long st_size;
-	unsigned long st_atime;
-	unsigned long st_mtime;
-	unsigned long st_ctime;
-	/* Non-standard additions */
-	unsigned long st_rsize; /* Resource size */
-	char st_type[4]; /* File type, e.g. 'APPL' or 'TEXT' */
-	char st_creator[4]; /* File creator, e.g. 'PYTH' */
-};
-
-#define S_IFMT	0170000
-#define S_IFDIR	0040000
-#define S_IFREG 0100000
-#define S_IREAD    0400
-#define S_IWRITE   0200
-#define S_IEXEC    0100
-
-extern int macstat(char *, struct macstat *);
-/* To stop inclusion of MWerks header: */
-#ifndef _STAT
-#define _STAT
-#endif

Mac/Compat/mkdir.c

-/* Mkdir for the Macintosh.
-   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
-   Pathnames must be Macintosh paths, with colons as separators. */
-
-#include "macdefs.h"
-
-/* Create a directory. */
-
-int
-mkdir(path, mode)
-	char *path;
-	int mode; /* Ignored */
-{
-	HFileParam pb;
-		
-	if (!hfsrunning()) {
-		errno= ENODEV;
-		return -1;
-	}
-	pb.ioNamePtr= (StringPtr) Pstring(path);
-	pb.ioVRefNum= 0;
-	pb.ioDirID= 0;
-	if (PBDirCreate((HParmBlkPtr)&pb, FALSE) != noErr) {
-		errno= EACCES;
-		return -1;
-	}
-	return 0;
-}

Mac/Compat/nfullpath.c

-/* GET FULL PATHNAME OF A FILE.
-** Original by Guido, modified by Jack to handle FSSpecs 
-*/
-
-#include <string.h>
-
-#include <Files.h>
-
-#include "nfullpath.h"
-
-/* Mac file system parameters */
-#define MAXPATH 256	/* Max path name length+1 */
-#define SEP ':'		/* Separator in path names */
-
-/* Macro to find out whether we can do HFS-only calls: */
-#define FSFCBLen (* (short *) 0x3f6)
-#define hfsrunning() (FSFCBLen > 0)
-
-int
-nfullpath(fsp, retbuf)
-	FSSpec *fsp;
-	char *retbuf;
-{
-	union {
-		HFileInfo f;
-		DirInfo d;
-		WDPBRec w;
-		VolumeParam v;
-	} pb;
-	char cwd[2*MAXPATH];
-	unsigned char namebuf[MAXPATH];
-	short err;
-	int dir;
-	long dirid;
-	char *next = cwd + sizeof cwd - 1;
-	int len;
-	int need_sep = 1;
-	
-	if (!hfsrunning())
-		return -1;
-	
-	dir = fsp->vRefNum;
-	dirid = fsp->parID;
-	/* Stuff the filename into the buffer */
-	len = fsp->name[0];
-	*next = '\0';
-	next -= len;
-	memcpy(next, fsp->name+1, len);
-	
-	while (dirid != fsRtParID) {
-		pb.d.ioNamePtr = namebuf;
-		pb.d.ioVRefNum = dir;
-		pb.d.ioFDirIndex = -1;
-		pb.d.ioDrDirID = dirid;
-		err= PBGetCatInfo((CInfoPBPtr)&pb.d, 0);
-		if (err != noErr)
-			return err;
-		*--next = SEP;
-		len = namebuf[0];
-		if ( len + strlen(next) >= MAXPATH )
-			return -1;
-		next -= len;
-		memcpy(next, (char *)namebuf+1, len);
-		dirid = pb.d.ioDrParID;
-		need_sep = 0;
-	}
-	
-	strcpy(retbuf, next);
-	if (need_sep) {
-		next = strchr(retbuf, '\0');
-		*next++ = SEP;
-		*next++ = '\0';
-	}
-	return 0;
-}

Mac/Compat/nfullpath.h

-int nfullpath(FSSpec *, char *);	/* Generate full path from fsspec */

Mac/Compat/opendir.c

-/*
- * Macintosh version of UNIX directory access package
- * (opendir, readdir, closedir).
- * Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
- */
-
-#include "dirent.h"
-#include "macdefs.h"
-
-static DIR opened;
-
-/*
- * Open a directory.  This means calling PBOpenWD.
- * The value returned is always the address of opened, or NULL.
- * (I have as yet no use for multiple open directories; this could
- * be implemented by allocating memory dynamically.)
- */
-
-DIR *
-opendir(path)
-	char *path;
-{
-#if TARGET_API_MAC_CARBON
-	Str255 ppath;
-	FSSpec fss;
-	int plen;
-	OSErr err;
-	
-	if (opened.nextfile != 0) {
-		errno = EBUSY;
-		return NULL; /* A directory is already open. */
-	}
-	plen = strlen(path);
-	c2pstrcpy(ppath, path);
-	if ( ppath[plen] != ':' )
-		ppath[++plen] = ':';
-	ppath[++plen] = 'x';
-	ppath[0] = plen;
-	if( (err = FSMakeFSSpec(0, 0, ppath, &fss)) < 0 && err != fnfErr ) {
-		errno = EIO;
-		return NULL;
-	}
-	opened.dirid = fss.parID;
-	opened.vrefnum = fss.vRefNum;
-	opened.nextfile = 1;
-	return &opened;
-#else
-	union {
-		WDPBRec d;
-		VolumeParam v;
-	} pb;
-	char ppath[MAXPATH];
-	short err;
-	
-	if (opened.nextfile != 0) {
-		errno = EBUSY;
-		return NULL; /* A directory is already open. */
-	}
-	strncpy(ppath+1, path, ppath[0]= strlen(path));
-	pb.d.ioNamePtr= (unsigned char *)ppath;
-	pb.d.ioVRefNum= 0;
-	pb.d.ioWDProcID= 0;
-	pb.d.ioWDDirID= 0;
-	err= PBOpenWD((WDPBPtr)&pb, 0);
-	if (err != noErr) {
-		errno = ENOENT;
-		return NULL;
-	}
-	opened.dirid= pb.d.ioVRefNum;
-	opened.nextfile= 1;
-	return &opened;
-#endif
-}
-
-/*
- * Close a directory.
- */
-
-void
-closedir(dirp)
-	DIR *dirp;
-{
-#if TARGET_API_MAC_CARBON
-	dirp->nextfile = 0;
-#else
-	WDPBRec pb;
-	
-	pb.ioVRefNum= dirp->dirid;
-	(void) PBCloseWD(&pb, 0);
-	dirp->dirid= 0;
-	dirp->nextfile= 0;
-#endif
-}
-
-/*
- * Read the next directory entry.
- */
-
-struct dirent *
-readdir(dp)
-	DIR *dp;
-{
-	union {
-		DirInfo d;
-		FileParam f;
-		HFileInfo hf;
-	} pb;
-	short err;
-	static struct dirent dir;
-	
-	dir.d_name[0]= 0;
-	pb.d.ioNamePtr= (unsigned char *)dir.d_name;
-#if TARGET_API_MAC_CARBON
-	pb.d.ioVRefNum= dp->vrefnum;
-	pb.d.ioDrDirID= dp->dirid;
-#else
-	pb.d.ioVRefNum= dp->dirid;
-	pb.d.ioDrDirID= 0;
-#endif
-	pb.d.ioFDirIndex= dp->nextfile++;
-	err= PBGetCatInfo((CInfoPBPtr)&pb, 0);
-	if (err != noErr) {
-		errno = EIO;
-		return NULL;
-	}
-#if TARGET_API_MAC_CARBON
-	p2cstrcpy(dir.d_name, (StringPtr)dir.d_name);
-#else
-	(void) p2cstr((unsigned char *)dir.d_name);
-#endif
-	return &dir;
-}

Mac/Compat/rmdir.c

-/* Rmdir for the Macintosh.
-   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
-   Pathnames must be Macintosh paths, with colons as separators. */
-
-#include "macdefs.h"
-
-int
-rmdir(path)
-	char *path;
-{
-	IOParam pb;
-	
-	pb.ioNamePtr= (StringPtr) Pstring(path);
-	pb.ioVRefNum= 0;
-	if (PBDelete((ParmBlkPtr)&pb, FALSE) != noErr) {
-		errno= EACCES;
-		return -1;
-	}
-	return 0;
-}