home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume24 / pucc-lib / part02 < prev    next >
Text File  |  1991-03-19  |  56KB  |  2,183 lines
  1. Subject:  v24i056:  Library for Purdue University Computing Center tools, Part02/02
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: 6a410d43 45c1ef42 fc0d9542 6c60aeb0
  5.  
  6. Submitted-by: Kevin Braunsdorf <ksb@cc.purdue.edu>
  7. Posting-number: Volume 24, Issue 56
  8. Archive-name: pucc-lib/part02
  9.  
  10. #!/bin/sh
  11. # This is part 02 of pucc-1a
  12. # ============= maketd/main.c ==============
  13. if test ! -d 'maketd'; then
  14.     echo 'x - creating directory maketd'
  15.     mkdir 'maketd'
  16. fi
  17. if test -f 'maketd/main.c' -a X"$1" != X"-c"; then
  18.     echo 'x - skipping maketd/main.c (File already exists)'
  19. else
  20. echo 'x - extracting maketd/main.c (Text)'
  21. sed 's/^X//' << 'Purdue' > 'maketd/main.c' &&
  22. /*
  23. X * machine generated cmd line parser
  24. X */
  25. #include "machine.h"
  26. X
  27. #include <stdio.h>
  28. #include "getopt.h"
  29. X
  30. char
  31. X    RCSId[] = "$Id: main.c,v 4.8 90/07/02 15:10:43 ksb Exp $",
  32. X    *progname = RCSId,
  33. X    uline[] = " [-4CabcdfhlnrvVx] [-D define] [-I includedir] [-L lib.a] [-U undefine] [-j extender] [-m makefile] [-o dir] [-s suffix] [-t target] [files]",
  34. X    *help[] = {
  35. X        "4            use m4 to generate dependencies",
  36. X        "C            cancel all cpp flags",
  37. X        "D define     specify defines, as in /lib/cpp",
  38. #if 0
  39. X        "E            set no explicit rule",
  40. X        "F cmd        provide a shell command to generate depends",
  41. #endif
  42. X        "I includedir specify include directory, as in /lib/cpp",
  43. X        "L lib.a      specify a library to contain targets",
  44. X        "U undefine   specify undefines, as in /lib/cpp",
  45. X        "V            show which version of maketd is running",
  46. X        "a            do all dependencies, including /usr/include",
  47. X        "b            generate binary, rather than object related dependencies",
  48. X        "c            use cpp to generate dependencies",
  49. X        "d            dependencies to stdout, rather than Makefile",
  50. #if 0
  51. X        "e rule       force an explicit rule",
  52. #endif
  53. X        "f            force header/trailer (use with -d)",
  54. X        "h            print this help message",
  55. X        "j extender   supply a new extender for old makefile",
  56. X        "l            targets live in current Makefiles directory, turn off -n",
  57. X        "m makefile   specify makefile for update",
  58. X        "n            targets live in their source directory",
  59. X        "o dir        prepend DIR to target: DIR/a.o: foo.h",
  60. X        "r            replace dependencies for targets",
  61. X        "s suffix     change suffix target's suffix: a.suffix: foo.h",
  62. X        "t target     change target's basename: target.o: foo.h",
  63. X        "v            print extra verbose (debug) output to stderr",
  64. X        "x            don't abbreviate includes",
  65. X        "files        C source files to process for depends",
  66. X        (char *)0
  67. X    };
  68. int
  69. X    alldep = 0,
  70. X    use_stdout = 0,
  71. X    force_head = 0;
  72. char
  73. X    *explicit = (char *)0,
  74. X    *exten = (char *)0,
  75. X    *inlib = (char *)0,
  76. X    *makename = (char *)0;
  77. int
  78. X    replace = 0,
  79. X    verbose = 0,
  80. X    shortincl = 1;
  81. X
  82. /*
  83. X * a usage function
  84. X */
  85. int
  86. usage(curopt)
  87. int curopt;
  88. {
  89. X    register char **ppch;
  90. X
  91. X    fprintf(stderr, "%s: usage%s\n", progname, uline);
  92. X    if ('h' != curopt)
  93. X        return;
  94. X    for (ppch = help; (char *)0 != *ppch; ++ppch)
  95. X        printf("%s\n", *ppch);
  96. }
  97. X
  98. /*
  99. X * parser
  100. X */
  101. int
  102. main(argc, argv)
  103. int argc;
  104. char **argv;
  105. {
  106. X    static char sbOpt[] = "4CD:EF:L:I:U:abcde:fhj:lm:no:rs:t:vVx";
  107. X    register int curopt;
  108. X    extern char *strrchr();
  109. X
  110. X    progname = strrchr(argv[0], '/');
  111. X    if ((char *)0 == progname)
  112. X        progname = argv[0];
  113. X    else
  114. X        ++progname;
  115. X
  116. X    DoInit();
  117. X    for (;;) {
  118. X        if (EOF != (curopt = getopt(argc, argv, sbOpt))) {
  119. X            /* fallthrough */;
  120. X        } else if (EOF != getarg(argc, argv)) {
  121. X            FileArgs(optarg);
  122. X            continue;
  123. X        } else {
  124. X            break;
  125. X        }
  126. X        switch (curopt) {
  127. X        case BADARG:
  128. X            fprintf(stderr, "%s: option %c needs an argument\n", progname, optopt);
  129. X            exit(1);
  130. X            break;
  131. X        case '4':
  132. X            SetPP(1);
  133. X            break;
  134. X        case 'C':
  135. X            SetCPPFlags(curopt, (char *)0);
  136. X            break;
  137. X        case 'D':
  138. X            SetCPPFlags(curopt, optarg);
  139. X            break;
  140. X        case 'E':
  141. X            explicit = (char *)0;
  142. X            break;
  143. X        case 'F':
  144. X            UserFilter(optarg);
  145. X            break;
  146. X        case 'I':
  147. X            SetCPPFlags(curopt, optarg);
  148. X            break;
  149. X        case 'L':
  150. X            inlib = '\000' == optarg[0] ? (char *)0 : optarg;
  151. X            break;
  152. X        case 'U':
  153. X            SetCPPFlags(curopt, optarg);
  154. X            break;
  155. X        case 'a':
  156. X            alldep = 1;
  157. X            break;
  158. X        case 'b':
  159. X            SetSuffix(curopt, (char *)0);
  160. X            break;
  161. X        case 'c':
  162. X            SetPP(0);
  163. X            break;
  164. X        case 'd':
  165. X            use_stdout = 1;
  166. X            break;
  167. X        case 'e':
  168. X            explicit = '\000' == optarg[0] ? (char *)0 : optarg;
  169. X            break;
  170. X        case 'f':
  171. X            force_head = 1;
  172. X            break;
  173. X        case BADCH:
  174. X        case 'h':
  175. X            usage(curopt);
  176. X            exit(curopt != 'h');
  177. X            break;
  178. X        case 'j':
  179. X            exten = optarg;
  180. X            break;
  181. X        case 'l':
  182. X            SetLocalO(0);
  183. X            break;
  184. X        case 'm':
  185. X            makename = optarg;
  186. X            break;
  187. X        case 'n':
  188. X            SetLocalO(1);
  189. X            break;
  190. X        case 'o':
  191. X            SetObjPath(optarg);
  192. X            break;
  193. X        case 'r':
  194. X            replace = 1;
  195. X            break;
  196. X        case 's':
  197. X            SetSuffix(curopt, optarg);
  198. X            break;
  199. X        case 't':
  200. X            SetTargetName(optarg);
  201. X            break;
  202. X        case 'v':
  203. X            verbose = 1;
  204. X            break;
  205. X        case 'V':
  206. X            printf("%s: %s\n", progname, RCSId);
  207. X            exit(0);
  208. X        case 'x':
  209. X            shortincl = 0;
  210. X            break;
  211. X        }
  212. X    }
  213. X    MakeTD();
  214. X
  215. X    exit(0);
  216. }
  217. Purdue
  218. chmod 0444 maketd/main.c ||
  219. echo 'restore of maketd/main.c failed'
  220. Wc_c="`wc -c < 'maketd/main.c'`"
  221. test 4235 -eq "$Wc_c" ||
  222.     echo 'maketd/main.c: original size 4235, current size' "$Wc_c"
  223. fi
  224. # ============= maketd/M4.patch ==============
  225. if test -f 'maketd/M4.patch' -a X"$1" != X"-c"; then
  226.     echo 'x - skipping maketd/M4.patch (File already exists)'
  227. else
  228. echo 'x - extracting maketd/M4.patch (Text)'
  229. sed 's/^X//' << 'Purdue' > 'maketd/M4.patch' &&
  230. *** /tmp/,RCSt1021406    Fri Dec 18 14:39:34 1987
  231. --- m4.c    Tue Jun 30 01:03:10 1987
  232. ***************
  233. *** 11,17
  234. X   */
  235. X  
  236. X  #ifndef lint
  237. ! static char rcsid[] = "$Header: /usr/src/dynix/src/usr.bin/m4/RCS/m4.c,v 2.0.1.1 87/01/05 00:28:14 root Dist $";
  238. X  #endif
  239. X  
  240. X  #include <stdio.h>
  241. X
  242. --- 11,17 -----
  243. X   */
  244. X  
  245. X  #ifndef lint
  246. ! static char rcsid[] = "$Header: /usr/src/dynix/src/usr.bin/m4/RCS/m4.c,v 2.0.1.2 87/06/30 01:02:32 doc Exp $";
  247. X  #endif
  248. X  
  249. X  #include <stdio.h>
  250. ***************
  251. *** 49,54
  252. X  
  253. X  #define    putbak(c)    *ip++ = c;
  254. X  #define    getchr()    (ip>cur_ip?*--ip: getc(infile[infptr]))
  255. X  #define    putchr(c)    if (cp==NULL) {if (curfile)putc(c,curfile);} else *op++ = c
  256. X  char    type[] = {
  257. X      0,    0,    0,    0,    0,    0,    0,    0,
  258. X
  259. --- 49,57 -----
  260. X  
  261. X  #define    putbak(c)    *ip++ = c;
  262. X  #define    getchr()    (ip>cur_ip?*--ip: getc(infile[infptr]))
  263. + #ifdef MAKETD
  264. + #define    putchr(c)    if (NULL==cp) {if (0 == makedepend && curfile)putc(c,curfile);} else *op++ = c
  265. + #else  MAKETD
  266. X  #define    putchr(c)    if (cp==NULL) {if (curfile)putc(c,curfile);} else *op++ = c
  267. X  #endif MAKETD
  268. X  
  269. ***************
  270. *** 50,55
  271. X  #define    putbak(c)    *ip++ = c;
  272. X  #define    getchr()    (ip>cur_ip?*--ip: getc(infile[infptr]))
  273. X  #define    putchr(c)    if (cp==NULL) {if (curfile)putc(c,curfile);} else *op++ = c
  274. X  char    type[] = {
  275. X      0,    0,    0,    0,    0,    0,    0,    0,
  276. X      0,    0,    0,    0,    0,    0,    0,    0,
  277. X
  278. --- 53,60 -----
  279. X  #define    putchr(c)    if (NULL==cp) {if (0 == makedepend && curfile)putc(c,curfile);} else *op++ = c
  280. X  #else  MAKETD
  281. X  #define    putchr(c)    if (cp==NULL) {if (curfile)putc(c,curfile);} else *op++ = c
  282. + #endif MAKETD
  283. + 
  284. X  char    type[] = {
  285. X      0,    0,    0,    0,    0,    0,    0,    0,
  286. X      0,    0,    0,    0,    0,    0,    0,    0,
  287. ***************
  288. *** 130,135
  289. X  FILE    *curfile = { stdout };
  290. X  FILE    *infile[10] = { stdin };
  291. X  int    infptr    = 0;
  292. X  
  293. X  main(argc, argv)
  294. X  char **argv;
  295. X
  296. --- 135,156 -----
  297. X  FILE    *curfile = { stdout };
  298. X  FILE    *infile[10] = { stdin };
  299. X  int    infptr    = 0;
  300. + #ifdef MAKETD
  301. + #include <sys/param.h>
  302. + int    makedepend = 0;
  303. + char    curfilename[MAXPATHLEN + 1];
  304. + newputc(x,c)
  305. + char x;
  306. + FILE *c;
  307. + {
  308. +     if (0 == makedepend)
  309. +         putc(x,c);
  310. + }
  311. + #undef putc
  312. + #define putc(x, c)    newputc(x, c)
  313. + #undef putchar
  314. + #define putchar(x)    newputc(x, stdin)
  315. + #endif MAKETD
  316. X  
  317. X  main(argc, argv)
  318. X  char **argv;
  319. ***************
  320. *** 219,224
  321. X  #ifdef gcos
  322. X      tempname = "m4.tempa";
  323. X  #endif
  324. X      if (argc>1)
  325. X          putbak(0);
  326. X      for (;;) {
  327. X
  328. --- 240,252 -----
  329. X  #ifdef gcos
  330. X      tempname = "m4.tempa";
  331. X  #endif
  332. + #ifdef MAKETD
  333. +     if (0 == strcmp("-M", argv[1])) {
  334. +         argc--;
  335. +         argv++;
  336. +         makedepend++;
  337. +     }
  338. + #endif MAKETD
  339. X      if (argc>1)
  340. X          putbak(0);
  341. X      for (;;) {
  342. ***************
  343. *** 243,248
  344. X              else if ((infile[infptr]=fopen(argv[0], READ))==ERROR) {
  345. X                  fprintf(stderr, "m4: file not found: %s\n", argv[0]);
  346. X                  delexit();
  347. X              }
  348. X              continue;
  349. X          }
  350. X
  351. --- 271,281 -----
  352. X              else if ((infile[infptr]=fopen(argv[0], READ))==ERROR) {
  353. X                  fprintf(stderr, "m4: file not found: %s\n", argv[0]);
  354. X                  delexit();
  355. +             } 
  356. + #ifdef MAKETD
  357. +             else if (0 != makedepend) {
  358. +                 strcpy(curfilename, argv[0]);
  359. +                 printf("%s: %s\n", curfilename, curfilename);
  360. X              }
  361. X  #endif MAKETD
  362. X                  
  363. ***************
  364. *** 244,249
  365. X                  fprintf(stderr, "m4: file not found: %s\n", argv[0]);
  366. X                  delexit();
  367. X              }
  368. X              continue;
  369. X          }
  370. X          if (type[t]==ALPH) {
  371. X
  372. --- 277,284 -----
  373. X                  strcpy(curfilename, argv[0]);
  374. X                  printf("%s: %s\n", curfilename, curfilename);
  375. X              }
  376. + #endif MAKETD
  377. +                 
  378. X              continue;
  379. X          }
  380. X          if (type[t]==ALPH) {
  381. ***************
  382. *** 671,676
  383. X  doincl(ap, c, noisy)
  384. X  char **ap;
  385. X  {
  386. X      if (c > 0 && strlen(ap[1]) > 0) {
  387. X          infptr++;
  388. X          ip_stk[infptr] = cur_ip = ip;
  389. X
  390. --- 706,716 -----
  391. X  doincl(ap, c, noisy)
  392. X  char **ap;
  393. X  {
  394. + #ifdef MAKETD
  395. +     if (0 != makedepend) {
  396. +         printf("%s: %s\n",curfilename, ap[1]);
  397. +     }
  398. + #endif MAKETD
  399. X      if (c > 0 && strlen(ap[1]) > 0) {
  400. X          infptr++;
  401. X          ip_stk[infptr] = cur_ip = ip;
  402. Purdue
  403. chmod 0444 maketd/M4.patch ||
  404. echo 'restore of maketd/M4.patch failed'
  405. Wc_c="`wc -c < 'maketd/M4.patch'`"
  406. test 3826 -eq "$Wc_c" ||
  407.     echo 'maketd/M4.patch: original size 3826, current size' "$Wc_c"
  408. fi
  409. # ============= libopt/Makefile ==============
  410. if test ! -d 'libopt'; then
  411.     echo 'x - creating directory libopt'
  412.     mkdir 'libopt'
  413. fi
  414. if test -f 'libopt/Makefile' -a X"$1" != X"-c"; then
  415.     echo 'x - skipping libopt/Makefile (File already exists)'
  416. else
  417. echo 'x - extracting libopt/Makefile (Text)'
  418. sed 's/^X//' << 'Purdue' > 'libopt/Makefile' &&
  419. # Makefile for libopt.a        (Kevin Braunsdorf Feb 1987)
  420. #
  421. # for 
  422. #2.9 bsd
  423. # DEFS= -DBSD2.9
  424. # LDFLAGS= -i
  425. X
  426. LIB=    ${DESTDIR}/usr/local/lib
  427. INCL=    ${DESTDIR}/usr/include/local
  428. NAME=libopt.a
  429. X
  430. I=/usr/include
  431. S=/usr/include/sys
  432. P=
  433. X
  434. INCLUDE=
  435. DEBUG=    -O
  436. DEFS=
  437. #DEFS=    -D"strchr=index"
  438. CFLAGS=    ${DEBUG} ${DEFS} ${INCLUDE}
  439. LDFLAGS=
  440. X
  441. HDR=    getopt.h
  442. SRC=    getopt.c getarg.c rescan.c envopt.c
  443. OBJ=    getopt.o getarg.o rescan.o envopt.o
  444. MAN=    libopt.3l
  445. SOURCE=    Makefile README ${MAN} ${SRC} ${HDR}
  446. X
  447. all: ${NAME} getopt.h
  448. X
  449. ${NAME}:$P ${OBJ}
  450. X    ar rc ${NAME} ${OBJ}
  451. X
  452. clean: FRC
  453. X    rm -f Makefile.bak ${NAME} *.o errs a.out core lint.out
  454. X
  455. deinstall: ${MAN}
  456. X    install -D ${LIB}/${NAME}
  457. X    mkcat -R ${MAN}
  458. X
  459. depend: ${HDR} ${SRC} FRC
  460. X    maketd -a ${CDEFS} ${INCLUDE} ${SRC}
  461. X
  462. install: all FRC
  463. X    install -cl -m 644 ${NAME} ${LIB}/${NAME}
  464. X    install -c -m 644  getopt.h ${INCL}/getopt.h
  465. X
  466. lint: ${SRC} ${HDR}
  467. X    lint -h ${SRC}
  468. X
  469. mkcat: ${MAN}
  470. X    mkcat ${MAN}
  471. X
  472. print: source FRC
  473. X    lpr -J"getopt library" ${SOURCE}
  474. X
  475. source: ${SOURCE}
  476. X    
  477. spotless: clean
  478. X    rcsclean ${SOURCE}
  479. X
  480. tags: ${HDR} ${SRC}
  481. X    ctags -at ${HDR} ${SRC}
  482. X
  483. ${SOURCE}:
  484. X    co -q $@
  485. X
  486. FRC:
  487. X
  488. # DO NOT DELETE THIS LINE - make depend DEPENDS ON IT
  489. X
  490. getopt.o: $I/stdio.h getopt.c getopt.h
  491. X
  492. getarg.o: $I/stdio.h getarg.c getopt.h
  493. X
  494. rescan.o: $I/stdio.h getopt.h rescan.c
  495. X
  496. envopt.o: $I/stdio.h envopt.c getopt.h
  497. X
  498. # *** Do not add anything here - It will go away. ***
  499. Purdue
  500. chmod 0644 libopt/Makefile ||
  501. echo 'restore of libopt/Makefile failed'
  502. Wc_c="`wc -c < 'libopt/Makefile'`"
  503. test 1360 -eq "$Wc_c" ||
  504.     echo 'libopt/Makefile: original size 1360, current size' "$Wc_c"
  505. fi
  506. # ============= libopt/README ==============
  507. if test -f 'libopt/README' -a X"$1" != X"-c"; then
  508.     echo 'x - skipping libopt/README (File already exists)'
  509. else
  510. echo 'x - extracting libopt/README (Text)'
  511. sed 's/^X//' << 'Purdue' > 'libopt/README' &&
  512. This package allows all out PUCC local command to read their name
  513. (in upper case) as a list of additional options to parse.  We have
  514. found this works out quite well in general.  You do have to watch
  515. out for Sun's make and for scripts getting the user's values.
  516. X
  517. Life is like that.
  518. X
  519. X
  520. If you install the header file in /usr/include/local and the library
  521. in some lib dir that ld searches by deafult you should be set.  You
  522. will have to change the L= macro in all the Makefiles.
  523. X
  524. If you don't wanna install it just type
  525. X    make
  526. X
  527. and the other tools will use ../libopt as the L= dir and the source for
  528. the library.
  529. X
  530. kayessbee
  531. Purdue
  532. chmod 0644 libopt/README ||
  533. echo 'restore of libopt/README failed'
  534. Wc_c="`wc -c < 'libopt/README'`"
  535. test 619 -eq "$Wc_c" ||
  536.     echo 'libopt/README: original size 619, current size' "$Wc_c"
  537. fi
  538. # ============= libopt/getopt.c ==============
  539. if test -f 'libopt/getopt.c' -a X"$1" != X"-c"; then
  540.     echo 'x - skipping libopt/getopt.c (File already exists)'
  541. else
  542. echo 'x - extracting libopt/getopt.c (Text)'
  543. sed 's/^X//' << 'Purdue' > 'libopt/getopt.c' &&
  544. /* @(#)getopt.c
  545. X * based on Keith Bostic's getopt in comp.sources.unix volume1
  546. X */
  547. X
  548. #ifdef pdp11
  549. #include <sys/types.h>
  550. #endif
  551. #include <stdio.h>
  552. X
  553. #include "getopt.h"
  554. X
  555. /*
  556. X * get option letter from argument vector
  557. X */
  558. int
  559. X    optind = 1,        /* index into parent argv vector    */
  560. X    optsil = 1,        /* be silent on errors            */
  561. X    optopt,            /* character checked for validity    */
  562. X    _eargc;            /* scan before args line        */
  563. char    *optarg,        /* argument associated with option    */
  564. X    **_eargv =        /* scan before args line        */
  565. X        (char **)0;
  566. X
  567. static void
  568. tell(a,s)
  569. char *a, *s;
  570. {
  571. X    fputs(a,stderr);
  572. X    fputs(s,stderr);
  573. X    fputc(optopt,stderr);
  574. X    fputc('\n',stderr);
  575. }
  576. X
  577. int
  578. getopt(nargc, nargv, ostr)
  579. int nargc;
  580. char **nargv, *ostr;
  581. {
  582. X    extern char    *strchr();
  583. X    register char    *oli;        /* option letter list index    */
  584. X    static char    EMSG[] = "";    /* just a null place        */
  585. X    static char    *place = EMSG;    /* option letter processing    */
  586. X
  587. X    if ((char **)0 != _eargv) {
  588. X        if (optind < _eargc) {
  589. X            nargv = _eargv;
  590. X            nargc = _eargc;
  591. X        } else {
  592. X            _eargv = (char **)0;
  593. X            optind = 1;
  594. X        }
  595. X    }
  596. X    if ('\000' == *place) {        /* update scanning pointer */
  597. X        if (optind >= nargc || nargv[optind][0] != '-')
  598. X            return EOF;
  599. X        place = nargv[optind];
  600. X        if ('\000' == *++place)    /* "-" (stdin)        */
  601. X            return EOF;
  602. X        if (*place == '-') {    /* found "--"        */
  603. X            ++optind;
  604. X            return EOF;
  605. X        }
  606. X    }                /* option letter okay? */
  607. X    if ((optopt = (int)*place++) == (int)':' || !(oli = strchr(ostr,optopt))) {
  608. X        if(!*place) ++optind;
  609. X        if (! optsil) tell(*nargv, ": illegal option -- ");
  610. X        return(BADCH);
  611. X    }
  612. X    if (*++oli != ':') {        /* don't need argument */
  613. X        optarg = NULL;
  614. X        if (!*place)
  615. X            ++optind;
  616. X    } else {                /* need an argument */
  617. X        if (*place) {            /* no white space */
  618. X            optarg = place;
  619. X        } else if (nargc <= ++optind) {    /* no arg */
  620. X            place = EMSG;
  621. X            if (! optsil) tell(*nargv, ": option requires an argument -- ");
  622. X            return(BADARG);
  623. X        } else {
  624. X            optarg = nargv[optind];    /* white space */
  625. X        }
  626. X        place = EMSG;
  627. X        ++optind;
  628. X    }
  629. X    return optopt;            /* dump back option letter */
  630. }
  631. Purdue
  632. chmod 0444 libopt/getopt.c ||
  633. echo 'restore of libopt/getopt.c failed'
  634. Wc_c="`wc -c < 'libopt/getopt.c'`"
  635. test 1999 -eq "$Wc_c" ||
  636.     echo 'libopt/getopt.c: original size 1999, current size' "$Wc_c"
  637. fi
  638. # ============= libsrtunq/Makefile ==============
  639. if test ! -d 'libsrtunq'; then
  640.     echo 'x - creating directory libsrtunq'
  641.     mkdir 'libsrtunq'
  642. fi
  643. if test -f 'libsrtunq/Makefile' -a X"$1" != X"-c"; then
  644.     echo 'x - skipping libsrtunq/Makefile (File already exists)'
  645. else
  646. echo 'x - extracting libsrtunq/Makefile (Text)'
  647. sed 's/^X//' << 'Purdue' > 'libsrtunq/Makefile' &&
  648. # Copyright 1990 Purdue Research Foundation, West Lafayette, Indiana
  649. # 47907.  All rights reserved.
  650. #
  651. # Written by Jeff Smith, jsmith@cc.purdue.edu, purdue!jsmith
  652. #
  653. # This software is not subject to any license of the American Telephone
  654. # and Telegraph Company or the Regents of the University of California.
  655. #
  656. # Permission is granted to anyone to use this software for any purpose on
  657. # any computer system, and to alter it and redistribute it freely, subject
  658. # to the following restrictions:
  659. #
  660. # 1. Neither the authors nor Purdue University are responsible for any
  661. #    consequences of the use of this software.
  662. #
  663. # 2. The origin of this software must not be misrepresented, either by
  664. #    explicit claim or by omission.  Credit to the authors and Purdue
  665. #    University must appear in documentation and sources.
  666. #
  667. # 3. Altered versions must be plainly marked as such, and must not be
  668. #    misrepresented as being the original software.
  669. #
  670. # 4. This notice may not be removed or altered.
  671. #
  672. # Makefile for libsrtunq.a, DO NOT assume explode(1L)
  673. #
  674. # $Id: Makefile,v 2.4 90/11/29 08:00:34 ksb Exp $
  675. #
  676. X
  677. DEST= ${DESTDIR}/usr/local/lib
  678. HEADER= ${DESTDIR}/usr/include/local
  679. NAME=libsrtunq.a
  680. X
  681. I=/usr/include
  682. S=/usr/include/sys
  683. P=
  684. X
  685. # for 2.9 bsd
  686. # LDFLAGS= -i
  687. # CDEFS= -DBSD2.9
  688. LDFLAGS=
  689. INCLUDE= 
  690. CDEFS=
  691. DEBUG= -O
  692. CFLAGS= ${DEBUG} ${CDEFS} ${INCLUDE}
  693. X
  694. HDR=    srtunq.h
  695. SRC=    srtapply.c srtdel.c srtdtree.c srtfree.c srtgets.c srtgti.c srtin.c \
  696. X    srtinit.c srtmem.c
  697. DEP=    ${SRC}
  698. OBJ=    srtapply.o srtdel.o srtdtree.o srtfree.o srtgets.o srtgti.o srtin.o \
  699. X    srtinit.o srtmem.o
  700. MAN=    libsrtunq.3l
  701. SOURCE=    Makefile README ${HDR} ${SRC}
  702. X
  703. all:$P srtunq.h ${NAME}
  704. X
  705. ${NAME}:$P ${OBJ}
  706. X    ar rc ${NAME} ${OBJ}
  707. X
  708. clean: FRC
  709. X    rm -f Makefile.bak *.o ${GEN} ${NAME} a.out core errs lint.out
  710. X
  711. deinstall: ${MAN}
  712. X    install -D ${DEST}/${NAME}
  713. X    mkcat -R ${MAN}
  714. X
  715. depend: ${HDR} ${SRC} ${GEN} FRC
  716. X    maketd -a ${CDEFS} ${INCLUDE} ${DEP}
  717. X
  718. install: all FRC
  719. X    install -cl -m 644 ${NAME} ${DEST}/${NAME}
  720. X    install -cm 644 srtunq.h ${HEADER}/srtunq.h
  721. X
  722. lint: ${HDR} ${SRC} ${GEN} FRC
  723. X    lint -h ${CDEFS} ${INCLUDE} ${DEP}
  724. X
  725. mkcat: ${MAN}
  726. X    mkcat ${MAN}
  727. X
  728. source: ${SOURCE}
  729. X    
  730. spotless: clean
  731. X    rcsclean ${SOURCE}
  732. X
  733. tags: ${HDR} ${SRC} ${GEN}
  734. X    ctags -at ${HDR} ${SRC} ${GEN}
  735. X
  736. ${HDR} ${SRC}:
  737. X    co -q $@
  738. X
  739. FRC:
  740. X
  741. # DO NOT DELETE THIS LINE - maketd DEPENDS ON IT
  742. X
  743. srtapply.o: $I/stdio.h $S/types.h srtapply.c srtunq.h
  744. X
  745. srtdtree.o: $I/stdio.h $S/types.h srtdtree.c srtunq.h
  746. X
  747. srtfree.o: $I/stdio.h $S/types.h srtfree.c srtunq.h
  748. X
  749. srtgets.o: $I/stdio.h $S/types.h srtgets.c srtunq.h
  750. X
  751. srtgti.o: $I/stdio.h $S/types.h srtgti.c srtunq.h
  752. X
  753. srtin.o: $I/errno.h $I/stdio.h $S/types.h srtin.c srtunq.h
  754. X
  755. srtinit.o: $I/stdio.h $S/types.h srtinit.c srtunq.h
  756. X
  757. srtmem.o: $I/errno.h $I/stdio.h $S/types.h srtmem.c srtunq.h
  758. X
  759. # *** Do not add anything here - It will go away. ***
  760. Purdue
  761. chmod 0644 libsrtunq/Makefile ||
  762. echo 'restore of libsrtunq/Makefile failed'
  763. Wc_c="`wc -c < 'libsrtunq/Makefile'`"
  764. test 2793 -eq "$Wc_c" ||
  765.     echo 'libsrtunq/Makefile: original size 2793, current size' "$Wc_c"
  766. fi
  767. # ============= libsrtunq/srtdel.c ==============
  768. if test -f 'libsrtunq/srtdel.c' -a X"$1" != X"-c"; then
  769.     echo 'x - skipping libsrtunq/srtdel.c (File already exists)'
  770. else
  771. echo 'x - extracting libsrtunq/srtdel.c (Text)'
  772. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtdel.c' &&
  773. /* Sorting function that inserts strings one at a time into memory.
  774. X * Strings are null terminated.
  775. X * Only uniq strings are stored (no count is kept of how many)
  776. X * Any memory used is freed on init (or re-init).
  777. X *
  778. X * Author: Kevin Braunsdorf, PUCC, 1990
  779. X *
  780. X * $Log:    srtdel.c,v $
  781. X * Revision 2.0  90/06/11  22:23:49  ksb
  782. X * mkcat needed it
  783. X * 
  784. X */
  785. X
  786. #include <stdio.h>        /* for NULL                */
  787. #include <sys/types.h>        /* for void, in V7            */
  788. #include "srtunq.h"        /* for srtunq structs & functions    */
  789. X
  790. #include <errno.h>
  791. extern int errno, strcmp();
  792. extern char *malloc(), *strcpy();
  793. X
  794. /*
  795. X * srtdel - delete string in the sorted & unique list.
  796. X * returns one if found, else 0
  797. X */
  798. int
  799. srtdel(ent, str, compar)
  800. SRTTABLE *ent;
  801. char *str;
  802. int (*compar)();
  803. {
  804. X    register int i;            /* string compare result    */
  805. X    register SRTENTRY *s, *p, *os;    /* temp                */
  806. X    register SRTENTRY **pps;    /* where            */
  807. X
  808. X    pps = & ent->srt_top;
  809. X    os = NULL;
  810. X    while (NULL != (s = *pps)) {
  811. X        if (0 == (i = (*compar)(str, s->srt_str)))
  812. X            break;
  813. X        os = s;
  814. X        pps = (i > 0) ? & s->srt_more : & s->srt_less;
  815. X    }
  816. X
  817. X    if (NULL == s)
  818. X        return 0;
  819. X
  820. X    if (s == ent->srt_next) {    /* if we are the cur, mode cur    */
  821. X        p = s;
  822. X        if (p->srt_more != NULL) {
  823. X            p = p->srt_more;    /* go one more */
  824. X            while (p->srt_less != NULL)/* then all the way less */
  825. X                p = p->srt_less;
  826. X        } else {
  827. X            while (p != ent->srt_top && p->srt_prev->srt_more == p)
  828. X                p = p->srt_prev;
  829. X            p = (p == ent->srt_top) ? NULL : p->srt_prev;
  830. X        }
  831. X        ent->srt_next = p;
  832. X    }
  833. X
  834. X    p = s->srt_more;
  835. X    s = s->srt_less;
  836. X
  837. X    if (os != (*pps)->srt_prev)    /*ZZZ*/
  838. X        abort();
  839. X
  840. X    free(*pps);
  841. X    for (;;) {
  842. X        if (NULL == s) {        /* just one kid        */
  843. X            *pps = p;
  844. X            if (NULL == p)
  845. X                break;
  846. X            p->srt_prev = os;
  847. X            break;
  848. X        }
  849. X        if (NULL == p) {
  850. X            *pps = s;
  851. X            s->srt_prev = os;
  852. X            break;
  853. X        }
  854. X
  855. X        if (NULL == p->srt_less) {    /* hand off the middle    */
  856. X            p->srt_prev = os;
  857. X            *pps = p;
  858. X            p->srt_less = s;
  859. X            s->srt_prev = p;
  860. X            break;
  861. X        }
  862. X        if (NULL == s->srt_more) {
  863. X            *pps = s;
  864. X            s->srt_prev = os;
  865. X            s->srt_more = p;
  866. X            p->srt_prev = s;
  867. X            break;
  868. X        }
  869. X
  870. X        if (NULL == s->srt_less) {    /* rotate into middle    */
  871. X            *pps = s->srt_more;
  872. X            s->srt_more->srt_prev = os;
  873. X            s->srt_more = (*pps)->srt_less;
  874. X            s->srt_more->srt_prev = s;
  875. X            (*pps)->srt_less = s;
  876. X            s->srt_prev = *pps;
  877. X            pps = & (*pps)->srt_more;
  878. X            s = *pps;
  879. X            continue;
  880. X        }
  881. X        *pps = p->srt_less;
  882. X        p->srt_less->srt_prev = os;
  883. X        p->srt_less = (*pps)->srt_more;
  884. X        p->srt_less->srt_prev = p;
  885. X        (*pps)->srt_more = p;
  886. X        p->srt_prev = *pps;
  887. X        pps = & (*pps)->srt_less;
  888. X        p = *pps;
  889. X    }
  890. X    return 1;
  891. }
  892. Purdue
  893. chmod 0444 libsrtunq/srtdel.c ||
  894. echo 'restore of libsrtunq/srtdel.c failed'
  895. Wc_c="`wc -c < 'libsrtunq/srtdel.c'`"
  896. test 2530 -eq "$Wc_c" ||
  897.     echo 'libsrtunq/srtdel.c: original size 2530, current size' "$Wc_c"
  898. fi
  899. # ============= maketd/Makefile ==============
  900. if test -f 'maketd/Makefile' -a X"$1" != X"-c"; then
  901.     echo 'x - skipping maketd/Makefile (File already exists)'
  902. else
  903. echo 'x - extracting maketd/Makefile (Text)'
  904. sed 's/^X//' << 'Purdue' > 'maketd/Makefile' &&
  905. # Makefile for maketd
  906. #        Kevin Braunsdorf    Purdue University Computing Center
  907. BIN=    ${DESTDIR}/usr/local/bin
  908. PROG=    maketd
  909. X
  910. #Compile time options have been moved to machine.h
  911. X
  912. # We might need the old style script to make our first depends!
  913. # Use either of these lines, upper might be faster if your cc has -M
  914. # (the second line goes to great trouble to get a `#' sign, some
  915. # makes are very broken!)
  916. #OLDCODE= ${CC} ${CFLAGS} -M $$file |sed -e 's/^.*\.o *: *//'
  917. OLDCODE= ${CC} ${CFLAGS} -E $$file |\
  918. X     sed -n -e `echo '/^@/p' |tr "@" "\043"` |\
  919. X     sed -e 's/^.[ 0-9]*"\(.*\)" *$$/\1/' -e '/\/usr\/include/d'
  920. X
  921. L=../libsrtunq
  922. O=../libopt
  923. #L=/usr/include/local
  924. I=/usr/include
  925. S=/usr/include/sys
  926. P=
  927. X
  928. #INCLUDE= -I$L
  929. INCLUDE= -I$L -I$O
  930. DEBUG=    -O
  931. CDEFS=
  932. CFLAGS=    ${DEBUG} ${CDEFS} ${INCLUDE}
  933. X
  934. HDR=    abrv.h errors.h maketd.h main.h machine.h
  935. SRC=    abrv.c errors.c maketd.c main.c
  936. GEN=
  937. DEP=    ${SRC}
  938. OBJ=    main.o abrv.o errors.o maketd.o
  939. MAN=    maketd.1l
  940. SOURCE=    Makefile README GCC.awk M4.patch ${MAN} ${HDR} ${SRC}
  941. X
  942. all: ${PROG}
  943. X
  944. ${PROG}:$P ${OBJ}
  945. #    ${CC} -o $@ ${DEBUG} ${OBJ} -lopt -lsrtunq
  946. #    ${CC} -o $@ ${DEBUG} ${OBJ} -L /usr/local/lib -lopt -lsrtunq
  947. X    ${CC} -o $@ ${DEBUG} ${OBJ} ../libopt/libopt.a ../libsrtunq/libsrtunq.a
  948. X
  949. clean: FRC
  950. X    rm -f Makefile.bak ${PROG} ${GEN} *.o a.out core errs lint.errs tags
  951. X
  952. # we use the old sloppy code for booting our depends
  953. depend: ${HDR} ${SRC} ${GEN} FRC
  954. X    mv Makefile Makefile.bak
  955. X    sed '/^# DO NOT DELETE THIS LINE/,$$d' <Makefile.bak >Makefile
  956. X    echo '# DO NOT DELETE THIS LINE - maketd DEPENDS ON IT' >>Makefile
  957. X    echo '' >>Makefile
  958. X    for file in ${DEP}; do \
  959. X        o=`echo $$file |sed 's/c$$/o/'` ;\
  960. X        ${OLDCODE} |sort -u |\
  961. X        awk 'BEGIN { rec = "'$${o}'" ": " ; } \
  962. X        { if (length(rec $$1) > 76) \
  963. X        { print rec, "\\" ; rec = "  " $$1 } \
  964. X        else { rec = rec " " $$1 } } \
  965. X        END { print rec, "\n" } ' >>Makefile ;\
  966. X    done
  967. X    echo '# *** Do not add anything here - It will go away. ***' >>Makefile
  968. X
  969. depend2: ${HDR} ${SRC} ${GEN} FRC all
  970. X    ./${PROG} -d ${INCLUDE} ${DEP}
  971. X
  972. install: all FRC
  973. X    install -c -s ${PROG} ${BIN}/${PROG}
  974. X
  975. lint: ${HDR} ${SRC} ${GEN} FRC
  976. X    lint -h ${CDEFS} ${INCLUDE} ${DEP}
  977. X
  978. mkcat: ${MAN}
  979. X    mkcat ${MAN}
  980. X
  981. print: source FRC
  982. X    lpr -p -Pstaff -J"Maketd Source" ${SOURCE}
  983. X
  984. shar: source FRC
  985. X    shar ${SOURCE}
  986. X
  987. source: ${SOURCE}
  988. X
  989. spotless: clean
  990. X    rcsclean ${SOURCE}
  991. X
  992. tags: ${SRC} ${HDR} ${GEN}
  993. X    ctags -t ${SRC} ${HDR} ${GEN}
  994. X
  995. ${SOURCE}:
  996. X    co -q $@
  997. X
  998. FRC:
  999. X
  1000. # DO NOT DELETE THIS LINE - maketd DEPENDS ON IT
  1001. X
  1002. abrv.o:  ./abrv.h ./errors.h ./machine.h ./main.h ./maketd.h abrv.c 
  1003. X
  1004. errors.o:  ./errors.h ./machine.h ./main.h ./maketd.h errors.c 
  1005. X
  1006. maketd.o:  ./abrv.h ./errors.h ./machine.h ./main.h ./maketd.h maketd.c 
  1007. X
  1008. main.o:  ./machine.h main.c 
  1009. X
  1010. # *** Do not add anything here - It will go away. ***
  1011. Purdue
  1012. chmod 0644 maketd/Makefile ||
  1013. echo 'restore of maketd/Makefile failed'
  1014. Wc_c="`wc -c < 'maketd/Makefile'`"
  1015. test 2731 -eq "$Wc_c" ||
  1016.     echo 'maketd/Makefile: original size 2731, current size' "$Wc_c"
  1017. fi
  1018. # ============= maketd/errors.c ==============
  1019. if test -f 'maketd/errors.c' -a X"$1" != X"-c"; then
  1020.     echo 'x - skipping maketd/errors.c (File already exists)'
  1021. else
  1022. echo 'x - extracting maketd/errors.c (Text)'
  1023. sed 's/^X//' << 'Purdue' > 'maketd/errors.c' &&
  1024. /*
  1025. X * this file should handle all the error recovery
  1026. X */
  1027. #include "machine.h"
  1028. X
  1029. #include <stdio.h>
  1030. #include <sys/types.h>
  1031. #include <sys/signal.h>
  1032. X
  1033. #include "maketd.h"
  1034. #include "main.h"
  1035. #include "errors.h"
  1036. X
  1037. /* RestoreFiles
  1038. X * This routine is called whenever there is a fatal error or signal. It
  1039. X * will attempt to restore the origional makefile from the backup if the
  1040. X * file has been backed up. It leaves the backup file sitting around
  1041. X * either way.
  1042. X */
  1043. void
  1044. RestoreFiles()
  1045. {
  1046. X    static char sbNoFiles[] = "%s: No files to save\n";
  1047. X
  1048. X    if (FALSE == backedup) {
  1049. X        fprintf(stderr, sbNoFiles, progname);
  1050. X        exit(3);
  1051. X    } else {
  1052. X        fprintf(stderr, "%s: Restoring %s from %s\n", progname, makename, pchBackup);
  1053. X        (void)unlink(makename);
  1054. X        if (0 != link(pchBackup, makename)) {
  1055. X            fprintf(stderr, "%s: error linking %s to ", progname, pchBackup);
  1056. X            perror(makename);
  1057. X        } else {
  1058. X            (void)unlink(pchBackup);
  1059. X        }
  1060. X        fprintf(stderr, sbNoFiles, progname);
  1061. X        exit(4);
  1062. X    }
  1063. }
  1064. X
  1065. void
  1066. OutOfMemory()
  1067. {
  1068. X    fprintf(stderr, "%s: out of memory\n", progname);
  1069. X    RestoreFiles();
  1070. }
  1071. X
  1072. /*
  1073. X * any signal calls us to clean up (with its name as our argument)
  1074. X */
  1075. int
  1076. sigtrap(pch)
  1077. char *pch;
  1078. {
  1079. X    fprintf(stderr, "%s: SIG%s received\n", progname, pch);
  1080. X    RestoreFiles();
  1081. }
  1082. X
  1083. int
  1084. errhup()
  1085. {
  1086. X    sigtrap("HUP");
  1087. }
  1088. X
  1089. int
  1090. errint()
  1091. {
  1092. X    sigtrap("INT");
  1093. }
  1094. X
  1095. int
  1096. errill()
  1097. {
  1098. X    sigtrap("ILL");
  1099. }
  1100. X
  1101. int
  1102. errtrap()
  1103. {
  1104. X    sigtrap("TRAP");
  1105. }
  1106. X
  1107. int
  1108. erriot()
  1109. {
  1110. X    sigtrap("IOT");
  1111. }
  1112. X
  1113. int
  1114. erremt()
  1115. {
  1116. X    sigtrap("EMT");
  1117. }
  1118. X
  1119. int
  1120. errfpe()
  1121. {
  1122. X    sigtrap("FPE");
  1123. }
  1124. X
  1125. int
  1126. errbus()
  1127. {
  1128. X    sigtrap("BUS");
  1129. }
  1130. X
  1131. int
  1132. errsegv()
  1133. {
  1134. X    sigtrap("SEGV");
  1135. }
  1136. X
  1137. int
  1138. errsys()
  1139. {
  1140. X    sigtrap("SYS");
  1141. }
  1142. X
  1143. int
  1144. errpipe()
  1145. {
  1146. X    sigtrap("PIPE");
  1147. }
  1148. X
  1149. int
  1150. erralrm()
  1151. {
  1152. X    sigtrap("ALRM");
  1153. }
  1154. X
  1155. int
  1156. errterm()
  1157. {
  1158. X    sigtrap("TERM");
  1159. }
  1160. X
  1161. /*
  1162. X * Stock 2.9BSD has all the below, but not as many as 4.2BSD: Want
  1163. X * SIGQUIT to drop core. Not worrying about:    SIGXCPU, SIGXFSZ,
  1164. X * SIGVTALRM, SIGPROF cannot be caught: SIGKILL, SIGSTOP Leaving
  1165. X * alone: SIGURG, SIGTSTP, SIGCONT, SIGCHLD, SIGTTIN, SIGTTOU, SIGIO 
  1166. X */
  1167. void
  1168. init_sigs()
  1169. {
  1170. X    signal(SIGHUP, errhup);
  1171. X    signal(SIGINT, errint);
  1172. X    signal(SIGILL, errill);
  1173. X    signal(SIGTRAP, errtrap);
  1174. X    signal(SIGIOT, erriot);
  1175. X    signal(SIGEMT, erremt);
  1176. X    signal(SIGFPE, errfpe);
  1177. #if !defined(DEBUG)
  1178. X    signal(SIGBUS, errbus);
  1179. X    signal(SIGSEGV, errsegv);
  1180. #endif /* !DEBUG */
  1181. X    signal(SIGSYS, errsys);
  1182. X    signal(SIGPIPE, errpipe);
  1183. X    signal(SIGALRM, erralrm);
  1184. X    signal(SIGTERM, errterm);
  1185. }
  1186. Purdue
  1187. chmod 0444 maketd/errors.c ||
  1188. echo 'restore of maketd/errors.c failed'
  1189. Wc_c="`wc -c < 'maketd/errors.c'`"
  1190. test 2359 -eq "$Wc_c" ||
  1191.     echo 'maketd/errors.c: original size 2359, current size' "$Wc_c"
  1192. fi
  1193. # ============= libsrtunq/srtapply.c ==============
  1194. if test -f 'libsrtunq/srtapply.c' -a X"$1" != X"-c"; then
  1195.     echo 'x - skipping libsrtunq/srtapply.c (File already exists)'
  1196. else
  1197. echo 'x - extracting libsrtunq/srtapply.c (Text)'
  1198. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtapply.c' &&
  1199. /* Sorting function that inserts strings one at a time into memory.
  1200. X * Strings are null terminated.
  1201. X * Only uniq strings are stored (no count is kept of how many)
  1202. X * Any memory used is freed on init (or re-init).
  1203. X *
  1204. X * Author: Steve Uitti, PUCC, 1985
  1205. X *
  1206. X * $Log:    srtapply.c,v $
  1207. X * Revision 2.0  90/06/01  14:30:07  ksb
  1208. X * net release June 90
  1209. X * 
  1210. X * Revision 1.1  90/04/13  16:09:57  ksb
  1211. X * Initial revision
  1212. X * 
  1213. X * Revision 1.1  87/12/09  11:11:28  ksb
  1214. X * Initial revision
  1215. X * 
  1216. X * Revision 1.3  87/12/07  15:58:29  ksb
  1217. X * typedef names and a mainline test driver
  1218. X * 
  1219. X * Revision 1.2  87/11/12  14:39:33  ksb
  1220. X * set ENOMEM in srtin
  1221. X * 
  1222. X * Revision 1.1  87/11/11  15:54:26  ksb
  1223. X * Initial revision
  1224. X */
  1225. X
  1226. #include <stdio.h>        /* for NULL                */
  1227. #include <sys/types.h>        /* for void, in V7            */
  1228. #include "srtunq.h"        /* for srtunq structs & functions    */
  1229. X
  1230. /*
  1231. X * apply given function to each string until one returns non-zero
  1232. X * return first non-zero (and stop), or 0 for "no match"
  1233. X */
  1234. int
  1235. srtapply(ent, fnc)
  1236. SRTTABLE *ent;
  1237. int (*fnc)();
  1238. {
  1239. X    register SRTENTRY *s, *top;
  1240. X
  1241. X    if (0 == (top = s = ent->srt_top)) {
  1242. X        return 0;
  1243. X    }
  1244. X    while (s->srt_less != NULL) {
  1245. X        s = s->srt_less;
  1246. X    }
  1247. X
  1248. X    for (;;) {
  1249. X        register int i;
  1250. X        if (0 != (i = (*fnc)(s->srt_str))) {
  1251. X            return i;
  1252. X        }
  1253. X        if (s->srt_more != NULL) {
  1254. X            s = s->srt_more;
  1255. X            while (s->srt_less != NULL)
  1256. X                s = s->srt_less;
  1257. X            continue;
  1258. X        }
  1259. X        for (;;) {
  1260. X            register SRTENTRY *q;
  1261. X            if (s == top)
  1262. X                return 0;
  1263. X            q = s;
  1264. X            s = s->srt_prev;
  1265. X            if (q == s->srt_less)
  1266. X                break;
  1267. X        }
  1268. X    }
  1269. }
  1270. X
  1271. Purdue
  1272. chmod 0444 libsrtunq/srtapply.c ||
  1273. echo 'restore of libsrtunq/srtapply.c failed'
  1274. Wc_c="`wc -c < 'libsrtunq/srtapply.c'`"
  1275. test 1514 -eq "$Wc_c" ||
  1276.     echo 'libsrtunq/srtapply.c: original size 1514, current size' "$Wc_c"
  1277. fi
  1278. # ============= libsrtunq/srtgets.c ==============
  1279. if test -f 'libsrtunq/srtgets.c' -a X"$1" != X"-c"; then
  1280.     echo 'x - skipping libsrtunq/srtgets.c (File already exists)'
  1281. else
  1282. echo 'x - extracting libsrtunq/srtgets.c (Text)'
  1283. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtgets.c' &&
  1284. /* Sorting function that inserts strings one at a time into memory.
  1285. X * Strings are null terminated.
  1286. X * Only uniq strings are stored (no count is kept of how many)
  1287. X * Any memory used is freed on init (or re-init).
  1288. X *
  1289. X * Author: Steve Uitti, PUCC, 1985
  1290. X *
  1291. X * $Log:    srtgets.c,v $
  1292. X * Revision 2.0  90/06/01  14:30:10  ksb
  1293. X * net release June 90
  1294. X * 
  1295. X * Revision 1.1  90/04/13  16:10:05  ksb
  1296. X * Initial revision
  1297. X * 
  1298. X * Revision 1.1  87/12/09  11:12:24  ksb
  1299. X * Initial revision
  1300. X * 
  1301. X * Revision 1.3  87/12/07  15:58:29  ksb
  1302. X * typedef names and a mainline test driver
  1303. X * 
  1304. X * Revision 1.2  87/11/12  14:39:33  ksb
  1305. X * set ENOMEM in srtin
  1306. X * 
  1307. X * Revision 1.1  87/11/11  15:54:26  ksb
  1308. X * Initial revision
  1309. X */
  1310. X
  1311. #include <stdio.h>        /* for NULL                */
  1312. #include <sys/types.h>        /* for void, in V7            */
  1313. #include "srtunq.h"        /* for srtunq structs & functions    */
  1314. X
  1315. /*
  1316. X * srtgets - get next string from sorted list, NULL if none more.
  1317. X */
  1318. char *
  1319. srtgets(ent)
  1320. SRTTABLE *ent;
  1321. {
  1322. X    register SRTENTRY *s;    /* tmp        */
  1323. X    register char *p;    /* ret val        */
  1324. X
  1325. X    if ((s = ent->srt_next) == NULL)
  1326. X        return NULL;
  1327. X
  1328. X    p = s->srt_str;
  1329. X    if (s->srt_more != NULL) {
  1330. X        s = s->srt_more;    /* go one more */
  1331. X        while (s->srt_less != NULL)/* then all the way less */
  1332. X            s = s->srt_less;
  1333. X        ent->srt_next = s;
  1334. X        return p;
  1335. X    }
  1336. X    while (s != ent->srt_top && s->srt_prev->srt_more == s)
  1337. X        s = s->srt_prev;    /* back down any more's */
  1338. X    s = (s == ent->srt_top) ? NULL : s->srt_prev;
  1339. X    ent->srt_next = s;
  1340. X
  1341. X    return p;
  1342. }
  1343. X
  1344. Purdue
  1345. chmod 0444 libsrtunq/srtgets.c ||
  1346. echo 'restore of libsrtunq/srtgets.c failed'
  1347. Wc_c="`wc -c < 'libsrtunq/srtgets.c'`"
  1348. test 1452 -eq "$Wc_c" ||
  1349.     echo 'libsrtunq/srtgets.c: original size 1452, current size' "$Wc_c"
  1350. fi
  1351. # ============= libsrtunq/srtin.c ==============
  1352. if test -f 'libsrtunq/srtin.c' -a X"$1" != X"-c"; then
  1353.     echo 'x - skipping libsrtunq/srtin.c (File already exists)'
  1354. else
  1355. echo 'x - extracting libsrtunq/srtin.c (Text)'
  1356. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtin.c' &&
  1357. /* Sorting function that inserts strings one at a time into memory.
  1358. X * Strings are null terminated.
  1359. X * Only uniq strings are stored (no count is kept of how many)
  1360. X * Any memory used is freed on init (or re-init).
  1361. X *
  1362. X * Author: Steve Uitti, PUCC, 1985
  1363. X *
  1364. X * $Log:    srtin.c,v $
  1365. X * Revision 2.0  90/06/01  14:30:11  ksb
  1366. X * net release June 90
  1367. X * 
  1368. X * Revision 1.1  90/04/13  16:10:09  ksb
  1369. X * Initial revision
  1370. X * 
  1371. X * Revision 1.1  87/12/09  11:12:39  ksb
  1372. X * Initial revision
  1373. X * 
  1374. X * Revision 1.3  87/12/07  15:58:29  ksb
  1375. X * typedef names and a mainline test driver
  1376. X * 
  1377. X * Revision 1.2  87/11/12  14:39:33  ksb
  1378. X * set ENOMEM in srtin
  1379. X * 
  1380. X * Revision 1.1  87/11/11  15:54:26  ksb
  1381. X * Initial revision
  1382. X */
  1383. X
  1384. #include <stdio.h>        /* for NULL                */
  1385. #include <sys/types.h>        /* for void, in V7            */
  1386. #include "srtunq.h"        /* for srtunq structs & functions    */
  1387. X
  1388. #include <errno.h>
  1389. extern int errno, strcmp();
  1390. extern char *malloc(), *strcpy();
  1391. X
  1392. /*
  1393. X * srtin - insert string in the sorted & unique list.
  1394. X * returns the string, else (char *)0 and sets errno
  1395. X */
  1396. char *
  1397. srtin(ent, str, compar)
  1398. SRTTABLE *ent;
  1399. char *str;
  1400. int (*compar)();
  1401. {
  1402. X    register char *p;        /* temp string pointer        */
  1403. X    register int i;            /* string compare result    */
  1404. X    register SRTENTRY *s, *os;    /* temp                */
  1405. X    register SRTENTRY **pps;    /* where            */
  1406. X
  1407. X    pps = & ent->srt_top;
  1408. X    os = NULL;
  1409. X    while (NULL != (s = *pps)) {
  1410. X        if (0 == (i = (*compar)(str, s->srt_str)))
  1411. X            return s->srt_str;
  1412. X        os = s;
  1413. X        pps = (i > 0) ? & s->srt_more : & s->srt_less;
  1414. X    }
  1415. X    if (NULL == (p = malloc((unsigned) (strlen(str) + sizeof(SRTENTRY))))) {
  1416. X        errno = ENOMEM;
  1417. X        return (char *)0;
  1418. X    }
  1419. X    s = (SRTENTRY *) p;
  1420. X
  1421. X    *pps = s;
  1422. X    s->srt_prev = os;
  1423. X    s->srt_less = s->srt_more = NULL;
  1424. X
  1425. X    return strcpy(s->srt_str, str);
  1426. }
  1427. X
  1428. Purdue
  1429. chmod 0444 libsrtunq/srtin.c ||
  1430. echo 'restore of libsrtunq/srtin.c failed'
  1431. Wc_c="`wc -c < 'libsrtunq/srtin.c'`"
  1432. test 1723 -eq "$Wc_c" ||
  1433.     echo 'libsrtunq/srtin.c: original size 1723, current size' "$Wc_c"
  1434. fi
  1435. # ============= libsrtunq/srtdtree.c ==============
  1436. if test -f 'libsrtunq/srtdtree.c' -a X"$1" != X"-c"; then
  1437.     echo 'x - skipping libsrtunq/srtdtree.c (File already exists)'
  1438. else
  1439. echo 'x - extracting libsrtunq/srtdtree.c (Text)'
  1440. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtdtree.c' &&
  1441. /* Sorting function that inserts strings one at a time into memory.
  1442. X * Strings are null terminated.
  1443. X * Only uniq strings are stored (no count is kept of how many)
  1444. X * Any memory used is freed on init (or re-init).
  1445. X *
  1446. X * Author: Steve Uitti, PUCC, 1985
  1447. X *
  1448. X * $Log:    srtdtree.c,v $
  1449. X * Revision 2.0  90/06/01  14:30:08  ksb
  1450. X * net release June 90
  1451. X * 
  1452. X * Revision 1.1  90/04/13  16:10:02  ksb
  1453. X * Initial revision
  1454. X * 
  1455. X * Revision 1.1  87/12/09  11:11:46  ksb
  1456. X * Initial revision
  1457. X * 
  1458. X * Revision 1.3  87/12/07  15:58:29  ksb
  1459. X * typedef names and a mainline test driver
  1460. X * 
  1461. X * Revision 1.2  87/11/12  14:39:33  ksb
  1462. X * set ENOMEM in srtin
  1463. X * 
  1464. X * Revision 1.1  87/11/11  15:54:26  ksb
  1465. X * Initial revision
  1466. X */
  1467. X
  1468. #include <stdio.h>        /* for NULL                */
  1469. #include <sys/types.h>        /* for void, in V7            */
  1470. #include "srtunq.h"        /* for srtunq structs & functions    */
  1471. X
  1472. /* srtdtree - recursive tree delete
  1473. X * frees all less & more entries pointed to by the srt struct
  1474. X */
  1475. void
  1476. srtdtree(srt)
  1477. register SRTENTRY *srt;
  1478. {
  1479. X    if (srt->srt_less != NULL) {
  1480. X        srtdtree(srt->srt_less);
  1481. X        free((char *) srt->srt_less);
  1482. X        srt->srt_less = NULL;
  1483. X    }
  1484. X    if (srt->srt_more != NULL) {
  1485. X        srtdtree(srt->srt_more);
  1486. X        free((char *) srt->srt_more);
  1487. X        srt->srt_more = NULL;
  1488. X    }
  1489. }
  1490. X
  1491. Purdue
  1492. chmod 0444 libsrtunq/srtdtree.c ||
  1493. echo 'restore of libsrtunq/srtdtree.c failed'
  1494. Wc_c="`wc -c < 'libsrtunq/srtdtree.c'`"
  1495. test 1226 -eq "$Wc_c" ||
  1496.     echo 'libsrtunq/srtdtree.c: original size 1226, current size' "$Wc_c"
  1497. fi
  1498. # ============= libsrtunq/srtmem.c ==============
  1499. if test -f 'libsrtunq/srtmem.c' -a X"$1" != X"-c"; then
  1500.     echo 'x - skipping libsrtunq/srtmem.c (File already exists)'
  1501. else
  1502. echo 'x - extracting libsrtunq/srtmem.c (Text)'
  1503. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtmem.c' &&
  1504. /* Sorting function that inserts strings one at a time into memory.
  1505. X * Strings are null terminated.
  1506. X * Only uniq strings are stored (no count is kept of how many)
  1507. X * Any memory used is freed on init (or re-init).
  1508. X *
  1509. X * Author: Steve Uitti, PUCC, 1985  (+ ksb 1990)
  1510. X *
  1511. X * $Log:    srtmem.c,v $
  1512. X * Revision 2.0  90/06/01  14:30:13  ksb
  1513. X * net release June 90
  1514. X * 
  1515. X * Revision 1.1  90/04/13  16:24:03  ksb
  1516. X * Initial revision
  1517. X * 
  1518. X */
  1519. X
  1520. #include <stdio.h>        /* for NULL                */
  1521. #include <sys/types.h>        /* for void, in V7            */
  1522. #include "srtunq.h"        /* for srtunq structs & functions    */
  1523. X
  1524. #include <errno.h>
  1525. extern int errno, strcmp();
  1526. extern char *malloc(), *strcpy();
  1527. X
  1528. /*
  1529. X * srtmem - is a string in the sorted & unique list.
  1530. X * returns the string, else (char *)0
  1531. X */
  1532. char *
  1533. srtmem(ent, str, compar)
  1534. SRTTABLE *ent;
  1535. char *str;
  1536. int (*compar)();
  1537. {
  1538. X    register char *p;        /* temp string pointer        */
  1539. X    register int i;            /* string compare result    */
  1540. X    register SRTENTRY *s, *os;    /* temp                */
  1541. X    register SRTENTRY **pps;    /* where            */
  1542. X
  1543. X    pps = & ent->srt_top;
  1544. X    os = NULL;
  1545. X    while (NULL != (s = *pps)) {
  1546. X        if (0 == (i = (*compar)(str, s->srt_str)))
  1547. X            return s->srt_str;
  1548. X        os = s;
  1549. X        pps = (i > 0) ? & s->srt_more : & s->srt_less;
  1550. X    }
  1551. X    errno = ENOENT;
  1552. X    return (char *)0;
  1553. }
  1554. X
  1555. Purdue
  1556. chmod 0444 libsrtunq/srtmem.c ||
  1557. echo 'restore of libsrtunq/srtmem.c failed'
  1558. Wc_c="`wc -c < 'libsrtunq/srtmem.c'`"
  1559. test 1240 -eq "$Wc_c" ||
  1560.     echo 'libsrtunq/srtmem.c: original size 1240, current size' "$Wc_c"
  1561. fi
  1562. # ============= maketd/machine.h ==============
  1563. if test -f 'maketd/machine.h' -a X"$1" != X"-c"; then
  1564.     echo 'x - skipping maketd/machine.h (File already exists)'
  1565. else
  1566. echo 'x - extracting maketd/machine.h (Text)'
  1567. sed 's/^X//' << 'Purdue' > 'maketd/machine.h' &&
  1568. /*
  1569. X * the macros below are used to port maketd to variaous hosts
  1570. X * fill in the ones you know.
  1571. X */
  1572. X
  1573. /* your system may define one of these by default
  1574. X * (if not set one)
  1575. X */
  1576. /* pdp11     compile for a BSD2_9 or greater pdp11 OS        */
  1577. /*#define pdp11                        /**/
  1578. X
  1579. /* SYSV        compile for system V                    */
  1580. /*#define SYSV                        /**/
  1581. X
  1582. /* bsd        compile for system V                    */
  1583. #define bsd                        /**/
  1584. X
  1585. X
  1586. /* DEBUG    include more debug code for -v option            */
  1587. #undef DEBUG                        /**/
  1588. /*#define DEBUG                        /**/
  1589. X
  1590. X
  1591. /* CPP_M    C preprocessor has a -M                    */
  1592. #define CPP_M                        /**/
  1593. /* CPP        location of C preprocessor
  1594. X * (default "/lib/cpp ")
  1595. X */
  1596. X
  1597. /* M4_M        m4 has a -M, this is currently the only way to use m4    */
  1598. #define M4_M
  1599. /* M4        location of m4 macro preprocessor
  1600. X * (default "/usr/bin/m4 ")
  1601. X */
  1602. X
  1603. /* INCLD    place where <file.h> files are rooted
  1604. X * (default "/usr/include")
  1605. X */
  1606. X
  1607. /* DEL_BACKUP     delete "Makefile.bak" after each run of maketd        */
  1608. /*#define DEL_BACKUP                    /**/
  1609. X
  1610. /* here we deduce some things about the system from the info above
  1611. X * (some of these may need special cases for your strange systems)
  1612. X */
  1613. X
  1614. /* DUP2        this UNIX has Berk dup2 syscall                */
  1615. #if defined(bsd)
  1616. #define DUP2
  1617. #endif
  1618. X
  1619. #if defined(bsd)
  1620. #define    strrchr    rindex
  1621. #define    strchr    index
  1622. #endif
  1623. X
  1624. #if !defined(bsd)
  1625. #define vfork    fork
  1626. #endif
  1627. Purdue
  1628. chmod 0644 maketd/machine.h ||
  1629. echo 'restore of maketd/machine.h failed'
  1630. Wc_c="`wc -c < 'maketd/machine.h'`"
  1631. test 1278 -eq "$Wc_c" ||
  1632.     echo 'maketd/machine.h: original size 1278, current size' "$Wc_c"
  1633. fi
  1634. # ============= libopt/getopt.h ==============
  1635. if test -f 'libopt/getopt.h' -a X"$1" != X"-c"; then
  1636.     echo 'x - skipping libopt/getopt.h (File already exists)'
  1637. else
  1638. echo 'x - extracting libopt/getopt.h (Text)'
  1639. sed 's/^X//' << 'Purdue' > 'libopt/getopt.h' &&
  1640. /*
  1641. X * get option letters from argument vector
  1642. X * then get arguemnts from vector
  1643. X * legale options passed with ':' indicating where an optarg can be
  1644. X *
  1645. X *    -- example usage --
  1646. X *
  1647. X *    static char sbOpts[] = "vnD:A:";
  1648. X *    register int curopt;
  1649. X *    register char *pch;
  1650. X *    extern char *getenv();
  1651. X *    
  1652. X *    if ((char *)0 != (pch = getenv("TESTIT")))
  1653. X *        envopt(pch);
  1654. X *
  1655. X *    optsil = 1;
  1656. X *    while (EOF != (curopt = getopt(argc, argv, sbOpts))) {
  1657. X *        switch (curopt) {
  1658. X *        case 'v': ....
  1659. X *        case 'D':
  1660. X *            addbag(optarg);
  1661. X *            break;
  1662. X *        case BADARG:
  1663. X *            fprintf(stderr, "`%c' is need an argument\n", optopt);
  1664. X *            exit(2);
  1665. X *        case BADCH:
  1666. X *            fprintf(stderr, "`%c' is not an option\n", optopt);
  1667. X *            exit(1);
  1668. X *        }
  1669. X *    }
  1670. X *    ...
  1671. X *    while (EOF != getarg(argc, argv)) {
  1672. X *        f(optarg);
  1673. X *    }
  1674. X *    -- see mkcmd(1L) --
  1675. X */
  1676. extern int
  1677. X    optopt,            /* character checked for validity    */
  1678. X    optind,            /* gross, old kludge            */
  1679. X    optsil;            /* 1 == be silent, 0 = print errors    */
  1680. extern char
  1681. X    *optarg;        /* argument associated with option    */
  1682. X
  1683. #define BADCH    ('?')
  1684. #define BADOPT    BADCH
  1685. #define BADARG    ('*')
  1686. extern int getopt(), getarg(), rescan(), envopt();
  1687. #define rescan()    optind = 1
  1688. Purdue
  1689. chmod 0444 libopt/getopt.h ||
  1690. echo 'restore of libopt/getopt.h failed'
  1691. Wc_c="`wc -c < 'libopt/getopt.h'`"
  1692. test 1148 -eq "$Wc_c" ||
  1693.     echo 'libopt/getopt.h: original size 1148, current size' "$Wc_c"
  1694. fi
  1695. # ============= libsrtunq/srtfree.c ==============
  1696. if test -f 'libsrtunq/srtfree.c' -a X"$1" != X"-c"; then
  1697.     echo 'x - skipping libsrtunq/srtfree.c (File already exists)'
  1698. else
  1699. echo 'x - extracting libsrtunq/srtfree.c (Text)'
  1700. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtfree.c' &&
  1701. /* Sorting function that inserts strings one at a time into memory.
  1702. X * Strings are null terminated.
  1703. X * Only uniq strings are stored (no count is kept of how many)
  1704. X * Any memory used is freed on init (or re-init).
  1705. X *
  1706. X * Author: Steve Uitti, PUCC, 1985
  1707. X *
  1708. X * $Log:    srtfree.c,v $
  1709. X * Revision 2.0  90/06/01  14:30:09  ksb
  1710. X * net release June 90
  1711. X * 
  1712. X * Revision 1.1  90/04/13  16:10:04  ksb
  1713. X * Initial revision
  1714. X * 
  1715. X * Revision 1.1  87/12/09  11:12:02  ksb
  1716. X * Initial revision
  1717. X * 
  1718. X * Revision 1.3  87/12/07  15:58:29  ksb
  1719. X * typedef names and a mainline test driver
  1720. X * 
  1721. X * Revision 1.2  87/11/12  14:39:33  ksb
  1722. X * set ENOMEM in srtin
  1723. X * 
  1724. X * Revision 1.1  87/11/11  15:54:26  ksb
  1725. X * Initial revision
  1726. X */
  1727. X
  1728. #include <stdio.h>        /* for NULL                */
  1729. #include <sys/types.h>        /* for void, in V7            */
  1730. #include "srtunq.h"        /* for srtunq structs & functions    */
  1731. X
  1732. /*
  1733. X * srtfree - delete all the data, init the tag
  1734. X * is the structure empty?
  1735. X */
  1736. void
  1737. srtfree(ent)
  1738. SRTTABLE *ent;
  1739. {
  1740. X    if (ent->srt_top != NULL) {
  1741. X        srtdtree(ent->srt_top);
  1742. X        free((char *) ent->srt_top);
  1743. X        srtinit(ent);
  1744. X    }
  1745. }
  1746. X
  1747. Purdue
  1748. chmod 0444 libsrtunq/srtfree.c ||
  1749. echo 'restore of libsrtunq/srtfree.c failed'
  1750. Wc_c="`wc -c < 'libsrtunq/srtfree.c'`"
  1751. test 1067 -eq "$Wc_c" ||
  1752.     echo 'libsrtunq/srtfree.c: original size 1067, current size' "$Wc_c"
  1753. fi
  1754. # ============= libsrtunq/srtgti.c ==============
  1755. if test -f 'libsrtunq/srtgti.c' -a X"$1" != X"-c"; then
  1756.     echo 'x - skipping libsrtunq/srtgti.c (File already exists)'
  1757. else
  1758. echo 'x - extracting libsrtunq/srtgti.c (Text)'
  1759. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtgti.c' &&
  1760. /* Sorting function that inserts strings one at a time into memory.
  1761. X * Strings are null terminated.
  1762. X * Only uniq strings are stored (no count is kept of how many)
  1763. X * Any memory used is freed on init (or re-init).
  1764. X *
  1765. X * Author: Steve Uitti, PUCC, 1985
  1766. X *
  1767. X * $Log:    srtgti.c,v $
  1768. X * Revision 2.0  90/06/01  14:30:10  ksb
  1769. X * net release June 90
  1770. X * 
  1771. X * Revision 1.1  90/04/13  16:10:07  ksb
  1772. X * Initial revision
  1773. X * 
  1774. X * Revision 1.1  87/12/09  11:12:34  ksb
  1775. X * Initial revision
  1776. X * 
  1777. X * Revision 1.3  87/12/07  15:58:29  ksb
  1778. X * typedef names and a mainline test driver
  1779. X * 
  1780. X * Revision 1.2  87/11/12  14:39:33  ksb
  1781. X * set ENOMEM in srtin
  1782. X * 
  1783. X * Revision 1.1  87/11/11  15:54:26  ksb
  1784. X * Initial revision
  1785. X */
  1786. X
  1787. #include <stdio.h>        /* for NULL                */
  1788. #include <sys/types.h>        /* for void, in V7            */
  1789. #include "srtunq.h"        /* for srtunq structs & functions    */
  1790. X
  1791. /*
  1792. X * srtgti - init get string function
  1793. X */
  1794. void
  1795. srtgti(ent)
  1796. SRTTABLE *ent;
  1797. {
  1798. X    register SRTENTRY *pSE;
  1799. X
  1800. X    if (NULL != (pSE = ent->srt_top)) {
  1801. X        while (pSE->srt_less != NULL)
  1802. X            pSE = pSE->srt_less;
  1803. X    }
  1804. X    ent->srt_next = pSE;
  1805. }
  1806. X
  1807. Purdue
  1808. chmod 0444 libsrtunq/srtgti.c ||
  1809. echo 'restore of libsrtunq/srtgti.c failed'
  1810. Wc_c="`wc -c < 'libsrtunq/srtgti.c'`"
  1811. test 1067 -eq "$Wc_c" ||
  1812.     echo 'libsrtunq/srtgti.c: original size 1067, current size' "$Wc_c"
  1813. fi
  1814. # ============= libsrtunq/srtinit.c ==============
  1815. if test -f 'libsrtunq/srtinit.c' -a X"$1" != X"-c"; then
  1816.     echo 'x - skipping libsrtunq/srtinit.c (File already exists)'
  1817. else
  1818. echo 'x - extracting libsrtunq/srtinit.c (Text)'
  1819. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtinit.c' &&
  1820. /* Sorting function that inserts strings one at a time into memory.
  1821. X * Strings are null terminated.
  1822. X * Only uniq strings are stored (no count is kept of how many)
  1823. X * Any memory used is freed on init (or re-init).
  1824. X *
  1825. X * Author: Steve Uitti, PUCC, 1985
  1826. X *
  1827. X * $Log:    srtinit.c,v $
  1828. X * Revision 2.0  90/06/01  14:30:12  ksb
  1829. X * net release June 90
  1830. X * 
  1831. X * Revision 1.1  90/04/13  16:10:11  ksb
  1832. X * Initial revision
  1833. X * 
  1834. X * Revision 1.1  87/12/09  11:12:50  ksb
  1835. X * Initial revision
  1836. X * 
  1837. X * Revision 1.3  87/12/07  15:58:29  ksb
  1838. X * typedef names and a mainline test driver
  1839. X * 
  1840. X * Revision 1.2  87/11/12  14:39:33  ksb
  1841. X * set ENOMEM in srtin
  1842. X * 
  1843. X * Revision 1.1  87/11/11  15:54:26  ksb
  1844. X * Initial revision
  1845. X */
  1846. X
  1847. #include <stdio.h>        /* for NULL                */
  1848. #include <sys/types.h>        /* for void, in V7            */
  1849. #include "srtunq.h"        /* for srtunq structs & functions    */
  1850. X
  1851. /* srtinit - init the database tags
  1852. X * erase any knowledge, extractions at the begining
  1853. X */
  1854. void
  1855. srtinit(ent)
  1856. SRTTABLE *ent;
  1857. {
  1858. X    ent->srt_top = ent->srt_next = NULL;
  1859. }
  1860. X
  1861. Purdue
  1862. chmod 0444 libsrtunq/srtinit.c ||
  1863. echo 'restore of libsrtunq/srtinit.c failed'
  1864. Wc_c="`wc -c < 'libsrtunq/srtinit.c'`"
  1865. test 1011 -eq "$Wc_c" ||
  1866.     echo 'libsrtunq/srtinit.c: original size 1011, current size' "$Wc_c"
  1867. fi
  1868. # ============= maketd/maketd.h ==============
  1869. if test -f 'maketd/maketd.h' -a X"$1" != X"-c"; then
  1870.     echo 'x - skipping maketd/maketd.h (File already exists)'
  1871. else
  1872. echo 'x - extracting maketd/maketd.h (Text)'
  1873. sed 's/^X//' << 'Purdue' > 'maketd/maketd.h' &&
  1874. /*
  1875. X * here is the real brains of maketd
  1876. X *
  1877. X * a DependInfo node contains all the info we need to generate depends
  1878. X * for a target.
  1879. X */
  1880. #define FALSE    (0)
  1881. #define TRUE    (1)
  1882. #define BUFSIZE    256
  1883. #define MAXCOL    78
  1884. X
  1885. typedef struct DInode {
  1886. X    int
  1887. X        localo,        /* 0 == local o, 1 == non-local o    */
  1888. X        binarydep;    /* 0 == not binary, 1 == binary        */
  1889. X    char
  1890. X        *filename,    /* The filename to process (optarg)    */
  1891. X        *inlib,        /* The library in which we live        */
  1892. X        *cppflags,    /* The CPP flags for this file (-CDIU)    */
  1893. X        *destdir,    /* The destination directory (-o)    */
  1894. X        *suffix,    /* The suffix for the dest file (-s)    */
  1895. X        *explicit,    /* the explicit rule to use, if any    */
  1896. X        *basename,    /* The basename for the dest file (-t)    */
  1897. X        *preprocessor;    /* The preprocessor to use (-c, -4, -f)    */
  1898. X    struct DInode
  1899. X        *next;        /* The next structure in the linked list*/
  1900. } DependInfo;
  1901. X
  1902. extern int strlen();
  1903. extern char *malloc(), *strcpy();
  1904. #define    STRSAVE(Mpch)    strcpy(malloc((unsigned)strlen(Mpch)+1),Mpch)
  1905. X
  1906. extern char
  1907. X    *pchBackup;    /* the backup file name                */
  1908. extern FILE
  1909. X    *makefp;    /* file pointer to the dest makefile        */
  1910. extern int
  1911. X    backedup;    /* is the backup file is done            */
  1912. Purdue
  1913. chmod 0444 maketd/maketd.h ||
  1914. echo 'restore of maketd/maketd.h failed'
  1915. Wc_c="`wc -c < 'maketd/maketd.h'`"
  1916. test 1144 -eq "$Wc_c" ||
  1917.     echo 'maketd/maketd.h: original size 1144, current size' "$Wc_c"
  1918. fi
  1919. # ============= libsrtunq/srtunq.h ==============
  1920. if test -f 'libsrtunq/srtunq.h' -a X"$1" != X"-c"; then
  1921.     echo 'x - skipping libsrtunq/srtunq.h (File already exists)'
  1922. else
  1923. echo 'x - extracting libsrtunq/srtunq.h (Text)'
  1924. sed 's/^X//' << 'Purdue' > 'libsrtunq/srtunq.h' &&
  1925. /* include file for memory resident unique sorting routines. */
  1926. X
  1927. /* database entry */
  1928. typedef struct srtbl {
  1929. X    struct srtbl *srt_prev;        /* parent            */
  1930. X    struct srtbl *srt_less;        /* something < srt_str        */
  1931. X    struct srtbl *srt_more;        /* something > srt_str        */
  1932. X    char srt_str[1];        /* dynamic: 1 for null at EOS    */
  1933. } SRTENTRY;
  1934. X
  1935. /* database tag */
  1936. typedef struct srtent {
  1937. X    SRTENTRY *srt_top;        /* root of the tree        */
  1938. X    SRTENTRY *srt_next;        /* pointer for srtget        */
  1939. } SRTTABLE;
  1940. X
  1941. void
  1942. X    srtinit(),            /* init for srtin        */
  1943. X    srtfree(),            /* free a database        */
  1944. X    srtdtree(),            /* recursive delete of subtree    */
  1945. X    srtgti();            /* init for srtgets        */
  1946. char
  1947. X    *srtin(),            /* insert string - return err    */
  1948. X    *srtmem(),            /* string is a member of tree    */
  1949. X    *srtgets();            /* get next string        */
  1950. int
  1951. X    srtdel();            /* delete from a unique list    */
  1952. Purdue
  1953. chmod 0444 libsrtunq/srtunq.h ||
  1954. echo 'restore of libsrtunq/srtunq.h failed'
  1955. Wc_c="`wc -c < 'libsrtunq/srtunq.h'`"
  1956. test 819 -eq "$Wc_c" ||
  1957.     echo 'libsrtunq/srtunq.h: original size 819, current size' "$Wc_c"
  1958. fi
  1959. # ============= maketd/abrv.h ==============
  1960. if test -f 'maketd/abrv.h' -a X"$1" != X"-c"; then
  1961.     echo 'x - skipping maketd/abrv.h (File already exists)'
  1962. else
  1963. echo 'x - extracting maketd/abrv.h (Text)'
  1964. sed 's/^X//' << 'Purdue' > 'maketd/abrv.h' &&
  1965. /*
  1966. X * abbreviation fucntions, maintain a unique list of strings that are
  1967. X * compressed
  1968. X * 
  1969. X * include srtunq.h first
  1970. X */
  1971. X
  1972. #define MXABR 26        /* upper case chars used        */
  1973. extern char *abrvtbl[];        /* translation table strings        */
  1974. extern int abrvlen[];        /* string lengths (for speed)        */
  1975. extern struct srtent abrv;    /* include file abrevs            */
  1976. X
  1977. extern int lngsrt();        /* compare function for abrevs        */
  1978. extern char *hincl();        /* optimizer for include paths        */
  1979. extern void srchincl();        /* find [A-Z] makefile defines        */
  1980. extern void abrvsetup();    /* create abrvs, write them        */
  1981. extern int findabr();        /* find longest abrv            */
  1982. Purdue
  1983. chmod 0444 maketd/abrv.h ||
  1984. echo 'restore of maketd/abrv.h failed'
  1985. Wc_c="`wc -c < 'maketd/abrv.h'`"
  1986. test 621 -eq "$Wc_c" ||
  1987.     echo 'maketd/abrv.h: original size 621, current size' "$Wc_c"
  1988. fi
  1989. # ============= libopt/getarg.c ==============
  1990. if test -f 'libopt/getarg.c' -a X"$1" != X"-c"; then
  1991.     echo 'x - skipping libopt/getarg.c (File already exists)'
  1992. else
  1993. echo 'x - extracting libopt/getarg.c (Text)'
  1994. sed 's/^X//' << 'Purdue' > 'libopt/getarg.c' &&
  1995. /*
  1996. X * aux function to return arguments
  1997. X */
  1998. #include <stdio.h>
  1999. #include "getopt.h"
  2000. X
  2001. extern int _eargc;
  2002. extern char **_eargv;
  2003. X
  2004. /*
  2005. X * return each non-option argument one at a time, EOF for end of list
  2006. X */
  2007. int
  2008. getarg(nargc, nargv)
  2009. int nargc;
  2010. char **nargv;
  2011. {
  2012. X    if ((char **)0 != _eargv) {
  2013. X        if (optind < _eargc) {
  2014. X            nargv = _eargv;
  2015. X            nargc = _eargc;
  2016. X        } else {
  2017. X            _eargv = (char **)0;
  2018. X            optind = 1;
  2019. X        }
  2020. X    }
  2021. X    if (nargc <= optind) {
  2022. X        optarg = (char *) 0;
  2023. X        return EOF;
  2024. X    } else {
  2025. X        optarg = nargv[optind++];
  2026. X        return 0;
  2027. X    }
  2028. }
  2029. Purdue
  2030. chmod 0444 libopt/getarg.c ||
  2031. echo 'restore of libopt/getarg.c failed'
  2032. Wc_c="`wc -c < 'libopt/getarg.c'`"
  2033. test 519 -eq "$Wc_c" ||
  2034.     echo 'libopt/getarg.c: original size 519, current size' "$Wc_c"
  2035. fi
  2036. # ============= libsrtunq/README ==============
  2037. if test -f 'libsrtunq/README' -a X"$1" != X"-c"; then
  2038.     echo 'x - skipping libsrtunq/README (File already exists)'
  2039. else
  2040. echo 'x - extracting libsrtunq/README (Text)'
  2041. sed 's/^X//' << 'Purdue' > 'libsrtunq/README' &&
  2042. # $Id: README,v 1.1 90/11/29 07:57:03 ksb Exp $
  2043. X
  2044. These routines are used in a few PUCC tools to implement a `list of strings'
  2045. that we can add values to on the fly.  After accumulating the strings we
  2046. traverse the list (in some order) to do a final output.  Maketd(1L) is a prime
  2047. example of a fair use of these.
  2048. X
  2049. No one said they had to be beautiful.  They just work.
  2050. X
  2051. Stephen Uitti write these a long time ago, Kevin Braunsdorf added `delete'
  2052. when it was needed for another project in 1990.
  2053. Purdue
  2054. chmod 0444 libsrtunq/README ||
  2055. echo 'restore of libsrtunq/README failed'
  2056. Wc_c="`wc -c < 'libsrtunq/README'`"
  2057. test 490 -eq "$Wc_c" ||
  2058.     echo 'libsrtunq/README: original size 490, current size' "$Wc_c"
  2059. fi
  2060. # ============= maketd/GCC.awk ==============
  2061. if test -f 'maketd/GCC.awk' -a X"$1" != X"-c"; then
  2062.     echo 'x - skipping maketd/GCC.awk (File already exists)'
  2063. else
  2064. echo 'x - extracting maketd/GCC.awk (Binary)'
  2065. sed 's/^X//' << 'Purdue' | uudecode &&
  2066. begin 600 maketd/GCC.awk
  2067. M(R$O=7-R+V)I;B]N87=K"B,@5&AI<R!F:6QE(&UA>2!B92!U<V5D('=I=&@@
  2068. M5C@@87=K('1O(&9I;'1E<B!G8V,M8W!P(&]U='!U="!I;G1O"B,@<V]M971H
  2069. M:6YG(&UA:V5T9"!W:6QL('5S92X@(%1H92!L:6YE(&)E;&]W('-H;W5L9"!B
  2070. M92!P=70@:6X@=&AE"B,@<')E<')O8V5S<V]R<R!A<G)A>2!I;B!S;&]T(#`N
  2071. M"B,@(B]U<W(O=6YS=7`O;&EB+V=C8R]G8V,M8W!P("U-("5)("5&('PO=7-R
  2072. M+W5N<W5P+V)I;B]V.&%W:R`M9B`O=7-R+VQO8V%L+VQI8B]'0T,N87=K("TB
  2073. M"B,@*&EN('-O;64@<&QA8V5S(%8X(&%W:R!I<R!N87=K*0I"14=)3B!["@D@
  2074. M1E,@/2`B6R!<=%Q<7%Q=*B(["@D@:&5A9"`]("(B.PI]"@I["@D@<R`](#$[
  2075. M"GT*"B\Z+R!["@D@:&5A9"`]("0Q("0R.PH)(',@/2`S.PI]"@I["@EF;W(@
  2076. M*&L@/2!S.R!K(#P@3D8[(&LK*RD*"0EI9B`H)&L@(7X@(EY;(%QT72HD(BD*
  2077. 5"0D)<')I;G0@:&5A9"P@)&L["GT*
  2078. `
  2079. end
  2080. Purdue
  2081. chmod 0444 maketd/GCC.awk ||
  2082. echo 'restore of maketd/GCC.awk failed'
  2083. Wc_c="`wc -c < 'maketd/GCC.awk'`"
  2084. test 471 -eq "$Wc_c" ||
  2085.     echo 'maketd/GCC.awk: original size 471, current size' "$Wc_c"
  2086. fi
  2087. # ============= maketd/errors.h ==============
  2088. if test -f 'maketd/errors.h' -a X"$1" != X"-c"; then
  2089.     echo 'x - skipping maketd/errors.h (File already exists)'
  2090. else
  2091. echo 'x - extracting maketd/errors.h (Text)'
  2092. sed 's/^X//' << 'Purdue' > 'maketd/errors.h' &&
  2093. /*
  2094. X * this file should handle all of our errors
  2095. X * it restores the original file and prints error messages
  2096. X * if problems are found backing out
  2097. X */
  2098. extern void
  2099. X    init_sigs(),        /* set up to handle signals to restore    */
  2100. X    RestoreFiles(),        /* clean up files on errors        */
  2101. X    OutOfMemory();        /* ran out of memory            */
  2102. Purdue
  2103. chmod 0444 maketd/errors.h ||
  2104. echo 'restore of maketd/errors.h failed'
  2105. Wc_c="`wc -c < 'maketd/errors.h'`"
  2106. test 310 -eq "$Wc_c" ||
  2107.     echo 'maketd/errors.h: original size 310, current size' "$Wc_c"
  2108. fi
  2109. # ============= libopt/rescan.c ==============
  2110. if test -f 'libopt/rescan.c' -a X"$1" != X"-c"; then
  2111.     echo 'x - skipping libopt/rescan.c (File already exists)'
  2112. else
  2113. echo 'x - extracting libopt/rescan.c (Text)'
  2114. sed 's/^X//' << 'Purdue' > 'libopt/rescan.c' &&
  2115. /*
  2116. X * aux function to rescan arguemnts
  2117. X */
  2118. #include <stdio.h>
  2119. #include "getopt.h"
  2120. X
  2121. #undef rescan
  2122. X
  2123. /*
  2124. X * this function resets optind (a variable the user should not touch)
  2125. X * so the user can scan the arguments another time
  2126. X */
  2127. int
  2128. rescan()
  2129. {
  2130. X    optind = 1;
  2131. }
  2132. Purdue
  2133. chmod 0444 libopt/rescan.c ||
  2134. echo 'restore of libopt/rescan.c failed'
  2135. Wc_c="`wc -c < 'libopt/rescan.c'`"
  2136. test 256 -eq "$Wc_c" ||
  2137.     echo 'libopt/rescan.c: original size 256, current size' "$Wc_c"
  2138. fi
  2139. # ============= maketd/README ==============
  2140. if test -f 'maketd/README' -a X"$1" != X"-c"; then
  2141.     echo 'x - skipping maketd/README (File already exists)'
  2142. else
  2143. echo 'x - extracting maketd/README (Text)'
  2144. sed 's/^X//' << 'Purdue' > 'maketd/README' &&
  2145. Maketd is kinda like mkmf, it is older (here at PUCC) and we
  2146. still use it quite a bit.  The compressed output makes it neat,
  2147. and the options are nice.
  2148. X
  2149. So give it a try.
  2150. X
  2151. kayessbee,
  2152. --
  2153. Kevin Braunsdorf, ksb@cc.purdue.edu, pur-ee!ksb, purdue!ksb
  2154. Purdue
  2155. chmod 0444 maketd/README ||
  2156. echo 'restore of maketd/README failed'
  2157. Wc_c="`wc -c < 'maketd/README'`"
  2158. test 245 -eq "$Wc_c" ||
  2159.     echo 'maketd/README: original size 245, current size' "$Wc_c"
  2160. fi
  2161. # ============= maketd/main.h ==============
  2162. if test -f 'maketd/main.h' -a X"$1" != X"-c"; then
  2163.     echo 'x - skipping maketd/main.h (File already exists)'
  2164. else
  2165. echo 'x - extracting maketd/main.h (Text)'
  2166. sed 's/^X//' << 'Purdue' > 'maketd/main.h' &&
  2167. /*
  2168. X * parse options
  2169. X */
  2170. X
  2171. extern char *progname, uline[], *help[];
  2172. extern int main(), usage();
  2173. extern int alldep, use_stdout, force_head, replace, verbose, shortincl;
  2174. extern char *explicit, *exten, *inlib, *makename;
  2175. Purdue
  2176. chmod 0444 maketd/main.h ||
  2177. echo 'restore of maketd/main.h failed'
  2178. Wc_c="`wc -c < 'maketd/main.h'`"
  2179. test 216 -eq "$Wc_c" ||
  2180.     echo 'maketd/main.h: original size 216, current size' "$Wc_c"
  2181. fi
  2182. exit 0
  2183.