mirror of https://github.com/GnoConsortium/gno.git
127 lines
3.2 KiB
C
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);
|
|
}
|
|
}
|