Path: utzoo!mnetor!uunet!husc6!purdue!i.cc.purdue.edu!j.cc.purdue.edu!ain From: ain@j.cc.purdue.edu (Patrick White) Newsgroups: comp.sources.amiga Subject: patch (part 1 of 2) Message-ID: <6616@j.cc.purdue.edu> Date: 6 Mar 88 08:03:22 GMT Organization: PUCC Land, USA Lines: 2510 Keywords: patch, source, part 1 of 2, untested. Approved: ain@j.cc.purdue.edu (Pat White) Program Name: patch (part 1 of 2) Submitted By: Johan Widen Summary: Patch ported to the Amiga. Poster Boy: Pat White (ain@j.cc.purdue.edu) Untested. NOTES: This is the unix patch program ported to the Amiga. The Makefile appears to be for unix, but the program is supposed to be for the Amiga. I've reshared this from the orgional zoo file so the binary and sources could be separated, and so the docs could be posted separately. -- Pat White (co-moderator comp.sources/binaries.amiga) UUCP: j.cc.purdue.edu!ain BITNET: PATWHITE@PURCCVM PHONE: (317) 743-8421 U.S. Mail: 320 Brown St. apt. 406, West Lafayette, IN 47906 ======================================== # This is a shell archive. # Remove everything above and including the cut line. # Then run the rest of the file through sh. #----cut here-----cut here-----cut here-----cut here----# #!/bin/sh # shar: Shell Archiver # Run the following text with /bin/sh to create: # Makefile # EXTERN.h # INTERN.h # common.h # config.h # dfindOne.c # filereq.c # inp.c # inp.h # newwildcmp.c # patchlevel.h # pch.h # request.c # util.c # util.h # This archive created: Sun Mar 6 02:43:18 1988 # By: Patrick White (PUCC Land, USA) echo shar: extracting Makefile '(1860 characters)' cat << \SHAR_EOF > Makefile # $Header: Makefile.SH,v 2.0 86/09/17 15:36:15 lwall Exp $ # # $Log: Makefile.SH,v $ # Revision 2.0 86/09/17 15:36:15 lwall # Baseline for netwide release. # # Revision 1.2 86/09/08 14:07:42 lwall # Split up patch.c. # # Revision 1.1 86/08/01 20:18:35 lwall # Initial revision # CC = cc bin = /usr/local/bin mansrc = /usr/man/mann manext = n CFLAGS =-b -r LDFLAGS = public = patch private = manpages = patch.man util = Makefile c = patch.c pch.c inp.c version.c util.c request.c filereq.c newwildcmp.c \ dfindOne.c obj = patch.o pch.o inp.o util.o version.o request.o filereq.o newwildcmp.o \ dfindOne.o lintflags = -phbvxac addedbyconf = Makefile.old bsd config.h config.sh eunice loc pdp11 usg v7 # grrr SHELL = /bin/sh #.c.o: # $(CC) -c $(CFLAGS) $*.c #all: $(public) $(private) $(util) # touch all patch: $(obj) $(CC) $(LDFLAGS) $(obj) $(libs) -o patch # won't work with csh #install: patch # export PATH || exit 1 # - mv $(bin)/patch $(bin)/patch.old # - if test `pwd` != $(bin); then cp $(public) $(bin); fi # cd $(bin); chmod 755 $(public) # - if test `pwd` != $(mansrc); then \ #for page in $(manpages); do \ #cp $$page $(mansrc)/`basename $$page .man`.$(manext); \ #done; \ #fi clean: rm -f *.o *.orig core realclean: rm -f patch *.o *.orig core $(addedbyconf) # The following lint has practically everything turned on. Unfortunately, # you have to wade through a lot of mumbo jumbo that can't be suppressed. # If the source file has a /*NOSTRICT*/ somewhere, ignore the lint message # for that spot. lint: lint $(lintflags) $(defs) $(c) > patch.fuzz patch.o: config.h common.h patch.c inp.h pch.h util.h version.h pch.o: config.h common.h pch.c pch.h util.h inp.o: config.h common.h inp.c inp.h util.h util.o: config.h common.h util.c util.h version.o: config.h common.h version.c version.h patchlevel.h util.h SHAR_EOF if test 1860 -ne "`wc -c Makefile`" then echo shar: error transmitting Makefile '(should have been 1860 characters)' fi echo shar: extracting EXTERN.h '(241 characters)' cat << \SHAR_EOF > EXTERN.h /* $Header: EXTERN.h,v 2.0 86/09/17 15:35:37 lwall Exp $ * * $Log: EXTERN.h,v $ * Revision 2.0 86/09/17 15:35:37 lwall * Baseline for netwide release. * */ #undef EXT #define EXT extern #undef INIT #define INIT(x) #undef DOINIT SHAR_EOF if test 241 -ne "`wc -c EXTERN.h`" then echo shar: error transmitting EXTERN.h '(should have been 241 characters)' fi echo shar: extracting INTERN.h '(239 characters)' cat << \SHAR_EOF > INTERN.h /* $Header: INTERN.h,v 2.0 86/09/17 15:35:58 lwall Exp $ * * $Log: INTERN.h,v $ * Revision 2.0 86/09/17 15:35:58 lwall * Baseline for netwide release. * */ #undef EXT #define EXT #undef INIT #define INIT(x) = x #define DOINIT SHAR_EOF if test 239 -ne "`wc -c INTERN.h`" then echo shar: error transmitting INTERN.h '(should have been 239 characters)' fi echo shar: extracting common.h '(4136 characters)' cat << \SHAR_EOF > common.h /* $Header: common.h,v 2.0 86/09/17 15:36:39 lwall Exp $ * * $Log: common.h,v $ * Revision 2.0 86/09/17 15:36:39 lwall * Baseline for netwide release. * */ #define DEBUGGING #include "config.h" /* shut lint up about the following when return value ignored */ #define Signal (void)signal #define Unlink (void)unlink #define Lseek (void)lseek #define Fseek (void)fseek #define Fstat (void)fstat #define Pclose (void)pclose #define Close (void)close #define Fclose (void)fclose #define Fflush (void)fflush #define Sprintf (void)sprintf #define Mktemp (void)mktemp #define Strcpy (void)strcpy #define Strcat (void)strcat #ifdef AMIGA #include #include #include #include #include #include #include #include #else #include #include #include #include #include #include #endif /* constants */ #ifndef AMIGA #define TRUE (1) #define FALSE (0) #endif #define MAXHUNKSIZE 100000 /* is this enough lines? */ #define INITHUNKMAX 125 /* initial dynamic allocation size */ #define MAXLINELEN 1024 #define BUFFERSIZE 1024 #define ORIGEXT ".orig" #define SCCSPREFIX "s." #define GET "get -e %s" #define RCSSUFFIX ",v" #define CHECKOUT "co -l %s" /* handy definitions */ #define Null(t) ((t)0) #define Nullch Null(char *) #define Nullfp Null(FILE *) #define Nulline Null(LINENUM) #define Ctl(ch) ((ch) & 037) #define strNE(s1,s2) (strcmp(s1, s2)) #define strEQ(s1,s2) (!strcmp(s1, s2)) #define strnNE(s1,s2,l) (strncmp(s1, s2, l)) #define strnEQ(s1,s2,l) (!strncmp(s1, s2, l)) /* typedefs */ typedef char bool; typedef long LINENUM; /* must be signed */ typedef unsigned MEM; /* what to feed malloc */ /* globals */ EXT int Argc; /* guess */ EXT char **Argv; EXT int Argc_last; /* for restarting plan_b */ EXT char **Argv_last; #ifdef AMIGA EXT struct FILEINFO filestat; #else EXT struct stat filestat; /* file statistics area */ #endif EXT int filemode INIT(0644); EXT char buf[MAXLINELEN]; /* general purpose buffer */ EXT FILE *ofp INIT(Nullfp); /* output file pointer */ EXT FILE *rejfp INIT(Nullfp); /* reject file pointer */ EXT bool using_plan_a INIT(TRUE); /* try to keep everything in memory */ EXT bool out_of_mem INIT(FALSE); /* ran out of memory in plan a */ #define MAXFILEC 2 EXT int filec INIT(0); /* how many file arguments? */ EXT char *filearg[MAXFILEC]; EXT bool ok_to_create_file INIT(FALSE); EXT char *bestguess INIT(Nullch); /* guess at correct filename */ EXT char *outname INIT(Nullch); EXT char rejname[128]; EXT char *origext INIT(Nullch); #ifdef AMIGA EXT char TMPOUTNAME[] INIT(":t/patchoXXXXXX"); EXT char TMPINNAME[] INIT(":t/patchiXXXXXX"); /* might want /usr/tmp here */ EXT char TMPREJNAME[] INIT(":t/patchrXXXXXX"); EXT char TMPPATNAME[] INIT(":t/patchpXXXXXX"); #else EXT char TMPOUTNAME[] INIT("/tmp/patchoXXXXXX"); EXT char TMPINNAME[] INIT("/tmp/patchiXXXXXX"); /* might want /usr/tmp here */ EXT char TMPREJNAME[] INIT("/tmp/patchrXXXXXX"); EXT char TMPPATNAME[] INIT("/tmp/patchpXXXXXX"); #endif EXT bool toutkeep INIT(FALSE); EXT bool trejkeep INIT(FALSE); EXT LINENUM last_offset INIT(0); #ifdef DEBUGGING EXT int debug INIT(0); #endif EXT LINENUM maxfuzz INIT(2); EXT bool force INIT(FALSE); EXT bool verbose INIT(TRUE); EXT bool reverse INIT(FALSE); EXT bool noreverse INIT(FALSE); EXT bool skip_rest_of_patch INIT(FALSE); EXT int strippath INIT(957); EXT bool canonicalize INIT(FALSE); #define CONTEXT_DIFF 1 #define NORMAL_DIFF 2 #define ED_DIFF 3 #define NEW_CONTEXT_DIFF 4 EXT int diff_type INIT(0); EXT bool do_defines INIT(FALSE); /* patch using ifdef, ifndef, etc. */ EXT char if_defined[128]; /* #ifdef xyzzy */ EXT char not_defined[128]; /* #ifndef xyzzy */ EXT char else_defined[] INIT("#else\n");/* #else */ EXT char end_defined[128]; /* #endif xyzzy */ EXT char *revision INIT(Nullch); /* prerequisite revision, if any */ #ifndef AMIGA char *malloc(); char *realloc(); char *strcpy(); char *strcat(); char *sprintf(); /* usually */ long atol(); long lseek(); char *mktemp(); #endif SHAR_EOF if test 4136 -ne "`wc -c common.h`" then echo shar: error transmitting common.h '(should have been 4136 characters)' fi echo shar: extracting config.h '(781 characters)' cat << \SHAR_EOF > config.h /* config.h * This file was produced by running the Configure script. * Feel free to modify any of this as the need arises. */ #/*undef EUNICE /* no file linking? */ #/*undef VMS /* other assorted ickies? */ #define index strchr /* cultural */ #define rindex strrchr /* differences? */ #/*undef void int /* is void to be avoided? */ /* How many register declarations are paid attention to? */ #define Reg1 register /**/ #define Reg2 register /**/ #define Reg3 register /**/ #define Reg4 register /**/ #define Reg5 register /**/ #define Reg6 register /**/ #define Reg7 /**/ #define Reg8 /**/ #define Reg9 /**/ #define Reg10 /**/ #define Reg11 /**/ #define Reg12 /**/ #define Reg13 /**/ #define Reg14 /**/ #define Reg15 /**/ #define Reg16 /**/ SHAR_EOF if test 781 -ne "`wc -c config.h`" then echo shar: error transmitting config.h '(should have been 781 characters)' fi echo shar: extracting dfindOne.c '(731 characters)' cat << \SHAR_EOF > dfindOne.c #ifdef AMIGA #include #include #include #include /* Behaves almost like the Lattice dfind function, but dfindOne will not * keep a lock. */ int dfindOne(info, name, attr) struct FILEINFO *info; char *name; int attr; { BPTR lock; struct FILEINFO *tmpInfo; int retVal; if(!(lock = Lock(name, ACCESS_READ))) return(-1); tmpInfo = (struct FILEINFO *) AllocMem(sizeof(*tmpInfo), MEMF_CLEAR); if(retVal = Examine(lock, tmpInfo)) movmem((char *) tmpInfo, (char *) info, sizeof(*tmpInfo)); FreeMem((char *) tmpInfo, sizeof(*tmpInfo)); UnLock(lock); if(retVal && (attr || info->fib_DirEntryType < 0)) return(0); else return(-1); } #endif SHAR_EOF if test 731 -ne "`wc -c dfindOne.c`" then echo shar: error transmitting dfindOne.c '(should have been 731 characters)' fi echo shar: extracting filereq.c '(22900 characters)' cat << \SHAR_EOF > filereq.c /* * STDFILE -- Standard File Requestor. Version 2.0a 15 June 1987 * * AUTHOR -- Peter da Silva US (713) 497-4372 * * Reorganized by Matthew Dillon for use with * and ?. Added: * -device name in File string gadget transfered to directory * gadget without closing the window. * -bug when requesting volume ""... current directory lock would * get unlocked! * -additional intuitive features added * -coding reorganized * * Copyright (c) 1987 Peter da Silva, all rights reserved. * Changes (c)Copyright 1987 Matthew Dillon, all rights reserved. * * This module may be freely used in any product, commercial or * otherwise, provided credit is given for this module and * and provided this notice remains intact in the source. The * intent of this module is to provide a standard file requestor * such as is available on the Macintosh, in GEM on the IBM-PC * and Atari ST, and in the Microsoft Windows software on the * IBM-PC. The advantage this module has over other requestors * is that it minimises disk accesses: an important consideration * given the structure of AmigaDos directories. If you need to * modify it for your needs, by all means go ahead... but please * conform to the intent of this program as stated above. If you * have suggestions for improvements, by all means call me at * the number listed above. * * Enhancements in the current version: * * Gadgets now boxed. Display generally cleaned up. * * True "dictionary order" for searches. * * Default pattern can now be specified. Default file name now * specified in a single argument. * * Directories always match. * * Null pattern converted to "#?" universal wildcard. * * If you attempt to build a file name longer than 128 characters the * screen will flash and the operation will be aborted. * * "Volumes" gadget, using the device list code in "mounted". This * gadget brings up a list of all currently mounted volumes for * selection. Volumes leaves the directory specification intact, so * you can quickly return to where you left off. * * With these enhancements it is now possible to select any file on * any device without touching the keyboard. This is now release 2.0, * as it is significantly better than 1.0. * * Acknowledgements: * * Thanks to Jeff Lydiatt for the pattern matching code in PatMatch.c * Thanks to Jay Miner, =RJ= and the whole Amiga team for the Amiga * itself. * * Environment: * * IntuitionBase and GfxBase must be open. dos.library must be open * under the name "DosLibrary". Link with PatMatch.o and VolList.o. * * Usage: * * #define MAXFILENAME 128 * * int stdfile(title, default_file, default_pat, name); * char *title; * char *default_file; * char *default_pattern; * char name[MAXFILENAME]; * * +-----------------------------------+ * |o| Title ------------------- | | | title parameter, or "File Name" * |-----------------------------------| * | Directory: [ ] | Directory parameter, or current. * | File name: [ ] | Default parameter, or empty. * | Pattern: [ ] | Initially empty, if the user * | +-------------------------------+ | enters anything here it will * | | [Filename] | | | be used to select files. The * | | [Filename] | | | file display will also be empty * | | [Filename] |@@| | to start with to avoid excess * | | [Filename] |@@| | disk I/O. If the user selects * | | |@@| | here the directory will be * | | |@@| | scanned looking for files * | | | | | matching the specified pattern, * | | | | | or "*" if no pattern is given. * | | | | | * | +-------------------------------+ | ACCEPT returns 1. CANCEL * | [ACCEPT] [VOLUMES] [CANCEL] | or the close gadget return 0. * +-----------------------------------+ VOLUMES displays volume names. * * The number of filenames displayed is specified at compile time in the * constant MAXFILES. The maximum size of a filename is specified in the * constant MAXNAME. The parameter "Default file" will be broken into * directory and file parts. */ char *Copyright = "stdfile V2.0a. Copyright (c) 1987 Peter da Silva. All rights reserved."; #include #include #include #include #include typedef unsigned char ubyte; typedef unsigned short uword; typedef unsigned long ulong; typedef struct FileInfoBlock FIB; typedef struct DeviceList DEVLIST; typedef struct DosLibrary DOSLIB; typedef struct DosInfo DOSINFO; typedef struct RootNode ROOTNODE; typedef struct IntuiMessage IMESS; extern void CalcPropGadget(); extern void ProcessFileName(); extern void *malloc(); extern void *GetMsg(); extern struct Window *OpenWindow(); #define MAXFILES 8 #define MAXNAME 32 #define MAXFULL (MAXNAME*4) /* SIZING PARAMS */ #define Z NULL #define INDENT 6 #define LEFTMAR (INDENT-1) #define BORDER 3 #define CHSIZ 8 #define HT CHSIZ #define BASELINE 6 /* GADGET BORDERS */ #define IN1 LEFTMAR+10*CHSIZ #define IN3 LEFTMAR+3 #define IN4 -(INDENT+6*CHSIZ+1) #define IN5 -(INDENT+CHSIZ*2) #define IN6 ((WINWD-WD6)/2) #define WD1 -(INDENT+IN1) #define WD3 (6*CHSIZ) #define WD4 (6*CHSIZ) #define WD5 (CHSIZ*2+2) #define WD6 (7*CHSIZ) #define TP1 (CHSIZ+BORDER) #define TP2 (TP1+HT+1) #define TP3 (TP2+HT+1) #define TP4 -(BORDER+HT4-1) #define TP5 (TP3+HT+BORDER) #define HT4 (HT+1) #define HT5 CHSIZ*MAXFILES+INDENT #define WINHT (TP5 + HT5 + (-TP4) + BORDER) #define WINWD (INDENT*4 + (MAXNAME+2)*CHSIZ) #define WININ (640-WINWD)/2 #define WINTP (200-WINHT)/2 #define HOMEX (INDENT+LEFTMAR) #define HOMEY (TP5+BORDER) #define LASTX (HOMEX+MAXNAME*CHSIZ) #define LASTY (HOMEY+MAXFILES*CHSIZ) #define BTP TP5 #define BIN LEFTMAR #define BWD (WINWD-INDENT-BIN) #define BHT (WINHT-BTP-(-TP4+BORDER+1)) #define SF GADGHCOMP|GRELWIDTH #define SEL SELECTED #define BF1 GADGHCOMP|GRELBOTTOM #define BF2 GADGHCOMP|GRELBOTTOM|GRELRIGHT #define PF GRELRIGHT #define SA RELVERIFY #define CEN STRINGCENTER #define BA RELVERIFY #define PA RELVERIFY #define SI(n) (APTR)&STD_String[n] #define G(n) &STD_Gadget[n] #define IMAG (APTR)&STD_Image #define PROP (APTR)&STD_Prop #define SG STRGADGET #define BG BOOLGADGET #define PG PROPGADGET #define FP AUTOBACKPEN #define BP AUTOFRONTPEN #define OKTEXT &STD_OK #define NOTEXT &STD_CANCEL #define VLTEXT &STD_VOLUME static int DoneFlag; #define DirName SBuffer[0] #define FileName SBuffer[1] #define PatName SBuffer[2] #define STRINGS 3 static UBYTE SBuffer[STRINGS][MAXFULL]; static UBYTE Undo[MAXFULL]; static struct StringInfo STD_String[STRINGS] = { {SBuffer[0],Undo,0,MAXFULL,0}, {SBuffer[1],Undo,0,MAXFULL,0}, {SBuffer[2],Undo,0,MAXFULL,0} }; static struct PropInfo STD_Prop = { AUTOKNOB|FREEVERT, 0, 0, 0, 0 }; static struct IntuiText STD_OK = { FP, BP, JAM2, 0, 1, Z, (UBYTE *)"ACCEPT", Z }; static struct IntuiText STD_CANCEL = { FP, BP, JAM2, 0, 1, Z, (UBYTE *)"CANCEL", Z }; static struct IntuiText STD_VOLUME = { FP, BP, JAM2, 0, 1, Z, (UBYTE *)"VOLUMES", Z }; #define BUTTONS 3 #define BUTVEC 8 static SHORT butvecs[BUTTONS][BUTVEC*2] = { {-2,HT4,-2,-1, WD3+1,-1, WD3+1,HT4, -3, HT4, -3,-1, WD3+2,-1, WD3+2, HT4 }, {-2,HT4,-2,-1, WD4+1,-1, WD4+1,HT4, -3, HT4, -3,-1, WD4+2,-1, WD4+2, HT4 }, {-2,HT4,-2,-1, WD6+1,-1, WD6+1,HT4, -3, HT4, -3,-1, WD6+2,-1, WD6+2, HT4 } }; static struct Border ButBorder[BUTTONS] = { {0, 0, FP, BP, JAM1, BUTVEC, butvecs[0], NULL}, {0, 0, FP, BP, JAM1, BUTVEC, butvecs[1], NULL}, {0, 0, FP, BP, JAM1, BUTVEC, butvecs[2], NULL} }; #define BB(n) (APTR)&ButBorder[n] static struct Image STD_Image; #define DIRID 0 #define FILID 1 #define PATID 2 #define YESID 3 #define CANID 4 #define VOLID 5 #define BARID 6 #define GADGETS 7 static struct Gadget STD_Gadget[GADGETS] = { /*NEXT, LFT, TP,WDTH, H, FLAG, ACT, TYP, REND, Z, TXT, Z, SPEC, ID, Z */ { G(1), IN1,TP1, WD1,HT, SF, SA, SG, Z, Z, Z, Z, SI(0), 0, 0 }, { G(2), IN1,TP2, WD1,HT, SF|SEL, SA, SG, Z, Z, Z, Z, SI(1), 1, 0 }, { G(3), IN1,TP3, WD1,HT, SF, SA, SG, Z, Z, Z, Z, SI(2), 2, 0 }, { G(4), IN3,TP4, WD3,HT4,BF1, BA, BG,BB(0), Z, OKTEXT, Z, Z, 3, 0 }, { G(5), IN4,TP4, WD4,HT4,BF2, BA, BG,BB(1), Z, NOTEXT, Z, Z, 4, 0 }, { G(6), IN6,TP4, WD6,HT4,BF1, BA, BG,BB(2), Z, VLTEXT, Z, Z, 5, 0 }, { NULL, IN5,TP5, WD5,HT5,PF, PA, PG, IMAG, Z, Z, Z, PROP, 6, 0 } }; static struct NewWindow STD_NewWindow = { WININ, WINTP, WINWD, WINHT, -1, -1, REFRESHWINDOW|MOUSEBUTTONS|GADGETUP|CLOSEWINDOW, WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|SIMPLE_REFRESH|ACTIVATE, G(0), NULL, (ubyte *)"File Name Requestor", NULL, NULL, 0, 0, 0, 0, WBENCHSCREEN }; static struct Window *STD_Window; #define NVEC 6 static SHORT Vectors[NVEC*2] = { BIN+1, BTP, BIN+1, BTP+BHT, BIN+BWD, BTP+BHT, BIN+BWD, BTP, BIN, BTP, BIN, BTP+BHT }; static struct Border STD_FileBox = { 0, 0, FP, BP, JAM1, NVEC, Vectors, NULL }; static struct IntuiText STD_Text[3] = { { FP, BP, JAM2, 0, 0, NULL, (UBYTE *)"Directory:", NULL }, { FP, BP, JAM2, 0, 0, NULL, (UBYTE *)"File Name:", NULL }, { FP, BP, JAM2, 0, 0, NULL, (UBYTE *)"Pattern:", NULL } }; static OpenFileWindow() { extern struct IntuitionBase *IntuitionBase; int i; /* Rebuild gadget list */ STD_NewWindow.FirstGadget = &STD_Gadget[0]; for(i = 0; i < GADGETS; i++) STD_Gadget[i].NextGadget = (i==GADGETS-1)?(0):(&STD_Gadget[i+1]); for(i = 0; i < STRINGS; i++) { STD_String[i].BufferPos = strlen(SBuffer[i]); STD_String[i].DispPos = 0; } STD_Prop.VertBody = 0xFFFF; STD_Prop.VertPot = 0; if (!(STD_Window = OpenWindow(&STD_NewWindow))) return(0); /* This optional line will activate a string gadget */ if (IntuitionBase->LibNode.lib_Version > 32) ActivateGadget(G(1),STD_Window,0L); CalcPropGadget(); PaintFileWindow(); return (1); } static CloseFileWindow() { STD_NewWindow.LeftEdge = STD_Window->LeftEdge; STD_NewWindow.TopEdge = STD_Window->TopEdge; if (STD_Window) CloseWindow(STD_Window); } static int State; #define INITIAL 0 #define DIRECTORY 1 static PaintFileWindow() { DrawBorder(STD_Window->RPort, &STD_FileBox, 0, 0); PrintIText(STD_Window->RPort, &STD_Text[0], LEFTMAR, TP1); PrintIText(STD_Window->RPort, &STD_Text[1], LEFTMAR, TP2); PrintIText(STD_Window->RPort, &STD_Text[2], LEFTMAR, TP3); if (State == DIRECTORY) PrintFileNames(); } static int FirstFile; static int Selected; static int NumFiles; static struct dirent { struct dirent *nextfile; SHORT filetype; char *filename; } *NameList, **NameTable; #define FILETYPE 0 #define DIRTYPE 1 #define VOLTYPE 2 static PrintFileNames() { int i; for (i = 0; i < MAXFILES; ++i) { SetBPen(STD_Window->RPort, BP); SetAPen(STD_Window->RPort, BP); RectFill(STD_Window->RPort, HOMEX, HOMEY+i*CHSIZ, LASTX, HOMEY+(i+1)*CHSIZ); if (i+FirstFile < NumFiles) PrintName(i+FirstFile, i+FirstFile == Selected); } } static PrintName(file, hilite) int file; int hilite; { int i; i = file - FirstFile; Move(STD_Window->RPort, HOMEX, HOMEY+i*CHSIZ+BASELINE); if (hilite == 0) { SetBPen(STD_Window->RPort, BP); if(NameTable[file]->filetype == FILETYPE) SetAPen(STD_Window->RPort, FP); else SetAPen(STD_Window->RPort, 3); } else { SetAPen(STD_Window->RPort, BP); if(NameTable[file]->filetype == FILETYPE) SetBPen(STD_Window->RPort, FP); else SetBPen(STD_Window->RPort, 3); } Text(STD_Window->RPort, NameTable[file]->filename, strlen(NameTable[file]->filename)); } static void CalcPropGadget() { int VertPot, VertBody; if (State == INITIAL) return; if (NumFiles <= MAXFILES) { VertBody = 0xFFFF; VertPot = 0; FirstFile = 0; } else { VertBody = ((MAXFILES<<16)-1) / NumFiles; VertPot = 0; FirstFile = 0; } ModifyProp(&STD_Gadget[BARID], STD_Window, NULL, STD_Prop.Flags, 0, VertPot, 0, VertBody ); } static void CalcFilePosition() { short old_pos; if (State == INITIAL) return; old_pos = FirstFile; if (NumFiles<=MAXFILES) { FirstFile = 0; } else { int VertPot = STD_Prop.VertPot; FirstFile = ((VertPot+1)*(NumFiles-MAXFILES))>>16; } if (old_pos != FirstFile) PrintFileNames(); } FreeList(list) struct dirent *list; { struct dirent *ptr; while(list) { ptr = list->nextfile; if (list->filename) free(list->filename); free(list); list = ptr; } } static ReadNewDir() { struct dirent *NewList, **NewTable, *ptr; int NewCount; FIB *fib; BPTR dirlock; if (State != DIRECTORY) { NameTable = 0; NameList = 0; } if (DirName[0]) { dirlock = Lock(DirName, ACCESS_READ); } else { BPTR ram; if (ram = Lock("RAM:", ACCESS_READ)) { dirlock = CurrentDir(ram); CurrentDir(dirlock); dirlock = DupLock(dirlock); /* added */ UnLock(ram); } } if (!dirlock) return(0); if ((fib = (FIB *)malloc(sizeof(FIB))) == NULL) { UnLock(dirlock); return 0; } if (!Examine(dirlock, fib)) { UnLock(dirlock); free(fib); return 0; } if (fib->fib_DirEntryType < 0) { UnLock(dirlock); free(fib); return 0; } NewList = 0; NewCount = 0; while(ExNext(dirlock, fib)) { NewCount += 1; ptr = (struct dirent *)malloc(sizeof(struct dirent)); if (ptr == 0) { FreeList(NewList); UnLock(dirlock); free(fib); return(0); } ptr->nextfile = NewList; ptr->filetype = (fib->fib_DirEntryType<0)?FILETYPE:DIRTYPE; ptr->filename = malloc(strlen(fib->fib_FileName)+1); if (ptr->filename == 0) { FreeList(ptr); UnLock(dirlock); free(fib); return(0); } strcpy(ptr->filename, fib->fib_FileName); NewList = ptr; } free(fib); if (DirName[0]) UnLock(dirlock); NewTable = malloc(sizeof(struct dirent *) * NewCount); if (NewTable==0) { FreeList(NewList); return(0); } FreeList(NameList); NameList = NewList; if (NameTable) free(NameTable); NameTable = NewTable; if (PatName[0]==0) SetPatName("*"); State = DIRECTORY; Selected = -1; ReCalcPattern(); } static ReadVol() { struct dirent *NewList, **NewTable, *ptr; int NewCount; char name[MAXNAME]; if (State != DIRECTORY) { NameTable = 0; NameList = 0; } OpenVolList(); NewList = 0; NewCount = 0; while(ReadVolList(name)) { NewCount += 1; ptr = (struct dirent *)malloc(sizeof(struct dirent)); if (ptr==0) { FreeList(NewList); return(0); } ptr->nextfile = NewList; ptr->filetype = VOLTYPE; ptr->filename = malloc(strlen(name)+1); if (ptr->filename == 0) { FreeList(ptr); return(0); } strcpy(ptr->filename, name); NewList = ptr; } CloseVolList(); NewTable = malloc(sizeof(struct dirent *)*NewCount); if (NewTable==0) { FreeList(NewList); return(0); } FreeList(NameList); NameList = NewList; if (NameTable) free(NameTable); NameTable = NewTable; if (PatName[0]==0) SetPatName("*"); State = DIRECTORY; Selected = -1; ReCalcPattern(); } /* this routine does a true dictionary search: * * Devs < devs but Devs > devices */ static table_compare(p1, p2) struct dirent **p1, **p2; { char *s1, *s2; char c1, c2; char firstdiff; s1 = (*p1)->filename; s2 = (*p2)->filename; firstdiff = 0; while(*s1 && *s2) { c1 = *s1++; c2 = *s2++; if (firstdiff==0) firstdiff = c1 - c2; if (c1 >= 'A' && c1 <= 'Z') c1 = c1+'@'; if (c2 >= 'A' && c2 <= 'Z') c2 = c2+'@'; if (c1 != c2) return c1 - c2; } return firstdiff; } static sort_table() { qsort(NameTable, NumFiles, sizeof(struct dirent *), table_compare); return 1; } static ReCalcPattern() { if (State != DIRECTORY) { ReadNewDir(); } else { struct dirent *ptr; if (!PatName[0]) SetPatName("*"); NumFiles = 0; for (ptr = NameList; ptr; ptr=ptr->nextfile) { /* Directories always match. Is this good? */ if (ptr->filetype == DIRTYPE || ptr->filetype == VOLTYPE || newwildcmp(PatName, ptr->filename)) { NameTable[NumFiles] = ptr; NumFiles++; } } sort_table(); CalcPropGadget(); Selected = -1; PrintFileNames(); } } static SetGadgetText(id, text) int id; char *text; { int position; position = RemoveGadget(STD_Window, G(id)); if (position != -1) { strcpy(SBuffer[id], text); STD_String[id].BufferPos = strlen(text); position = AddGadget(STD_Window, G(id), -1); if (position != -1) RefreshGadgets(G(id), STD_Window, NULL); } } static SetDirName(name) char *name; { char buffer[MAXFULL+1], *ptr; int index; char lastchar; /* Can't enter a file name too long. */ if (strlen(DirName) + strlen(name) + 1 > MAXFULL) { DisplayBeep(); return(0); } index = 0; lastchar = 0; for (ptr = (char *)DirName; *ptr; ptr++) buffer[index++] = lastchar = *ptr; if (lastchar != ':' && lastchar != 0) buffer[index++] = '/'; strcpy(&buffer[index], name); SetGadgetText(DIRID, buffer); SetGadgetText(FILID, ""); return(1); } static SetFileName(name) char *name; { /* Can't enter a file name too long. */ if (strlen(DirName) + strlen(name) + 1 > MAXFULL) { DisplayBeep(); return(0); } SetGadgetText(FILID, name); return(1); } static SetPatName(name) char *name; { SetGadgetText(PATID, name); } static ProcessGadget(id) int id; { switch(id) { case DIRID: ReadNewDir(); break; case FILID: ProcessFileName(); break; case PATID: ReCalcPattern(); break; case BARID: CalcFilePosition(); break; case YESID: DoneFlag = 1; break; case CANID: DoneFlag = -1; break; case VOLID: ReadVol(); break; } } /* * ProcessFileName() added by Matthew Dillon. If the requested file is * actually a directory, do a ReadNewDir() instead of quiting. */ void ProcessFileName() { register char *ptr; register short len; BPTR fillock; char buf[128]; FIB *fib = (FIB *)malloc(sizeof(FIB)); if (fib == NULL) { DoneFlag = 1; return; } for (ptr = (char *)FileName; *ptr; ++ptr) { if (*ptr == ':') { DirName[0] = '\0'; break; } } strcpy(buf, DirName); if (FileName[0]) { if (len = strlen(buf)) { if (buf[len-1]!=':') strcat(buf, "/"); } strcat(buf, FileName); if (fillock = Lock(buf, ACCESS_READ)) { if (Examine(fillock, fib)) { if (fib->fib_DirEntryType > 0) { SetGadgetText(DIRID, buf); SetGadgetText(FILID, ""); ReadNewDir(); free(fib); UnLock(fillock); return; } } UnLock(fillock); } } free(fib); DoneFlag = 1; } static ProcessMouse(x, y, code, seconds, micros) { int NewSelected; static int oseconds = 0, omicros = 0; if (x < HOMEX || y < HOMEY || x >= LASTX || y >= LASTY) return; if ((code & SELECTUP) == SELECTUP) return; if (State != DIRECTORY) { ReadNewDir(); return; } NewSelected = (y-HOMEY)/CHSIZ + FirstFile; if (NewSelected == Selected) { if (Selected != -1) { if (DoubleClick(oseconds, omicros, seconds, micros)) { if (NameTable[Selected]->filetype == DIRTYPE) { if (SetDirName(NameTable[Selected]->filename)) ReadNewDir(); } else if (NameTable[Selected]->filetype == VOLTYPE) { SetGadgetText(DIRID, NameTable[Selected]->filename); SetGadgetText(FILID, ""); ReadNewDir(); } else if (!SetFileName(NameTable[Selected]->filename)) { Selected = -1; DoneFlag = 1; } } } } else { if (Selected != -1 && Selected >= FirstFile && Selected < FirstFile+MAXFILES) PrintName(Selected, 0); Selected = NewSelected; if (Selected >= NumFiles) { Selected = -1; } else { if (SetFileName(NameTable[Selected]->filename)) PrintName(Selected, 1); else Selected = -1; if (IntuitionBase->LibNode.lib_Version > 32) ActivateGadget(G(1),STD_Window,0L); } } oseconds = seconds; omicros = micros; } stdfile(title, deffile, defpat, name) char *title, *deffile, *defpat, *name; { IMESS *im; if(title) STD_NewWindow.Title = (UBYTE *)title; else STD_NewWindow.Title = (UBYTE *)"Enter File Name"; if (deffile) { int i; for (i = strlen(deffile)-1; i >= 0; --i) { if (deffile[i]==':' || deffile[i]=='/') { int hold; strcpy(FileName, &deffile[i+1]); if (deffile[i]==':') i++; hold = deffile[i]; deffile[i] = 0; strcpy(DirName, deffile); deffile[i] = hold; break; } } if (i < 0) { strcpy(FileName, deffile); DirName[0] = 0; } } else { DirName[0] = 0; FileName[0] = 0; } if (defpat) strcpy(PatName, defpat); else PatName[0] = 0; State = INITIAL; NameTable = 0; NameList = 0; if(!OpenFileWindow()) return(0); DoneFlag = 0; while (!DoneFlag) { Wait(1<UserPort->mp_SigBit); while(im = GetMsg(STD_Window->UserPort)) { switch(im->Class) { case CLOSEWINDOW: DoneFlag = -1; break; case MOUSEBUTTONS: ProcessMouse(im->MouseX, im->MouseY, im->Code, im->Seconds, im->Micros); break; case GADGETUP: ProcessGadget(((struct Gadget *)im->IAddress)->GadgetID); break; case REFRESHWINDOW: BeginRefresh(STD_Window); PaintFileWindow(); EndRefresh(STD_Window, 1); break; } ReplyMsg(im); } } CloseFileWindow(); FreeList(NameList); if (NameTable) free(NameTable); if (DoneFlag == 1) { int len; strcpy(name, DirName); if (FileName[0]) { if (len = strlen(name)) { if (name[len-1]!=':') strcat(name, "/"); } strcat(name, FileName); return(1); } } return(0); } /* * VOLLIST.C */ #define toAPTR(b) ((b)<<2) #define toBPTR(a) ((a)>>2) struct DeviceList *list; OpenVolList() { extern DOSLIB *DOSBase; ROOTNODE *root; DOSINFO *info; root = (ROOTNODE *)DOSBase->dl_Root; info = (DOSINFO *)toAPTR(root->rn_Info); list = (DEVLIST *)toAPTR(info->di_DevInfo); } ReadVolList(name) char *name; { register DEVLIST *next; while(list) { next = (DEVLIST *)toAPTR(list->dl_Next); if (list->dl_Type == DLT_VOLUME) { char *ptr; int count; ptr = (char *)toAPTR((BPTR)list->dl_Name); count = *ptr++; if (count > 30) count = 30; strncpy(name, ptr, count); name[count++] = ':'; name[count] = 0; list = next; return(1); } list = next; } return(0); } CloseVolList() { } SHAR_EOF if test 22900 -ne "`wc -c filereq.c`" then echo shar: error transmitting filereq.c '(should have been 22900 characters)' fi echo shar: extracting inp.c '(8471 characters)' cat << \SHAR_EOF > inp.c /* $Header: inp.c,v 2.0 86/09/17 15:37:02 lwall Exp $ * * $Log: inp.c,v $ * Revision 2.0 86/09/17 15:37:02 lwall * Baseline for netwide release. * */ #include "EXTERN.h" #include "common.h" #include "util.h" #include "pch.h" #include "INTERN.h" #include "inp.h" /* Input-file-with-indexable-lines abstract type */ static long i_size; /* size of the input file */ static char *i_womp; /* plan a buffer for entire file */ static char **i_ptr; /* pointers to lines in i_womp */ static int tifd = -1; /* plan b virtual string array */ static char *tibuf[2]; /* plan b buffers */ static LINENUM tiline[2] = {-1, -1}; /* 1st line in each buffer */ static LINENUM lines_per_buf; /* how many lines per buffer */ static int tireclen; /* length of records in tmp file */ /* New patch--prepare to edit another file. */ void re_input() { if (using_plan_a) { i_size = 0; #ifndef lint if (i_ptr != Null(char**)) free((char *)i_ptr); #endif if (i_womp != Nullch) free(i_womp); i_womp = Nullch; i_ptr = Null(char **); } else { using_plan_a = TRUE; /* maybe the next one is smaller */ Close(tifd); tifd = -1; free(tibuf[0]); free(tibuf[1]); tibuf[0] = tibuf[1] = Nullch; tiline[0] = tiline[1] = -1; tireclen = 0; } } /* Constuct the line index, somehow or other. */ void scan_input(filename) char *filename; { if (!plan_a(filename)) plan_b(filename); if (verbose) { say3("Patching file %s using Plan %s...\n", filename, (using_plan_a ? "A" : "B") ); } } /* Try keeping everything in memory. */ bool plan_a(filename) char *filename; { int ifd; Reg1 char *s; Reg2 LINENUM iline; #ifdef AMIGA if (ok_to_create_file && dfindOne(&filestat, filename, 1)) { #else if (ok_to_create_file && stat(filename, &filestat) < 0) { #endif if (verbose) say2("(Creating file %s...)\n",filename); makedirs(filename, TRUE); close(creat(filename, 0666)); } #ifdef AMIGA if (dfindOne(&filestat, filename, 0)) fatal2("Can't find %s.\n", filename); #else if (stat(filename, &filestat) < 0) { Sprintf(buf, "RCS/%s%s", filename, RCSSUFFIX); if (stat(buf, &filestat) >= 0 || stat(buf+4, &filestat) >= 0) { Sprintf(buf, CHECKOUT, filename); if (verbose) say2("Can't find %s--attempting to check it out from RCS.\n", filename); if (system(buf) || stat(filename, &filestat)) fatal2("Can't check out %s.\n", filename); } else { Sprintf(buf, "SCCS/%s%s", SCCSPREFIX, filename); if (stat(buf, &filestat) >= 0 || stat(buf+5, &filestat) >= 0) { Sprintf(buf, GET, filename); if (verbose) say2("Can't find %s--attempting to get it from SCCS.\n", filename); if (system(buf) || stat(filename, &filestat)) fatal2("Can't get %s.\n", filename); } else fatal2("Can't find %s.\n", filename); } } #endif #ifdef AMIGA filemode = filestat.fib_Protection ^ 15; i_size = filestat.fib_Size; #else filemode = filestat.st_mode; if ((filemode & S_IFMT) & ~S_IFREG) fatal2("%s is not a normal file--can't patch.\n", filename); i_size = filestat.st_size; #endif if (out_of_mem) { set_hunkmax(); /* make sure dynamic arrays are allocated */ out_of_mem = FALSE; return FALSE; /* force plan b because plan a bombed */ } #ifdef lint i_womp = Nullch; #else i_womp = malloc((MEM)(i_size+2)); /* lint says this may alloc less than */ /* i_size, but that's okay, I think. */ #endif if (i_womp == Nullch) return FALSE; if ((ifd = open(filename, 0)) < 0) fatal2("Can't open file %s\n", filename); #ifndef lint if (read(ifd, i_womp, (int)i_size) != i_size) { Close(ifd); /* probably means i_size > 15 or 16 bits worth */ free(i_womp); /* at this point it doesn't matter if i_womp was */ return FALSE; /* undersized. */ } #endif Close(ifd); if (i_size && i_womp[i_size-1] != '\n') i_womp[i_size++] = '\n'; i_womp[i_size] = '\0'; /* count the lines in the buffer so we know how many pointers we need */ iline = 0; for (s=i_womp; *s; s++) { if (*s == '\n') iline++; } #ifdef lint i_ptr = Null(char**); #else i_ptr = (char **)malloc((MEM)((iline + 2) * sizeof(char *))); #endif if (i_ptr == Null(char **)) { /* shucks, it was a near thing */ free((char *)i_womp); return FALSE; } /* now scan the buffer and build pointer array */ iline = 1; i_ptr[iline] = i_womp; for (s=i_womp; *s; s++) { if (*s == '\n') i_ptr[++iline] = s+1; /* these are NOT null terminated */ } input_lines = iline - 1; /* now check for revision, if any */ if (revision != Nullch) { if (!rev_in_string(i_womp)) { if (force) { if (verbose) say2( "Warning: this file doesn't appear to be the %s version--patching anyway.\n", revision); } else { #ifdef AMIGA ask2( "This file doesn't appear to be the %s version--patch anyway?", revision); #else ask2("\ This file doesn't appear to be the %s version--patch anyway? [n] ", revision); #endif if (*buf != 'y') fatal1("Aborted.\n"); } } else if (verbose) say2("Good. This file appears to be the %s version.\n", revision); } return TRUE; /* plan a will work */ } /* Keep (virtually) nothing in memory. */ void plan_b(filename) char *filename; { Reg3 FILE *ifp; Reg1 int i = 0; Reg2 int maxlen = 1; Reg4 bool found_revision = (revision == Nullch); using_plan_a = FALSE; if ((ifp = fopen(filename, "r")) == Nullfp) fatal2("Can't open file %s\n", filename); if ((tifd = creat(TMPINNAME, 0666)) < 0) fatal2("Can't open file %s\n", TMPINNAME); while (fgets(buf, sizeof buf, ifp) != Nullch) { if (revision != Nullch && !found_revision && rev_in_string(buf)) found_revision = TRUE; if ((i = strlen(buf)) > maxlen) maxlen = i; /* find longest line */ } if (revision != Nullch) { if (!found_revision) { if (force) { if (verbose) say2( "Warning: this file doesn't appear to be the %s version--patching anyway.\n", revision); } else { #ifdef AMIGA ask2( "This file doesn't appear to be the %s version--patch anyway?", revision); #else ask2("\ This file doesn't appear to be the %s version--patch anyway? [n] ", revision); #endif if (*buf != 'y') fatal1("Aborted.\n"); } } else if (verbose) say2("Good. This file appears to be the %s version.\n", revision); } Fseek(ifp, 0L, 0); /* rewind file */ lines_per_buf = BUFFERSIZE / maxlen; tireclen = maxlen; tibuf[0] = malloc((MEM)(BUFFERSIZE + 1)); tibuf[1] = malloc((MEM)(BUFFERSIZE + 1)); if (tibuf[1] == Nullch) fatal1("Can't seem to get enough memory.\n"); for (i=1; ; i++) { if (! (i % lines_per_buf)) /* new block */ if (write(tifd, tibuf[0], BUFFERSIZE) < BUFFERSIZE) fatal1("patch: can't write temp file.\n"); if (fgets(tibuf[0] + maxlen * (i%lines_per_buf), maxlen + 1, ifp) == Nullch) { input_lines = i - 1; if (i % lines_per_buf) if (write(tifd, tibuf[0], BUFFERSIZE) < BUFFERSIZE) fatal1("patch: can't write temp file.\n"); break; } } Fclose(ifp); Close(tifd); if ((tifd = open(TMPINNAME, 0)) < 0) { fatal2("Can't reopen file %s\n", TMPINNAME); } } /* Fetch a line from the input file, \n terminated, not necessarily \0. */ char * ifetch(line,whichbuf) Reg1 LINENUM line; int whichbuf; /* ignored when file in memory */ { if (line < 1 || line > input_lines) return ""; if (using_plan_a) return i_ptr[line]; else { LINENUM offline = line % lines_per_buf; LINENUM baseline = line - offline; if (tiline[0] == baseline) whichbuf = 0; else if (tiline[1] == baseline) whichbuf = 1; else { tiline[whichbuf] = baseline; #ifndef lint /* complains of long accuracy */ Lseek(tifd, (long)baseline / lines_per_buf * BUFFERSIZE, 0); #endif if (read(tifd, tibuf[whichbuf], BUFFERSIZE) < 0) fatal2("Error reading tmp file %s.\n", TMPINNAME); } return tibuf[whichbuf] + (tireclen*offline); } } /* True if the string argument contains the revision number we want. */ bool rev_in_string(string) char *string; { Reg1 char *s; Reg2 int patlen; if (revision == Nullch) return TRUE; patlen = strlen(revision); for (s = string; *s; s++) { if (isspace(*s) && strnEQ(s+1, revision, patlen) && isspace(s[patlen+1] )) { return TRUE; } } return FALSE; } SHAR_EOF if test 8471 -ne "`wc -c inp.c`" then echo shar: error transmitting inp.c '(should have been 8471 characters)' fi echo shar: extracting inp.h '(473 characters)' cat << \SHAR_EOF > inp.h /* $Header: inp.h,v 2.0 86/09/17 15:37:25 lwall Exp $ * * $Log: inp.h,v $ * Revision 2.0 86/09/17 15:37:25 lwall * Baseline for netwide release. * */ EXT LINENUM input_lines INIT(0); /* how long is input file in lines */ EXT LINENUM last_frozen_line INIT(0); /* how many input lines have been */ /* irretractibly output */ bool rev_in_string(); void scan_input(); bool plan_a(); /* returns false if insufficient memory */ void plan_b(); char *ifetch(); SHAR_EOF if test 473 -ne "`wc -c inp.h`" then echo shar: error transmitting inp.h '(should have been 473 characters)' fi echo shar: extracting newwildcmp.c '(1351 characters)' cat << \SHAR_EOF > newwildcmp.c /* * NEWWILDCMP.C * * (c)Copyright 1987 Matthew Dillon, All Rights Reserved. * * Compare a wild card name with a normal name * * This function replaces wildcmp() in SUP32.LIB (as not everybody will * have the latest SUP32.LIB). The only difference is that this call * is case insensitive. Later releases of SUP32.LIB will fix the * case-sensitive bug. */ #define MAXB 8 newwildcmp(wild, name) char *wild, *name; { register char *w = wild; register char *n = name; char *back[MAXB][2]; register short bi = 0; register char c1, c2; while (*n || *w) { switch (*w) { case '*': if (bi == MAXB) { puts ("Too many levels of '*'"); return (0); } back[bi][0] = w; back[bi][1] = n; ++bi; ++w; continue; goback: --bi; while (bi >= 0 && *back[bi][1] == '\0') --bi; if (bi < 0) return (0); w = back[bi][0] + 1; n = ++back[bi][1]; ++bi; continue; case '?': if (!*n) { if (bi) goto goback; return (0); } break; default: c1 = *n; c2 = *w; if (c1 >= 'A' && c1 <= 'Z') /* to lower case */ c1 |= 0x20; if (c2 >= 'A' && c2 <= 'Z') c2 |= 0x20; if (c1 != c2) { if (bi) goto goback; return (0); } break; } if (*n) ++n; if (*w) ++w; } return (1); } SHAR_EOF if test 1351 -ne "`wc -c newwildcmp.c`" then echo shar: error transmitting newwildcmp.c '(should have been 1351 characters)' fi echo shar: extracting patchlevel.h '(21 characters)' cat << \SHAR_EOF > patchlevel.h #define PATCHLEVEL 9 SHAR_EOF if test 21 -ne "`wc -c patchlevel.h`" then echo shar: error transmitting patchlevel.h '(should have been 21 characters)' fi echo shar: extracting pch.h '(780 characters)' cat << \SHAR_EOF > pch.h /* $Header: pch.h,v 2.0.1.1 87/01/30 22:47:16 lwall Exp $ * * $Log: pch.h,v $ * Revision 2.0.1.1 87/01/30 22:47:16 lwall * Added do_ed_script(). * * Revision 2.0 86/09/17 15:39:57 lwall * Baseline for netwide release. * */ EXT FILE *pfp INIT(Nullfp); /* patch file pointer */ void re_patch(); void open_patch_file(); void set_hunkmax(); void grow_hunkmax(); bool there_is_another_patch(); int intuit_diff_type(); void next_intuit_at(); void skip_to(); bool another_hunk(); bool pch_swap(); char *pfetch(); short pch_line_len(); LINENUM pch_first(); LINENUM pch_ptrn_lines(); LINENUM pch_newfirst(); LINENUM pch_repl_lines(); LINENUM pch_end(); LINENUM pch_context(); LINENUM pch_hunk_beg(); char pch_char(); char *pfetch(); char *pgets(); void do_ed_script(); SHAR_EOF if test 780 -ne "`wc -c pch.h`" then echo shar: error transmitting pch.h '(should have been 780 characters)' fi echo shar: extracting request.c '(1842 characters)' cat << \SHAR_EOF > request.c /* put up a simple requester */ #include #include #ifndef MANX #include #include #endif #include #include #ifndef MANX #include #endif extern struct Library *OpenLibrary(); extern struct IntuitionBase *IntuitionBase; extern struct GfxBase *GfxBase; /* AutoRequest data structures */ #define REDP 3 #define BLKP 2 #define WHTP 1 #define BLUP 0 static struct IntuiText questionText = { REDP, WHTP, JAM2, 5, /* LeftEdge */ 5, /* TopEdge */ NULL, /* Default font */ NULL, /* Text (to be filled in) */ NULL /* No pointer to next text */ }; /** YES TEXT **/ static struct IntuiText yesText = { BLUP, WHTP, JAM2, 7, /* LeftEdge */ 3, /* TopEdge */ NULL, /* Default font */ (UBYTE *) "Yes", /* Text */ NULL /* No pointer to next text */ }; /** NO TEXT **/ static struct IntuiText noText = { REDP, WHTP, JAM2, 7, /* LeftEdge */ 3, /* TopEdge */ NULL, /* Default font */ (UBYTE *) "No", /* Text */ NULL }; initMachSpecific() { if ((GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", 0)) == 0) { fprintf(stderr,"Unable to open graphics.library\n"); my_exit(20); } if ((IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library", 0)) == 0) { fprintf(stderr,"Unable to open intuition.library\n"); my_exit(21); } } cleanMachSpecific() { if (IntuitionBase) CloseLibrary((struct Library *) IntuitionBase); if (GfxBase) CloseLibrary((struct Library *) GfxBase); } simpleRequest(question) char *question; { questionText.IText = (UBYTE *) question; return(AutoRequest(0, &questionText, &yesText, &noText, 0, 0, max(strlen(question)*8 + 34, 150), 60)); } SHAR_EOF if test 1842 -ne "`wc -c request.c`" then echo shar: error transmitting request.c '(should have been 1842 characters)' fi echo shar: extracting util.c '(7997 characters)' 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); #ifdef AMIGA if (!dfindOne(&filestat, to, 1)) { /* output file exists */ unlink(bakname); #else 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 */ #endif #ifdef DEBUGGING if (debug & 4) say3("Moving %s to %s.\n", to, bakname); #endif #ifdef AMIGA if (rename(to, bakname)) { say3("patch: can't backup %s, output is in %s\n", to, from); return -1; } #else if (link(to, bakname) < 0) { say3("patch: can't backup %s, output is in %s\n", to, from); return -1; } while (unlink(to) >= 0) ; #endif } #ifdef DEBUGGING if (debug & 4) say3("Moving %s to %s.\n", from, to); #endif #ifdef AMIGA if (rename(from, to)) { /* different file system? */ #else if (link(from, to) < 0) { /* different file system? */ #endif 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; } #ifdef lint #ifdef CANVARARG /*VARARGS ARGSUSED*/ say(pat) char *pat; { ; } /*VARARGS ARGSUSED*/ fatal(pat) char *pat; { ; } /*VARARGS ARGSUSED*/ ask(pat) char *pat; { ; } #endif #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); } #ifdef AMIGA /* Ask user for a file name */ void fileRequest(prompt) char *prompt; { if(!stdfile(prompt, NULL, NULL, buf)) { strcpy(buf,"\n"); } } #endif /* Get a response from the user, somehow or other. */ #ifdef AMIGA void ask(pat,arg1,arg2,arg3) char *pat; int arg1,arg2,arg3; { Sprintf(buf, pat, arg1, arg2, arg3); if(simpleRequest(buf)) { strcpy(buf,"y\n"); } else { strcpy(buf,"n\n"); } } #else 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); 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 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 #ifndef AMIGA if (signal(SIGHUP, SIG_IGN) != SIG_IGN) Signal(SIGHUP, my_exit); #endif 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 #ifndef AMIGA Signal(SIGHUP, SIG_IGN); #endif 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; #ifdef AMIGA for (i=0; i<=dirvp; i++) { strcpy(buf, tmpbuf); *dirv[i] = '/'; mkdir(buf); } #else strcpy(buf, "mkdir"); s = buf; for (i=0; i<=dirvp; i++) { while (*s) s++; *s++ = ' '; strcpy(s, tmpbuf); *dirv[i] = '/'; } system(buf); #endif } /* 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'; #ifdef AMIGA if (!dfindOne(&filestat, s, 1) && filestat.fib_DirEntryType > 0) { #else if (stat(s, &filestat) && filestat.st_mode & S_IFDIR) { #endif name[-1] = '/'; name=s; } } name = savestr(name); #ifdef AMIGA free(s); if (dfindOne(&filestat, name, 0) && !assume_exists) { free(name); name = Nullch; } #else 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; } } } #endif return name; } SHAR_EOF if test 7997 -ne "`wc -c util.c`" then echo shar: error transmitting util.c '(should have been 7997 characters)' fi echo shar: extracting util.h '(1972 characters)' cat << \SHAR_EOF > util.h /* $Header: util.h,v 2.0 86/09/17 15:40:06 lwall Exp $ * * $Log: util.h,v $ * Revision 2.0 86/09/17 15:40:06 lwall * Baseline for netwide release. * */ /* and for those machine that can't handle a variable argument list */ #ifdef CANVARARG #define say1 say #define say2 say #define say3 say #define say4 say #define ask1 ask #define ask2 ask #define ask3 ask #define ask4 ask #define fatal1 fatal #define fatal2 fatal #define fatal3 fatal #define fatal4 fatal #else /* hope they allow multi-line macro actual arguments */ #ifdef lint #define say1(a) say(a, 0, 0, 0) #define say2(a,b) say(a, (b)==(b), 0, 0) #define say3(a,b,c) say(a, (b)==(b), (c)==(c), 0) #define say4(a,b,c,d) say(a, (b)==(b), (c)==(c), (d)==(d)) #define ask1(a) ask(a, 0, 0, 0) #define ask2(a,b) ask(a, (b)==(b), 0, 0) #define ask3(a,b,c) ask(a, (b)==(b), (c)==(c), 0) #define ask4(a,b,c,d) ask(a, (b)==(b), (c)==(c), (d)==(d)) #define fatal1(a) fatal(a, 0, 0, 0) #define fatal2(a,b) fatal(a, (b)==(b), 0, 0) #define fatal3(a,b,c) fatal(a, (b)==(b), (c)==(c), 0) #define fatal4(a,b,c,d) fatal(a, (b)==(b), (c)==(c), (d)==(d)) #else /* lint */ /* if this doesn't work, try defining CANVARARG above */ #define say1(a) say(a, Nullch, Nullch, Nullch) #define say2(a,b) say(a, b, Nullch, Nullch) #define say3(a,b,c) say(a, b, c, Nullch) #define say4 say #define ask1(a) ask(a, Nullch, Nullch, Nullch) #define ask2(a,b) ask(a, b, Nullch, Nullch) #define ask3(a,b,c) ask(a, b, c, Nullch) #define ask4 ask #define fatal1(a) fatal(a, Nullch, Nullch, Nullch) #define fatal2(a,b) fatal(a, b, Nullch, Nullch) #define fatal3(a,b,c) fatal(a, b, c, Nullch) #define fatal4 fatal #endif /* lint */ /* if neither of the above work, join all multi-line macro calls. */ #endif EXT char serrbuf[BUFSIZ]; /* buffer for stderr */ char *fetchname(); int move_file(); void copy_file(); void say(); void fatal(); void ask(); char *savestr(); void set_signals(); void ignore_signals(); void makedirs(); SHAR_EOF if test 1972 -ne "`wc -c util.h`" then echo shar: error transmitting util.h '(should have been 1972 characters)' fi # End of shell archive exit 0