1 files changed, 264 insertions, 0 deletions
diff --git a/dmake/mac/directry.c b/dmake/mac/directry.c
new file mode 100644
index 000000000000..b1d452d073ba
--- /dev/null
+++ b/dmake/mac/directry.c
@@ -0,0 +1,264 @@
+/* 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 () */