home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume22 / undel2 / patch10 / delete.patch10
Text File  |  1990-06-07  |  27KB  |  943 lines
  1. *** /tmp/,RCSt1018872    Fri Jun  8 00:10:39 1990
  2. --- README    Thu Jun  7 22:56:38 1990
  3. ***************
  4. *** 16,34 ****
  5.   
  6.                SUPPORTED PLATFORMS
  7.   
  8. ! I've personally compiled these sources under 4.3BSD on VAXen and IBM
  9. ! RT/PC's, under Mach on the NeXT Machine, under Ultrix on the
  10. ! DECstation 3100, and under SunOS 4.0, and I assume they should compile
  11. ! with minimal trouble on other architectures.  If you make it compile
  12. ! on another platform and you have to make changes, please send me
  13. ! patches.
  14.   
  15.   
  16.                WHAT YOU NEED TO DO
  17.   
  18. ! 1. Compile the com_err library (see below for more details) found in
  19. !    the sub-directory et, and install it if you want to (you'll have to
  20. !    modify the delete Makefile a bit if you don't).
  21.   
  22.   2. Edit the Makefile to fit your site.  See below for details.
  23.   
  24. --- 16,36 ----
  25.   
  26.                SUPPORTED PLATFORMS
  27.   
  28. ! I've personally compiled these sources under Vax 4.3BSD, IBM AOS 4.3,
  29. ! Mach on the NeXT Machine (with the "-bsd" flag to the compiler),
  30. ! Ultrix 3.1 on the DECstation 3100, SunOS 4.0, A/UX, and HP-UX, and I
  31. ! assume they should compile with minimal trouble on other architectures
  32. ! (However, I've been told that there may be some problems compiling on
  33. ! POSIX-compliant architectures; they're being worked on.).  If you make
  34. ! it compile on another platform and you have to make changes, please
  35. ! send me patches.
  36.   
  37.   
  38.                WHAT YOU NEED TO DO
  39.   
  40. ! 1. Compile the com_err library (see below for more details) and
  41. !    install it if you want to (you'll have to modify the delete
  42. !    Makefile a bit if you don't).
  43.   
  44.   2. Edit the Makefile to fit your site.  See below for details.
  45.   
  46. ***************
  47. *** 45,83 ****
  48.   1. Change the install binary directory and install man page directory
  49.      (and possibly man section).
  50.   
  51. ! 2. Change the "-I/usr/include" to point to the et subdirectory if you
  52. !    have not installed the com_err header file in a standard location,
  53. !    or to wherever you have installed it.  Change the COMPILE_ET
  54. !    variable to use et/compile_et if you haven't installed the
  55. !    compile_et utility.  Change the -L/usr/athena/lib flag to point to
  56. !    wherever you have installed the library, or to the et subdirectory
  57. !    if you have not.
  58.   
  59. ! 3. Deal with the AFS_MOUNTPOINTS flag, which specifies whether
  60. !    undelete, expunge and lsdel will check for Andrew File System mount
  61. !    points in addition to standard Unix mount points.
  62.   
  63. !    a. If you undefine it, remove the -I and -L flags that point to AFS
  64. !       includes and libraries, and remove the "-lsys" from the LIBS
  65. !       variable.
  66.   
  67. -    b. If you leave it defined, change the -I and -L flags to point to
  68. -       wherever you keep your AFS includes and libraries.
  69.   
  70. - 
  71.                  COM_ERR LIBRARY
  72.   
  73. ! This is the second release of this package.  Unlike the first release,
  74. ! this release requires (for error-handling) a library called com_err,
  75. ! which was written by members of the MIT Student Information Processing
  76. ! Board (SIPB).  Along with that library comes a utility called
  77. ! compile_et.  The sources to the com_err library and compile_et are
  78. ! included with the sources to the delete package; you should compile
  79. ! them and then either install them in a "standard location" on your
  80. ! machine or modify the delete Makefile so that it knows where they are.
  81. ! The delete Makefile does not compile them by default, since they are
  82. ! already compiled and installed at Athena, so you should compile and
  83. ! install them separately from delete etc.
  84.   
  85.   The files texinfo.tex and com_err.texinfo in the et sources are
  86.   compressed and uuencoded because they have control characters in them.
  87. --- 47,78 ----
  88.   1. Change the install binary directory and install man page directory
  89.      (and possibly man section).
  90.   
  91. ! 2. Change the ETINCS and ETLDFLAGS variables to point to the right
  92. !    place.  Also, change the COMPILE_ET variable to point to a
  93. !    compile_et executable if you haven't installed it somewhere in your
  94. !    search path.
  95.   
  96. ! 3. If your system is SYSV-like (e.g. it uses strchr and strrchr
  97. !    instead of index and rindex, or it has memcpy and doesn't have
  98. !    bcopy), and your compile doesn't define the symbol SYSV
  99. !    automatically, then put "-DSYSV" in the DEFINES variable.
  100.   
  101. ! 4. You probably won't want to include AFS support, in which case you
  102. !    should empty all the variables starting with "AFS".  If you do want
  103. !    to support AFS, then set the variables appropriately.
  104.   
  105.   
  106.                  COM_ERR LIBRARY
  107.   
  108. ! In order to compile delete, you need to get your hands on the com_err
  109. ! package, which was written by members of the MIT Student Information
  110. ! Processing Board (SIPB); it should be archived in the same place
  111. ! delete is.  You should compile the library and compile_et utility that
  112. ! comes with it and then either install them in a "standard location" on
  113. ! your machine or modify the delete Makefile so that it knows where they
  114. ! are.  The delete Makefile does not compile them by default, since they
  115. ! are already compiled and installed at Athena, so you should compile
  116. ! and install them separately from delete etc.
  117.   
  118.   The files texinfo.tex and com_err.texinfo in the et sources are
  119.   compressed and uuencoded because they have control characters in them.
  120. ***************
  121. *** 85,116 ****
  122.   of them is necessary for just building the library and using it to
  123.   build delete et al -- they are just documentation about the library.
  124.   
  125. - The version of the com_err library I've included here is "in flux" --
  126. - its authors tell me that several enhancements are planned for the near
  127. - future.  When the library is worked into a more final form, it will
  128. - probably be distributed (to comp.sources.unix, etc.) separately from
  129. - delete.
  130.   
  131. - 
  132.                    FINAL NOTES
  133. - 
  134. - The final patch level used for the first release of this package was
  135. - patch level 2.  Since this is a whole new release, and there were some
  136. - unofficial patches here and there during the life of the first
  137. - release, I upped the patch level to 5 for the first distribution of
  138. - the second release of the delete package.
  139. - 
  140. - There were NO REAL PATCHES numbered 3, 4, or 5 -- I simply chose to
  141. - jump from 2 to 5 when issuing a new release.  Therefore, if you have
  142. - delete sources with a patch level less than 5, you will need to get a
  143. - whole new copy of the sources.
  144. - 
  145. - In other words, treat patch level 5 as patch level 0 for all intents
  146. - and purposes (gee, tha sounds stupid, but you get the idea :-).  See
  147. - the file PATCHLEVEL in the sources to find out what patch level of the
  148. - sources you currently have in your position (if you're reading this
  149. - README file out of a source distribution, you almost definitely have
  150. - patch level 6 or later).
  151.   
  152.   As usual, suggestions and bug fixes are always welcomed.
  153.   
  154. --- 80,87 ----
  155. *** /tmp/,RCSt1018879    Fri Jun  8 00:10:46 1990
  156. --- Makefile    Thu Jun  7 23:37:59 1990
  157. ***************
  158. *** 5,11 ****
  159.   #
  160.   #     $Source: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/Makefile,v $
  161.   #     $Author: jik $
  162. ! #     $Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/Makefile,v 1.17 89/12/20 15:14:34 jik Exp $
  163.   #
  164.   
  165.   DESTDIR=
  166. --- 5,11 ----
  167.   #
  168.   #     $Source: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/Makefile,v $
  169.   #     $Author: jik $
  170. ! #     $Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/Makefile,v 1.22 90/06/07 23:36:17 jik Exp $
  171.   #
  172.   
  173.   DESTDIR=
  174. ***************
  175. *** 16,30 ****
  176.   CC=         cc
  177.   COMPILE_ET=     compile_et
  178.   LINT=         lint
  179. ! DEFINES=    -DAFS_MOUNTPOINTS
  180. ! INCLUDES=    -I/usr/include\
  181. !         -I/afs/athena.mit.edu/astaff/project/afsdev/build/$(MACHINE)/include
  182.   CFLAGS=     -O $(INCLUDES) $(DEFINES) $(CDEBUGFLAGS)
  183. ! LDFLAGS=    -L/usr/athena/lib\
  184. !         -L/afs/athena.mit.edu/astaff/project/afsdev/build/$(MACHINE)/lib/afs
  185. ! LIBS=         -lcom_err -lsys
  186. ! LINTFLAGS=    $(DEFINES) $(INCLUDES) $(CDEBUGFLAGS) -u
  187.   LINTLIBS=    
  188.   SRCS=         delete.c undelete.c directories.c pattern.c util.c\
  189.           expunge.c lsdel.c col.c shell_regexp.c\
  190.           errors.c stack.c
  191. --- 16,55 ----
  192.   CC=         cc
  193.   COMPILE_ET=     compile_et
  194.   LINT=         lint
  195. ! DEFINES=    $(AFSDEFINES)
  196. ! 
  197. ! 
  198. ! # These variables apply only if you want this program to recognize
  199. ! # Andrew File System mount points.  If you don't want to support AFS,
  200. ! # then set all the variables starting with "AFS" to nothing.
  201. ! AFSBLD=        bld
  202. ! AFSINC=        /afs/athena.mit.edu/astaff/project/afsdev/sandbox/$(AFSBLD)/dest/include
  203. ! AFSLIB=        /afs/athena.mit.edu/astaff/project/afsdev/sandbox/$(AFSBLD)/dest/lib
  204. ! AFSINCS=    -I$(AFSINC)
  205. ! AFSLDFLAGS=    -L$(AFSLIB) -L$(AFSLIB)/afs
  206. ! AFSLIBS=    -lsys -lrx -llwp $(AFSLIB)/afs/util.a
  207. ! AFSDEFINES=    -DAFS_MOUNTPOINTS
  208. ! 
  209. ! 
  210. ! # ETINCS is a -I flag pointing to the directory in which the et header
  211. ! # files are stored. 
  212. ! # ETLDFLAGS is a -L flag pointing to the directory where the et
  213. ! # library is stored.
  214. ! # ETLIBS lists the et libraries we want to link against
  215. ! ETINCS=        -I/usr/include
  216. ! ETLDFLAGS=    -L/usr/athena/lib
  217. ! ETLIBS=        -lcom_err
  218. ! 
  219. ! 
  220. ! # You probably won't have to edit anything below this line.
  221. ! 
  222. ! INCLUDES=    $(ETINCS) $(AFSINCS)
  223. ! LDFLAGS=    $(ETLDFLAGS) $(AFSLDFLAGS) 
  224. ! LIBS=         $(ETLIBS) $(AFSLIBS)
  225.   CFLAGS=     -O $(INCLUDES) $(DEFINES) $(CDEBUGFLAGS)
  226. ! LINTFLAGS=    -u $(INCLUDES) $(DEFINES) $(CDEBUGFLAGS)
  227.   LINTLIBS=    
  228. + 
  229.   SRCS=         delete.c undelete.c directories.c pattern.c util.c\
  230.           expunge.c lsdel.c col.c shell_regexp.c\
  231.           errors.c stack.c
  232. ***************
  233. *** 37,48 ****
  234.   MANS=         man1/delete.1 man1/expunge.1 man1/lsdel.1 man1/purge.1\
  235.           man1/undelete.1
  236.   
  237. ! ETLIBSRCS=    et/Makefile et/com_err.3 et/compile_et.1\
  238. !         et/com_err.texinfo.Z.uu et/error_table.y et/et_lex.lex.l\
  239. !         et/texinfo.tex.Z.uu et/*.c et/*.h et/*.et
  240. ! ARCHIVE=    README Makefile PATCHLEVEL $(SRCS) $(INCS) $(ETSRCS)\
  241. !         $(MANS) 
  242. ! ARCHIVEDIRS=     man1 et et/profiled
  243.   
  244.   DELETEOBJS=     delete.o util.o delete_errs.o errors.o
  245.   UNDELETEOBJS=     undelete.o directories.o util.o pattern.o\
  246. --- 62,70 ----
  247.   MANS=         man1/delete.1 man1/expunge.1 man1/lsdel.1 man1/purge.1\
  248.           man1/undelete.1
  249.   
  250. ! ARCHIVE=    README Makefile PATCHLEVEL $(SRCS) $(INCS) $(MANS)\
  251. !         $(ETSRCS)
  252. ! ARCHIVEDIRS=     man1
  253.   
  254.   DELETEOBJS=     delete.o util.o delete_errs.o errors.o
  255.   UNDELETEOBJS=     undelete.o directories.o util.o pattern.o\
  256. ***************
  257. *** 138,144 ****
  258.       tar cvf - $(ARCHIVE) $(ETLIBSRCS) | compress > delete.tar.Z
  259.   
  260.   shar: $(ARCHIVE)
  261. !     makekit -oMANIFEST -h2 MANIFEST $(ARCHIVEDIRS) $(ARCHIVE) $(ETLIBSRCS)
  262.   
  263.   patch: $(ARCHIVE)
  264.       makepatch $(ARCHIVE)
  265. --- 160,166 ----
  266.       tar cvf - $(ARCHIVE) $(ETLIBSRCS) | compress > delete.tar.Z
  267.   
  268.   shar: $(ARCHIVE)
  269. !     makekit -oMANIFEST $(ARCHIVEDIRS) $(ARCHIVE) $(ETLIBSRCS)
  270.   
  271.   patch: $(ARCHIVE)
  272.       makepatch $(ARCHIVE)
  273. *** /tmp/,RCSt1018886    Fri Jun  8 00:10:52 1990
  274. --- PATCHLEVEL    Fri Jun  8 00:09:29 1990
  275. ***************
  276. *** 1 ****
  277. ! 9
  278. --- 1 ----
  279. ! 10
  280. *** /tmp/,RCSt1018893    Fri Jun  8 00:10:58 1990
  281. --- delete.c    Thu Jun  7 19:17:25 1990
  282. ***************
  283. *** 11,17 ****
  284.    */
  285.   
  286.   #if (!defined(lint) && !defined(SABER))
  287. !      static char rcsid_delete_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/delete.c,v 1.21 89/12/15 04:39:22 jik Exp $";
  288.   #endif
  289.   
  290.   #include <sys/types.h>
  291. --- 11,17 ----
  292.    */
  293.   
  294.   #if (!defined(lint) && !defined(SABER))
  295. !      static char rcsid_delete_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/delete.c,v 1.22 90/06/06 19:06:17 jik Exp $";
  296.   #endif
  297.   
  298.   #include <sys/types.h>
  299. ***************
  300. *** 18,24 ****
  301. --- 18,30 ----
  302.   #include <stdio.h>
  303.   #include <sys/stat.h>
  304.   #include <sys/dir.h>
  305. + #ifdef SYSV
  306. + #include <string.h>
  307. + #define index strchr
  308. + #define rindex strrchr
  309. + #else
  310.   #include <strings.h>
  311. + #endif /* SYSV */
  312.   #include <sys/param.h>
  313.   #include <sys/file.h>
  314.   #include <errno.h>
  315. *** /tmp/,RCSt1018900    Fri Jun  8 00:11:04 1990
  316. --- undelete.c    Thu Jun  7 19:17:41 1990
  317. ***************
  318. *** 11,17 ****
  319.    */
  320.   
  321.   #if (!defined(lint) && !defined(SABER))
  322. !      static char rcsid_undelete_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/undelete.c,v 1.19 89/12/15 04:39:31 jik Exp $";
  323.   #endif
  324.   
  325.   #include <stdio.h>
  326. --- 11,17 ----
  327.    */
  328.   
  329.   #if (!defined(lint) && !defined(SABER))
  330. !      static char rcsid_undelete_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/undelete.c,v 1.20 90/06/06 19:06:43 jik Exp $";
  331.   #endif
  332.   
  333.   #include <stdio.h>
  334. ***************
  335. *** 18,24 ****
  336. --- 18,30 ----
  337.   #include <sys/types.h>
  338.   #include <sys/dir.h>
  339.   #include <sys/param.h>
  340. + #ifdef SYSV
  341. + #include <string.h>
  342. + #define index strchr
  343. + #define rindex strrchr
  344. + #else
  345.   #include <strings.h>
  346. + #endif /* SYSV */
  347.   #include <sys/stat.h>
  348.   #include <com_err.h>
  349.   #include <errno.h>
  350. *** /tmp/,RCSt1018907    Fri Jun  8 00:11:10 1990
  351. --- directories.c    Thu Jun  7 19:17:27 1990
  352. ***************
  353. *** 11,17 ****
  354.    */
  355.   
  356.   #if !defined(lint) && !defined(SABER)
  357. !      static char rcsid_directories_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/directories.c,v 1.15 89/11/22 21:32:24 jik Exp $";
  358.   #endif
  359.   
  360.   #include <stdio.h>
  361. --- 11,17 ----
  362.    */
  363.   
  364.   #if !defined(lint) && !defined(SABER)
  365. !      static char rcsid_directories_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/directories.c,v 1.16 90/06/06 19:06:24 jik Exp $";
  366.   #endif
  367.   
  368.   #include <stdio.h>
  369. ***************
  370. *** 19,25 ****
  371. --- 19,31 ----
  372.   #include <sys/stat.h>
  373.   #include <sys/param.h>
  374.   #include <sys/dir.h>
  375. + #ifdef SYSV
  376. + #include <string.h>
  377. + #define index strchr
  378. + #define rindex strrchr
  379. + #else
  380.   #include <strings.h>
  381. + #endif /* SYSV */
  382.   #include <errno.h>
  383.   #include <com_err.h>
  384.   #include "delete_errs.h"
  385. *** /tmp/,RCSt1018914    Fri Jun  8 00:11:18 1990
  386. --- pattern.c    Thu Jun  7 22:33:55 1990
  387. ***************
  388. *** 11,17 ****
  389.    */
  390.   
  391.   #if (!defined(lint) && !defined(SABER))
  392. !      static char rcsid_pattern_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/pattern.c,v 1.16 90/01/11 04:11:58 jik Exp $";
  393.   #endif
  394.   
  395.   #include <stdio.h>
  396. --- 11,17 ----
  397.    */
  398.   
  399.   #if (!defined(lint) && !defined(SABER))
  400. !      static char rcsid_pattern_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/pattern.c,v 1.18 90/06/07 22:33:45 jik Exp $";
  401.   #endif
  402.   
  403.   #include <stdio.h>
  404. ***************
  405. *** 18,24 ****
  406. --- 18,30 ----
  407.   #include <sys/types.h>
  408.   #include <sys/dir.h>
  409.   #include <sys/param.h>
  410. + #ifdef SYSV
  411. + #include <string.h>
  412. + #define index strchr
  413. + #define rindex strrchr
  414. + #else
  415.   #include <strings.h>
  416. + #endif /* SYSV */
  417.   #include <sys/stat.h>
  418.   #include <errno.h>
  419.   #include <com_err.h>
  420. ***************
  421. *** 410,415 ****
  422. --- 416,424 ----
  423.        char first[MAXNAMLEN], rest[MAXPATHLEN];
  424.        int retval;
  425.        int strsize;
  426. + #ifdef PATTERN_DEBUG
  427. +      int j;
  428. + #endif
  429.        
  430.   #ifdef DEBUG
  431.        printf("do_match: looking for %s\n", name);
  432. ***************
  433. *** 429,434 ****
  434. --- 438,446 ----
  435.        if (! *found) {
  436.         set_error(errno);
  437.         error("Malloc");
  438. + #ifdef PATTERN_DEBUG
  439. +       fprintf(stderr, "do_match: return 1.\n");
  440. + #endif
  441.         return error_code;
  442.        }
  443.        *num_found = 0;
  444. ***************
  445. *** 437,442 ****
  446. --- 449,457 ----
  447.        if (! dirp) {
  448.         set_error(errno);
  449.         error(base);
  450. + #ifdef PATTERN_DEBUG
  451. +       fprintf(stderr, "do_match: return 2.\n");
  452. + #endif
  453.         return error_code;
  454.        }
  455.        (void) strcpy(first, firstpart(name, rest));
  456. ***************
  457. *** 445,453 ****
  458. --- 460,474 ----
  459.         if (retval) {
  460.              error("add_str");
  461.              (void) popall();
  462. + #ifdef PATTERN_DEBUG
  463. +            fprintf(stderr, "do_match: return 3.\n");
  464. + #endif
  465.              return retval;
  466.         }
  467.         (*num_found)++;
  468. + #ifdef PATTERN_DEBUG
  469. +       fprintf(stderr, "do_match: return 4.\n");
  470. + #endif
  471.         return 0;
  472.        }
  473.        
  474. ***************
  475. *** 456,461 ****
  476. --- 477,486 ----
  477.         if (! dp) goto updir;
  478.   
  479.         retval = reg_cmp(first, dp->d_name);
  480. + #ifdef PATTERN_DEBUG
  481. +     fprintf(stderr, "do_match: comparing %s to %s returns %d.\n",
  482. +         first, dp->d_name, retval);
  483. + #endif
  484.         if (retval < 0) {
  485.              error("reg_cmp");
  486.              goto updir;
  487. ***************
  488. *** 465,470 ****
  489. --- 490,500 ----
  490.   
  491.         if (is_deleted(dp->d_name) && match_deleted) {
  492.              retval = reg_cmp(first, &dp->d_name[2]);
  493. + #ifdef PATTERN_DEBUG
  494. +            fprintf(stderr,
  495. +                "do_match: deleted compare of %s to %s returns %d.\n",
  496. +                first, &dp->d_name[2], retval);
  497. + #endif
  498.              if (retval < 0) {
  499.               error("reg_cmp");
  500.               goto updir;
  501. ***************
  502. *** 479,490 ****
  503. --- 509,529 ----
  504.              continue;
  505.   
  506.        downdir:
  507. + #ifdef PATTERN_DEBUG
  508. +       fprintf(stderr, "do_match: downdir\n");
  509. + #endif
  510.         retval = push(&dirp, sizeof(DIR *));
  511.         if (retval) {
  512.              error("push");
  513.              (void) popall();
  514. + #ifdef PATTERN_DEBUG
  515. +            fprintf(stderr, "do_match: return 5.\n");
  516. + #endif
  517.              return retval;
  518.         }
  519. + #ifdef PATTERN_DEBUG
  520. +       fprintf(stderr, "do_match: pushing %s, %s, %s\n", first, rest, base);
  521. + #endif
  522.         string_push(first);
  523.         string_push(rest);
  524.         string_push(base);
  525. ***************
  526. *** 497,502 ****
  527. --- 536,544 ----
  528.                if (retval) {
  529.                     error("add_str");
  530.                     (void) popall();
  531. + #ifdef PATTERN_DEBUG
  532. +                   fprintf(stderr, "do_match: return 6.\n");
  533. + #endif
  534.                     return retval;
  535.                }
  536.                (*num_found)++;
  537. ***************
  538. *** 507,512 ****
  539. --- 549,557 ----
  540.               if (retval) {
  541.                error("add_str");
  542.                (void) popall();
  543. + #ifdef PATTERN_DEBUG
  544. +              fprintf(stderr, "do_match: return 7.\n");
  545. + #endif
  546.                return retval;
  547.               }
  548.               (*num_found)++;
  549. ***************
  550. *** 514,519 ****
  551. --- 559,568 ----
  552.              string_pop(base);
  553.              string_pop(rest);
  554.              string_pop(first);
  555. + #ifdef PATTERN_DEBUG
  556. +            fprintf(stderr, "do_match: popped %s, %s, %s\n", first,
  557. +                rest, base);
  558. + #endif
  559.              (void) pop(&dirp, sizeof(DIR *));
  560.              continue;
  561.         }
  562. ***************
  563. *** 527,532 ****
  564. --- 576,585 ----
  565.              string_pop(base);
  566.              string_pop(rest);
  567.              string_pop(first);
  568. + #ifdef PATTERN_DEBUG
  569. +            fprintf(stderr, "do_match: popped %s, %s, %s\n", first,
  570. +                rest, base);
  571. + #endif
  572.              (void) pop(&dirp, sizeof(DIR *));
  573.              continue;
  574.         }
  575. ***************
  576. *** 534,555 ****
  577. --- 587,631 ----
  578.              continue;
  579.   
  580.        updir:
  581. + #ifdef PATTERN_DEBUG
  582. +       fprintf(stderr, "do_match: updir\n");
  583. + #endif
  584.         closedir(dirp);
  585.         string_pop(base);
  586. + #ifdef PATTERN_DEBUG
  587. +       fprintf(stderr, "do_match: popped %s\n", base);
  588. + #endif
  589.         if (retval) {
  590.              if (retval != STACK_EMPTY) {
  591.               error("pop");
  592.               (void) popall();
  593. + #ifdef PATTERN_DEBUG
  594. +             fprintf(stderr, "do_match: return 8.\n");
  595. + #endif
  596.               return retval;
  597.              }
  598. + #ifdef PATTERN_DEBUG
  599. +            fprintf(stderr, "Returning %d word%s from do_match:\n",
  600. +                *num_found,
  601. +                *num_found == 1 ? "" : "s");
  602. +            for (j = 0; j < *num_found; j++)
  603. +             fprintf(stderr, "\t%s\n", (*found)[j]);
  604. +            fprintf(stderr, "do_match: return 9.\n");
  605. + #endif
  606.              return 0;
  607.         }
  608.         string_pop(rest);
  609.         string_pop(first);
  610. + #ifdef PATTERN_DEBUG
  611. +       fprintf(stderr, "do_match: popped %s, %s\n", rest, first);
  612. + #endif
  613.         retval = pop(&dirp, sizeof(DIR *));
  614.         if (retval) {
  615.              error("pop");
  616.              (void) popall();
  617. + #ifdef PATTERN_DEBUG
  618. +            fprintf(stderr, "do_match: return 10.\n");
  619. + #endif
  620.              return retval;
  621.         }
  622.         continue;
  623. *** /tmp/,RCSt1018921    Fri Jun  8 00:11:28 1990
  624. --- util.c    Thu Jun  7 19:17:42 1990
  625. ***************
  626. *** 11,25 ****
  627.    */
  628.   
  629.   #if (!defined(lint) && !defined(SABER))
  630. !      static char rcsid_util_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/util.c,v 1.15 90/01/11 03:47:11 jik Exp $";
  631.   #endif
  632.   
  633.   #include <stdio.h>
  634.   #include <sys/param.h>
  635.   #include <sys/types.h>
  636.   #include <sys/stat.h>
  637.   #include <sys/dir.h>
  638.   #include <strings.h>
  639.   #include <pwd.h>
  640.   #include <errno.h>
  641.   #ifdef AFS_MOUNTPOINTS
  642. --- 11,34 ----
  643.    */
  644.   
  645.   #if (!defined(lint) && !defined(SABER))
  646. !      static char rcsid_util_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/util.c,v 1.17 90/06/07 13:05:30 jik Exp $";
  647.   #endif
  648.   
  649.   #include <stdio.h>
  650.   #include <sys/param.h>
  651.   #include <sys/types.h>
  652. + #ifdef SYSV /* SYSV doesn't define uid_t */
  653. + typedef unsigned short uid_t;
  654. + #endif
  655.   #include <sys/stat.h>
  656.   #include <sys/dir.h>
  657. + #ifdef SYSV
  658. + #include <string.h>
  659. + #define index strchr
  660. + #define rindex strrchr
  661. + #else
  662.   #include <strings.h>
  663. + #endif /* SYSV */
  664.   #include <pwd.h>
  665.   #include <errno.h>
  666.   #ifdef AFS_MOUNTPOINTS
  667. *** /tmp/,RCSt1018928    Fri Jun  8 00:11:36 1990
  668. --- expunge.c    Thu Jun  7 19:17:30 1990
  669. ***************
  670. *** 11,17 ****
  671.    */
  672.   
  673.   #if (!defined(lint) && !defined(SABER))
  674. !      static char rcsid_expunge_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/expunge.c,v 1.13 89/12/28 14:45:15 jik Exp $";
  675.   #endif
  676.   
  677.   #include <stdio.h>
  678. --- 11,17 ----
  679.    */
  680.   
  681.   #if (!defined(lint) && !defined(SABER))
  682. !      static char rcsid_expunge_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/expunge.c,v 1.14 90/06/06 19:06:29 jik Exp $";
  683.   #endif
  684.   
  685.   #include <stdio.h>
  686. ***************
  687. *** 19,25 ****
  688. --- 19,31 ----
  689.   #include <sys/time.h>
  690.   #include <sys/dir.h>
  691.   #include <sys/param.h>
  692. + #ifdef SYSV
  693. + #include <string.h>
  694. + #define index strchr
  695. + #define rindex strrchr
  696. + #else
  697.   #include <strings.h>
  698. + #endif /* SYSV */
  699.   #include <sys/stat.h>
  700.   #include <com_err.h>
  701.   #include <errno.h>
  702. *** /tmp/,RCSt1018935    Fri Jun  8 00:11:43 1990
  703. --- lsdel.c    Thu Jun  7 22:31:48 1990
  704. ***************
  705. *** 11,17 ****
  706.    */
  707.   
  708.   #if (!defined(lint) && !defined(SABER))
  709. !      static char rcsid_lsdel_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/lsdel.c,v 1.9 89/11/22 21:31:08 jik Exp $";
  710.   #endif
  711.   
  712.   #include <stdio.h>
  713. --- 11,17 ----
  714.    */
  715.   
  716.   #if (!defined(lint) && !defined(SABER))
  717. !      static char rcsid_lsdel_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/lsdel.c,v 1.11 90/06/07 22:31:31 jik Exp $";
  718.   #endif
  719.   
  720.   #include <stdio.h>
  721. ***************
  722. *** 19,25 ****
  723. --- 19,34 ----
  724.   #include <sys/dir.h>
  725.   #include <sys/param.h>
  726.   #include <sys/stat.h>
  727. + #ifdef SYSV
  728. + #include <string.h>
  729. + #define index strchr
  730. + #define rindex strrchr
  731. + #else
  732.   #include <strings.h>
  733. + #endif /* SYSV */
  734. + #ifdef _AUX_SOURCE
  735. + extern char *strcmp();
  736. + #endif
  737.   #include <errno.h>
  738.   #include <com_err.h>
  739.   #include "col.h"
  740. *** /tmp/,RCSt1018942    Fri Jun  8 00:11:51 1990
  741. --- col.c    Thu Jun  7 19:17:24 1990
  742. ***************
  743. *** 11,17 ****
  744.    */
  745.   
  746.   #if (!defined(lint) && !defined(SABER))
  747. !      static char rcsid_col_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/col.c,v 1.6 89/11/22 21:24:21 jik Exp $";
  748.   #endif
  749.   
  750.   /*
  751. --- 11,17 ----
  752.    */
  753.   
  754.   #if (!defined(lint) && !defined(SABER))
  755. !      static char rcsid_col_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/col.c,v 1.7 90/06/06 19:05:56 jik Exp $";
  756.   #endif
  757.   
  758.   /*
  759. ***************
  760. *** 21,27 ****
  761. --- 21,33 ----
  762.    */
  763.   
  764.   #include <stdio.h>
  765. + #ifdef SYSV
  766. + #include <string.h>
  767. + #define index strchr
  768. + #define rindex strrchr
  769. + #else
  770.   #include <strings.h>
  771. + #endif /* SYSV */
  772.   #include "errors.h"
  773.   #include "delete_errs.h"
  774.   #include "col.h"
  775. *** /tmp/,RCSt1018963    Fri Jun  8 00:12:07 1990
  776. --- stack.c    Thu Jun  7 22:35:00 1990
  777. ***************
  778. *** 11,17 ****
  779.    */
  780.   
  781.   #if (!defined(lint) && !defined(SABER))
  782. !      static char rcsid_stack_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/stack.c,v 1.5 89/12/11 03:32:37 jik Exp $";
  783.   #endif
  784.   
  785.   #include <sys/types.h>
  786. --- 11,17 ----
  787.    */
  788.   
  789.   #if (!defined(lint) && !defined(SABER))
  790. !      static char rcsid_stack_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/RCS/stack.c,v 1.7 90/06/07 22:34:48 jik Exp $";
  791.   #endif
  792.   
  793.   #include <sys/types.h>
  794. ***************
  795. *** 36,42 ****
  796.   {
  797.        static caddr_t stack = (caddr_t) NULL;
  798.        static int size = 0, count = 0;
  799. ! 
  800.        switch (op) {
  801.        case EMPTY_STACK:
  802.         if (size) {
  803. --- 36,42 ----
  804.   {
  805.        static caddr_t stack = (caddr_t) NULL;
  806.        static int size = 0, count = 0;
  807. !      
  808.        switch (op) {
  809.        case EMPTY_STACK:
  810.         if (size) {
  811. ***************
  812. *** 44,53 ****
  813.              stack = (caddr_t) NULL;
  814.              size = count = 0;
  815.         }
  816.         return 0;
  817.        case STACK_PUSH:
  818. !       if (bytes == 0)
  819.              return 0;
  820.         if (size - count < bytes) {
  821.              do
  822.               size += STACK_INC;
  823. --- 44,61 ----
  824.              stack = (caddr_t) NULL;
  825.              size = count = 0;
  826.         }
  827. + #ifdef STACK_DEBUG
  828. +       fprintf(stderr, "dostack: return 1 (EMPTY_STACK).\n");
  829. + #endif
  830.         return 0;
  831.        case STACK_PUSH:
  832. !       if (bytes == 0) {
  833. ! #ifdef STACK_DEBUG
  834. !            fprintf(stderr, "Pushing 0 bytes at %d offset.\n", count);
  835. !            fprintf(stderr, "dostack: return 2 (STACK_PUSH).\n");
  836. ! #endif
  837.              return 0;
  838. +       }
  839.         if (size - count < bytes) {
  840.              do
  841.               size += STACK_INC;
  842. ***************
  843. *** 59,75 ****
  844.               size = count = 0;
  845.               set_error(errno);
  846.               error("Malloc");
  847.               return error_code;
  848.              }
  849.         }
  850.         bcopy(data, stack + count, bytes);
  851.         count += bytes;
  852.         return 0;
  853.        case STACK_POP:
  854. !       if (bytes == 0)
  855.              return 0;
  856.         if (count == 0) {
  857.              set_status(STACK_EMPTY);
  858.              return error_code;
  859.         }
  860.         else {
  861. --- 67,104 ----
  862.               size = count = 0;
  863.               set_error(errno);
  864.               error("Malloc");
  865. + #ifdef STACK_DEBUG
  866. +             fprintf(stderr, "dostack: return 3 (STACK_PUSH).\n");
  867. + #endif
  868.               return error_code;
  869.              }
  870.         }
  871. + #ifdef STACK_DEBUG
  872. +       fprintf(stderr, "Pushing %d bytes at %d offset.\n", bytes, count);
  873. + #endif
  874. + #if defined(SYSV) || (defined(__STDC__) && !defined(__HIGHC__))
  875. +       memcpy(stack + count, data, bytes);
  876. + #else
  877.         bcopy(data, stack + count, bytes);
  878. + #endif
  879.         count += bytes;
  880. + #ifdef STACK_DEBUG
  881. +       fprintf(stderr, "dostack: return 4 (STACK_PUSH).\n");
  882. + #endif
  883.         return 0;
  884.        case STACK_POP:
  885. !       if (bytes == 0) {
  886. ! #ifdef STACK_DEBUG
  887. !            fprintf(stderr, "Popping 0 bytes at %d offset.\n", count);
  888. !            fprintf(stderr, "dostack: return 5 (STACK_POP).\n");
  889. ! #endif
  890.              return 0;
  891. +       }
  892.         if (count == 0) {
  893.              set_status(STACK_EMPTY);
  894. + #ifdef STACK_DEBUG
  895. +            fprintf(stderr, "dostack: return 6 (STACK_POP).\n");
  896. + #endif
  897.              return error_code;
  898.         }
  899.         else {
  900. ***************
  901. *** 76,82 ****
  902. --- 105,119 ----
  903.              int newblocks, newsize;
  904.   
  905.              count -= bytes;
  906. + #ifdef STACK_DEBUG
  907. +            fprintf(stderr, "Popping %d bytes at %d offset.\n", bytes,
  908. +                count);
  909. + #endif
  910. + #if defined(SYSV) || (defined(__STDC__) && !defined(__HIGHC__))
  911. +            memcpy(data, stack + count, bytes);
  912. + #else
  913.              bcopy(stack + count, data, bytes);
  914. + #endif
  915.              newblocks = count / STACK_INC + ((count % STACK_INC) ? 1 : 0);
  916.              newsize = newblocks * STACK_INC;
  917.              if (newsize < size) {
  918. ***************
  919. *** 85,97 ****
  920. --- 122,143 ----
  921.               if (! stack) {
  922.                set_error(errno);
  923.                error("realloc");
  924. + #ifdef STACK_DEBUG
  925. +              fprintf(stderr, "dostack: return 7 (STACK_POP).\n");
  926. + #endif
  927.                return error_code;
  928.               }
  929.              }
  930. + #ifdef STACK_DEBUG
  931. +            fprintf(stderr, "dostack: return 8 (STACK_POP).\n");
  932. + #endif
  933.              return 0;
  934.         }
  935.        default:
  936.         set_error(STACK_BAD_OP);
  937. + #ifdef STACK_DEBUG
  938. +       fprintf(stderr, "dostack: return 9.\n");
  939. + #endif
  940.         return error_code;
  941.        }
  942.   }
  943.