1 files changed, 0 insertions, 264 deletions
diff --git a/dmake/mac/directry.c b/dmake/mac/directry.c
deleted file mode 100644
index b1d452d073ba..000000000000
--- a/dmake/mac/directry.c
+++ /dev/null
@@ -1,264 +0,0 @@
-/* RCS  $Id: directry.c,v 1.1.1.1 2000-09-22 15:33:27 hr Exp $
---
--- SYNOPSIS
---      Fake directory and file functions for the Mac
---
--- DESCRIPTION
---  This file contains implementations for some ANSI standard routines dmake
---  uses which are not otherwise available for the mac.
---
---  Assume we are using at least 128K ROMS.
---
--- AUTHOR
---      Dennis Vadura, dvadura@dmake.wticorp.com
---
---
--- WWW
---      http://dmake.wticorp.com/
---
--- COPYRIGHT
---      Copyright (c) 1996,1997 by WTI Corp.  All rights reserved.
---
---      This program is NOT free software; you can redistribute it and/or
---      modify it under the terms of the Software License Agreement Provided
---      in the file <distribution-root>/readme/license.txt.
---
--- LOG
---      Use cvs log to obtain detailed change logs.
-*/
-
-#include <Errors.h>
-#include <Files.h>
-#include <OSUtils.h>
-#include <StdLib.h>
-#include <Strings.h>
-/*
- * We now include LowMem.h instead of SysEqu.h as LowMem.h is what Apple recommends
- * we use.
- */
-#include <LowMem.h>
-#include "extern.h"
-
-
-
-/*
- * Implementation of stat function for dmake on the mac.
- *
- * Many fields aren't filled in, and the times are seconds from 1/1//1904,
- * but it should be enough for dmake (I think we only need st_mtime and
- * st_mode's S_IFDIR set correctly).
- */
-PUBLIC int
-stat(pPath, pStat)
-char *pPath;
-struct stat *pStat;
-{
-    CInfoPBRec infoPB;
-    OSErr err;
-    int retVal;
-
-    infoPB.hFileInfo.ioCompletion = NULL;
-    infoPB.hFileInfo.ioNamePtr = c2pstr (pPath);
-    infoPB.hFileInfo.ioVRefNum = 0;
-    infoPB.hFileInfo.ioFDirIndex = 0;
-    infoPB.hFileInfo.ioDirID = 0;
-    err = PBGetCatInfo(&infoPB, FALSE);
-    p2cstr ((StringPtr) pPath);
-
-    if (err == noErr) {
-        pStat->st_mtime = (time_t) infoPB.hFileInfo.ioFlMdDat;
-        pStat->st_ctime = (time_t) infoPB.hFileInfo.ioFlCrDat;
-        pStat->st_mode = S_IREAD | S_IEXEC;
-
-        /* If it is a directory ... */
-        if (infoPB.hFileInfo.ioFlAttrib & 0x10) {
-            pStat->st_size = infoPB.dirInfo.ioDrNmFls;
-            pStat->st_mode |= S_IFDIR;
-        } else {
-            pStat->st_size = infoPB.hFileInfo.ioFlLgLen;
-            pStat->st_mode |= S_IFREG;
-        } /* if ... else */
-
-        /* If it is writeable */
-        if ((infoPB.hFileInfo.ioFlAttrib & 0x1) == 0) {
-            pStat->st_mode |= S_IWRITE;
-        } /* if */
-
-        retVal = 0;
-
-    } else {
-        retVal = -1;
-    } /* if ... else */
-
-    return (retVal);
-} /* PUBLIC int stat () */
-
-
-
-/*
- * Return the current working directory, or NULL if there is an error.
- */
-PUBLIC char *
-getcwd(char *pPath, size_t pathSize)
-{
-    DirInfo dirInfo;
-    OSErr err;
-    Str255 dirName;
-    char *pBeginName;
-    char *pC;
-    size_t len;
-    size_t spaceForColon;
-
-    /* Set up the info for the PBGetCatInfo() calls */
-    dirInfo.ioCompletion = NULL;
-    dirInfo.ioNamePtr = dirName;
-    dirInfo.ioVRefNum = 0;
-    dirInfo.ioFDirIndex = -1;
-    dirInfo.ioDrDirID = 0;
-    pBeginName = pPath + pathSize - 1;
-    spaceForColon = 0;  /* Make sure we don't have an end colon on the name */
-
-    /*
-     * Keep going up the directory path until the end is reached or an error
-     * occurs.  Ideally, we would check for errors at every level and stop
-     * when we received an fnfErr (File Not Found), but it appears that there
-     * are some problems with network volumes.  (During testing, I received
-     * a paramErr (No Default Volume) beyond the top level.)  Thus, to keep it
-     * simple, I assume any error past the first directory indicates we have
-     * seen all directories.
-     */
-    while (TRUE) {
-        err = PBGetCatInfo ((CInfoPBPtr) &dirInfo, FALSE);
-        len = ((size_t)(unsigned char) dirName[0]);
-        if ((err == noErr) && (len < pBeginName - pPath)) {
-            p2cstr (dirName);
-            pBeginName -= len + spaceForColon;
-            strcpy (pBeginName, (char *)dirName);
-            /* Note that strcpy() adds the '\0' at the end of
-               the first directory for us */
-            if (spaceForColon == 1) {
-                pBeginName[len] = ':';
-            } else {
-                /* The end of the string shouldn't have a ':' */
-                spaceForColon = 1;
-            } /* if */
-
-            /* Set up for the next call to PBGetCatInfo() with
-               the parent's directory ID */
-            dirInfo.ioDrDirID = dirInfo.ioDrParID;
-
-        } else if (spaceForColon == 1) {
-            /* We got past the top-level directory */
-            break;
-
-        } else {
-            /* We either have an error when looking at the first directory
-               or have run out of room. */
-            return (NULL);
-        } /* if ... elses */
-    } /* while */
-
-    /* Now copy the directory string to the beginning of the path string.
-       (It's possible the directory already starts at the beginning of the
-       string, but this is unlikely and doesn't hurt anything if it does,
-       so we don't bother to check for it.) */
-    pC = pPath;
-    while ((*(pC++) = *(pBeginName++)) != '\0')
-        ;
-
-    return (pPath);
-} /* PUBLIC char *getcwd () */
-
-
-
-/*
- * Change the directory to a new default directory.
- *
- * Return 0 if successful, or -1 if there is an error.
- */
-PUBLIC int
-chdir(char *pPath)
-{
-    WDPBRec WDPB;
-    VolumeParam vParam;
-    OSErr err;
-    int result;
-    char *pC;
-    char c;
-
-    /* Set up the directory */
-    c2pstr (pPath);
-    WDPB.ioCompletion = NULL;
-    WDPB.ioNamePtr = (unsigned char *)pPath;
-    WDPB.ioVRefNum = 0;
-    WDPB.ioWDProcID = 0;
-    WDPB.ioWDDirID = 0;
-    err = PBOpenWD (&WDPB, FALSE);
-    /* Restore path to a C-type string in case the caller wants
-       to use it after this call. */
-    p2cstr ((unsigned char *)pPath);
-    if (err != noErr) {
-        return (-1);
-    } /* if */
-
-    /* Set up the volume if necessary */
-    if (*pPath != ':') {
-        for (pC = pPath + 1; (*pC != ':') && (*pC != '\0'); ++pC)
-            ;
-        c = *pC;
-        *pC = '\0';
-        vParam.ioCompletion = NULL;
-        vParam.ioNamePtr = c2pstr (pPath);
-        vParam.ioVRefNum = WDPB.ioVRefNum;
-        err = PBSetVol ((ParmBlkPtr) &vParam, FALSE);
-        p2cstr ((unsigned char *)pPath);
-        *pC = c;
-        result = ((err == noErr) ? 0 : -1);
-
-    } else {
-        result = 0;
-    } /* if ... else */
-
-    return (result);
-} /* PUBLIC int chdir () */
-
-
-
-/*
- * Change the modification time for the file to the current time.
- *
- * The normal version of utime can set the modification time to any
- * time, this function aborts the function if this is tried.
- *
- * We return 0 if the modification time was updated and -1 if there
- * was an error.
- */
-PUBLIC int
-utime(char *pPath, time_t *pTimes)
-{
-    CInfoPBRec infoPB;
-    OSErr err;
-
-    if (pTimes != NULL) {
-        Fatal ("SUBROUTINE SHORTCOMING: utime cannot take a utimbuf struct");
-    } /* if */
-
-    /* Get the old info */
-    infoPB.hFileInfo.ioCompletion = NULL;
-    infoPB.hFileInfo.ioNamePtr = c2pstr (pPath);
-    infoPB.hFileInfo.ioVRefNum = 0;
-    infoPB.hFileInfo.ioFDirIndex = 0;
-    infoPB.hFileInfo.ioDirID = 0;
-    err = PBGetCatInfo (&infoPB, FALSE);
-    if (err != noErr) {
-        p2cstr ((StringPtr) pPath);
-        return (-1);
-    } /* if */
-
-    /* Change the modification time and set the new info */
-    GetDateTime (&(infoPB.hFileInfo.ioFlMdDat));
-    infoPB.hFileInfo.ioDirID = 0;
-    err = PBSetCatInfo (&infoPB, FALSE);
-    p2cstr ((StringPtr) pPath);
-    return ((err == noErr) ? 0 : -1);
-} /* PUBLIC int utime () */