frank@morgan.com (Frank Wortner) (05/28/88)
#! /bin/sh # This is a shell archive, meaning: # 1. Remove everything above the #! /bin/sh line. # 2. Save the resulting text in a file. # 3. Execute the file with /bin/sh (not csh) to create the files: # util.c # version.c # version.h # MANIFEST # This archive created: Fri May 27 10:02:17 1988 export PATH; PATH=/bin:$PATH echo shar: extracting "'util.c'" '(6978 characters)' if test -f 'util.c' then echo shar: will not over-write existing file "'util.c'" else cat << \SHAR_EOF > 'util.c' #include "EXTERN.h" #include "common.h" #include "INTERN.h" #include "util.h" /* Rename a file, copying it if necessary. */ int move_file(from,to) char *from, *to; { char bakname[512]; Reg1 char *s; Reg2 int i; Reg3 int fromfd; /* to stdout? */ if (strEQ(to, "-")) { #ifdef DEBUGGING if (debug & 4) say2("Moving %s to stdout.\n", from); #endif fromfd = open(from, 0); if (fromfd < 0) fatal2("patch: internal error, can't reopen %s\n", from); while ((i=read(fromfd, buf, sizeof buf)) > 0) if (write(1, buf, i) != 1) fatal1("patch: write failed\n"); Close(fromfd); return 0; } Strcpy(bakname, to); Strcat(bakname, origext?origext:ORIGEXT); if (stat(to, &filestat) >= 0) { /* output file exists */ dev_t to_device = filestat.st_dev; ino_t to_inode = filestat.st_ino; char *simplename = bakname; for (s=bakname; *s; s++) { if (*s == '/') simplename = s+1; } /* find a backup name that is not the same file */ while (stat(bakname, &filestat) >= 0 && to_device == filestat.st_dev && to_inode == filestat.st_ino) { for (s=simplename; *s && !islower(*s); s++) ; if (*s) *s = toupper(*s); else Strcpy(simplename, simplename+1); } while (unlink(bakname) >= 0) ; /* while() is for benefit of Eunice */ #ifdef DEBUGGING if (debug & 4) say3("Moving %s to %s.\n", to, bakname); #endif if (link(to, bakname) < 0) { say3("patch: can't backup %s, output is in %s\n", to, from); return -1; } while (unlink(to) >= 0) ; } #ifdef DEBUGGING if (debug & 4) say3("Moving %s to %s.\n", from, to); #endif if (link(from, to) < 0) { /* different file system? */ Reg4 int tofd; tofd = creat(to, 0666); if (tofd < 0) { say3("patch: can't create %s, output is in %s.\n", to, from); return -1; } fromfd = open(from, 0); if (fromfd < 0) fatal2("patch: internal error, can't reopen %s\n", from); while ((i=read(fromfd, buf, sizeof buf)) > 0) if (write(tofd, buf, i) != i) fatal1("patch: write failed\n"); Close(fromfd); Close(tofd); } Unlink(from); return 0; } /* Copy a file. */ void copy_file(from,to) char *from, *to; { Reg3 int tofd; Reg2 int fromfd; Reg1 int i; tofd = creat(to, 0666); if (tofd < 0) fatal2("patch: can't create %s.\n", to); fromfd = open(from, 0); if (fromfd < 0) fatal2("patch: internal error, can't reopen %s\n", from); while ((i=read(fromfd, buf, sizeof buf)) > 0) if (write(tofd, buf, i) != i) fatal2("patch: write (%s) failed\n", to); Close(fromfd); Close(tofd); } /* Allocate a unique area for a string. */ char * savestr(s) Reg1 char *s; { Reg3 char *rv; Reg2 char *t; if (!s) s = "Oops"; t = s; while (*t++); rv = malloc((MEM) (t - s)); if (rv == Nullch) { if (using_plan_a) out_of_mem = TRUE; else fatal1("patch: out of memory (savestr)\n"); } else { t = rv; while (*t++ = *s++); } return rv; } /* #if defined(lint) && defined(CANVARARG) */ #if 0 /*VARARGS ARGSUSED*/ say(pat) char *pat; { ; } /*VARARGS ARGSUSED*/ fatal(pat) char *pat; { ; } /*VARARGS ARGSUSED*/ ask(pat) char *pat; { ; } #else /* Vanilla terminal output (buffered). */ void say(pat,arg1,arg2,arg3) char *pat; int arg1,arg2,arg3; { fprintf(stderr, pat, arg1, arg2, arg3); Fflush(stderr); } /* Terminal output, pun intended. */ void /* very void */ fatal(pat,arg1,arg2,arg3) char *pat; int arg1,arg2,arg3; { void my_exit(); say(pat, arg1, arg2, arg3); my_exit(1); } /* Get a response from the user, somehow or other. */ void ask(pat,arg1,arg2,arg3) char *pat; int arg1,arg2,arg3; { int ttyfd; int r; bool tty2 = isatty(2); Sprintf(buf, pat, arg1, arg2, arg3); Fflush(stderr); #ifndef MINIX /* Minix can't read from fd 2 or 1 ! */ write(2, buf, strlen(buf)); if (tty2) { /* might be redirected to a file */ r = read(2, buf, sizeof buf); } else if (isatty(1)) { /* this may be new file output */ Fflush(stdout); write(1, buf, strlen(buf)); r = read(1, buf, sizeof buf); } else #endif if ((ttyfd = open("/dev/tty", 2)) >= 0 && isatty(ttyfd)) { /* might be deleted or unwriteable */ write(ttyfd, buf, strlen(buf)); r = read(ttyfd, buf, sizeof buf); Close(ttyfd); } else if (isatty(0)) { /* this is probably patch input */ Fflush(stdin); write(0, buf, strlen(buf)); r = read(0, buf, sizeof buf); } else { /* no terminal at all--default it */ buf[0] = '\n'; r = 1; } if (r <= 0) buf[0] = 0; else buf[r] = '\0'; if (!tty2) say1(buf); } #endif lint /* How to handle certain events when not in a critical region. */ void set_signals() { void my_exit(); #ifndef lint if (signal(SIGHUP, SIG_IGN) != SIG_IGN) Signal(SIGHUP, my_exit); if (signal(SIGINT, SIG_IGN) != SIG_IGN) Signal(SIGINT, my_exit); #endif } /* How to handle certain events when in a critical region. */ void ignore_signals() { #ifndef lint Signal(SIGHUP, SIG_IGN); Signal(SIGINT, SIG_IGN); #endif } /* Make sure we'll have the directories to create a file. */ void makedirs(filename,striplast) Reg1 char *filename; bool striplast; { char tmpbuf[256]; Reg2 char *s = tmpbuf; char *dirv[20]; Reg3 int i; Reg4 int dirvp = 0; while (*filename) { if (*filename == '/') { filename++; dirv[dirvp++] = s; *s++ = '\0'; } else { *s++ = *filename++; } } *s = '\0'; dirv[dirvp] = s; if (striplast) dirvp--; if (dirvp < 0) return; strcpy(buf, "mkdir"); s = buf; for (i=0; i<=dirvp; i++) { while (*s) s++; *s++ = ' '; strcpy(s, tmpbuf); *dirv[i] = '/'; } system(buf); } /* Make filenames more reasonable. */ char * fetchname(at,strip_leading,assume_exists) char *at; int strip_leading; int assume_exists; { char *s; char *name; Reg1 char *t; char tmpbuf[200]; if (!at) return Nullch; s = savestr(at); for (t=s; isspace(*t); t++) ; name = t; #ifdef DEBUGGING if (debug & 128) say4("fetchname %s %d %d\n",name,strip_leading,assume_exists); #endif if (strnEQ(name, "/dev/null", 9)) /* so files can be created by diffing */ return Nullch; /* against /dev/null. */ for (; *t && !isspace(*t); t++) if (*t == '/') if (--strip_leading >= 0) name = t+1; *t = '\0'; if (name != s && *s != '/') { name[-1] = '\0'; if (stat(s, &filestat) && filestat.st_mode & S_IFDIR) { name[-1] = '/'; name=s; } } name = savestr(name); Sprintf(tmpbuf, "RCS/%s", name); free(s); if (stat(name, &filestat) < 0 && !assume_exists) { Strcat(tmpbuf, RCSSUFFIX); if (stat(tmpbuf, &filestat) < 0 && stat(tmpbuf+4, &filestat) < 0) { Sprintf(tmpbuf, "SCCS/%s%s", SCCSPREFIX, name); if (stat(tmpbuf, &filestat) < 0 && stat(tmpbuf+5, &filestat) < 0) { free(name); name = Nullch; } } } return name; } SHAR_EOF if test 6978 -ne "`wc -c < 'util.c'`" then echo shar: error transmitting "'util.c'" '(should have been 6978 characters)' fi fi # end of overwriting check echo shar: extracting "'version.c'" '(489 characters)' if test -f 'version.c' then echo shar: will not over-write existing file "'version.c'" else cat << \SHAR_EOF > 'version.c' /* $Header: version.c,v 2.0 86/09/17 15:40:11 lwall Exp $ * * $Log: version.c,v $ * Revision 2.0 86/09/17 15:40:11 lwall * Baseline for netwide release. * */ #include "EXTERN.h" #include "common.h" #include "util.h" #include "INTERN.h" #include "patchlevel.h" #include "version.h" /* Print out the version number and die. */ void version() { extern char rcsid[]; #ifdef lint rcsid[0] = rcsid[0]; #else fatal3("%s\nPatch level: %d\n", rcsid, PATCHLEVEL); #endif } SHAR_EOF if test 489 -ne "`wc -c < 'version.c'`" then echo shar: error transmitting "'version.c'" '(should have been 489 characters)' fi fi # end of overwriting check echo shar: extracting "'version.h'" '(185 characters)' if test -f 'version.h' then echo shar: will not over-write existing file "'version.h'" else cat << \SHAR_EOF > 'version.h' /* $Header: version.h,v 2.0 86/09/17 15:40:14 lwall Exp $ * * $Log: version.h,v $ * Revision 2.0 86/09/17 15:40:14 lwall * Baseline for netwide release. * */ void version(); SHAR_EOF if test 185 -ne "`wc -c < 'version.h'`" then echo shar: error transmitting "'version.h'" '(should have been 185 characters)' fi fi # end of overwriting check echo shar: extracting "'MANIFEST'" '(240 characters)' if test -f 'MANIFEST' then echo shar: will not over-write existing file "'MANIFEST'" else cat << \SHAR_EOF > 'MANIFEST' Configure 1 EXTERN.h 1 INTERN.h 1 MANIFEST 3 Makefile 1 Makefile.SH 1 READ-ME-FIRST 1 README 1 common.h 1 config.h 1 inp.c 1 inp.h 1 patch.c 2 patch.doc 1 patch.man 2 patchlevel.h 2 pch.c 2 pch.h 2 util.c 3 util.h 2 version.c 3 version.h 3 SHAR_EOF if test 240 -ne "`wc -c < 'MANIFEST'`" then echo shar: error transmitting "'MANIFEST'" '(should have been 240 characters)' fi fi # end of overwriting check # End of shell archive exit 0