gno/bin/touch/touch.c
gdr-ftp fdf0d8d918 Initial checkin; these sources should correspond to those used to
build the GNO v2.0.4 version of this util.
1998-03-11 02:56:04 +00:00

127 lines
3.2 KiB
C

/* Touch - GS version of UNIX touch. If file exists, sets mod. date to
current date. If file does not exist, creates a text file with that name.
Copyright 1993 by Leslie M. Barstow III.
Placed in the Public Domain with the following condition:
Please maintain original Copyright in source, program, and manpage.
*/
#pragma debug 0
#pragma optimize -1
#pragma stacksize 1024
#include <types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <orca.h>
typedef struct GSString {
Word length;
char string[1];
} GSString;
typedef struct FileInfoRecGS {
Word pCount;
GSString *pathname;
Word access;
Word fileType;
LongWord auxType;
Word storageType; /* must be 0 for SetFileInfo */
TimeRec createDateTime;
TimeRec modDateTime;
} FileInfoRecGS;
typedef struct CreateRecGS {
Word pCount;
GSString *pathname;
Word access;
Word fileType;
} CreateRecGS;
#ifndef NULL
#define NULL 0L
#endif
extern TimeRec ReadTimeHex();
#ifndef stackEntry
#define stackEntry 0xE100B0
#endif
#ifndef PDosInt
extern pascal void PDosInt();
#endif
#define GetFileInfoGS(pBlockPtr) PDosInt(0x2006,pBlockPtr)
#define SetFileInfoGS(pBlockPtr) PDosInt(0x2005,pBlockPtr)
#define CreateGS(pBlockPtr) PDosInt(0x2001,pBlockPtr)
int main(int argc, char **argv)
{int i,j;
GSString *filnam=(GSString *)NULL;
CreateRecGS crtspace;
FileInfoRecGS infospace;
infospace.pCount = 7;
crtspace.pCount = 3;
crtspace.access = 0x00e3;
crtspace.fileType = 0x0004;
if (argc == 1)
{fputs("Usage: touch file1 [file2 ...]\n", stdout);
fputs("GS touch: Copyright 1993 by Leslie M. Barstow III\n",stdout);
exit(-1);
}
for(i = 1; i < argc; i++)
{j=strlen(argv[i]);
if ((filnam=(GSString *)malloc(3+j)) == (GSString *)NULL)
{fputs("touch - Error allocating string memory\n", stdout);
return(-1);
}
filnam->length = j;
strcpy(filnam->string,argv[i]);
infospace.pathname=filnam;
GetFileInfoGS(&infospace);
if (j = toolerror())
{switch (j)
{case 0x46: crtspace.pathname = filnam;
CreateGS(&crtspace);
if (j = toolerror())
{fputs("touch - unable to create file: ", stdout);
fputs(argv[i], stdout);
fputs(".\n", stdout);
exit(-1);
}
break;
case 0x40:
case 0x44:
case 0x45:
case 0x52:
case 0x58: fputs("touch - Invalid filename:", stdout);
fputs(argv[i], stdout);
fputs(".\n", stdout);
exit(-1);
break;
case 0x27: fputs("touch - Disk I/O Error for file: ", stdout);
fputs(argv[i], stdout);
fputs(".\n", stdout);
exit(-1);
break;
default: fputs("touch - internal error.\n", stdout);
exit(-1);
break;
}
}
else
{infospace.modDateTime = ReadTimeHex();
infospace.storageType = 0;
infospace.access |=0x20;
infospace.modDateTime.extra = (Byte)0;
SetFileInfoGS(&infospace);
}
free(filnam);
}
}