![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Mac-Cthon.tar CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / sys / nfs / TEST / mac-tests|
Return to Mac-Cthon.tar CVS log | Up to [CSRG BSD Unix] / 43BSDReno / sys / nfs / TEST / mac-tests |
1.1 ! root 1: Mac-Cthon/ 775 162 12 0 4542261416 5573 Mac-Cthon/basic-test-0.24 664 162 12 0 4542261053 10125 Mac-Cthon/log file 664 162 12 114 4542261055 7237 Macintosh NFS Revision 2 BASIC test suite (V0.24) Fri Dec 15 16:23:11 1989 log.c � main.c � Makefile rad � README! � runtests e _ � ! 2: stdio.full � subr.c � temp � � test � test.rsrc ro � test1.c � test2.c � test3.c � test4.c �! test4a.c � �" test5.c �# test5a.c �$ test5b.c acl �% test6.c �& test7.c �' test7a.c ils �( test7b.c �" �) test8.c �* test9.c �+ tests.h �u Mac-Cthon/log.c 664 162 12 1510 4542261057 6603 static int count = 0; static char line[1024]; static int log_fd = 0; extern void (*_echo_to_printer_)(); /* global Echo call variable for printer */ /* This routine is called by the LSC "printf" to echo chars to a printer. We redirect them to a file for logging. we also check the gatorbox for log info after each line. */ echo_to_file(ch) register char ch; { if (log_fd == 0) { log_fd = creat("log file", 0666); } if (log_fd < 0) return; if (count == 0) { _echo_to_printer_ = (void *)0; _echo_to_printer_ = (void *)echo_to_file; } if (ch != '\n') { line[ count++ ] = ch; return; } line[ count++ ] = '\r'; write(log_fd, line, count); count = 0; } echo_line_to_file(line) char *line; { write(log_fd, line, strlen(line)); } echo_to_file_done() { if (log_fd) close(log_fd); log_fd = 0; } Mac-Cthon/main.c 664 162 12 4605 4542261060 6750 #include "tests.h" int trace = 0; int debug = 0; int Tflag = 1; /* print timing */ int Hflag = 0; /* print help message */ int Sflag = 0; /* don't print non-error messages */ int Fflag = 0; /* test function only; set count to 1, negate -t */ int Nflag = 0; /* Suppress directory operations */ int Iflag = 0; /* Ignore non-test files dir entries */ char TESTDIR[256]; int DDIRS = 2; int DLEVS = 5; int DFILS = 5; long DSIZE = 1048576; #define OFF if (0) extern void (*_echo_to_printer_)(); /* global Echo call variable for printer */ char **argv(arg) int arg; { static char *vector[32]; char **p, **from; p = vector; from = (char **)&arg; while (*p++ = *from++); *p++ = (char *)0; return vector; } main() { int start = 0; int more = TRUE; extern echo_to_file(); extern char *ctime(); extern int default_vrefnum; _echo_to_printer_ = (void *)echo_to_file; printf("Macintosh NFS Revision 2 BASIC test suite (V0.24)\t%s\n", ctime(0L)); /* ask were we should test */ if (!askfordir(TESTDIR, &default_vrefnum)) return; if (debug) { DDIRS = 1; DLEVS = 2; DFILS = 1; DSIZE = 8192; } if (0) { rmdir_recurse(TESTDIR); return; } #ifdef DEBUG start = 1; more = TRUE; printf("**DEBUG VERSION**\n"); #endif #define FLAGS "-n", if (start <= 1) { test1(1, argv("test1", FLAGS (char *)0)); if (!more) goto done; } if (start <= 2) { test2(1, argv("test2", FLAGS (char *)0)); if (!more) goto done; } if (start <= 3) { test3(1, argv("test3", FLAGS (char *)0)); if (!more) goto done; } if (start <= 4) { test4(1, argv("test4", (char *)0)); OFF test4a(1, argv("test4a", (char *)0)); if (!more) goto done; } if (start <= 5) { test5(1, argv("test5", FLAGS (char *)0)); OFF test5a(1, argv("test5a", (char *)0)); OFF test5b(1, argv("test5b", (char *)0)); if (!more) goto done; } if (start <= 6) { test6(1, argv("test6", FLAGS (char *)0)); if (!more) goto done; } if (start <= 7) { test7(1, argv("test7", FLAGS (char *)0)); OFF test7a(1, argv("test7a", (char *)0)); OFF test7b(1, argv("test7b", (char *)0)); if (!more) goto done; } if (start <= 8) { test8(1, argv("test8", FLAGS (char *)0)); if (!more) goto done; } if (start <= 9) { test9(1, argv("test9", FLAGS (char *)0)); if (!more) goto done; } done: printf("All tests completed.\t%s\n", ctime(0L)); echo_to_file_done(); } usage() { } Mac-Cthon/Makefile 664 162 12 2733 4542261062 7322 # # @(#)Makefile 1.4 89/01/13 NFS Rev 2 Testsuite # # to make tests, use 'make' # to copy tests to another directory, use 'make copy DESTDIR=dir' # to copy source to another directory, use 'make dist DESTDIR=dir' TESTS = test1 test2 test3 test4 test5 test6 test7 test8 test9 AUXTESTS = test4a test5a test5b test7a test7b DESTDIR = /no/such/path # Define NFS3_2 for NFS 3.2 compatibility - Comment out if not NFS 3.2 #COMPAT = -DNFS3_2 CFLAGS = $(COMPAT) all: origtests auxtests origtests: $(TESTS) auxtests: $(AUXTESTS) test1: test1.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test2: test2.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test3: test3.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test4: test4.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test4a: test4a.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test5: test5.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test5a: test5a.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test5b: test5b.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test6: test6.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test7: test7.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test7a: test7a.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test7b: test7b.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test8: test8.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o test9: test9.c subr.o $(CC) $(CFLAGS) -o $@ [email protected] subr.o clean: -rm *.o $(TESTS) $(AUXTESTS) copy: $(TESTS) cp runtests $(TESTS) $(AUXTESTS) $(DESTDIR) dist: cp runtests Makefile *.c *.h $(DESTDIR) ts auxtests origtests: $(TESTS) auxtMac-Cthon/README! 664 162 12 431 4542261064 6556 This is a simple port of the "basic tests" code from the connect-a-thon '89 to the Macintosh. It compiles under LightSpeed C 3.0 (it *does not* compile under 4.0; sorry) Feel free to call me or send e-mail if you have questions. Brad Parker [email protected] (617) 494-1999 12/89 test3.c � test4.c �! test4a.c � �" test5.c �# test5a.c �$ test5b.c acl �% test6.c �& test7.c �' test7a.c ils �( test7b.c �" �) test8.c �* test9.c �+ tests.h �u Mac-Cthon/runtests 664 162 12 2134 4542261066 7473 #!/bin/sh # # @(#)runtests 1.2 89/01/08 NFS Rev 2 testsuite # . ../startup.sh # see ../startup.sh for usage info # 'ARGS=-f' for basic funtionality tests (one pass of each test) # 'ARGS= ' for longer tests without timing (1-3 minutes per test) # 'ARGS=-t' for longer tests with timing echo "Starting BASIC tests: test directory $NFSTESTDIR (arg: $ARGS)" # File and Directory tree creation test echo "" test1 $ARGS # File and Directory tree removal test echo "" test2 $ARGS # Lookup across mount point echo "" test3 $ARGS # Setattr, getattr and lookup tests echo "" test4 $ARGS # Getattr and lookup tests # echo "" # test4a $ARGS # Write and read tests echo "" test5 $ARGS # Test 5a and 5b separate out the read and write tests into simpler components. # echo "" # test5a $ARGS # echo "" # test5b $ARGS # Read Directory test echo "" test6 $ARGS # Rename and Link Test echo "" test7 $ARGS # Rename Test # echo "" # test7a $ARGS # Link Test # echo "" # test7b $ARGS # Symlink and readlink test echo "" test8 $ARGS # Getfs test echo "" test9 $ARGS echo "" echo "Congratulations, you passed the basic tests!" IZE = 8192; } if (0) { rmdir_recurse(TESTDIR); return; } #ifdef DEBUG start = 1; more = TRUE; printf("**DEBUG VERSION**\n"); #endif #define FLAGS "-n", if (start <= 1) { test1(1, argv("test1", FLAGS (char *)0)); if (!more) goto done; } if (start <= 2) { test2(1, argv("test2", FLAGS (char *)0)); if (!more) goto done; } if (start <= 3) { test3(1, argv("test3", FLAGS (char *)0));Mac-Cthon/stdio.full 664 162 12 0 4542261070 7570 Mac-Cthon/subr.c 664 162 12 12254 4542261072 7021 /* @(#)subr.c 1.2 89/01/08 NFS Rev 2 Testsuite */ /* * Useful subroutines shared by all tests */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" char *Myname; /* * Build a directory tree "lev" levels deep * with "files" number of files in each directory * and "dirs" fan out. Starts at the current directory. * "fname" and "dname" are the base of the names used for * files and directories. */ dirtree(lev, files, dirs, fname, dname, totfiles, totdirs) int lev; int files; int dirs; char *fname; char *dname; int *totfiles; int *totdirs; { int fd; int f, d; char name[MAXPATHLEN]; if (lev-- == 0) { return; } { extern int trace; if (trace > 1) printf("[dirtree] level %d, total files %d, total dirs %d\n", lev, *totfiles, *totdirs); } for ( f = 0; f < files; f++) { sprintf(name, "%s%d", fname, f); if ((fd = creat(name, 0666)) < 0) { error("creat %s failed", name); exit(1); } (*totfiles)++; if (close(fd) < 0) { error("close %d failed", fd); exit(1); } } for ( d = 0; d < dirs; d++) { sprintf(name, "%s%d.l%d", dname, d,lev); if (mkdir(name, 0777) < 0) { error("mkdir %s failed", name); exit(1); } (*totdirs)++; if (chdir(name) < 0) { error("chdir %s failed", name); exit(1); } dirtree(lev, files, dirs, fname, dname, totfiles, totdirs); if (chdir("..") < 0) { error("chdir .. failed"); exit(1); } } } /* * Remove a directory tree starting at the current directory. * "fname" and "dname" are the base of the names used for * files and directories to be removed - don't remove anything else! * "files" and "dirs" are used with fname and dname to generate * the file names to remove. * * This routine will fail if, say after removing known files, * the directory is not empty. * * This is used to test the unlink function and to clean up after tests. */ rmdirtree(lev, files, dirs, fname, dname, totfiles, totdirs, ignore) int lev; int files; int dirs; char *fname; char *dname; int *totfiles; /* total removed */ int *totdirs; /* total removed */ int ignore; { int f, d; char name[MAXPATHLEN]; if (lev-- == 0) { return; } for ( f = 0; f < files; f++) { sprintf(name, "%s%d", fname, f); if (unlink(name) < 0 && !ignore) { error("unlink %s failed", name); exit(1); } (*totfiles)++; } for ( d = 0; d < dirs; d++) { sprintf(name, "%s%d.l%d", dname, d, lev); if (chdir(name) < 0) { if (ignore) continue; error("chdir %s failed", name); exit(1); } rmdirtree(lev, files, dirs, fname, dname, totfiles, totdirs, ignore); if (chdir("..") < 0) { error("chdir .. failed"); exit(1); } if (rmdir(name) < 0) { error("rmdir %s failed", name); exit(1); } (*totdirs)++; } } /* VARARGS */ error(str, ar1, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9) char *str; { char *ret, *getwd(), path[MAXPATHLEN]; if ((ret = getwd(path)) == NULL) fprintf(stderr, "%s: getwd failed\n", Myname); else fprintf(stderr, "\t%s: (%s) ", Myname, path); fprintf(stderr, str, ar1, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9); if (errno) perror(" "); else fprintf(stderr, "\n"); fflush(stderr); if (ret == NULL) exit(1); } static struct timeval ts, te; /* * save current time in struct ts */ starttime() { gettimeofday(&ts, (struct timezone *)0); } /* * sets the struct tv to the difference in time between * current time and the time in struct ts. */ endtime(tv) struct timeval *tv; { gettimeofday(&te, (struct timezone *)0); if (te.tv_usec < ts.tv_usec) { te.tv_sec--; te.tv_usec += 1000000; } tv->tv_usec = te.tv_usec - ts.tv_usec; tv->tv_sec = te.tv_sec - ts.tv_sec; } /* * Set up and move to a test directory */ testdir(dir) char *dir; { struct stat statb; char *getenv(); /* * If dir is non-NULL, use that dir. If NULL, first * check for env variable NFSTESTDIR. If that is not * set, use the compiled-in TESTDIR. */ if (dir == NULL) if ((dir = getenv("NFSTESTDIR")) == NULL) dir = TESTDIR; if (stat(dir, &statb) == 0) { if (rmdir_recurse(dir) != 0) { error("can't remove old test directory %s", dir); exit(1); } } if (mkdir(dir, 0777) < 0) { error("can't create test directory %s", dir); exit(1); } if (chdir(dir) < 0) { error("can't chdir to test directory %s", dir); exit(1); } } /* * Move to a test directory */ mtestdir(dir) char *dir; { struct stat statb; char str[MAXPATHLEN]; char *getenv(); /* * If dir is non-NULL, use that dir. If NULL, first * check for env variable NFSTESTDIR. If that is not * set, use the compiled-in TESTDIR. */ if (dir == NULL) if ((dir = getenv("NFSTESTDIR")) == NULL) dir = TESTDIR; if (chdir(dir) < 0) { error("can't chdir to test directory %s", dir); return -1; } return 0; } /* * get parameter at parm, convert to int, and make sure that * it is at least min. */ getparm(parm, min, label) char *parm, *label; int min; { int val = atoi(parm); if (val < min) { error("Illegal %s parameter %d, must be at least %d", label, val, min); exit(1); } return val; } /* * exit point for successful test */ complete() { fprintf(stdout, "\t%s ok.\n", Myname); exit(0); } irs" are used with fname and dname to generate * the file names to remove. * * This routine will fail if, say after removing known files, * the directory is not empty. * * This is used to test the unlink function and to clean up after tests. */ rmdirtree(lev, files, dirs, fname, dname, totfiles, totdirs, ignore) int lev; int fileMac-Cthon/temp 664 162 12 2232 4542261074 6547 if (0) { char p[256]; p[0] = ':'; strcpy(p+1, path); if (p[ strlen(p)-1 ] != ':') strcat(p, ":"); strcpy(path, p); } { char p[256]; p[0] = ':'; strcpy(p+1, path); strcpy(path, p); } if (0) printf("[rmdir] default_dir_id %lx\n", default_dir_id); /* remove any working dir info */ if (0) { long dirid; CInfoPBRec iopb; int index; /* first get dir id */ iopb.hFileInfo.ioNamePtr = pname(path); iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioDirID = default_dir_id; iopb.hFileInfo.ioFDirIndex = 0; result = PBGetCatInfo(&iopb, FALSE); if (result != noErr) return result; dirid = iopb.hFileInfo.ioDirID; /* then scan wd's */ for (index = 1;; index++) { WDPBRec wd_iopb; wd_iopb.ioVRefNum = default_vrefnum; wd_iopb.ioNamePtr = (StringPtr)0; wd_iopb.ioWDProcID = 0; wd_iopb.ioWDVRefNum = 0; wd_iopb.ioWDIndex = index; result = PBGetWDInfo(&wd_iopb, FALSE); printf("[rmdir] index %d, result %d, got dirid %lx, want %lx\n", index, result, wd_iopb.ioWDDirID, dirid); if (result != noErr) break; if (wd_iopb.ioWDDirID == dirid) { printf("[rmdir] got wd, index %d\n", index); PBCloseWD(&wd_iopb, FALSE); } } } dir = TESTDIR; if (chdir(dir) < 0) { error("can't chdir to test directory %s", dir); return -1; } return 0; } /* * get parameter at parm, convert to int, and make sure that * it is at least min. */ getparm(parm, min, label) char *parm, *label; int min; { int val = atoi(parm); if (val < min) { error("Illegal %s parameter %d, must be at Mac-Cthon/test 664 162 12 0 4542261075 6471 Mac-Cthon/test.rsrc 664 162 12 0 4542261077 7443 Mac-Cthon/test1.c 664 162 12 4715 4542261101 7062 /* @(#)test1.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test file and directory creation. * Builds a tree on the server. * * Uses the following important system calls against the server: * * chdir() * mkdir() (if creating directories, level > 1) * creat() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_stat.h" #include "sys_time.h" #include <stdio.h> #include "tests.h" test1(argc, argv) int argc; char *argv[]; { int files = DFILS; /* number of files in each dir */ int totfiles = 0; int dirs = DDIRS; /* directories in each dir */ int totdirs = 0; int levels = DLEVS; /* levels deep */ char *fname = FNAME; char *dname = DNAME; struct timeval time; char command[MAXPATHLEN]; struct stat statb; char *opts; setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 's': /* silent */ Sflag++; break; case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { levels = getparm(*argv, 1, "levels"); argv++; argc--; } if (argc) { files = getparm(*argv, 0, "files"); argv++; argc--; } if (argc) { dirs = getparm(*argv, 0, "dirs"); if (dirs == 0 && levels != 1) { error("Illegal dirs parameter, must be at least 1"); exit(1); } argv++; argc--; } if (argc) { fname = *argv; argc--; argv++; } if (argc) { dname = *argv; argc--; argv++; } if (argc != 0) { error("too many parameters"); usage(); exit(1); } if (Fflag) { Tflag = 0; levels = 2; files = 2; dirs = 2; } if (!Sflag) { fprintf(stdout, "%s: File and directory creation test\n", Myname); } if (!Nflag) testdir(NULL); else mtestdir(NULL); if (Tflag && !Sflag) { starttime(); } dirtree(levels, files, dirs, fname, dname, &totfiles, &totdirs); if (Tflag && !Sflag) { endtime(&time); } if (!Sflag) { fprintf(stdout, "\tcreated %d files %d directories %d levels deep", totfiles, totdirs, levels); } if (Tflag && !Sflag) { fprintf(stdout, " in %ld.%-2l]d seconds", time.tv_sec, time.tv_usec / 10000); } if (!Sflag) { fprintf(stdout, "\n"); } complete(); } name) < 0) { if (ignore) continue; error(Mac-Cthon/test2.c 664 162 12 5112 4542261103 7055 /* @(#)test2.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test file and directory removal. * Builds a tree on the server. * * Uses the following important system calls against the server: * * chdir() * rmdir() (if removing directories, level > 1) * unlink() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" test2(argc, argv) int argc; char *argv[]; { int files = DFILS; /* number of files in each dir */ int totfiles = 0; int dirs = DDIRS; /* directories in each dir */ int totdirs = 0; int levels = DLEVS; /* levels deep */ char *fname = FNAME; char *dname = DNAME; struct timeval time; char command[MAXPATHLEN]; struct stat statb; char *opts; char str[256]; setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { levels = getparm(*argv, 1, "levels"); argv++; argc--; } if (argc) { files = getparm(*argv, 0, "files"); argv++; argc--; } if (argc) { dirs = getparm(*argv, 0, "dirs"); if (dirs == 0 && levels != 1) { error("Illegal dirs parameter, must be at least 1"); exit(1); } argv++; argc--; } if (argc) { fname = *argv; argc--; argv++; } if (argc) { dname = *argv; argc--; argv++; } if (argc != 0) { error("too many parameters"); usage(); exit(1); } if (Fflag) { Tflag = 0; levels = 2; files = 2; dirs = 2; } fprintf(stdout, "%s: File and directory removal test\n", Myname); if (mtestdir(NULL)) { sprintf(str, "test1 -s %s %d %d %d %s %s", Nflag ? "-n" : "", levels, files, dirs, fname, dname); if (system(str) != 0) { error("can't make directroy tree to remove"); exit(1); } if (mtestdir(NULL)) { error("still can't go to test directory"); exit(1); } } if (Tflag) { starttime(); } rmdirtree(levels, files, dirs, fname, dname, &totfiles, &totdirs, 0); if (Tflag) { endtime(&time); } fprintf(stdout, "\tremoved %d files %d directories %d levels deep", totfiles, totdirs, levels); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); complete(); } ame, dname, totfiles, totdirs, ignore); if (chdir("..") < 0) { error("chdir .. failed"); exit(1); } if (rmdir(name) < 0) { error("rmdir %s failed", name); exit(1); } (*totdirs)++; } } /* VARARGS */ error(str, ar1, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9) char *str; { char *ret, *getwd(), path[MAXPATHLEN]; if ((ret = getwd(path)) == NULL) fprintf(stderr, "%s: getwd failed\n", Myname); else fprintf(stderrMac-Cthon/test3.c 664 162 12 3501 4542261104 7057 /* @(#)test3.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test lookup up and down across mount points * * Uses the following important system calls against the server: * * chdir() * getwd() * stat() */ #include "sys_param.h" #include "sys_vfs.h" #include "sys_time.h" #include "sys_stat.h" #include "sys_errno.h" #include <stdio.h> #include "tests.h" test3(argc, argv) int argc; char *argv[]; { int count = 250; /* times to do test */ int ct; struct timeval time; struct statfs sfsb; int ret; struct stat statb; char *opts; char path[MAXPATHLEN]; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } fprintf(stdout, "%s: lookups across mount point\n", Myname); if (!Nflag) testdir(NULL); else mtestdir(NULL); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { if (getwd(path) == NULL) { fprintf(stderr, "%s: getwd failed\n", Myname); exit(1); } if (stat(path, &statb) < 0) { error("can't stat %s after getwd", path); exit(1); } } if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d getwd and stat calls", count * 2); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); complete(); } irs = 2; } fprintf(stdout, "%s: File and directory removal test\n", Myname); if (mtestdir(NULL)) { sprintf(str, "test1 -s %s %d %d %d %s %s", Nflag ? "-n" : "", levels, files, diMac-Cthon/test4.c 664 162 12 5431 4542261106 7066 /* @(#)test4.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test setattr, getattr and lookup * * Creates the files in the test directory - does not create a directory * tree. * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * chmod() * stat() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" test4(argc, argv) int argc; char *argv[]; { int files = 10; /* number of files in each dir */ int fi; int count = 50; /* times to do each file */ int ct; int totfiles = 0; int totdirs = 0; char *fname = FNAME; struct timeval time; char str[MAXPATHLEN]; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* suppress initial directory */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argc--; argv++; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } if (!Nflag) testdir(NULL); else mtestdir(NULL); dirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs); fprintf(stdout, "%s: setattr, getattr, and lookup\n", Myname); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { for (fi = 0; fi < files; fi++) { sprintf(str, "%s%d", fname, fi); if (chmod(str, 0) < 0) { error("can't chmod 0 %s", str); exit(0); } if (stat(str, &statb) < 0) { error("can't stat %s", str); exit(1); } if ((statb.st_mode & 0777) != 0) { error("%s has mode %o after chmod 0", str, (statb.st_mode & 0777)); exit(1); } if (chmod(str, 0666) < 0) { error("can't chmod 0666 %s", str); exit(0); } if (stat(str, &statb) < 0) { error("can't stat %s", str); exit(1); } if ((statb.st_mode & 0777) != 0666) { error("%s has mode %o after chmod 0666", str, (statb.st_mode & 0777)); exit(1); } } } if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d chmods and stats on %d files", files * count * 2, files); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); /* XXX REMOVE DIRECTORY TREE? */ complete(); } gc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argc--; argv++; } if (argc)Mac-Cthon/test4a.c 664 162 12 4337 4542261110 7226 /* @(#)test4a.c 1.2 89/01/10 NFS Rev 2 Testsuite */ /* * Test getattr and lookup * * Creates the files in the test directory - does not create a directory * tree. * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * stat() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" test4a(argc, argv) int argc; char *argv[]; { int files = 10; /* number of files in each dir */ int fi; int count = 50; /* times to do each file */ int ct; int totfiles = 0; int totdirs = 0; char *fname = FNAME; struct timeval time; char str[MAXPATHLEN]; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* suppress initial directory */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argc--; argv++; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } if (!Nflag) testdir(NULL); else mtestdir(NULL); dirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs); fprintf(stdout, "%s: getattr and lookup\n", Myname); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { for (fi = 0; fi < files; fi++) { sprintf(str, "%s%d", fname, fi); if (stat(str, &statb) < 0) { error("can't stat %s", str); exit(1); } } } if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d stats on %d files", files * count * 2, files); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); /* XXX REMOVE DIRECTORY TREE? */ complete(); } me(); } rmdirtree(levels, files, dirs, fname, dname, &totfiles, &totdirs, 0); if (Tflag) { endtime(&time); } fprintf(stdout, "\tremoved %d files %d directories %d levels deep", totfiles, totdirs, levels); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", timeMac-Cthon/test5.c 664 162 12 7601 4542261112 7065 /* @(#)test5.c 1.4 89/01/13 NFS Rev 2 Testsuite */ /* * Test read and write * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * open() * read() * write() * stat() * fstat() * unlink() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" test5(argc, argv) int argc; char *argv[]; { int count = DCOUNT; /* times to do each file */ int ct; long size = DSIZE; long si; int i; int fd; int bytes; char *bigfile = "bigfile"; struct timeval time; char str[MAXPATHLEN]; struct stat statb; char *opts; char buf[BUFSZ]; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { size = getparm(*argv, 1, "size"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { bigfile = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } fprintf(stdout, "%s: read and write\n", Myname); if (!Nflag) testdir(NULL); else mtestdir(NULL); for (i=0; i < BUFSZ / sizeof(int); i++) { ((int *)buf)[i] = i; } if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { if ((fd = creat(bigfile, 0666)) < 0) { error("can't create '%s'", bigfile); exit(1); } if (fstat(fd, &statb) < 0) { error("can't stat '%s'", bigfile); exit(1); } if (statb.st_size != 0) { error("'%s' has size %ld, should be 0", bigfile, statb.st_size); exit(1); } for (si = size; si > 0; si -= BUFSZ) { bytes = MIN(BUFSZ, si); if (write(fd, buf, bytes) != bytes) { error("'%s' write failed", bigfile); exit(1); } } close(fd); if (stat(bigfile, &statb) < 0) { error("can't stat '%s'", bigfile); exit(1); } if (statb.st_size != size) { error("'%s' has size %d, should be %d", bigfile, statb.st_size, size); exit(1); } } if (Tflag) { endtime(&time); } if ((fd = open(bigfile, 0)) < 0) { error("can't open '%s'", bigfile); exit(1); } for (si = size; si; si -= BUFSZ) { bytes = MIN(BUFSZ, si); if (read(fd, buf, bytes) != bytes) { error("'%s' read failed", bigfile); exit(1); } for (i = 0; i < bytes / sizeof(int); i++) { if (((int *)buf)[i] != i) { printf("i %d, buf %x, i %x\n", i, ((int *)buf)[i], i); error("bad data in '%s'", bigfile); exit(1); } } } close(fd); fprintf(stdout, "\twrote %ld byte file %d times", size, count); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds (%ld bytes/sec)", time.tv_sec, time.tv_usec / 10000, size*count/time.tv_sec); } fprintf(stdout, "\n"); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { if ((fd = open(bigfile, 0)) < 0) { error("can't open '%s'", bigfile); exit(1); } for (si = size; si; si -= BUFSZ) { bytes = MIN(BUFSZ, si); if (read(fd, buf, bytes) != bytes) { error("'%s' read failed", bigfile); exit(1); } } close(fd); } if (Tflag) { endtime(&time); } fprintf(stdout, "\tread %ld byte file %d times", size, 2*count); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds (%ld bytes/sec)", time.tv_sec, time.tv_usec / 10000, size*count/time.tv_sec); } fprintf(stdout, "\n"); if (unlink(bigfile) < 0) { error("can't unlink '%s'", bigfile); exit(1); } complete(); } se 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtioMac-Cthon/test5a.c 664 162 12 5456 4542261114 7236 /* @(#)test5a.c 1.2 89/01/10 NFS Rev 2 Testsuite */ /* * Test write - DOES NOT VERIFY WRITE CONTENTS * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * write() * stat() * fstat() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" test5a(argc, argv) int argc; char *argv[]; { int count = DCOUNT; /* times to do each file */ int ct; long size = DSIZE; long si; int i; int fd; int bytes; char *bigfile = "bigfile"; struct timeval time; char str[MAXPATHLEN]; struct stat statb; char *opts; char buf[BUFSZ]; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { size = getparm(*argv, 1, "size"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { bigfile = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } fprintf(stdout, "%s: write\n", Myname); if (!Nflag) testdir(NULL); else mtestdir(NULL); /* Set up contents, however we won't verify. */ for (i=0; i < BUFSZ / sizeof(int); i++) { ((int *)buf)[i] = i; } if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { if ((fd = creat(bigfile, 0666)) < 0) { error("can't create '%s'", bigfile); exit(1); } if (fstat(fd, &statb) < 0) { error("can't stat '%s'", bigfile); exit(1); } if (statb.st_size != 0) { error("'%s' has size %ld, should be 0", bigfile, statb.st_size); exit(1); } for (si = size; si > 0; si -= BUFSZ) { bytes = MIN(BUFSZ, si); if (write(fd, buf, bytes) != bytes) { error("'%s' write failed", bigfile); exit(1); } } close(fd); if (stat(bigfile, &statb) < 0) { error("can't stat '%s'", bigfile); exit(1); } if (statb.st_size != size) { error("'%s' has size %ld, should be %d", bigfile, statb.st_size, size); exit(1); } } if (Tflag) { endtime(&time); } fprintf(stdout, "\twrote %ld byte file %d times", size, count); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds (%ld bytes/sec)", time.tv_sec, time.tv_usec / 10000, size*count/time.tv_sec); } fprintf(stdout, "\n"); complete(); } i++) { if (((int *)buf)[i] != i) { printf("i %d, buf %x, i %x\n", i, ((int *)buf)[i], i); error("bad data in '%s'", bigfile); exit(1); } } } close(fd); fprintf(stdout, "\twrote %ld byte fileMac-Cthon/test5b.c 664 162 12 4460 4542261116 7233 /* @(#)test5b.c 1.2 89/01/10 NFS Rev 2 Testsuite */ /* * Test read - will read a file of specified size, contents not looked at * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * open() * read() * unlink() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" test5b(argc, argv) int argc; char *argv[]; { int count = DCOUNT; /* times to do each file */ int ct; long size = DSIZE; long si; int i; int fd; int bytes; char *bigfile = "bigfile"; struct timeval time; char str[MAXPATHLEN]; struct stat statb; char *opts; char buf[BUFSZ]; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { size = getparm(*argv, 1, "size"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { bigfile = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } fprintf(stdout, "%s: read\n", Myname); mtestdir(NULL); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { if ((fd = open(bigfile, 0)) < 0) { error("can't open '%s'", bigfile); exit(1); } for (si = size; si; si -= BUFSZ) { bytes = MIN(BUFSZ, si); if (read(fd, buf, bytes) != bytes) { error("'%s' read failed", bigfile); exit(1); } } close(fd); } if (Tflag) { endtime(&time); } fprintf(stdout, "\tread %ld byte file %d times", size, count); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds (%ld bytes/sec)", time.tv_sec, time.tv_usec / 10000, size*count/time.tv_sec); } fprintf(stdout, "\n"); if (unlink(bigfile) < 0) { error("can't unlink '%s'", bigfile); exit(1); } complete(); } fd); if (stat(bigfile, &statb) < 0) { error("can't stat '%s'", bigfile); exit(1); } if (statb.st_size != size) { error("'%s' has size %ld, should be %d", bigfile, statb.st_size, size); Mac-Cthon/test6.c 664 162 12 11777 4542261120 7116 /* @(#)test6.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test readdir * * Uses the following important system/library calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * unlink() * opendir(), rewinddir(), readdir(), closedir() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_dir.h" #include <stdio.h> #include "tests.h" #define MAXFILES 512 /* maximum files allowed for this test */ #define BITMOD 8 /* bits per u_char */ u_char bitmap[MAXFILES / BITMOD]; #define BIT(x) (bitmap[(x) / BITMOD] & (1 << ((x) % BITMOD)) ) #define SETBIT(x) (bitmap[(x) / BITMOD] |= (1 << ((x) % BITMOD)) ) #define CLRBIT(x) (bitmap[(x) / BITMOD] &= ~(1 << ((x) % BITMOD)) ) test6(argc, argv) int argc; char *argv[]; { #ifdef DEBUG int files = 5; /* number of files in each dir */ int count = 5; /* times to read dir */ #else int files = 20 /* 200 */; /* number of files in each dir */ int count = 200; /* times to read dir */ #endif int fi; int ct; int entries = 0; int totfiles = 0; int totdirs = 0; DIR *dir; struct direct *dp; char *fname = FNAME; struct timeval time; char *p, str[MAXPATHLEN]; char *opts; int err, i, dot, dotdot; int nmoffset; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; case 'i': /* ignore spurious files */ Iflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } { extern int debug; if (debug) { files = 5; /* number of files in each dir */ count = 5; /* times to read dir */ } } nmoffset = strlen(fname); if (Fflag) { Tflag = 0; count = 1; } if (count > files) { error("count (%d) can't be greater than files (%d)", count, files); exit(1); } if (files > MAXFILES) { error("too many files requested (max is %d)", MAXFILES); exit(1); } fprintf(stdout, "%s: readdir\n", Myname); if (!Nflag) testdir(NULL); else mtestdir(NULL); dirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs); if (Tflag) { starttime(); } if ((dir = opendir(".")) == NULL) { error("can't opendir %s", "."); exit(1); } for (ct = 0; ct < count; ct++) { printf("\tread count %d\n", ct); rewinddir(dir); dot = 0; dotdot = 0; err = 0; for (i = 0; i < sizeof(bitmap); i++) bitmap[i] = 0; while ((dp = readdir(dir)) != NULL) { entries++; if (strcmp(".", dp->d_name) == 0) { if (dot) { /* already read dot */ error("'.' dir entry read twice"); exit(1); } dot++; continue; } else if (strcmp("..", dp->d_name) == 0) { if (dotdot) { /* already read dotdot */ error("'..' dir entry read twice"); exit(1); } dotdot++; continue; } /* * at this point, should have entry of the form * fname%d */ /* If we don't have our own directory, ignore such errors (if Iflag set). */ if (strncmp(dp->d_name, fname, nmoffset)) { if (Iflag) continue; else { error("unexpected dir entry '%s'", dp->d_name); exit(1); } } /* get ptr to numeric part of name */ p = dp->d_name + nmoffset; fi = atoi(p); if (fi < 0 || fi >= MAXFILES) { error("unexpected dir entry '%s'", dp->d_name); exit(1); } if (BIT(fi)) { error("duplicate '%s' dir entry read", dp->d_name); err++; } else SETBIT(fi); } /* end readdir loop */ #ifdef CHECK_DOTS if (!dot) { error("didn't read '.' dir entry, pass %d", ct); err++; } if (!dotdot) { error("didn't read '..' dir entry, pass %d", ct); err++; } #endif for (fi = 0; fi < ct; fi++) { if (BIT(fi)) { sprintf(str, "%s%d", fname, fi); error("unlinked '%s' dir entry read pass %d", str, ct); err++; } } for (fi = ct; fi < files; fi++) { if (!BIT(fi)) { sprintf(str, "%s%d", fname, fi); error("\ didn't read expected '%s' dir entry, pass %d", str, ct); err++; } } if (err) { error("Test failed with %d errors", err); exit(1); } sprintf(str, "%s%d", fname, ct); if (unlink(str) < 0) { error("can't unlink %s", str); exit(1); } } closedir(dir); if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d entries read, %d files", entries, files); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); rmdirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs, 1); complete(); } Mac-Cthon/test7.c 664 162 12 7346 4542261122 7076 /* @(#)test7.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test rename, link * * Uses the following important system calls against the server: * * chdir() * creat() * stat() * rename() * link() * unlink() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" #define NNAME "newfile." /* new filename for rename and link */ test7(argc, argv) int argc; char *argv[]; { int files = 10; /* number of files in each dir */ int fi; int count = 10; /* times to do each file */ int ct; int totfiles = 0; int totdirs = 0; char *fname = FNAME; char *nname = NNAME; struct timeval time; char str[MAXPATHLEN]; char new[MAXPATHLEN]; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argv++; argc--; } if (argc) { nname = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } fprintf(stdout, "%s: link and rename\n", Myname); if (!Nflag) testdir(NULL); else mtestdir(NULL); dirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { for (fi = 0; fi < files; fi++) { sprintf(str, "%s%d", fname, fi); sprintf(new, "%s%d", nname, fi); if (rename(str, new) < 0) { error("can't rename %s to %s", str, new); exit(1); } if (stat(str, &statb) == 0) { error("%s exists after rename", str); exit(1); } if (stat(new, &statb) < 0) { error("can't stat %s after rename", new); exit(1); } if (statb.st_nlink != 1) { error("%s has %d links after rename (expect 1)", new, statb.st_nlink); exit(1); } /* if (link(new, str) < 0) { error("can't link %s to %s", new, str); exit(1); } if (stat(new, &statb) < 0) { error("can't stat %s after link", new); exit(1); } if (statb.st_nlink != 2) { error("%s has %d links after link (expect 2)", new, statb.st_nlink); exit(1); } if (stat(str, &statb) < 0) { error("can't stat %s after link", str); exit(1); } if (statb.st_nlink != 2) { error("%s has %d links after link (expect 2)", str, statb.st_nlink); exit(1); } if (unlink(new) < 0) { error("can't unlink %s", new); exit(1); } if (stat(str, &statb) < 0) { error("can't stat %s after unlink %s", str, new); exit(1); } if (statb.st_nlink != 1) { error("%s has %d links after unlink (expect 1)", str, statb.st_nlink); exit(1); } */ if (rename(new, str) < 0) { error("can't rename %s to %s", str, new); exit(1); } if (stat(str, &statb) < 0) { error("can't stat %s after 2nd rename %s", str, new); exit(1); } } } if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d renames and links on %d files", files * count * 2, files); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); /* Cleanup files left around */ rmdirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs, 1); complete(); } exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argv++; argc--; } if (argc) { nname = *argv; argv+Mac-Cthon/test7a.c 664 162 12 5552 4542261124 7236 /* @(#)test7a.c 1.2 89/01/10 NFS Rev 2 Testsuite */ /* * Test rename * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * stat() * rename() * unlink() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" #define NNAME "newfile." /* new filename for rename */ test7a(argc, argv) int argc; char *argv[]; { int files = 10; /* number of files in each dir */ int fi; int count = 10; /* times to do each file */ int ct; int totfiles = 0; int totdirs = 0; char *fname = FNAME; char *nname = NNAME; struct timeval time; char str[MAXPATHLEN]; char new[MAXPATHLEN]; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argv++; argc--; } if (argc) { nname = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } fprintf(stdout, "%s: rename\n", Myname); if (!Nflag) testdir(NULL); else mtestdir(NULL); dirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { for (fi = 0; fi < files; fi++) { sprintf(str, "%s%d", fname, fi); sprintf(new, "%s%d", nname, fi); if (rename(str, new) < 0) { error("can't rename %s to %s", str, new); exit(1); } if (stat(str, &statb) == 0) { error("%s exists after rename", str); exit(1); } if (stat(new, &statb) < 0) { error("can't stat %s after rename", new); exit(1); } if (rename(new, str) < 0) { error("can't rename %s to %s", new, str); exit(1); } if (stat(new, &statb) == 0) { error("%s exists after rename", new); exit(1); } if (stat(str, &statb) < 0) { error("can't stat %s after rename", str); exit(1); } } } if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d renames on %d files", files * count * 2, files); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); /* Cleanup files left around */ rmdirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs, 1); complete(); } (i = 0; i < sizeof(bitmap); i++) bitmap[i] = 0; while ((dp = readdir(dir)) != NULL) { entries++; if (strcmp(".", dp->d_name) == 0) { ifMac-Cthon/test7b.c 664 162 12 6163 4542261126 7240 /* @(#)test7b.c 1.2 89/01/10 NFS Rev 2 Testsuite */ /* * Test link * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * stat() * link() * unlink() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include <stdio.h> #include "tests.h" #define NNAME "newfile." /* new filename for link */ test7b(argc, argv) int argc; char *argv[]; { int files = 10; /* number of files in each dir */ int fi; int count = 10; /* times to do each file */ int ct; int totfiles = 0; int totdirs = 0; char *fname = FNAME; char *nname = NNAME; struct timeval time; char str[MAXPATHLEN]; char new[MAXPATHLEN]; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argv++; argc--; } if (argc) { nname = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } fprintf(stdout, "%s: link\n", Myname); if (!Nflag) testdir(NULL); else mtestdir(NULL); dirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { for (fi = 0; fi < files; fi++) { sprintf(str, "%s%d", fname, fi); sprintf(new, "%s%d", nname, fi); if (link(str, new) < 0) { error("can't link %s to %s", str, new); exit(1); } if (stat(new, &statb) < 0) { error("can't stat %s after link", new); exit(1); } if (statb.st_nlink != 2) { error("%s has %d links after link (expect 2)", new, statb.st_nlink); exit(1); } if (stat(str, &statb) < 0) { error("can't stat %s after link", str); exit(1); } if (statb.st_nlink != 2) { error("%s has %d links after link (expect 2)", str, statb.st_nlink); exit(1); } if (unlink(new) < 0) { error("can't unlink %s", new); exit(1); } if (stat(str, &statb) < 0) { error("can't stat %s after unlink %s", str, new); exit(1); } if (statb.st_nlink != 1) { error("%s has %d links after unlink (expect 1)", str, statb.st_nlink); exit(1); } } } if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d links on %d files", files * count, files); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); /* Cleanup files left around */ rmdirtree(1, files, 0, fname, DNAME, &totfiles, &totdirs, 1); complete(); } tfiles = 0; int totdirs = 0; char *fname = FNAME; char *nname = NNAME; struct timeval time; char str[MAXPATHLEN]; char new[MAXPATHLEN]; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); caseMac-Cthon/test8.c 664 162 12 6251 4542261127 7076 /* @(#)test8.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test symlink, readlink * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * creat() * symlink() * readlink() * lstat() * unlink() */ #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_stat.h" #include "sys_errno.h" #include <stdio.h> #include "tests.h" #define SNAME "/this/is/a/symlink" /* symlink prefix */ test8(argc, argv) int argc; char *argv[]; { int files = 10; /* number of files in each dir */ int fi; int count = 20; /* times to do each file */ int ct; int totfiles = 0; int totdirs = 0; char *fname = FNAME; char *sname = SNAME; struct timeval time; char str[MAXPATHLEN]; char new[MAXPATHLEN]; char buf[MAXPATHLEN]; int ret; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { files = getparm(*argv, 1, "files"); argv++; argc--; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { fname = *argv; argv++; argc--; } if (argc) { sname = *argv; argv++; argc--; } if (argc) { usage(); exit(1); } #ifndef S_IFLNK fprintf(stdout, "\ %s: symlink and readlink not supported on this client\n", Myname); #else S_IFLNK if (Fflag) { Tflag = 0; count = 1; } if (!Nflag) testdir(NULL); else mtestdir(NULL); fprintf(stdout, "%s: symlink and readlink\n", Myname); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { for (fi = 0; fi < files; fi++) { sprintf(str, "%s%d", fname, fi); sprintf(new, "%s%d", sname, fi); if (symlink(new, str) < 0) { error("can't make symlink %s", str); if (errno == EOPNOTSUPP) complete(); else exit(1); } if (lstat(str, &statb) < 0) { error("can't stat %s after symlink", str); exit(1); } if ((statb.st_mode & S_IFMT) != S_IFLNK) { error("mode of %s not symlink"); exit(1); } if ((ret = readlink(str, buf, MAXPATHLEN)) != strlen(new)) { error("readlink %s ret %d, expect %d", str, ret, strlen(new)); exit(1); } if (strncmp(new, buf, ret) != NULL) { error("readlink %s returned bad linkname", str); exit(1); } if (unlink(str) < 0) { error("can't unlink %s", str); exit(1); } } } if (Tflag) { endtime(&time); } fprintf(stdout, "\t%d symlinks and readlinks on %d files", files * count * 2, files); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); #endif S_IFLNK complete(); } if (dotdot) { /* already read dotdot */ error("'..' dir entry read twice"); exit(1); } dotdot++; continue; } /* * at this point, should have entry of the form * fname%d */ /* If we don't have our own directory, ignore such errors (if Iflag set). */ if (strncmp(dp->d_name, fname, Mac-Cthon/test9.c 664 162 12 4050 4542261131 7065 /* @(#)test9.c 1.3 89/01/10 NFS Rev 2 Testsuite */ /* * Test statfs * * Uses the following important system calls against the server: * * chdir() * mkdir() (for initial directory creation if not -m) * statfs() */ #include "sys_param.h" #include "sys_vfs.h" #include "sys_time.h" #include "sys_stat.h" #include "sys_errno.h" #include <stdio.h> #include "tests.h" test9(argc, argv) int argc; char *argv[]; { int count = 1500; /* times to do statfs call */ int ct; struct timeval time; struct statfs sfsb; int ret; struct stat statb; char *opts; umask(0); setbuf(stdout, NULL); Myname = *argv++; argc--; while (argc && **argv == '-') { for (opts = &argv[0][1]; *opts; opts++) { switch (*opts) { case 'h': /* help */ usage(); exit(1); case 't': /* time */ Tflag++; break; case 'f': /* funtionality */ Fflag++; break; case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); usage(); exit(1); } } argc--; argv++; } if (argc) { count = getparm(*argv, 1, "count"); argv++; argc--; } if (argc) { usage(); exit(1); } if (Fflag) { Tflag = 0; count = 1; } if (!Nflag) testdir(NULL); else mtestdir(NULL); fprintf(stdout, "%s: statfs\n", Myname); if (Tflag) { starttime(); } for (ct = 0; ct < count; ct++) { if (statfs(".", &sfsb) < 0) { error("can't do statfs on \".\""); exit(1); } } if (Tflag) { endtime(&time); } #ifdef DEBUG fprintf(stdout, "\ttype=%ld, bsize=%ld, blocks=%ld, bfree=%ld\n\ \t bavail=%ld, files=%ld, ffree=%ld, fsid=%ld %ld\n", sfsb.f_type, sfsb.f_bsize, sfsb.f_blocks, sfsb.f_bfree, sfsb.f_bavail, sfsb.f_files, sfsb.f_ffree, #ifdef NFS3_2 sfsb.f_fsid.val[0], sfsb.f_fsid.val[1]); #else NFS3_2 sfsb.f_fsid[0], sfsb.f_fsid[1]); #endif NFS3_2 #endif DEBUG fprintf(stdout, "\t%d statfs calls", count); if (Tflag) { fprintf(stdout, " in %ld.%-2ld seconds", time.tv_sec, time.tv_usec / 10000); } fprintf(stdout, "\n"); complete(); } f(str, "%s%d", fname, fi); sprintf(new, "%s%d", sname, fi); if (symlink(new, str) < 0) { error("can't make symlink %s", str); if (errno == EOPNOTSUPP) complete(); else exit(1); } if (lstat(str, &statb) < 0) { error("can't stat %s after symlink", str); exit(1); } if ((statb.st_mode & S_IFMT) != S_IFLNK) { error("mode of %Mac-Cthon/tests.h 664 162 12 1605 4542261133 7171 /* @(#)tests.h 1.2 89/01/08 NFS Rev 2 Testsuite */ /* #define DEBUG */ extern char TESTDIR[]; #define DNAME "dir." #define FNAME "file." #define DCOUNT 10 extern int DDIRS; extern int DLEVS; extern int DFILS; #define BUFSZ 8192 extern long DSIZE; /* #ifdef DEBUG #define DDIRS 1 #define DLEVS 2 #define DFILS 1 #else #define DDIRS 2 #define DLEVS 5 #define DFILS 5 #endif #ifdef DEBUG #define BUFSZ 512 #define DSIZE 8192 #else #define BUFSZ 8192 #define DSIZE 1048576 #endif */ extern int errno; extern char *Myname; /* name I was invoked with (for error msgs */ extern int Tflag; /* print timing */ extern int Hflag; /* print help message */ extern int Fflag; /* test function only; set count to 1, negate -t */ extern int Nflag; /* Suppress directory operations */ extern int Sflag; /* don't print non-error messages */ extern int Iflag; /* Ignore non-test files dir entries */ case 'n': /* No Test Directory create */ Nflag++; break; default: error("unknown option '%c'", *opts); Mac-Cthon/unix/ 775 162 12 0 4542261504 6554 Mac-Cthon/unix/macdir.c 664 162 12 12737 4542261453 10301 #include <HFS.h> #include "sys_param.h" #include "tests.h" extern int trace; struct { char dir[33]; } dirs[100]; extract_path(path) char *path; { ioParam pb; /* my parameter block for PB's */ int dcount = 0; int vrefnum; CInfoPBRec iopb; int result; long dirid; int i; WDPBRec gv_iopb; char root[33]; extern int default_vrefnum; /* get basic info */ gv_iopb.ioNamePtr = (StringPtr)root; result = PBHGetVol(&gv_iopb, FALSE); dirid = gv_iopb.ioWDDirID; PtoCstr(root); if (trace) printf("\t[extract_path] vol name '%s', working dirid 0x%lx\n", root, dirid); /* pop back up following parent id's */ while (dirid != 2) { iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioFDirIndex = -1; iopb.hFileInfo.ioDirID = dirid; dirs[dcount].dir[0] = '\0'; iopb.hFileInfo.ioNamePtr = (StringPtr)dirs[dcount].dir; result = PBGetCatInfo(&iopb, FALSE); PtoCstr(dirs[dcount].dir); dirid = iopb.dirInfo.ioDrParID; if (trace) printf("\t[extract_path] dir '%s', dirid 0x%lx\n", dirs[dcount].dir, iopb.dirInfo.ioDrDirID); dcount++; } /* build ascii path name */ path[0] = '\0'; strcat(path, root); strcat(path, ":"); if (trace) printf("\t[extract_path] root '%s'\n", path); for (i = dcount-1; i >= 0; i--) { if (strlen(dirs[i].dir) > 0) { strcat(path, dirs[i].dir); if (i > 0) strcat(path, ":"); if (trace) printf("\t[extract_path] adding '%s' to make '%s'\n", dirs[i].dir, path); } } return 1; } int rmdir_recurse(dir) char *dir; { char str[MAXPATHLEN], path[MAXPATHLEN]; long dirid; CInfoPBRec iopb; int result; extern StringPtr pnamecpy(); extern long default_dir_id; extern int default_vrefnum; if (trace) printf("\t[rmdir_recurse] '%s'\n", dir); #ifdef SYSTEM sprintf(str, "rm -r %s", dir); return system(str); #else /* close default wd #2 */ { WDPBRec cw_iopb; cw_iopb.ioVRefNum = 0x8013; result = PBCloseWD(&cw_iopb, FALSE); } /* reset default dir */ { WDPBRec cd_iopb; cd_iopb.ioNamePtr = (StringPtr)0; cd_iopb.ioVRefNum = default_vrefnum; cd_iopb.ioWDDirID = 2; result = PBHSetVol(&cd_iopb, FALSE); if (result != noErr) merror(result, "rmdir_recurse - PBHSetVol", path); } unix_to_mac_path(str, dir, TRUE); /* use name to get dir's dir id */ iopb.hFileInfo.ioNamePtr = pnamecpy(path, str); iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioDirID = default_dir_id; iopb.hFileInfo.ioFDirIndex = 0; result = PBGetCatInfo(&iopb, FALSE); /* delete the dir's contents recursively */ rm_recurse_dir(iopb.dirInfo.ioDrDirID); /* then, delete the dir */ PtoCstr((char *)iopb.hFileInfo.ioNamePtr); /* place us in parent of dir to delete */ chdir(iopb.hFileInfo.ioNamePtr); chdir(".."); remove_id(2L, iopb.hFileInfo.ioNamePtr); #endif if (trace) printf("\t[rmdir_recurse] done.\n"); return 0; } rm_recurse_dir(dirid) long dirid; { CInfoPBRec iopb; int result; char name[33]; int index; extern int default_vrefnum; if (trace) printf("\t[rm_recurse_dir] dirid 0x%lx\n", dirid); /* re-scan dir until it's empty */ for (index = 1; TRUE;) { iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioFDirIndex = index; iopb.hFileInfo.ioDirID = dirid; name[0] = '\0'; iopb.hFileInfo.ioNamePtr = (StringPtr)name; result = PBGetCatInfo(&iopb, FALSE); if (trace) printf("index %d, PBGetCatInfo result %d\n", index, result); if (result != noErr) return result; PtoCstr(name); #define ReturnIfError(expr) if ((result = (expr)) != noErr) return result; /* delete if not dir */ if (iopb.hFileInfo.ioFlAttrib & 0x10) { if (trace) printf("\tdir '%s' (id 0x%lx)...\n", name, iopb.dirInfo.ioDrDirID); rm_recurse_dir(iopb.dirInfo.ioDrDirID); ReturnIfError( remove_id(dirid, name) ); } else { if (trace) printf("\tfile '%s'...\n", name); ReturnIfError( remove_id(dirid, name) ); } } if (trace) printf("\n\n"); return noErr; } remove_id(dirid, name) long dirid; char *name; { HFileParam pb; int result; extern int default_vrefnum; CtoPstr(name); pb.ioNamePtr = (StringPtr)name; pb.ioVRefNum = default_vrefnum; pb.ioDirID = dirid; pb.ioFVersNum = 0; result = PBHDelete(&pb, FALSE); PtoCstr(name); if (trace || result != noErr) printf("\t[remove_id] failed: dirid 0x%lx, name '%s', result %d\n", dirid, name, result); return result; } askfordir(path, pVrefnum) char *path; int *pVrefnum; { Point point; SFReply reply; char name[256]; point.h = point.v = 40; strcpy(name, "\pTestFile"); SFPutFile(point, "\pTest directory", name, (ProcPtr)0, &reply); if (!reply.good) return FALSE; /* set default vol and dir */ { WDPBRec cd_iopb; int result; cd_iopb.ioNamePtr = (StringPtr)0; cd_iopb.ioVRefNum = reply.vRefNum; cd_iopb.ioWDDirID = 2; result = PBHSetVol(&cd_iopb, FALSE); if (result != noErr) merror(result, "askfordir - PBHSetVol", path); } /* generate base path */ { WDPBRec gv_iopb; int result; /* get basic info */ gv_iopb.ioNamePtr = (StringPtr)path; result = PBHGetVol(&gv_iopb, FALSE); PtoCstr(path); *pVrefnum = gv_iopb.ioVRefNum; } /* set default vol and dir */ { WDPBRec cd_iopb; int result; cd_iopb.ioNamePtr = (StringPtr)0; cd_iopb.ioVRefNum = *pVrefnum; cd_iopb.ioWDDirID = 2; result = PBHSetVol(&cd_iopb, FALSE); if (result != noErr) merror(result, "askfordir - PBHSetVol", path); } if (0) strcat(path, "/cayman"); if (trace) printf("\t[askfordir] vrefnum %d, path '%s'\n", *pVrefnum, path); return TRUE; } Mac-Cthon/unix/macsubr.c 664 162 12 3537 4542261455 10456 int atoi(s) register char *s; { register int number = 0, radix = 10, sign = 1; register char ch; if (*s == '-') sign = -1, s++; if (*s == '+') s++; while (ch = *s++) { ch = toupper(ch); if ('0' <= ch && ch <= '9') number = (number * radix) + (ch - '0'); else if ( ('A' <= ch && ch <= 'F') && radix == 16 ) number = (number * radix) + 10 + (ch - 'A'); else if (ch == 'X') { number = 0; radix = 16; } else break; } return number * sign; } int strlen(s) register char *s; { register int len; for (len = 0; *s; ++len, ++s); return len; } char *strcpy(to, from) register char *to, *from; { while (*to++ = *from++); return to; } char *strcat(to, from) register char *to, *from; { to += strlen(to); while (*to++ = *from++); return to; } int strncmp(s1, s2, n) register char *s1, *s2; int n; { while (*s1 == *s2 && *s1 != '\0') { if (--n == 0) return 0; ++s1, ++s2; } return *s1 - *s2; } int strcmp(s1, s2) register char *s1, *s2; { while (*s1 == *s2 && *s1 != '\0') ++s1, ++s2; return *s1 - *s2; } exit(code) int code; { if (0) printf("\t[exit]"); if (code != 0) ExitToShell(); } char *getenv(word) char *word; { return (char *)0; } perror(s) char *s; { if (0) printf("\t[perror] %s\n", s); } setbuf() { return 0; } system(string) char *string; { printf("\t[system] %s\n", string); return 0; } bcopy(from, to, size) register char *from, *to; register int size; { while (size--) { *to = *from; ++to, ++from; } } bclear(to, size) register char *to; register int size; { while (size--) { *to = '\0'; ++to; } } ctopcpy(to, from) register char *to, *from; { register char *plen = to++; *plen = 0; while (*to++ = *from++) (*plen)++; } pstrcpy(to, from) register char *to, *from; { register int size = *from + 1; while (size--) { *to = *from; ++to, ++from; } } ec cw_iopb; cw_iopb.ioVRefNum = 0x8013; result = PBCloseWD(&cw_iopb, FALSE); } /* reset default dir */ { WDPBRec cd_iopb; cd_iopb.ioNamePtr = (StrMac-Cthon/unix/sys_dir.h 664 162 12 402 4542261457 10451 #define u_char unsigned char struct direct { char d_name[256]; }; typedef struct { long dir_id; int dir_index; struct direct dir_entry; } DIR; DIR *opendir(); struct direct *readdir(); #define NO_DIR ((DIR *)0) #define NO_ENTRY ((struct direct *)0) ! 3: unixtime.c t �� unix_stdopen.c <= ch && ch <= 'F') && radix == 16 ) number = (number * radix) + 10 + (ch - 'A'); else if (ch == 'X') { number = 0; radix = 16; } else break; } return number * sign; } int strlen(s) register charMac-Cthon/unix/sys_errno.h 664 162 12 1 4542261461 10746 �u &. r� � .. & �v macdir.c t-0 �w macsubr.c le �x sys_dir.h �y sys_errno.h �z sys_param.h �{ ! 4: sys_stat.h �| ! 5: sys_time.h ! 6: �} sys_vfs.h �~ unixdir.c mp � unixfileio.c � �� unixreaddir.c �� ! 7: unixtime.c t �� unix_stdopen.c <= ch && ch <= 'F') && radix == 16 ) number = (number * radix) + 10 + (ch - 'A'); else if (ch == 'X') { number = 0; radix = 16; } else break; } return number * sign; } int strlen(s) register charMac-Cthon/unix/sys_param.h 664 162 12 46 4542261464 10755 #define major #define MAXPATHLEN 255 .c t-0 �w macsubr.c le �x sys_dir.h �y sys_errno.h �z sys_param.h �{ ! 8: sys_stat.h �| ! 9: sys_time.h ! 10: �} sys_vfs.h �~ unixdir.c mp � unixfileio.c � �� unixreaddir.c �� ! 11: unixtime.c t �� unix_stdopen.c <= ch && ch <= 'F') && radix == 16 ) number = (number * radix) + 10 + (ch - 'A'); else if (ch == 'X') { number = 0; radix = 16; } else break; } return number * sign; } int strlen(s) register charMac-Cthon/unix/sys_stat.h 664 162 12 106 4542261466 10647 struct stat { int st_mode; int st_nlink; unsigned long st_size; }; sys_dir.h �y sys_errno.h �z sys_param.h �{ ! 12: sys_stat.h �| ! 13: sys_time.h ! 14: �} sys_vfs.h �~ unixdir.c mp � unixfileio.c � �� unixreaddir.c �� ! 15: unixtime.c t �� unix_stdopen.c <= ch && ch <= 'F') && radix == 16 ) number = (number * radix) + 10 + (ch - 'A'); else if (ch == 'X') { number = 0; radix = 16; } else break; } return number * sign; } int strlen(s) register charMac-Cthon/unix/sys_time.h 664 162 12 63 4542261470 10607 struct timeval { unsigned long tv_sec, tv_usec; }; macsubr.c le �x sys_dir.h �y sys_errno.h �z sys_param.h �{ ! 16: sys_stat.h �| ! 17: sys_time.h ! 18: �} sys_vfs.h �~ unixdir.c mp � unixfileio.c � �� unixreaddir.c �� ! 19: unixtime.c t �� unix_stdopen.c <= ch && ch <= 'F') && radix == 16 ) number = (number * radix) + 10 + (ch - 'A'); else if (ch == 'X') { number = 0; radix = 16; } else break; } return number * sign; } int strlen(s) register charMac-Cthon/unix/sys_vfs.h 664 162 12 270 4542261472 10471 struct statfs { long f_type, f_bsize, f_blocks, f_bfree; long f_bavail, f_files, f_ffree; #ifdef NFS3_2 struct { long val; } f_fsid[2]; #else NFS3_2 long f_fsid[2]; #endif }; �~ unixdir.c mp � unixfileio.c � �� unixreaddir.c �� ! 20: unixtime.c t �� unix_stdopen.c <= ch && ch <= 'F') && radix == 16 ) number = (number * radix) + 10 + (ch - 'A'); else if (ch == 'X') { number = 0; radix = 16; } else break; } return number * sign; } int strlen(s) register charMac-Cthon/unix/unixdir.c 664 162 12 15755 4542261474 10532 #include <HFS.h> #include "sys_stat.h" #include "sys_vfs.h" #include <stdio.h> /* #define NOCWD */ char working_dir[1024] = '\0'; int default_vrefnum = 0; unsigned long default_dir_id = 0; int default_umask = 0; extern int trace; merror(result, where, what) int result; char *where; char *what; { char path[1024]; extract_path(path); printf("**Mac I/O Error** result %d, in '%s', on '%s' (%s)\n", result, where, what, path); printf(" default_vrefnum %d, default_dir_id 0x%lx\n", default_vrefnum, default_dir_id); if (1) exit(-1); } StringPtr pname(cname) char *cname; { static char name[256]; strcpy(name, cname); CtoPstr(name); return (StringPtr)name; } StringPtr pnamecpy(pname, cname) StringPtr pname; char *cname; { strcpy(pname, cname); CtoPstr((char *)pname); return pname; } statfs(path, pstat) char *path; struct statfs *pstat; { HParamBlockRec iopb; iopb.volumeParam.ioNamePtr = (StringPtr)0; iopb.volumeParam.ioVRefNum = default_vrefnum; iopb.volumeParam.ioVolIndex = 0; PBHGetVInfo(&iopb, FALSE); pstat->f_type = 0; pstat->f_bsize = (unsigned)iopb.volumeParam.ioVAlBlkSiz; pstat->f_blocks = (unsigned)iopb.volumeParam.ioVNmAlBlks; pstat->f_bfree = (unsigned)iopb.volumeParam.ioVFrBlk; pstat->f_bavail = (unsigned)iopb.volumeParam.ioVFrBlk; pstat->f_files = (unsigned)iopb.volumeParam.ioVFilCnt; pstat->f_ffree = 0; #ifdef NFS3_2 pstat->f_fsid[0].val = iopb.volumeParam.ioVFSID; pstat->f_fsid[1].val = 0; #else NFS3_2 pstat->f_fsid[0] = iopb.volumeParam.ioVFSID; pstat->f_fsid[1] = 0; #endif return 0; }; fstat(fd, pstat) int fd; struct stat *pstat; { register int free_slot; /* look thru FILE array for slots in use */ for (free_slot=STDERRNO+1; ((free_slot<_NFILE)); free_slot++) if (_file[free_slot].InUse && _file[free_slot].fileno == fd) { pstat->st_mode = 0; pstat->st_nlink = 1; pstat->st_size = 0; return 0; } return -1; } link(from, to) char *from, *to; { printf("\t[link] '%s' to '%s'\n", from, to); } umask(mask) int mask; { default_umask = mask; } int last_mode; chmod(name, mode) char *name; int mode; { last_mode = mode; } stat(name, pstat) char *name; struct stat *pstat; { char path[256]; CInfoPBRec iopb; int result; if (trace) printf("\t[stat] %s\n", name); unix_to_mac_path(path, name, TRUE); iopb.hFileInfo.ioNamePtr = pname(path); iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioDirID = default_dir_id; iopb.hFileInfo.ioFDirIndex = 0; result = PBGetCatInfo(&iopb, FALSE); if (result == dirNFErr || result == fnfErr) return result; if (result != noErr) merror(result, "mkdir", path); pstat->st_mode = last_mode; pstat->st_nlink = 1; pstat->st_size = iopb.hFileInfo.ioFlLgLen; return 0; } mkdir(name, mode) char *name; int mode; { char path[256]; HParamBlockRec iopb; int result; if (trace) printf("\t[mkdir] %s, mode %o\n", name, mode); unix_to_mac_path(path, name, TRUE); iopb.ioParam.ioNamePtr = pname(path); iopb.ioParam.ioVRefNum = default_vrefnum; iopb.fileParam.ioDirID = default_dir_id; result = PBDirCreate(&iopb, FALSE); if (result != noErr) merror(result, "mkdir", path); } rmdir(name) char *name; { char path[256]; HParamBlockRec iopb; int result; if (trace) printf("\t[rmdir] %s\n", name); unix_to_mac_path(path, name, TRUE); /* close default wd #2 */ { WDPBRec cw_iopb; cw_iopb.ioVRefNum = 0x8013; result = PBCloseWD(&cw_iopb, FALSE); } /* reset default dir */ { WDPBRec cd_iopb; cd_iopb.ioNamePtr = (StringPtr)0; cd_iopb.ioVRefNum = default_vrefnum; cd_iopb.ioWDDirID = default_dir_id; result = PBHSetVol(&cd_iopb, FALSE); if (result != noErr) merror(result, "rmdir - PBHSetVol", path); } iopb.ioParam.ioNamePtr = pname(path); iopb.ioParam.ioVRefNum = default_vrefnum; iopb.fileParam.ioDirID = default_dir_id; result = PBHDelete(&iopb, FALSE); if (result != noErr) merror(result, "rmdir", path); if (trace) printf("\t[rmdir] ok\n"); return 0; } chdir(new) char *new; { char path[256]; CInfoPBRec iopb; int result; unix_to_mac_path(path, new, FALSE); #ifdef NOCWD if (path[0] != ':' && working_dir[ strlen(working_dir)-1 ] != ':') strcat(working_dir, ":"); strcat(working_dir, path); #endif #ifdef NODOTDOT if (strcmp(path, "..") == 0) { iopb.hFileInfo.ioNamePtr = (StringPtr)0; iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioDirID = default_dir_id; iopb.hFileInfo.ioFDirIndex = 0; result = PBGetCatInfo(&iopb, FALSE); { WDPBRec cd_iopb; cd_iopb.ioNamePtr = (StringPtr)0; cd_iopb.ioVRefNum = default_vrefnum; default_dir_id = cd_iopb.ioWDDirID = iopb.dirInfo.ioDrParID; result = PBHSetVol(&cd_iopb, FALSE); if (result != noErr) merror(result, "chdir - nodots PBHSetVol", path); } return 0; } #endif iopb.hFileInfo.ioNamePtr = pname(path); iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioDirID = default_dir_id; iopb.hFileInfo.ioFDirIndex = 0; result = PBGetCatInfo(&iopb, FALSE); if (result == dirNFErr || result == fnfErr) { if (trace) printf("\t[chdir] to '%s' failed\n", path); return result; } if (result != noErr) merror(result, "chdir - PBGetCatInfo", path); default_dir_id = iopb.hFileInfo.ioDirID; { WDPBRec cd_iopb; cd_iopb.ioNamePtr = (StringPtr)0; cd_iopb.ioVRefNum = default_vrefnum; cd_iopb.ioWDDirID = default_dir_id; result = PBHSetVol(&cd_iopb, FALSE); if (result != noErr) merror(result, "chdir - PBHSetVol", path); } if (trace) printf("\t[chdir] to '%s', dirID 0x%lx\n", path, default_dir_id); { WDPBRec cd_iopb; char path2[256]; extract_path(path2); if (trace) printf("\t[chdir] trying hsetvol with path '%s'\n", path2); CtoPstr(path2); cd_iopb.ioNamePtr = (StringPtr)path2; cd_iopb.ioVRefNum = default_vrefnum; cd_iopb.ioWDDirID = 0 /* 2 */; result = PBHSetVol(&cd_iopb, FALSE); if (result != noErr) { PtoCstr(path2); merror(result, "chdir - PBHSetVol", path2); } } return 0; } char *getwd(name) char *name; { extract_path(working_dir); mac_to_unix_path(name, working_dir); if (trace) printf("\t[getwd] %s\n", name); return name; } unix_to_mac_path(new, old, add_default) register char *new, *old; int add_default; { register char ch; char *result = new; int pos = 0; #ifdef NOCWD if (add_default) { strcpy(new, working_dir); new += strlen(working_dir); if (working_dir[0]) *new++ = ':'; } #endif if (strcmp(old, ".") == 0) { extract_path(new); } else if (strcmp(old, "..") == 0) { strcpy(new, "::"); return; } else { while (ch = *old++) { if (ch == '/' && pos > 0) ch = ':'; *new++ = ch; pos++; } *new = '\0'; } if (trace > 1) printf("\t[unix_to_mac_path] '%s'\n", result); } mac_to_unix_path(new, old) register char *new, *old; { register char ch; char *result = new; if (strcmp(old, "::") == 0) { strcpy(new, ".."); } else { while (ch = *old++) { if (ch == ':') ch = '/'; *new++ = ch; } *new = '\0'; } if (trace > 1) printf("\t[mac_to_unix_path] '%s'\n", result); } Mac-Cthon/unix/unixfileio.c 664 162 12 12547 4542261476 11221 /* (C) Copyright 1986. THINK Technologies, Inc. All rights reserved. */ /* This module translates UNIX I/O style calls to STDIO calls */ #ifndef _stdioh_ #include "stdio.h" #endif #ifndef _ctypeh_ #include "ctype.h" #endif #ifndef _unixh_ #include "unix.h" #endif #ifndef _FileMgr_ #include "FileMgr.h" #endif FILE *unix_fopen(); /* open a file */ Boolean _unix_file_exists(filename) char *filename; { FILE *who; fileParam pb2; CtoPstr(filename); pb2.ioFDirIndex = 0; pb2.ioNamePtr = (StringPtr)filename; pb2.ioVRefNum = 0; pb2.ioFVersNum = 0; if (PBGetFInfo(&pb2,false) == fnfErr) { PtoCstr(filename); return(false); } PtoCstr(filename); return(true); } static char *cvtmode(mode,filename) register int mode; char *filename; { register int i=0; static char stdmode[5]; if ((mode & O_EXCL) && (mode & O_CREAT)) if (_unix_file_exists(filename)) { errno = EEXIST; return(NULL); } switch (mode & (O_RDONLY | O_WRONLY | O_RDWR)) { case O_RDONLY: if (mode & O_APPEND) { errno = EINVAL; return (NULL); } if (mode & O_TRUNC) { stdmode[i++] = 'w'; stdmode[i++] = '+'; } else stdmode[i++] = 'r'; break; case O_WRONLY: if (mode & O_APPEND) { if (mode & O_TRUNC) stdmode[i++] = 'w'; else stdmode[i++] = 'a'; } else stdmode[i++] = 'w'; break; case O_RDWR: nonstdmode: if ((mode & O_CREAT) || (mode & O_TRUNC)) stdmode[i++] = 'w'; else if (mode & O_APPEND) stdmode[i++] = 'a'; else stdmode[i++] = 'r'; stdmode[i++] = '+'; break; default: /* if no mode was selected, append is a legal mode in this implementation and is treated as RDWR append */ if (mode & O_APPEND) goto nonstdmode; errno = EINVAL; return (NULL); } if (mode & O_BINARY) stdmode[i++] = 'b'; stdmode[i++] = '\0'; return (stdmode); } static int invalidfildes(fildes) register int fildes; { if ((fildes >= _NFILE) || (!_file[fildes].InUse)) { errno = EBADF; return (1); } return (0); } /* searches thru the file descriptors for a free file and returns the file position of a free file. */ static int findfreefileref() { register int i; for (i=0; i<_NFILE; i++) if (! _file[i].InUse) return i; return (-1); } int fread(); int fwrite(); static unsigned int fileop(fildes, buffer, nbytes, op) register int fildes; char *buffer; unsigned nbytes; unsigned int (*op)(); { unsigned int actcount; extern Boolean _unsignedbytes; if (invalidfildes(fildes)) return (-1); _unsignedbytes = true; /* one-shot flag for unsigned nbytes */ if (actcount = (*op)(buffer, sizeof(*buffer), nbytes, &_file[fildes])) return (actcount); /* pdg - 6/10/86 - supposed to return zero on eof, not error! */ if (_file[fildes].last_error == eofErr) return (0); errno = EIO; return (-1); } #line 0 fileno int fileno(who) register FILE *who; { if ((!who)||(!who->InUse)) return(-1); return(who->fileno); } #line 0 open int open(filename, mode) char *filename; int mode; { char *type; FILE *who; if (findfreefileref() == -1) { errno = EMFILE; return(-1); } if ((type = cvtmode(mode,filename)) == NULL) return(-1); if ((who = unix_fopen(filename, type))==NULL) { errno = errno == fnfErr ? ENOENT : EACCES; return(-1); } return (who->fileno); } #line 0 close int close(fildes) register int fildes; { if (invalidfildes(fildes)) return (-1); return (fclose(&_file[fildes])); } #line 0 read int read(fildes, buffer, nbytes) int fildes; char *buffer; unsigned nbytes; { return (fileop(fildes, buffer, nbytes, fread)); } #line 0 write int write(fildes, buffer, nbytes) int fildes; char *buffer; unsigned nbytes; { return (fileop(fildes, buffer, nbytes, fwrite)); } #line 0 lseek long lseek(fildes, offset, offsetmode) register int fildes; long int offset; register unsigned int offsetmode; { if (invalidfildes(fildes)) return (-1L); if (offsetmode>2) { errno = EINVAL; return(-1L); } if (fseek(&_file[fildes], offset, offsetmode)) { errno = EIO; return (-1L); } return (ftell(&_file[fildes])); } /* This is an old Unix seek which returns an int instead of a long and is commented out unless you really want to bother uncommenting it! #line 0 seek int seek(fildes, offset, origin) int fildes; register int offset; int origin; { long longoffset; int neworigin; longoffset = ((neworigin = origin % 3) == origin) ? offset : (long)offset*512; return ((int) lseek(fildes, longoffset, neworigin)); } */ #line 0 tell long tell(fildes) int fildes; { return (ftell(&_file[fildes])); } #line 0 rename int rename(old,new) char *old,*new; { ioParam pb; CtoPstr(old); CtoPstr(new); pb.ioNamePtr = (StringPtr)old; pb.ioVRefNum = 0; pb.ioVersNum = 0; pb.ioMisc = new; if (PBRename(&pb,false)) { errno = EIO; PtoCstr(old); PtoCstr(new); return(-1); } PtoCstr(old); PtoCstr(new); return(0); } #line 0 remove int remove(name) char *name; { ioParam pb; CtoPstr(name); pb.ioNamePtr = (StringPtr)name; pb.ioVRefNum = 0; pb.ioVersNum = 0; if (PBDelete(&pb,false)) { errno = EIO; PtoCstr(name); return(-1); } PtoCstr(name); return(0); } #line 0 unlink int unlink(name) char *name; { return(remove(name)); } #line 0 creat int creat(filename, mode) char *filename; int mode; { return (open(filename, mode | O_CREAT)); } lt != noErr) merror(result, "chdir - PBHSetVol", path); } if (trace) printf("\t[chdir] to '%s', dirID 0x%lx\n", path, default_dir_id); { Mac-Cthon/unix/unixreaddir.c 664 162 12 3122 4542261500 11315 #include "sys_param.h" #ifndef major #include "sys_types.h" #endif #include "sys_time.h" #include "sys_dir.h" #include <stdio.h> #include <HFS.h> extern int trace; DIR *opendir(root) char *root; { char path[256]; CInfoPBRec iopb; static DIR thedir; DIR *dir; int result; extern StringPtr pname(); extern int default_vrefnum; extern long default_dir_id; unix_to_mac_path(path, root, FALSE); iopb.hFileInfo.ioNamePtr = pname(path); iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioDirID = default_dir_id; iopb.hFileInfo.ioFDirIndex = 0; result = PBGetCatInfo(&iopb, FALSE); if (result == dirNFErr || result == fnfErr) return NO_DIR; if (result != noErr) merror(result, "opendir - PBGetCatInfo", path); dir = &thedir; dir->dir_index = 0; dir->dir_id = iopb.hFileInfo.ioDirID; if (trace) printf("\t[opendir] for '%s', dirID 0x%lx\n", path, default_dir_id); return dir; } closedir(dir) DIR *dir; { } rewinddir(dir) DIR *dir; { dir->dir_index = 0; } struct direct *readdir(dir) DIR *dir; { struct direct *entry = &dir->dir_entry; int result; CInfoPBRec iopb; char name[256]; name[0] = '\0'; iopb.hFileInfo.ioNamePtr = (StringPtr)name; iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioFDirIndex = ++(dir->dir_index); iopb.hFileInfo.ioDirID = dir->dir_id; result = PBGetCatInfo(&iopb, FALSE); if (trace) printf("\t[readdir] index %d, result %d\n", dir->dir_index, result); if (result == fnfErr) return NO_ENTRY; PtoCstr(name); strcpy(entry->d_name, name); if (trace) printf("\t[readdir] returns '%s'\n", name); return entry; } ime.h" #include "sys_dir.h" #include <stdio.h> #include <HFS.h> extern int trace; DIR *opendir(root) char *root; { char path[256]; CInfoPBRec iopb; static DIR thedir; DIR *dir; int result; extern StringPtr pname(); extern int default_vrefnum; extern long default_dir_id; unix_to_mac_path(path, root, FALSE); iopb.hFileInfo.ioNamePtr = pname(path); iopb.hFileInfo.ioVRefNum = default_vrefnum; iopb.hFileInfo.ioDiMac-Cthon/unix/unixtime.c 664 162 12 3700 4542261502 10645 #include "sys_time.h" /* The Macintosh keeps a raw seconds count that begins at 00:00:00 January 1, 1904 local time, UNIX uses 00:00:00 January 1, 1970 GMT */ /* seconds difference between EST & GMT time zones */ #define GMTzonedif (5*60*60) #define TMacbaseyr 1904 #define TUNIXbaseyr 1970 /* number of leap days between the two years -- Mac base was a leap year! */ #define TLpD ((TUNIXbaseyr-TMacbaseyr-1)/4) /* TimeBaseDif is the number of seconds between Mac and UNIX time (GMT) */ #define TimeBaseDif ((((TUNIXbaseyr-TMacbaseyr)*365)+TLpD)*24*60*60) /* global variables for time computations */ long timezone = 0 /*GMTzonedif*/; /* difference between GMT & local time */ int daylight = 0; /* daylight savings time flag */ char *tzname[2] = {"EST", "EDT"}; /* names of time zones */ #line 0 time /* This routine returns the time since Jan 1, 1970 00:00:00 GMT */ unsigned long time(clock) unsigned long *clock; { unsigned long GMTtimenow = Time-TimeBaseDif+timezone; if (clock) *clock = GMTtimenow; return (GMTtimenow); } gettimeofday(ptime, ptz) struct timeval *ptime; long *ptz; { unsigned long t, ticks; time(&t); ticks = Ticks; ptime->tv_sec = ticks / 16; ptime->tv_usec = (ticks % 16) * (1000000L/16); return 0; } char *ctime(clock) register unsigned long *clock; { static char timebuffer[26]; register char *tp; DateTimeRec MacTimeRec; register Intl1Hndl myHndl; register int i; Secs2Date((clock?(*clock+TimeBaseDif):(Time+timezone)),&MacTimeRec); myHndl = (Intl1Hndl)IUGetIntl(1); tp = timebuffer; for (i=1; i<4; i++) *tp++ = (*myHndl)->days[MacTimeRec.dayOfWeek-1][i]; /* make day of week */ *tp++ = ' '; for (i=1; i<4; i++) *tp++ = (*myHndl)->months[MacTimeRec.month-1][i]; /* make month */ *tp++ = ' '; sprintf(tp,"%02d ",MacTimeRec.day); /* now put in day of month */ tp += 3; sprintf(tp,"%02d:%02d:%02d %d\n", MacTimeRec.hour,MacTimeRec.minute,MacTimeRec.second,MacTimeRec.year); return(timebuffer); } egister int fildes; { if ((fildes >= _NFILE) || (!_file[fildes]Mac-Cthon/unix/unix_stdopen.c 664 162 12 11502 4542261504 11543 /* Routines for LightspeedC (C) Copyright 1985, 1986. THINK Technologies, Inc. All rights reserved. */ #ifndef _stdioh_ #include "stdio.h" #endif #ifndef _FileMgr_ #include "FileMgr.h" #endif #ifndef _SerialDvr_ #include "SerialDvr.h" #endif void _exit_closeall(); /* This file contains the code for fopen, fclose, _closeall, freopen. */ #line 0 xfopen static FILE *unix_xfopen(nameptr,type,who) char *nameptr; register char *type; register FILE *who; { register int new; static Boolean _init_onexit = false; /* flag to signal onexit was initalized */ ioParam pb; /* my parameter block for PB's */ fileParam pb2; register int err; int refnum; Boolean create; Boolean add; register Boolean delete; register Boolean bin_file; register Ptr p; if(!who) { register int free_slot; /* look thru FILE array for an open slot */ for (free_slot=STDERRNO+1; ((free_slot<_NFILE)&&(_file[free_slot].InUse)); free_slot++) ; if (free_slot >= _NFILE) { errno = tmfoErr; /* too many files open */ return (NULL); } who = &_file[free_slot]; } { register int permission; permission = fsWrPerm; /* default = write */ create = delete = true; /* default is true */ bin_file = add = false; refnum = 0; if (type[1]=='\0') { if (type[0] == 'r') permission = fsRdPerm; } else if (type[1] == '+') { permission = fsRdWrPerm; if (type[2] == 'b') bin_file = true; } else { if (type[1] == 'b') bin_file = true; if (type[0] == 'r') permission = fsRdPerm; } /* force these files to be binary */ bin_file = true; switch (type[0]) { case 'r': create = false; break; case 'w': delete = true; break; case 'a': add = true; break; default: return(NULL); } CtoPstr(nameptr); p = NewPtr((long)BUFSIZ); do { /* pdg 7/29/86 - look only via default path */ pb.ioNamePtr = 0; /* if (PBGetVol(&pb, false)) */ pb.ioVRefNum = 0; pb.ioNamePtr = (StringPtr)nameptr; pb.ioVersNum = 0; pb.ioPermssn = permission; pb.ioMisc = 0L; new = PBOpen(&pb,false); if ((new == fnfErr) && (create)) { if (err = (PBCreate(&pb,false))) goto err_exit; pb2.ioFDirIndex = 0; pb2.ioNamePtr = pb.ioNamePtr; pb2.ioVRefNum = pb.ioVRefNum; pb2.ioFVersNum = pb.ioVersNum; if (err = (PBGetFInfo(&pb2,false))) goto err_exit; pb2.ioFlFndrInfo.fdType = 'TEXT'; pb2.ioFlFndrInfo.fdCreator = '????'; if (err = (PBSetFInfo(&pb2,false))) goto err_exit; delete = false; /* don't delete this file */ } if (!new) { /* no errors on open */ if (pb.ioRefNum > 0) { /* don't do this stuff if a device driver */ if (type[0]=='a') { if(err = (PBGetEOF(&pb,false))) goto err_exit; pb.ioPosOffset = (long)pb.ioMisc; pb.ioPosMode = fsFromStart; err = PBSetFPos(&pb,false); if ((err!=noErr) && (err!=eofErr)) goto err_exit; } if ((type[0]=='w') && (delete)) { pb2.ioFDirIndex = 0; pb2.ioNamePtr = pb.ioNamePtr; pb2.ioVRefNum = pb.ioVRefNum; pb2.ioFVersNum = pb.ioVersNum; if (err = (PBGetFInfo(&pb2,false))) goto err_exit; if (err = (PBClose(&pb,false))) goto err_exit; if (err = (PBDelete(&pb,false))) goto err_exit; if (err = (PBCreate(&pb,false))) goto err_exit; if (err = (PBSetFInfo(&pb2,false))) goto err_exit; new = PBOpen(&pb,false); create = false; } } if (!new) { refnum = pb.ioRefNum; who->refnum = refnum; who->last_error = noErr; who->user_buf = false; who->StdStream = false; who->filebuf = p; who->InUse = true; who->mod = false; who->look_full = false; who->rd = false; who->wr = false; who->window = false; if((permission==fsRdWrPerm)||(permission==fsRdPerm)) who->rd = true; if((permission==fsRdWrPerm)||(permission==fsWrPerm)) who->wr = true; who->binary = bin_file; who->fpos = BUFSIZ+10; /* force fread/fwrite to go to disk */ who->inbuf = 0; PtoCstr(nameptr); if (_init_onexit == false) { _init_onexit = true; onexit(_exit_closeall); } if ((who->rd)&&(who->wr)) { if(err = read_into_buffer(who)) if (err != eofErr) { who->last_error = errno = err; return(who); } } return(who); } } } while ((new == fnfErr) && (create)); if (new) errno = new; goto exit_noset; err_exit: errno = err; exit_noset: DisposPtr(p); PtoCstr(nameptr); return(NULL); } /* end of scope of permission */ } #line 0 fopen FILE *unix_fopen(nameptr,type) char *nameptr,*type; { return(unix_xfopen(nameptr,type,NULL)); (void) std_ver(); } #line 0 freopen FILE *unix_freopen(nameptr,type,who) char *nameptr,*type; FILE *who; { if(fclose(who)) return(NULL); return(unix_xfopen(nameptr,type,who)); } static void _exit_closeall() { _closeall(); }e, _closeall, freopen. */ #line 0 xfopen static FILE *unix_xfopen(nameptr,type,who) char *nameptr; register char *type; register FILE *who; { register int new; static Boolean _init_onexi f ((((TUNIXbaseyr-TMacbaseyr)*365)+TLpD)*24*60*60) /* global variables for time computations */ long timezone = 0 /*GMTzonedif*/; /* difference between GMT & local time */ int daylight = 0; /* daylight savings time flag */ char *tzname[2] = {"EST", "EDT"}; /* names of time zones */ #line 0 time /* This routine returns the time since Jan 1, 1970 00:00:00 GMT */ unsigned long time(clock) unsigned long *clock; { unsigned long GMTtimenow = Time-TimeBaseDif+timezone; if (clock) *clock = GMTtimenow; return (GMTtimenow); } gettimeofday(ptime, ptz) struct timeval *ptime; long *ptz; { unsigned long t, ticks; time(&t); ticks = Ticks; ptime->tv_sec = ticks / 16; ptime->tv_usec = (ticks % 16) * (1000000L/16); return 0; } char *ctime(clock) register unsigned long *clock; { static char timebuffer[26]; register char *tp; DateTimeRec MacTimeRec; register Intl1Hndl myHndl; register int i; Secs2Date((clock?(*clock+TimeBaseDif):(Time+timezone)),&MacTimeRec); myHndl = (Intl1Hndl)IUGetIntl(1); tp = timebuffer; for (i=1; i<4; i++) *tp++ = (*myHndl)->days[MacTimeRec.dayOfWeek-1][i]; /* make day of week */ *tp++ = ' '; for (i=1; i<4; i++) *tp++ = (*myHndl)->months[MacTimeRec.month-1][i]; /* make month */ *tp++ = ' '; sprintf(tp,"%02d ",MacTimeRec.day); /* now put in day of month */ tp += 3; sprintf(tp,"%02d:%02d:%02d %d\n", MacTimeRec.hour,MacTimeRec.minute,MacTimeRec.second,MacTimeRec.year); return(timebuffer); } egister int fildes; { if ((fildes >= _NFILE) || (!_file[fildes]Mac-Cthon/unix/unix_stdopen.c 664 162 12 11502 4542261504 11543 /* Routines for LightspeedC (C) Copyright 1985, 1986. THINK Technologies, Inc. All rights reserved. */ #ifndef _stdioh_ #include "stdio.h" #endif #ifndef _FileMgr_ #include "FileMgr.h" #endif #ifndef _SerialDvr_ #include "SerialDvr.h" #endif void _exit_closeall(); /* This file contains the code for fopen, fclose, _closeall, freopen. */ #line 0 xfopen static FILE *unix_xfopen(nameptr,type,who) char *nameptr; register char *type; register FILE *who; { register int new; static Boolean _init_onexit = false; /* flag to signal onexit was initalized */ ioParam pb; /* my parameter block for PB's */ fileParam pb2; register int err; int refnum; Boolean create; Boolean add; register Boolean delete; register Boolean bin_file; register Ptr p; if(!who) { register int free_slot; /* look thru FILE array for an open slot */ for (free_slot=STDERRNO+1; ((free_slot<_NFILE)&&(_file[free_slot].InUse)); free_slot++) ; if (free_slot >= _NFILE) { errno = tmfoErr; /* too many files open */ return (NULL); } who = &_file[free_slot]; } { register int permission; permission = fsWrPerm; /* default = write */ create = delete = true; /* default is true */ bin_file = add = false; refnum = 0; if (type[1]=='\0') { if (type[0] == 'r') permission = fsRdPerm; } else if (type[1] == '+') { permission = fsRdWrPerm; if (type[2] == 'b') bin_file = true; } else { if (type[1] == 'b') bin_file = true; if (type[0] == 'r') permission = fsRdPerm; } /* force these files to be binary */ bin_file = true; switch (type[0]) { case 'r': create = false; break; case 'w': delete = true; break; case 'a': add = true; break; default: return(NULL); } CtoPstr(nameptr); p = NewPtr((long)BUFSIZ); do { /* pdg 7/29/86 - look only via default path */ pb.ioNamePtr = 0; /* if (PBGetVol(&pb, false)) */ pb.ioVRefNum = 0; pb.ioNamePtr = (StringPtr)nameptr; pb.ioVersNum = 0; pb.ioPermssn = permission; pb.ioMisc = 0L; new = PBOpen(&pb,false); if ((new == fnfErr) && (create)) { if (err = (PBCreate(&pb,false))) goto err_exit; pb2.ioFDirIndex = 0; pb2.ioNamePtr = pb.ioNamePtr; pb2.ioVRefNum = pb.ioVRefNum; pb2.ioFVersNum = pb.ioVersNum; if (err = (PBGetFInfo(&pb2,false))) goto err_exit; pb2.ioFlFndrInfo.fdType = 'TEXT'; pb2.ioFlFndrInfo.fdCreator = '????'; if (err = (PBSetFInfo(&pb2,false))) goto err_exit; delete = false; /* don't delete this file */ } if (!new) { /* no errors on open */ if (pb.ioRefNum > 0) { /* don't do this stuff if a device driver */ if (type[0]=='a') { if(err = (PBGetEOF(&pb,false))) goto err_exit; pb.ioPosOffset = (long)pb.ioMisc; pb.ioPosMode = fsFromStart; err = PBSetFPos(&pb,false); if ((err!=noErr) && (err!=eofErr)) goto err_exit; } if ((type[0]=='w') && (delete)) { pb2.ioFDirIndex = 0; pb2.ioNamePtr = pb.ioNamePtr; pb2.ioVRefNum = pb.ioVRefNum; pb2.ioFVersNum = pb.ioVersNum; if (err = (PBGetFInfo(&pb2,false))) goto err_exit; if (err = (PBClose(&pb,false))) goto err_exit; if (err = (PBDelete(&pb,false))) goto err_exit; if (err = (PBCreate(&pb,false))) goto err_exit; if (err = (PBSetFInfo(&pb2,false))) goto err_exit; new = PBOpen(&pb,false); create = false; } } if (!new) { refnum = pb.ioRefNum; who->refnum = refnum; who->last_error = noErr; who->user_buf = false; who->StdStream = false; who->filebuf = p; who->InUse = true; who->mod = false; who->look_full = false; who->rd = false; who->wr = false; who->window = false; if((permission==fsRdWrPerm)||(permission==fsRdPerm)) who->rd = true; if((permission==fsRdWrPerm)||(permission==fsWrPerm)) who->wr = true; who->binary = bin_file; who->fpos = BUFSIZ+10; /* force fread/fwrite to go to disk */ who->inbuf = 0; PtoCstr(nameptr); if (_init_onexit == false) { _init_onexit = true; onexit(_exit_closeall); } if ((who->rd)&&(who->wr)) { if(err = read_into_buffer(who)) if (err != eofErr) { who->last_error = errno = err; return(who); } } return(who); } } } while ((new == fnfErr) && (create)); if (new) errno = new; goto exit_noset; err_exit: errno = err; exit_noset: DisposPtr(p); PtoCstr(nameptr); return(NULL); } /* end of scope of permission */ } #line 0 fopen FILE *unix_
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.