home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / archie / patch01 < prev    next >
Encoding:
Text File  |  1992-04-15  |  58.7 KB  |  1,774 lines
  1. Newsgroups: comp.sources.misc
  2. From: brendan@cs.widener.edu (Brendan Kehoe)
  3. Subject:  v29i076:  archie - A client to query the Archie FTP databases, Patch01
  4. Message-ID: <1992Apr16.025857.24643@sparky.imd.sterling.com>
  5. X-Md4-Signature: 84f728c87e54525420623391e149635f
  6. Date: Thu, 16 Apr 1992 02:58:57 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: brendan@cs.widener.edu (Brendan Kehoe)
  10. Posting-number: Volume 29, Issue 76
  11. Archive-name: archie/patch01
  12. Environment: UNIX, VMS, MSDOS A/UX
  13. Patch-To: archie: Volume 27, Issue 79-84
  14.  
  15. The patch below brings the stand-alone archie client to version 1.3.2.
  16.  
  17.  A number of portability problems have been fixed, and proper support
  18. for A/UX is included.  Also the CU/TCP port was cleaned up (this fix
  19. is present in the DOS version currently being distributed as
  20. archie-dos.zip).  The VMS port was also cleaned up.  This client's now
  21. in sync with the Prospero libraries as well.
  22.  
  23.  This will be the last release before version 2.0, which will hopefully
  24. incorporate all of the planned changes to the Archie 3.0 server.
  25.  
  26.  You can get the full client by FTPing to any of the Archie servers
  27. and looking in the /archie/clients subdirectory, or by FTPing to
  28. ftp.cs.widener.edu in /pub/archie, or cs.rochester.edu in /pub.
  29.  
  30.  Here's the README, followed by the patch.
  31.  
  32. --
  33. [Last changed 04/14/92 v1.3.2]
  34.  
  35.  Enclosed you'll find a Prospero client for the archie service.  It'll
  36. let you query the archie databases without actually using an
  37. interactive process on the remote server's machine (e.g., archie.ans.net),
  38. resulting in a MUCH better response time.  It also helps lessen the
  39. load on the archie server itself.
  40.  
  41.  What's Archie?  It's a system that will let you check a database containing
  42. thousands of entries for the files that're available at FTP sites around
  43. the world.
  44.  
  45.  This is a third child of Clifford Neuman's Prospero project.  It's really
  46. the Archie client that's included in the prospero stuff, but I've taken out
  47. everything that's unnecessary for this client to work.  (Aka, you don't
  48. have to build all of Prospero to get the Archie client.)  Khun Yee Fung
  49. wrote an archie client in Perl, George Ferguson has written a client
  50. for use with XWindows, based in part upon this code.  Also, Scott
  51. Stark wrote a NeXT-Step client for the NeXT.
  52.  
  53.  Using the Archie Prospero interface in its true form will probably be of
  54. interest---check out the file `Prospero' for an example of its interface.
  55. If you find it intriguing, you should probably get the full prospero kit
  56. from the University of Washington on cs.washington.edu in pub/prospero.tar.Z.
  57.  
  58.  Suffice to say, there are now a number of ways to query Archie without
  59. bogging a server down with your logins.
  60.  
  61.  Check out the man page (or archie.doc, if you're using VMS or DOS)
  62. for instructions on how to use this archie client.  VMS users please
  63. note that you have to put quotes around args that are capital letters;
  64. for example,  $ ARCHIE "-L"  to list the available servers.
  65.  
  66.  Please check to make sure you don't have "archie" aliased or modified
  67. in some way to do a telnet or rlogin (which you may've done before
  68. this command-line ability came into being).
  69.  
  70.  If Archie consistently hangs (at different times of day with
  71. different queries), it's possible that your site has UDP traffic on
  72. ports > 1000 blocked, for security reasons.  Type `make udptest' to
  73. check---if it prints out the date, the Archie server is probably down;
  74. if it doesn't print out the date, either Widener's computer is down
  75. (God forbid ;-) ) or you do indeed have UDP blocked.  See your system
  76. administrator in this case.  If the problem persists and haven't the
  77. vaguest, then write me describing the situation and what machine/OS
  78. you're using.
  79.  
  80.  Write to archie-group@cs.mcgill.ca with questions about Archie itself.
  81.  Write to info-prospero@isi.edu about the Prospero protocol.
  82.  Write to brendan@cs.widener.edu with questions about this specific package.
  83.  
  84. diff -cr archie/INSTALL archie-1.3.2/INSTALL
  85. *** archie/INSTALL    Wed Jan  8 13:43:22 1992
  86. --- archie-1.3.2/INSTALL    Wed Apr 15 02:00:13 1992
  87. ***************
  88. *** 1,4 ****
  89. ! [Last changed: 01/09/92 v1.3]
  90.   
  91.    This is the minimal set of things you need to build an Archie client
  92.   that takes advantage of the Prospero system.  It is derived from the
  93. --- 1,4 ----
  94. ! [Last changed: 04/14/92 v1.3.2]
  95.   
  96.    This is the minimal set of things you need to build an Archie client
  97.   that takes advantage of the Prospero system.  It is derived from the
  98. ***************
  99. *** 20,67 ****
  100.   me a line---my goal is for anybody to just type "make" and not have to
  101.   worry about things like what functions their system supports.
  102.   
  103. !  * To make the client under VMS, you should edit MAKE.COM and select
  104. ! the appropriate define for your version of TCP/IP (currently Multinet,
  105. ! UCX, or Wollongong).  It will sense if you're using Gnu C or not.
  106. ! It's currently only been ported to VMS 5.4-2 -- I can't guarantee
  107. ! it'll work with older versions.  As with Unix, if you're in a country
  108. ! other than the United States (or archie.ans.net isn't close), please edit
  109. ! the default archie server; it's in archie.h for VMS, though, not MAKE.COM.
  110. ! (If anyone knows how to make MAKE.COM pass the value of ARCHIE, namely
  111. ! "foo.bar" *with* quotes, into the compiler, please let me know!)
  112.   
  113.    * To make the client under MSDOS or OS/2:
  114.      * with FTP Software's PC/TCP for MSDOS (version 2.1 or higher) and
  115.        OS/2 (version 1.1 and higher), use makefile.os2 or makefile.dos
  116.      * with CUTCP (NCSA telnet), use makefile.cut
  117. - 
  118. - 
  119. -  It's been successfully built on:
  120. - 
  121. -   Machine            OS
  122. - 
  123. - * Apollo            Domain/OS 10.3
  124. - * Apple Mac IIsomething        A/UX v2.01
  125. - * CDC Mips systems, all sorts    EP/IX 1.2.3 and 1.3.1
  126. - * Convex c210 & others        ConvexOS 9.0 & 9.1
  127. - * DecStations -- all sorts    Ultrix 4.1 and 4.2
  128. - * Encore Multimax 520 (XPC)    Encore UMAX 4.3
  129. - * Encore Multimax 520        Encore Mach 1.1alpha
  130. - * Harris HCX-9 (tahoe)        CX/UX 5.1
  131. - * HP systems            MORE/bsd-4.3, HP/UX 7.0, and HP/UX 8.0
  132. - * IBM PC            MSDOS and OS/2 w/ PC/TCP
  133. - * IBM RS/6000            AIX
  134. - * IBM RT            4.3BSD, and AIX
  135. - * ISI 68020            4.3BSD
  136. - * NeXT                NeXT OS 2.1
  137. - * Pyramid 9815            OSx 5.0
  138. - * Sequent Symmetry        Dynix 3.1.1
  139. - * SGI 4D/220GTX            SGI Irix 3.3.2
  140. - * Solbourne Series 5/600    OS/MP 4.0Da
  141. - * Stardent 3030            SysV Rel 3.0.1
  142. - * Suns -- all sorts        SunOS 4.0.3, 4.1, and 4.1.1
  143. - * Vax 8600            MORE/bsd-4.3
  144. - * Vax 6000/310            VMS 5.4/Wollongong 5.1
  145. - * MicroVax 3400            VMS 5.4-2/Multinet 2.2 and Multinet 3.0
  146.   
  147.   -- Brendan Kehoe (brendan@cs.widener.edu)
  148. --- 20,31 ----
  149.   me a line---my goal is for anybody to just type "make" and not have to
  150.   worry about things like what functions their system supports.
  151.   
  152. !  * To make the client under VMS, just type @MAKE and it'll ask you
  153. !    which of the available Archie servers is closest.  That's it!
  154.   
  155.    * To make the client under MSDOS or OS/2:
  156.      * with FTP Software's PC/TCP for MSDOS (version 2.1 or higher) and
  157.        OS/2 (version 1.1 and higher), use makefile.os2 or makefile.dos
  158.      * with CUTCP (NCSA telnet), use makefile.cut
  159.   
  160.   -- Brendan Kehoe (brendan@cs.widener.edu)
  161. diff -cr archie/Makefile archie-1.3.2/Makefile
  162. *** archie/Makefile    Wed Jan  8 14:08:44 1992
  163. --- archie-1.3.2/Makefile    Wed Apr 15 02:10:28 1992
  164. ***************
  165. *** 1,5 ****
  166.   #
  167. ! # Last changed: 1/9/92, v1.3
  168.   #
  169.   # Makefile for the minimal build for an archie Prospero client.
  170.   
  171. --- 1,5 ----
  172.   #
  173. ! # Last changed: 4/14/92, v1.3.2
  174.   #
  175.   # Makefile for the minimal build for an archie Prospero client.
  176.   
  177. ***************
  178. *** 11,23 ****
  179.   #    * If you're on a Stardent, add  -43
  180.   #    * If you're running EP/IX, you may need to add  -systype bsd43
  181.   #      but try it without it first.
  182. ! OPTIONS= -O -I. -I/usr/netinclude
  183.   
  184.   # For this, DEFINES is usually ok as-is.  Try it without any of these
  185.   # first; if some stuff fails or shows up undefined, then come back and
  186. ! # add 'em.
  187.   #
  188. - #     * if you're on an Apple running A/UX, add              -DAUX
  189.   #     * if you want to include the debugging code (so you
  190.   #       can help with problem-solving if any crop up), add    -DDEBUG
  191.   #     * if you're running Interactive Unix, add              -DISC
  192. --- 11,23 ----
  193.   #    * If you're on a Stardent, add  -43
  194.   #    * If you're running EP/IX, you may need to add  -systype bsd43
  195.   #      but try it without it first.
  196. ! OPTIONS= -O -I. -I/usr/netinclude -I/usr/ucbinclude
  197.   
  198.   # For this, DEFINES is usually ok as-is.  Try it without any of these
  199.   # first; if some stuff fails or shows up undefined, then come back and
  200. ! # add 'em.  Also please drop me a line if you had to add anything...ideally
  201. ! # things will reach a point where this whole section will be unnecessary.
  202.   #
  203.   #     * if you want to include the debugging code (so you
  204.   #       can help with problem-solving if any crop up), add    -DDEBUG
  205.   #     * if you're running Interactive Unix, add              -DISC
  206. ***************
  207. *** 36,47 ****
  208.   #    archie.ans.net        (USA [NY])
  209.   #    archie.rutgers.edu        (USA [NJ])
  210.   #    archie.sura.net        (USA [MD])
  211.   #    archie.mcgill.ca        (Canada)
  212.   #    archie.funet.fi        (Finland/Mainland Europe)
  213.   #    archie.au            (Australia)
  214.   #    archie.doc.ic.ac.uk    (Great Britain/Ireland)
  215.   #
  216. ! ARCHIE= archie.ans.net
  217.   
  218.   #    Usually LDFLAGS is empty; if, after you build this, archie
  219.   #     complains that it can't resolve ARCHIE.ANS.NET (or whatever
  220. --- 36,48 ----
  221.   #    archie.ans.net        (USA [NY])
  222.   #    archie.rutgers.edu        (USA [NJ])
  223.   #    archie.sura.net        (USA [MD])
  224. + #    archie.unl.edu        (USA [NE])
  225.   #    archie.mcgill.ca        (Canada)
  226.   #    archie.funet.fi        (Finland/Mainland Europe)
  227.   #    archie.au            (Australia)
  228.   #    archie.doc.ic.ac.uk    (Great Britain/Ireland)
  229.   #
  230. ! ARCHIE= archie.sura.net
  231.   
  232.   #    Usually LDFLAGS is empty; if, after you build this, archie
  233.   #     complains that it can't resolve ARCHIE.ANS.NET (or whatever
  234. ***************
  235. *** 50,57 ****
  236.   #    * If you're using ISC, add -linet
  237.   #    * If you're using Wollongong TCP/IP on an AT&T box, use the
  238.   #      arguments -lnet -lnsl_s .
  239. ! LDFLAGS= # -lresolv
  240. ! #LDFLAGS= # -lnet -lnsl_s
  241.   
  242.   # Change this if necessary.
  243.   RM=/bin/rm
  244. --- 51,63 ----
  245.   #    * If you're using ISC, add -linet
  246.   #    * If you're using Wollongong TCP/IP on an AT&T box, use the
  247.   #      arguments -lnet -lnsl_s .
  248. ! #    * If you're using UTS, add -lsocket
  249. ! #    * If you're using System V Release 4, add -L/usr/ucblib etc.
  250. ! LDFLAGS=
  251. ! #LDFLAGS= -lresolv
  252. ! #LDFLAGS= -lnet -lnsl_s
  253. ! #LDFLAGS= -lsocket
  254. ! #LDFLAGS= -L/usr/ucblib -lucb -lsockdns -lnsl
  255.   
  256.   # Change this if necessary.
  257.   RM=/bin/rm
  258. ***************
  259. *** 61,71 ****
  260.   # =========================
  261.   #
  262.   CFLAGS=$(OPTIONS) $(DEFINES) -DARCHIE_HOST=\"$(ARCHIE)\"
  263. ! #
  264.   OBJS=    aquery.o archie.o atalloc.o dirsend.o get_pauth.o get_vdir.o \
  265.       perrmesg.o procquery.o ptalloc.o regex.o stcopy.o support.o \
  266.       vlalloc.o vl_comp.o
  267. ! #
  268.   all: archie
  269.   
  270.   archie: $(OBJS)
  271. --- 67,80 ----
  272.   # =========================
  273.   #
  274.   CFLAGS=$(OPTIONS) $(DEFINES) -DARCHIE_HOST=\"$(ARCHIE)\"
  275. ! 
  276. ! VERSION=1.3.2
  277. ! VMS_VERSION=`echo $(VERSION) | sed -e 's,\\.,_,g'`
  278. ! 
  279.   OBJS=    aquery.o archie.o atalloc.o dirsend.o get_pauth.o get_vdir.o \
  280.       perrmesg.o procquery.o ptalloc.o regex.o stcopy.o support.o \
  281.       vlalloc.o vl_comp.o
  282. ! 
  283.   all: archie
  284.   
  285.   archie: $(OBJS)
  286. ***************
  287. *** 79,85 ****
  288.       $(RM) -f *.o archie archie.doc
  289.   
  290.   gclean: clean
  291. !     $(RM) -f *~ archie.0* archie.com archie.tar* gmon.out archie.doc
  292.   
  293.   unx-deadly:
  294.       unifdef -UXARCHIE xprocquery.c > procquery.c
  295. --- 88,94 ----
  296.       $(RM) -f *.o archie archie.doc
  297.   
  298.   gclean: clean
  299. !     $(RM) -f *~ archie.0* archie$(VMS_VERSION).com archie.tar* gmon.out archie.doc
  300.   
  301.   unx-deadly:
  302.       unifdef -UXARCHIE xprocquery.c > procquery.c
  303. ***************
  304. *** 106,132 ****
  305.   dist: tar shar dcl
  306.   
  307.   shar: archie.doc
  308. !     makekit -narchie. $(FILES) vms msdos > Manifest
  309.   
  310.   archie.doc: archie.man
  311.       nroff -man archie.man | tr '\010' _ | sed -e s/__//g > archie.doc
  312.   
  313.   dcl: archie.doc
  314. !     echo '$$ write sys$$output "Unpacking..."' > archie.com
  315. !     echo '$$ if f$$search("archie.dir") .eqs. "" then create/dir [.ARCHIE]' >> archie.com
  316. !     echo '$$ if f$$search("[.ARCHIE]vms.dir") .eqs. "" then create/dir [.ARCHIE.VMS]' >> archie.com
  317. !     echo '$$ if f$$search("[.ARCHIE]msdos.dir") .eqs. "" then create/dir [.ARCHIE.MSDOS]' >> archie.com
  318. !     echo '$$ set noverify' >> archie.com
  319. !     (cd .. ; dclshar `echo $(FILES) | tr ' ' '\012' |\
  320. !      sed -e "s/^/archie\//g"` >> archie/archie.com )
  321. !     echo '$$ write sys$$output "Ok, now enter the ARCHIE directory, look at MAKE.COM, then type @MAKE ."' >> archie.com
  322.   
  323.   tar: archie.doc
  324. !     ( cd .. ; tar cvf archie/archie.tar `echo $(FILES) |\
  325. !      tr ' ' '\012' | sed -e "s/^/archie\//g"` )
  326. !     compress -f archie.tar
  327. ! 
  328. ! atest: archie.doc
  329. !     ( cd .. ; tar cvf archie/atest.tar `echo $(BFILES) |\
  330. !      tr ' ' '\012' | sed -e "s/^/archie\//g"` )
  331. !     compress -f atest.tar
  332. --- 115,140 ----
  333.   dist: tar shar dcl
  334.   
  335.   shar: archie.doc
  336. !     makekit -narchie-$(VERSION). `echo $(FILES) \
  337. !         tr ' ' '\012' | sed -e "s/^/archie-$(VERSION)\//g"` \
  338. !         vms msdos > Manifest
  339.   
  340.   archie.doc: archie.man
  341.       nroff -man archie.man | tr '\010' _ | sed -e s/__//g > archie.doc
  342.   
  343.   dcl: archie.doc
  344. !     if [ ! -d archie$(VMS_VERSION)/ ]; then ln -s . archie$(VMS_VERSION); fi
  345. !     echo '$$ write sys$$output "Unpacking..."' > archie$(VMS_VERSION).com
  346. !     echo '$$ if f$$search("archie.dir") .eqs. "" then create/dir [.ARCHIE]' >> archie$(VMS_VERSION).com
  347. !     echo '$$ if f$$search("[.ARCHIE]vms.dir") .eqs. "" then create/dir [.ARCHIE.VMS]' >> archie$(VMS_VERSION).com
  348. !     echo '$$ if f$$search("[.ARCHIE]msdos.dir") .eqs. "" then create/dir [.ARCHIE.MSDOS]' >> archie$(VMS_VERSION).com
  349. !     echo '$$ set noverify' >> archie$(VMS_VERSION).com
  350. !     dclshar `echo "$(FILES)" | tr ' ' '\012' | \
  351. !         sed -e "s/^/archie\//g"` >> archie$(VMS_VERSION).com
  352. !     echo '$$ write sys$$output "Ok, now enter the ARCHIE directory, look at MAKE.COM, then type @MAKE ."' >> archie$(VMS_VERSION).com
  353.   
  354.   tar: archie.doc
  355. !     if [ ! -d archie-$(VERSION)/ ]; then ln -s . archie-$(VERSION); fi
  356. !     tar cvf archie-$(VERSION).tar `echo $(FILES) |\
  357. !      tr ' ' '\012' | sed -e "s/^/archie-$(VERSION)\//g"`
  358. !     compress -f archie-$(VERSION).tar
  359. diff -cr archie/README archie-1.3.2/README
  360. *** archie/README    Wed Jan  8 13:45:41 1992
  361. --- archie-1.3.2/README    Wed Apr 15 02:08:12 1992
  362. ***************
  363. *** 1,8 ****
  364. ! [Last changed 01/09/92 v1.3]
  365.   
  366.    Enclosed you'll find a Prospero client for the archie service.  It'll
  367.   let you query the archie databases without actually using an
  368. ! interactive process on the remote server's machine (e.g. archie.ans.net),
  369.   resulting in a MUCH better response time.  It also helps lessen the
  370.   load on the archie server itself.
  371.   
  372. --- 1,8 ----
  373. ! [Last changed 04/14/92 v1.3.2]
  374.   
  375.    Enclosed you'll find a Prospero client for the archie service.  It'll
  376.   let you query the archie databases without actually using an
  377. ! interactive process on the remote server's machine (e.g., archie.ans.net),
  378.   resulting in a MUCH better response time.  It also helps lessen the
  379.   load on the archie server itself.
  380.   
  381. ***************
  382. *** 14,21 ****
  383.   the Archie client that's included in the prospero stuff, but I've taken out
  384.   everything that's unnecessary for this client to work.  (Aka, you don't
  385.   have to build all of Prospero to get the Archie client.)  Khun Yee Fung
  386. ! wrote an archie client in Perl, and George Ferguson has written a client
  387. ! for use with XWindows, based in part upon this code.
  388.   
  389.    Using the Archie Prospero interface in its true form will probably be of
  390.   interest---check out the file `Prospero' for an example of its interface.
  391. --- 14,22 ----
  392.   the Archie client that's included in the prospero stuff, but I've taken out
  393.   everything that's unnecessary for this client to work.  (Aka, you don't
  394.   have to build all of Prospero to get the Archie client.)  Khun Yee Fung
  395. ! wrote an archie client in Perl, George Ferguson has written a client
  396. ! for use with XWindows, based in part upon this code.  Also, Scott
  397. ! Stark wrote a NeXT-Step client for the NeXT.
  398.   
  399.    Using the Archie Prospero interface in its true form will probably be of
  400.   interest---check out the file `Prospero' for an example of its interface.
  401. ***************
  402. *** 26,32 ****
  403.   bogging a server down with your logins.
  404.   
  405.    Check out the man page (or archie.doc, if you're using VMS or DOS)
  406. ! for instructions on how to use this archie client.
  407.   
  408.    Please check to make sure you don't have "archie" aliased or modified
  409.   in some way to do a telnet or rlogin (which you may've done before
  410. --- 27,35 ----
  411.   bogging a server down with your logins.
  412.   
  413.    Check out the man page (or archie.doc, if you're using VMS or DOS)
  414. ! for instructions on how to use this archie client.  VMS users please
  415. ! note that you have to put quotes around args that are capital letters;
  416. ! for example,  $ ARCHIE "-L"  to list the available servers.
  417.   
  418.    Please check to make sure you don't have "archie" aliased or modified
  419.   in some way to do a telnet or rlogin (which you may've done before
  420. ***************
  421. *** 42,47 ****
  422.   vaguest, then write me describing the situation and what machine/OS
  423.   you're using.
  424.   
  425. !  Write to archie-l@cs.mcgill.ca with questions about Archie itself.
  426.    Write to info-prospero@isi.edu about the Prospero protocol.
  427.    Write to brendan@cs.widener.edu with questions about this specific package.
  428. --- 45,50 ----
  429.   vaguest, then write me describing the situation and what machine/OS
  430.   you're using.
  431.   
  432. !  Write to archie-group@cs.mcgill.ca with questions about Archie itself.
  433.    Write to info-prospero@isi.edu about the Prospero protocol.
  434.    Write to brendan@cs.widener.edu with questions about this specific package.
  435. diff -cr archie/aquery.c archie-1.3.2/aquery.c
  436. *** archie/aquery.c    Tue Nov 19 21:31:57 1991
  437. --- archie-1.3.2/aquery.c    Wed Apr 15 01:18:24 1992
  438. ***************
  439. *** 11,23 ****
  440.    * and new sorting code by George Ferguson (ferguson@cs.rochester.edu) 
  441.    * and Brendan Kehoe (brendan@cs.widener.edu).  MSDOS and OS2 modifications
  442.    * to use with PC/TCP by Mark Towfiq (towfiq@FTP.COM).
  443. -  *
  444. -  * v1.2.1 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  445. -  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  446. -  * v1.1.3 - 08/30/91 (bpk) - cast index()
  447. -  * v1.1.2 - 08/20/91 (bcn) - make it do it properly (new invdatecmplink)
  448. -  * v1.1.1 - 08/20/91 (bpk) - made sorting go inverted as we purport it does
  449.    */
  450.   #include <copyright.h>
  451.   
  452.   #include <stdio.h>
  453. --- 11,18 ----
  454.    * and new sorting code by George Ferguson (ferguson@cs.rochester.edu) 
  455.    * and Brendan Kehoe (brendan@cs.widener.edu).  MSDOS and OS2 modifications
  456.    * to use with PC/TCP by Mark Towfiq (towfiq@FTP.COM).
  457.    */
  458. + 
  459.   #include <copyright.h>
  460.   
  461.   #include <stdio.h>
  462. ***************
  463. *** 82,88 ****
  464.       char qstring[MAX_VPATH];    /* For construting the query  */
  465.       VLINK    links;        /* Matches returned by server */
  466.       VDIR_ST    dir_st;         /* Filled in by get_vdir      */
  467. !     VDIR    dir= &dir_st;
  468.       
  469.       VLINK    p,q,r,lowest,nextp,pnext,pprev;
  470.       int    tmp;
  471. --- 77,83 ----
  472.       char qstring[MAX_VPATH];    /* For construting the query  */
  473.       VLINK    links;        /* Matches returned by server */
  474.       VDIR_ST    dir_st;         /* Filled in by get_vdir      */
  475. !     PVDIR    dir= &dir_st;
  476.       
  477.       VLINK    p,q,r,lowest,nextp,pnext,pprev;
  478.       int    tmp;
  479. diff -cr archie/archie.c archie-1.3.2/archie.c
  480. *** archie/archie.c    Fri Jan 10 13:12:38 1992
  481. --- archie-1.3.2/archie.c    Sun Apr  5 13:24:36 1992
  482. ***************
  483. *** 3,13 ****
  484.    *
  485.    * For copying and distribution information, please see the file
  486.    * <copyright.h>.
  487. -  *
  488. -  * v1.2.1 - 11/21/91 (bkc) - added CUTCP library support for MSDOS
  489. -  * v1.2.0 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  490. -  * v1.1.2 - 08/27/91 (bpk) - added <pmachine.h> for index()
  491. -  * v1.1.1 - 08/22/91 (bpk) - added 0-9 as arguments
  492.    */
  493.   
  494.   #include <copyright.h>
  495. --- 3,8 ----
  496. ***************
  497. *** 28,33 ****
  498. --- 23,31 ----
  499.   # ifdef CUTCP
  500.   #  include <msdos/cutcp.h>
  501.   #  include <msdos/hostform.h>
  502. + /* The default stack size for a BC program is 4k; jack it up to 16 and add the
  503. +    Check for Stack Overflow option to the compiler.  */
  504. + extern unsigned _stklen = 16 * 1024;
  505.   # endif
  506.   #endif
  507.   
  508. diff -cr archie/archie.h archie-1.3.2/archie.h
  509. *** archie/archie.h    Wed Jan  8 13:08:48 1992
  510. --- archie-1.3.2/archie.h    Wed Apr 15 01:32:15 1992
  511. ***************
  512. *** 6,32 ****
  513.    *                Clifford Neuman (bcn@isi.edu).
  514.    */
  515.   
  516. - #ifdef VMS
  517. - /*
  518. -  * This has to be edited if you're running VMS, cuz I gave up after about
  519. -  * an hour trying to make DCL do       /define(archie_host="\"FOO\"")
  520. -  *
  521. -  * Edit ARCHIE_HOST to be one of :
  522. -  *    archie.ans.net        (USA [NY])
  523. -  *    archie.rutgers.edu        (USA [NJ])
  524. -  *    archie.sura.net        (USA [MD])
  525. -  *    archie.mcgill.ca        (Canada)
  526. -  *    archie.funet.fi        (Finland/Mainland Europe)
  527. -  *    archie.au            (Australia)
  528. -  *    archie.doc.ic.ac.uk    (Great Britain/Ireland)
  529. -  */
  530. - #define ARCHIE_HOST    "archie.ans.net"
  531. - #endif /* VMS */
  532. - 
  533.   /* You can't touch this.  */
  534.   #ifndef XARCHIE
  535. ! # define ARCHIES    "archie.ans.net (USA [NY])","archie.rutgers.edu (USA [NJ])","archie.sura.net (USA [MD])","archie.mcgill.ca (Canada)","archie.funet.fi (Finland/Mainland Europe)","archie.au (Australia)","archie.doc.ic.ac.uk (Great Britain/Ireland)"
  536. ! # define NARCHIES    7
  537.   #endif
  538.   
  539.   /*
  540. --- 6,15 ----
  541.    *                Clifford Neuman (bcn@isi.edu).
  542.    */
  543.   
  544.   /* You can't touch this.  */
  545.   #ifndef XARCHIE
  546. ! # define ARCHIES    "archie.ans.net (USA [NY])","archie.rutgers.edu (USA [NJ])","archie.sura.net (USA [MD])","archie.unl.edu (USA [NE])","archie.mcgill.ca (Canada)","archie.funet.fi (Finland/Mainland Europe)","archie.au (Australia)","archie.doc.ic.ac.uk (Great Britain/Ireland)"
  547. ! # define NARCHIES    8
  548.   #endif
  549.   
  550.   /*
  551. ***************
  552. *** 53,59 ****
  553.   #ifdef XARCHIE
  554.   # define CLIENT_VERSION    "1.3-X"
  555.   #else
  556. ! # define CLIENT_VERSION "1.3"
  557.   #endif
  558.   
  559.   /* Procedures from user/aquery.c */
  560. --- 36,42 ----
  561.   #ifdef XARCHIE
  562.   # define CLIENT_VERSION    "1.3-X"
  563.   #else
  564. ! # define CLIENT_VERSION "1.3.2"
  565.   #endif
  566.   
  567.   /* Procedures from user/aquery.c */
  568. diff -cr archie/copyright.h archie-1.3.2/copyright.h
  569. *** archie/copyright.h    Tue Nov 19 21:32:08 1991
  570. --- archie-1.3.2/copyright.h    Wed Apr  1 16:32:55 1992
  571. ***************
  572. *** 1,3 ****
  573. --- 1,6 ----
  574. + /* These are the uw-copyright.h and usc-copyright.h files that appear in
  575. +    the Prospero distribution.  */
  576. + 
  577.   /* 
  578.     Copyright (c) 1989, 1990, 1991 by the University of Washington
  579.   
  580. ***************
  581. *** 13,18 ****
  582. --- 16,55 ----
  583.     provided "as is" without express or implied warranty.
  584.   
  585.     Prospero was written by Clifford Neuman (bcn@isi.edu).
  586. + 
  587. +   Questions concerning this software should be directed to 
  588. +   info-prospero@isi.edu.
  589. + 
  590. +   */
  591. + 
  592. + /* 
  593. +   Copyright (c) 1991, 1992 by the University of Southern California
  594. +   All rights reserved.
  595. + 
  596. +   Permission to use, copy, modify, and distribute this software and its
  597. +   documentation in source and binary forms for non-commercial purposes
  598. +   and without fee is hereby granted, provided that the above copyright
  599. +   notice appear in all copies and that both the copyright notice and
  600. +   this permission notice appear in supporting documentation. and that
  601. +   any documentation, advertising materials, and other materials related
  602. +   to such distribution and use acknowledge that the software was
  603. +   developed by the University of Southern California, Information
  604. +   Sciences Institute.  The name of the University may not be used to
  605. +   endorse or promote products derived from this software without
  606. +   specific prior written permission.
  607. + 
  608. +   THE UNIVERSITY OF SOUTHERN CALIFORNIA makes no representations about
  609. +   the suitability of this software for any purpose.  THIS SOFTWARE IS
  610. +   PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES,
  611. +   INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  612. +   MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  613. + 
  614. +   Other copyrights might apply to parts of the Prospero distribution
  615. +   and are so noted when applicable.
  616. + 
  617. +   Prospero was originally written by Clifford Neuman (bcn@isi.edu).
  618. +   Contributors include Benjamin Britt (britt@isi.edu)
  619. +   and others identified in individual modules.
  620.   
  621.     Questions concerning this software should be directed to 
  622.     info-prospero@isi.edu.
  623. diff -cr archie/dirsend.c archie-1.3.2/dirsend.c
  624. *** archie/dirsend.c    Tue Dec 17 10:39:41 1991
  625. --- archie-1.3.2/dirsend.c    Sun Apr  5 13:24:28 1992
  626. ***************
  627. *** 3,29 ****
  628.    *
  629.    * For copying and distribution information, please see the file
  630.    * <copyright.h>.
  631. -  *
  632. -  * v1.2.8 - 12/17/91 (jwb) - fixed warning message
  633. -  * v1.2.7 - 12/13/91 (bpk) - took out XARCHIE code since we've diverged
  634. -  * v1.2.6 - 12/13/91 (jwb) - UCX stuff
  635. -  * v1.2.5 - 11/21/91 (bkc) - new version for CUTCP, ugly as it is.
  636. -  * v1.2.4 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  637. -  * v1.2.3 - 11/04/91 (bcn) - removed host comparison and replaced with check
  638. -  *                 for connection id (undoes effect of v1.2.2.).
  639. -  * v1.2.2 - 11/02/91 (gf)  - removed extra inet_ntoa() calls and stuff for
  640. -  *                 multi-interface nets (lmjm@doc.imperial.ac.uk)
  641. -  * v1.2.1 - 10/20/91 (gf)  - asynch implementation
  642. -  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  643. -  * v1.1.2 - 08/30/91 (bpk) - added VMS support
  644. -  * v1.1.1 - 08/29/91 (bcn) - changed backoff handling
  645. -  * v1.1.0 - 08/13/91 (gf)  - added XArchie status calls
  646. -  *
  647. -  * gf: 20 Oct 1991:
  648. -  *  Broken into pieces so that under X dirsend() doesn't block in select()
  649. -  *  but rather uses Xt calls to allow continued event processing. If
  650. -  *  XARCHIE is not defined, can still be used since processEvent() will
  651. -  *  use select() in this case.
  652.    */
  653.   
  654.   /* If you're going to hack on this, I'd suggest using unifdef with -UCUTCP
  655. --- 3,8 ----
  656. ***************
  657. *** 57,62 ****
  658. --- 36,44 ----
  659.   # else
  660.   #  include <sys/time.h>
  661.   # endif
  662. + # ifdef WANT_BOTH_TIME
  663. + #  include <sys/time.h>
  664. + # endif
  665.   # ifdef NEED_STRING_H
  666.   #  include <string.h>
  667.   # else
  668. ***************
  669. *** 699,705 ****
  670.           if(stmp) pkt_cid = ntohs(stmp);
  671.           ctlptr += 2;
  672.       }
  673. !     if(pkt_cid && this_conn_id && (pkt_cid != this_conn_id)) {
  674.           /* The packet is not for us */
  675.           /* goto keep_waiting; */
  676.           keepWaitingDirsend();
  677. --- 681,687 ----
  678.           if(stmp) pkt_cid = ntohs(stmp);
  679.           ctlptr += 2;
  680.       }
  681. !     if(pkt_cid && this_conn_id && (pkt_cid != ntohs(this_conn_id))) {
  682.           /* The packet is not for us */
  683.           /* goto keep_waiting; */
  684.           keepWaitingDirsend();
  685. ***************
  686. *** 799,805 ****
  687.       bcopy(ctlptr,&stmp,2);
  688.       if(stmp) pkt_cid = ntohs(stmp);
  689.       ctlptr += 2;
  690. !     if(pkt_cid && this_conn_id && (pkt_cid != this_conn_id)) {
  691.           /* The packet is not for us */
  692.           /* goto keep_waiting; */
  693.           keepWaitingDirsend();
  694. --- 781,787 ----
  695.       bcopy(ctlptr,&stmp,2);
  696.       if(stmp) pkt_cid = ntohs(stmp);
  697.       ctlptr += 2;
  698. !     if(pkt_cid && this_conn_id && (pkt_cid != ntohs(this_conn_id))) {
  699.           /* The packet is not for us */
  700.           /* goto keep_waiting; */
  701.           keepWaitingDirsend();
  702. diff -cr archie/get_pauth.c archie-1.3.2/get_pauth.c
  703. *** archie/get_pauth.c    Tue Dec  3 14:31:41 1991
  704. --- archie-1.3.2/get_pauth.c    Sun Apr  5 13:26:25 1992
  705. ***************
  706. *** 3,13 ****
  707.    *
  708.    * For copying and distribution information, please see the file
  709.    * <copyright.h>.
  710. -  *
  711. -  * v1.2.2 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  712. -  * v1.2.1 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  713. -  * v1.2.0 - 09/17/91 (bpk) - fixed it up (thanks to synful)
  714. -  * v1.1.1 - 08/30/91 (bpk) - added VMS support
  715.    */
  716.   
  717.   #include <copyright.h>
  718. --- 3,8 ----
  719. diff -cr archie/get_vdir.c archie-1.3.2/get_vdir.c
  720. *** archie/get_vdir.c    Tue Nov 19 21:32:09 1991
  721. --- archie-1.3.2/get_vdir.c    Wed Apr 15 01:20:13 1992
  722. ***************
  723. *** 3,13 ****
  724.    *
  725.    * For copying and distribution information, please see the file
  726.    * <copyright.h>.
  727. -  *
  728. -  * v1.2.2 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  729. -  * v1.2.1 - 10/23/91 (bpk) - added missing code
  730. -  * v1.2.0 - 09/17/91 (bpk) - added new get_vdir code
  731. -  * v1.1.1 - 08/30/91 (bpk) - cast rindex()
  732.    */
  733.   
  734.   #include <copyright.h>
  735. --- 3,8 ----
  736. ***************
  737. *** 84,90 ****
  738.       char    *dhost;        /* Host on which directory resides           */
  739.       char    *dfile;        /* Name of file on that host                 */
  740.       char    *components;    /* Component name (wildcards allowed)        */
  741. !     VDIR    dir;        /* Structure to be filled in             */
  742.       long    flags;        /* Flags                         */
  743.       VLINK    filters;    /* Filters to be applied to result           */
  744.       char    *acomp;        /* Components left to be resolved            */
  745. --- 79,85 ----
  746.       char    *dhost;        /* Host on which directory resides           */
  747.       char    *dfile;        /* Name of file on that host                 */
  748.       char    *components;    /* Component name (wildcards allowed)        */
  749. !     PVDIR    dir;        /* Structure to be filled in             */
  750.       long    flags;        /* Flags                         */
  751.       VLINK    filters;    /* Filters to be applied to result           */
  752.       char    *acomp;        /* Components left to be resolved            */
  753. ***************
  754. *** 163,171 ****
  755.       request = ptalloc();
  756.   
  757.       sprintf(request->start,
  758. !         "VERSION %d\nAUTHENTICATOR %s %s\nDIRECTORY ASCII %s\nLIST %s COMPONENTS %s%s%s\n",
  759. !         VFPROT_VNO, authinfo->auth_type, authinfo->authenticator,
  760. !         dfile,opt, (comp ? comp : ""), (mcomp ? "/" : ""),
  761.           (mcomp ? acomp : ""));
  762.   
  763.       request->length = strlen(request->start);
  764. --- 158,167 ----
  765.       request = ptalloc();
  766.   
  767.       sprintf(request->start,
  768. !         "VERSION %d %s\nAUTHENTICATOR %s %s\nDIRECTORY ASCII %s\nLIST %s COMPONENTS %s%s%s\n",
  769. !         VFPROT_VNO, PFS_SW_ID, authinfo->auth_type,
  770. !         authinfo->authenticator, dfile, opt,
  771. !         (comp ? comp : ""), (mcomp ? "/" : ""),
  772.           (mcomp ? acomp : ""));
  773.   
  774.       request->length = strlen(request->start);
  775. ***************
  776. *** 311,317 ****
  777.               
  778.               break;
  779.   
  780. !         case 'F': /* FILTER, FAILURE or FORWARDED*/
  781.               /* FORWARDED */
  782.               if(strncmp(line,"FORWARDED",9) == 0) {
  783.               if(fwdcnt-- <= 0) {
  784. --- 307,313 ----
  785.               
  786.               break;
  787.   
  788. !         case 'F': /* FILTER, FAILURE or FORWARDED */
  789.               /* FORWARDED */
  790.               if(strncmp(line,"FORWARDED",9) == 0) {
  791.               if(fwdcnt-- <= 0) {
  792. diff -cr archie/make.com archie-1.3.2/make.com
  793. *** archie/make.com    Wed Jan  8 13:17:43 1992
  794. --- archie-1.3.2/make.com    Mon Jan 20 18:38:46 1992
  795. ***************
  796. *** 1,121 ****
  797. ! $!
  798. ! $! MAKE.COM - build the Archie client for VMS (5.4-2, others?)
  799. ! $!            for MultiNet TCP/IP, v2.2 & 3.0, and Wollongong 5.xx+
  800. ! $!          and UCX
  801. ! $!
  802. ! $! Many thanks to Jim Barbour (jwbarbour@clipr.colorado.edu) for all
  803. ! $! of his help getting this up to par.
  804. ! $!
  805. ! $! v1.2.2 - 12/13/91 (jwb) - ported to UCX & added dependencies
  806. ! $! v1.2.1 - 11/12/91 (bpk) - use option files
  807. ! $! v1.2   - 09/25/91 (bpk) - ported to Wollongong
  808. ! $!        - 09/20/91 (bpk) - fixed up strings.h stuff, etc
  809. ! $! v1.1   - 09/17/91 (bpk) - works with 3.0 now
  810. ! $! v1.0   - 08/30/91 (bpk) - Original
  811. ! $!
  812. ! $! If you want to force a compile (i.e. after modifying a .H file) then
  813. ! $! give @make the argument force.  i.e. $ make force
  814. ! $ force_compile = 0
  815. ! $ if p1 .eqs. "FORCE" then force_compile = 1
  816. ! $!
  817. ! $! * If you're running Multinet 3.0, leave this alone.  If you're
  818. ! $! running any version of Multinet less than 3.0 (e.g. 2.2), comment
  819. ! $! it out.
  820. ! $ mdef := ,multinet_30=1
  821. ! $! * If you're running Wollongong TCP, uncomment this.
  822. ! $!woll := ,wollongong=1
  823. ! $! * If you're running UCX, uncomment this.
  824. ! $!ucx := ,ucx=1
  825. ! $!
  826. ! $! * If you aren't in the US, or archie.ans.net doesn't ping "close" to
  827. ! $!   your site, edit the file ARCHIE.H and change ARCHIE_HOST appropriately.
  828. ! $! * Type @MAKE now.
  829. ! $!
  830. ! $!-----
  831. ! $ ve := f$verify(0)
  832. ! $!set noverify
  833. ! $ on control_y then goto hell
  834. ! $ on error then goto hell
  835. ! $ echo := write sys$output
  836. ! $!
  837. ! $ cc := cc/opt=noinline
  838. ! $ cflags := /define=(debug=1,funcs=1,noregex=1'mdef 'woll 'ucx)
  839. ! $!g := /debug
  840. ! $ if f$trnlnm("GNU_CC") .nes. "" then cc := gcc/optimize
  841. ! $!
  842. ! $ if f$search("strings.h") .nes. "" then delete/nolog/noconfirm []strings.h;*
  843. ! $ if "''cc'" .nes. "GCC" then copy/noconfirm sys$library:string.h []strings.h
  844. ! $ needs_linking = 0
  845. ! $!
  846. ! $ file := aquery
  847. ! $ gosub possibly_compile
  848. ! $ file := archie
  849. ! $ gosub possibly_compile
  850. ! $ file := atalloc
  851. ! $ gosub possibly_compile
  852. ! $ file := dirsend
  853. ! $ gosub possibly_compile
  854. ! $ file := get_pauth
  855. ! $ gosub possibly_compile
  856. ! $ file := get_vdir
  857. ! $ gosub possibly_compile
  858. ! $ file := perrmesg
  859. ! $ gosub possibly_compile
  860. ! $ file := procquery
  861. ! $ gosub possibly_compile
  862. ! $ file := ptalloc
  863. ! $ gosub possibly_compile
  864. ! $ file := regex
  865. ! $ gosub possibly_compile
  866. ! $ file := stcopy
  867. ! $ gosub possibly_compile
  868. ! $ file := support
  869. ! $ gosub possibly_compile
  870. ! $ file := vlalloc
  871. ! $ gosub possibly_compile
  872. ! $ file := vl_comp
  873. ! $ gosub possibly_compile
  874. ! $!
  875. ! $ do_vs := ,
  876. ! $ if "''ucx'" .nes. "" then libs :=  [.vms]ucx
  877. ! $ if "''mdef'" .nes. "" then libs := [.vms]multi
  878. ! $ if "''woll'" .nes. "" then libs := [.vms]woll
  879. ! $ if "''mdef'" .eqs. "" .and. "''woll'" .eqs. "" .and "''ucx'" .eqs. "" then-
  880. !                                 gosub dosup
  881. ! $!
  882. ! $ file :=
  883. ! $ if f$search("ARCHIE.EXE") .eqs. "" then needs_linking = 1
  884. ! $ if needs_linking
  885. ! $ then
  886. ! $ echo "Linking..."
  887. ! $ link'g/exe=archie aquery+archie+atalloc+-
  888. ! dirsend+get_pauth+get_vdir+-
  889. ! perrmesg+procquery+ptalloc+regex+stcopy+support+vlalloc+vl_comp'do_vs-
  890. ! 'libs/option
  891. ! $ else
  892. ! $ echo "ARCHIE is up to date."
  893. ! $ endif
  894. ! $ out:
  895. ! $ echo "Done! Define the symbol ARCHIE & fire away."
  896. ! $!
  897. ! $ hell:
  898. ! $ if "''file'" .nes. "" then delete/noconfirm/nolog 'file.obj;
  899. ! $ if 've .eq. 1 then set verify
  900. ! $ exit
  901. ! $!
  902. ! $ dosup:
  903. ! $ file := vms_support
  904. ! $ gosub possibly_compile
  905. ! $ do_vs := +vms_support,
  906. ! $ return
  907. ! $ possibly_compile:
  908. ! $ if force_compile then goto build
  909. ! $ if f$search("''file'.obj") .eqs. "" then goto build
  910. ! $ if f$cvtime(f$file("''file'.c","cdt")) .gts. -
  911. !      f$cvtime(f$file("''file'.obj","cdt")) then goto build
  912. ! $ return
  913. ! $ build:
  914. ! $ echo "Compiling ''file'.C..."
  915. ! $ 'cc/include=([])'cflags 'g 'file.c
  916. ! $ needs_linking = 1
  917. ! $ return
  918. --- 1,430 ----
  919. ! $! --- MAKE.COM ---                        !x='f$verify(0)'
  920. ! $! Description:
  921. ! $!  build the Archie client for VAX/VMS
  922. ! $!
  923. ! $! Written by Luke Brennan <brennan@coco.cchs.su.oz.au>
  924. ! $!
  925. ! $! Modifications:
  926. ! $!    Date    Programmer    Reason for modification.
  927. ! $! 20-Jan-92       ldcb        Initial coding.
  928. ! $!
  929. ! $!
  930. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  931. ! $ Archie_EXECUTABLE := "archie.exe"
  932. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  933. ! $! add a new call here with the appropriate new Archie server host(s)
  934. ! $!
  935. ! $ arg == 1
  936. ! $ Call AddHost "archie.ans.net"        "(USA [NY])"
  937. ! $ Call AddHost "archie.rutgers.edu"    "(USA [NJ])"
  938. ! $ Call AddHost "archie.sura.net"    "(USA [MD])"
  939. ! $ Call AddHost "archie.unl.edu"        "(USA [NE])"
  940. ! $ Call AddHost "archie.mcgill.ca"    "(Canada)"
  941. ! $ Call AddHost "archie.funet.fi"    "(Finland/Mainland Europe)"
  942. ! $ Call AddHost "archie.au"        "(Australia)"
  943. ! $ Call AddHost "archie.doc.ic.ac.uk"    "(Great Britain/Ireland)"
  944. ! $ MAXHOSTS = arg - 1
  945. ! $!
  946. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  947. ! $! add a new call here with any new source file(s)
  948. ! $! (P2 should be "SUPPORT" if intended for supporting an unknown TCPIP)
  949. ! $!
  950. ! $ arg == 1
  951. ! $ Call AddSource "AQUERY"
  952. ! $ Call AddSource "ARCHIE"
  953. ! $ Call AddSource "ATALLOC"
  954. ! $ Call AddSource "DIRSEND"
  955. ! $ Call AddSource "GET_PAUTH"
  956. ! $ Call AddSource "GET_VDIR"
  957. ! $ Call AddSource "PERRMESG"
  958. ! $ Call AddSource "PROCQUERY"
  959. ! $ Call AddSource "PTALLOC"
  960. ! $ Call AddSource "REGEX"
  961. ! $ Call AddSource "STCOPY"
  962. ! $ Call AddSource "SUPPORT"
  963. ! $ Call AddSource "VLALLOC"
  964. ! $ Call AddSource "VL_COMP"
  965. ! $ Call AddSource "VMS_SUPPORT" "SUPPORT"
  966. ! $ MAXSOURCEFILES = arg - 1
  967. ! $!
  968. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  969. ! $! add a call here with any supported TCP/IP implementations
  970. ! $!  P1 = name of TCP/IP product, P2 = cc/define to set,
  971. ! $!  P3 = logical to look for,    P4 = location of link/OPT,
  972. ! $!  P5 = MINIMUM VERSION of TCP/IP to support
  973. ! $!
  974. ! $!  Multinet should be last, as it can 'fake' a UCX if you want it to, so
  975. ! $!  UCX would come up as the 'real' net even though Multinet is used.
  976. ! $!
  977. ! $ arg == 1
  978. ! $ Call AddTCPIP "UCX"        "UCX"         "UCX$DEVICE" "[.vms]ucx.opt"
  979. ! $ Call AddTCPIP "WOLLONGONG" "WOLLONGONG"  "TWG$TCP"    "[.vms]woll.opt"
  980. ! $ Call AddTCPIP "MULTINET"   "MULTINET_30" "MULTINET"   "[.vms]multi.opt" "V3.0"
  981. ! $ MAXTCPIPTYPES = arg - 1
  982. ! $!
  983. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  984. ! $!
  985. ! $ YES = (1.eq.1)
  986. ! $ NO  = (1.eq.0)
  987. ! $!
  988. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  989. ! $!
  990. ! $ GoSub get_command_line_args
  991. ! $ GoSub check_for_GNU_cc
  992. ! $ GoSub check_which_TCPIP
  993. ! $ GoSub ask_nearest_ARCHIE_HOST
  994. ! $ GoSub check_for_strings_H
  995. ! $ GoSub set_cc_defines
  996. ! $ GoSub do_compiles
  997. ! $ If (LINKAGE_REQUIRED)
  998. ! $ Then GoSub do_link
  999. ! $ Else Write Sys$OutPut "ARCHIE is up to date."
  1000. ! $ EndIF
  1001. ! $ Exit
  1002. ! $!
  1003. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1004. ! $!
  1005. ! $get_command_line_args:
  1006. ! $ cmdline = P1 + P2 + P3 + P4 + P5 + P6 + P7 + P8
  1007. ! $ If ((f$locate("DEBUG",cmdline) .ne. f$length(cmdline)) -
  1008. !  .or. (f$locate("DBG",cmdline)   .ne. f$length(cmdline)))
  1009. ! $ Then debug := "/DeBug"
  1010. ! $ Else debug := "/NOdebug"
  1011. ! $ EndIF
  1012. ! $ If (f$locate("FORCE",cmdline) .ne. f$length(cmdline))
  1013. ! $ Then FORCEBUILD = YES
  1014. ! $ Else FORCEBUILD = NO
  1015. ! $ EndIF
  1016. ! $ If (f$locate("LINK",cmdline) .ne. f$length(cmdline))
  1017. ! $ Then FORCELINK = YES
  1018. ! $ Else FORCELINK = NO
  1019. ! $ EndIF
  1020. ! $ If ((f$locate("?",cmdline) .ne. f$length(cmdline)) -
  1021. !  .or. (f$locate("H",cmdline) .ne. f$length(cmdline)))
  1022. ! $ Then
  1023. ! $   Write Sys$Output "Usage:"
  1024. ! $   Write Sys$OutPut "     @MAKE [<debug>|<force>|<link>|<help>]
  1025. ! $   EXIT
  1026. ! $ EndIF
  1027. ! $ RETURN
  1028. ! $!
  1029. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1030. ! $!
  1031. ! $CHECK_FOR_GNU_CC:
  1032. ! $ If (f$trnlnm("GNU_CC") .nes. "")
  1033. ! $ Then
  1034. ! $   cc := "GCC/Optimize/Include=([])"
  1035. ! $   gnu_cc = YES
  1036. ! $ Else
  1037. ! $   cc := "CC/Optimize=NOinline/Include=([])"
  1038. ! $   gnu_cc = NO
  1039. ! $ EndIF
  1040. ! $!
  1041. ! $ RETURN
  1042. ! $!
  1043. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1044. ! $! for product P1, cc/define=P2 if logical P3 present on system.
  1045. ! $! Libs/option = P4 if present. ALL get disregarded if less than version P5
  1046. ! $!
  1047. ! $CHECK_WHICH_TCPIP:
  1048. ! $ tcpip_flag :=
  1049. ! $ tcpip_libs :=
  1050. ! $ NO_TCPIP_SUPPORT = YES
  1051. ! $ i = 1
  1052. ! $tcp_loop:
  1053. ! $ If (i .gt. MAXTCPIPTYPES) Then GoTo tcp_check_done
  1054. ! $ If (f$type(tcpip_P2_'i') .eqs. "") Then GoTo tcp_check_done
  1055. ! $ If (f$type(tcpip_P3_'i') .nes. "")
  1056. ! $ Then
  1057. ! $   tcpip_logical = tcpip_P3_'i'
  1058. ! $   If (tcpip_logical .nes. "")
  1059. ! $   Then                    ! logical to look for
  1060. ! $     If (f$logical(tcpip_logical) .nes. "")
  1061. ! $     Then
  1062. ! $       tcpip_flag = tcpip_P2_'i'
  1063. ! $       tcpip_flag = f$fao(",!AS=1",tcpip_flag)
  1064. ! $       NO_TCPIP_SUPPORT = NO
  1065. ! $       If (f$type(tcpip_P4_'i') .nes. "")
  1066. ! $       Then                    ! link/OPT file location
  1067. ! $        tcpip_linkOPTs = tcpip_P4_'i'
  1068. ! $         If (tcpip_linkOPTs .nes. "")
  1069. ! $         Then
  1070. ! $           If (f$search(tcpip_linkOPTs) .nes. "")
  1071. ! $           Then
  1072. ! $             tcpip_libs = tcpip_P4_'i'
  1073. ! $             tcpip_libs = f$fao("!AS/Option",tcpip_libs)
  1074. ! $           EndIF
  1075. ! $         EndIF
  1076. ! $       EndIF
  1077. ! $       If (f$type(tcpip_P5_'i') .nes. "")
  1078. ! $       Then                    ! minimum version specified
  1079. ! $         If (tcpip_P5_'i' .nes. "")
  1080. ! $         Then
  1081. ! $           GoSub CheckIfVersionOK
  1082. ! $           If VERSION_TOO_EARLY
  1083. ! $           Then                ! too early.. use SUPPORT files
  1084. ! $             tcpip_flag :=
  1085. ! $             tcpip_libs :=
  1086. ! $             NO_TCPIP_SUPPORT = YES
  1087. ! $          tcp_ver = tcpip_P5_'i'
  1088. ! $             tcp_name = tcpip_P1_'i'
  1089. ! $             Write Sys$OutPut f$fao( -
  1090. !            "Your version of !AS is earlier than !AS.",tcp_name,tcp_ver)
  1091. !           Write Sys$OutPut "MAKE will use STD support files instead."
  1092. ! $           EndIF
  1093. ! $         EndIF
  1094. ! $       EndIF
  1095. ! $     EndIF
  1096. ! $   EndIF
  1097. ! $ EndIF
  1098. ! $ i = i + 1
  1099. ! $ Goto tcp_loop
  1100. ! $tcp_check_done:
  1101. ! $ RETURN
  1102. ! $!
  1103. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1104. ! $!
  1105. ! $ASK_NEAREST_ARCHIE_HOST:
  1106. ! $GoSub CLRSCN
  1107. ! $ Write Sys$OutPut f$fao("!AS!/!/", -
  1108. !     "           Enter the number of the ARCHIE HOST nearest you.")
  1109. ! $!
  1110. ! $ i = 1
  1111. ! $_display_loop:
  1112. ! $ If (i .gt. MAXHOSTS) Then GoTo _display_done
  1113. ! $  Write Sys$OutPut f$fao("!2SL) !25AS  !AS",i,host_P1_'i',host_P2_'i')
  1114. ! $  i = i + 1
  1115. ! $ GoTo _display_loop
  1116. ! $_display_done:
  1117. ! $!
  1118. ! $ Assign/User_Mode/NOlog Sys$Command Sys$InPut
  1119. ! $_select_loop:                ! get their selection
  1120. ! $ Read     Sys$Command selection    -
  1121. !     /End=_selection_made    -
  1122. !     /Prompt="Enter number of your selection: "
  1123. ! $ If (selection .gt. MAXHOSTS)
  1124. ! $ Then
  1125. ! $   Write Sys$OutPut f$fao("!AS !2SL", "error: Options only go to", MAXHOSTS)
  1126. ! $   GoTo _select_loop
  1127. ! $ EndIF
  1128. ! $ ascii_string = f$edit(selection,"COLLAPSE,UPCASE")
  1129. ! $ ascii_char = f$extract(0,1,ascii_string)
  1130. ! $ If (.NOT. ("0" .les. ascii_char) .and. (ascii_char .les. "9"))
  1131. ! $ Then
  1132. ! $   Write Sys$OutPut -
  1133. !     f$fao("error: Enter option NUMBER (up to !2SL)", MAXHOSTS)
  1134. ! $   Goto _select_loop
  1135. ! $ EndIF
  1136. ! $!
  1137. ! $ local_archie = host_P1_'selection'
  1138. ! $!
  1139. ! $ RETURN
  1140. ! $!
  1141. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1142. ! $! If we're using VAXC then we need to grab STRINGS.H from SYS$LIBRARY.
  1143. ! $CHECK_FOR_STRINGS_H:
  1144. ! $ delete := delete
  1145. ! $ copy   := copy
  1146. ! $ If (f$search("strings.h") .nes. "") Then delete/nolog/noconfirm []strings.h;*
  1147. ! $ If .NOT. (GNU_CC) Then copy/noconfirm sys$library:string.h []strings.h
  1148. ! $!
  1149. ! $ RETURN
  1150. ! $!
  1151. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1152. ! $! **NOTE** use of global symbol!!!
  1153. ! $! **NOTE** this is the only way I could pass it to the compile subroutine
  1154. ! $! **NOTE** without DCL and/or CC stripping off too many layers of quotes..
  1155. ! $! **NOTE** yeah.. I know.. It's ugly...  you work it out!! :-)
  1156. ! $SET_CC_DEFINES:
  1157. ! $ archie_host = " """"""ARCHIE_HOST=""""""""''local_archie'"""""""" """""" "
  1158. ! $ cflags :== /define=(debug=1,funcs=1,noregex=1'tcpip_flag','archie_host')
  1159. ! $!
  1160. ! $RETURN
  1161. ! $!
  1162. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1163. ! $!
  1164. ! $DO_COMPILES:
  1165. ! $ GoSub CLRSCN
  1166. ! $ LINKAGE_REQUIRED == NO
  1167. ! $ If ("''f$type(Archie_EXECUTABLE)'" .nes. "")
  1168. ! $ Then
  1169. ! $   If (Archie_EXECUTABLE .nes. "")
  1170. ! $   Then If (f$search(Archie_EXECUTABLE) .eqs. "") Then LINKAGE_REQUIRED == YES
  1171. ! $   Else If (f$search("Archie.exe") .eqs. "") Then LINKAGE_REQUIRED == YES
  1172. ! $   EndIF
  1173. ! $ Else
  1174. ! $   If (f$search("Archie.exe") .nes. "") Then LINKAGE_REQUIRED == YES
  1175. ! $ EndIF
  1176. ! $ i = 1
  1177. ! $cc_loop:
  1178. ! $ If (i .gt. MAXSOURCEFILES) Then GoTo cc_done
  1179. ! $ source_file = source_P1_'i'
  1180. ! $ If ((f$type(source_P2_'i') .eqs. "") .or. (source_P2_'i' .eqs. ""))
  1181. ! $ Then Call Compile "''cc'" "''source_file'" "''debug'" 'FORCEBUILD'
  1182. ! $ Else
  1183. ! $   If ((NO_TCPIP_SUPPORT) .and. (source_P2_'i' .eqs. "SUPPORT"))
  1184. ! $   Then Call Compile "''cc'" "''source_file'" "''debug'" 'FORCEBUILD'
  1185. ! $   EndIF
  1186. ! $ EndIF
  1187. ! $ i = i + 1
  1188. ! $ GoTo cc_loop
  1189. ! $cc_done:
  1190. ! $ If (FORCELINK) Then LINKAGE_REQUIRED == YES
  1191. ! $!
  1192. ! $ RETURN
  1193. ! $!
  1194. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1195. ! $!
  1196. ! $DO_LINK:
  1197. ! $ If (f$type(Archie_EXECUTABLE) .nes. "")
  1198. ! $ Then
  1199. ! $   If (Archie_EXECUTABLE .nes. "")
  1200. ! $   Then executable := /Exec='Archie_EXECUTABLE'
  1201. ! $   Else executable := /Exec=Archie.exe
  1202. ! $   EndIF
  1203. ! $ Else
  1204. ! $   executable := /Exec=Archie.exe
  1205. ! $ EndIF
  1206. ! $ i = 1
  1207. ! $ object_files :=
  1208. ! $object_files_loop:
  1209. ! $ If (i .gt. MAXSOURCEFILES) Then GoTo object_files_done
  1210. ! $ object_file = source_P1_'i'
  1211. ! $ If ((f$type(source_P2_'i') .eqs. "") .or. (source_P2_'i' .eqs. ""))
  1212. ! $ Then object_files := 'object_files'+'object_file'
  1213. ! $ Else
  1214. ! $   If ((NO_TCPIP_SUPPORT) .and. (source_P2_'i' .eqs. "SUPPORT"))
  1215. ! $   Then object_files := 'object_files'+'object_file'
  1216. ! $   EndIF
  1217. ! $ EndIF
  1218. ! $ i = i + 1
  1219. ! $ GoTo object_files_loop
  1220. ! $object_files_done:
  1221. ! $ If (f$extract(0,1,object_files) .eqs. "+")
  1222. ! $ Then object_files = f$extract(1,f$length(object_files),object_files)
  1223. ! $ EndIF
  1224. ! $ If (tcpip_libs .nes. "")
  1225. ! $ Then object_files = object_files + ","
  1226. ! $ EndIF
  1227. ! $!
  1228. ! $ Set Verify
  1229. ! $ Link'debug''executable' 'object_files''tcpip_libs'
  1230. ! $ x='f$verify(0)'
  1231. ! $!
  1232. ! $ Write Sys$OutPut " "
  1233. ! $ Write Sys$OutPut " "
  1234. ! $ Write Sys$OutPut "Done! Define the symbol ARCHIE & fire away."
  1235. ! $!
  1236. ! $ RETURN
  1237. ! $!
  1238. ! $! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1239. ! $!
  1240. ! $CLRSCN:
  1241. ! $If (f$GetDVI("TT:","TT_ANSICRT"))            ! ANSI compatible?
  1242. ! $Then
  1243. ! $  CSI = "x["
  1244. ! $  CSI[0,8] = 27
  1245. ! $  CLS = CSI + "H" + CSI +"2J"
  1246. ! $  Write Sys$OutPut CLS
  1247. ! $Else
  1248. ! $  Write Sys$Output "''f$fao("!/!/!/!/!/!/!/!/!/!/!/")
  1249. ! $  Write Sys$Output "''f$fao("!/!/!/!/!/!/!/!/!/!/!/!/")
  1250. ! $EndIF
  1251. ! $Return
  1252. ! $!
  1253. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1254. ! $!
  1255. ! $AddHOST: SUBROUTINE
  1256. ! $ host_P1_'arg' :== "''P1'"
  1257. ! $ host_P2_'arg' :== "''P2'"
  1258. ! $ arg == arg + 1    ! *NOTE* global symbols used...
  1259. ! $ENDSUBROUTINE
  1260. ! $!
  1261. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1262. ! $!
  1263. ! $AddSOURCE: SUBROUTINE
  1264. ! $ source_P1_'arg' :== "''P1'"
  1265. ! $ source_P2_'arg' :== "''P2'"
  1266. ! $ arg == arg + 1    ! *NOTE* global symbols used...
  1267. ! $ENDSUBROUTINE
  1268. ! $!
  1269. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1270. ! $!
  1271. ! $AddTCPIP: SUBROUTINE
  1272. ! $ tcpip_P1_'arg' :== "''P1'"
  1273. ! $ tcpip_P2_'arg' :== "''P2'"
  1274. ! $ tcpip_P3_'arg' :== "''P3'"
  1275. ! $ tcpip_P4_'arg' :== "''P4'"
  1276. ! $ tcpip_P5_'arg' :== "''P5'"
  1277. ! $ arg == arg + 1    ! *NOTE* global symbols used...
  1278. ! $ENDSUBROUTINE
  1279. ! $!
  1280. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1281. ! $! **NOTE** cflags is a GLOBAL symbol due to problems with quoted /Defines
  1282. ! $! **NOTE** not passing down correctly.. (I gave up!)
  1283. ! $Compile: SUBROUTINE
  1284. ! $ YES = (1.eq.1)
  1285. ! $! --- do a Make of only that source which has been modified since its
  1286. ! $!     object code was generated or that is missing its object code.
  1287. ! $ cc       = "''P1'"
  1288. ! $ source   = "''P2'"
  1289. ! $ dbg      = "''P3'"
  1290. ! $ FORCED   = P4
  1291. ! $!
  1292. ! $source = source - ".C" + ".C"
  1293. ! $ t1 = f$search("''source'")                ! source exists?
  1294. ! $  If (t1 .eqs. "") Then GoTo _error_source_missing    ! YIPE!
  1295. ! $   source = source - ".C"
  1296. ! $    if (FORCED) Then GoTo _compile_the_source        ! forced to compile
  1297. ! $     t1 = f$search("''source'.OBJ")            ! object exist?
  1298. ! $     If (t1 .eqs. "") Then GoTo _compile_the_source    ! object missing
  1299. ! $     t1 = f$file_attributes("''source'.OBJ","RDT")    ! when was the OBJECT
  1300. ! $    t1 = f$cvtime(t1)                    ! produced? (rev date)
  1301. ! $   t2 = f$file_attributes("''source'.C","RDT")        ! when was source last
  1302. ! $  t2 = f$cvtime(t2)                    ! modified?
  1303. ! $ If (t1 .ges. t2) Then GoTo _bypass_compile        ! object still current
  1304. ! $_compile_the_source:
  1305. ! $ set verify
  1306. ! $ 'cc -
  1307. !   'cflags -
  1308. !   'dbg 'source
  1309. ! $ x='f$verify(0)'
  1310. ! $ LINKAGE_REQUIRED == YES
  1311. ! $  GoTo _cc_done
  1312. ! $_bypass_compile:                    ! didn't need to
  1313. ! $  GoTo _cc_done                    ! generate new OBJ file
  1314. ! $_error_source_missing:
  1315. ! $ Write Sys$OutPut "ERROR: unable to locate source file ''source'.C"
  1316. ! $_cc_done:
  1317. ! $ENDSUBROUTINE
  1318. ! $!
  1319. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1320. ! $!
  1321. ! $CHECKIFVERSIONOK:
  1322. ! $ required_version = tcpip_P5_'i'
  1323. ! $ tcpip_type = tcpip_P1_'i'
  1324. ! $ If ("MULTINET" .eqs. tcpip_type)
  1325. ! $ Then                        ! I know how to check MULTINET
  1326. ! $   If (f$search("MULTINET:MULTINET_VERSION.;") .nes. "")
  1327. ! $   Then
  1328. ! $     Open/share=READ fd MULTINET:MULTINET_VERSION.;
  1329. ! $     Read fd buffer
  1330. ! $     Close fd
  1331. ! $     v = buffer - "VERSION"
  1332. ! $     v = f$edit(V,"TRIM,COMPRESS")
  1333. ! $     If (v .ges. required_version)
  1334. ! $     Then VERSION_TOO_EARLY = NO
  1335. ! $     Else VERSION_TOO_EARLY = YES
  1336. ! $     EndIF
  1337. ! $   Else
  1338. ! $     VERSION_TOO_EARLY = YES
  1339. ! $   EndIF
  1340. ! $ Else                        ! don't know, so assume current
  1341. ! $   VERSION_TOO_EARLY = NO
  1342. ! $ EndIF
  1343. ! $!
  1344. ! $ RETURN
  1345. ! $!
  1346. ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1347. ! 
  1348. ! 
  1349. diff -cr archie/makefile.cut archie-1.3.2/makefile.cut
  1350. *** archie/makefile.cut    Tue Dec  3 15:11:21 1991
  1351. --- archie-1.3.2/makefile.cut    Tue Jan 28 08:41:46 1992
  1352. ***************
  1353. *** 16,22 ****
  1354.   
  1355.   DEFINES    = -DDEBUG -DCUTCP
  1356.   
  1357. ! CFLAGS= -ml -r -v $(DEFINES) -I.
  1358.   LFLAGS= /P/m/s
  1359.   CC = bccx
  1360.   
  1361. --- 16,22 ----
  1362.   
  1363.   DEFINES    = -DDEBUG -DCUTCP
  1364.   
  1365. ! CFLAGS= -k -N -ml -r -v $(DEFINES) -I.
  1366.   LFLAGS= /P/m/s
  1367.   CC = bccx
  1368.   
  1369. diff -cr archie/patchlevel.h archie-1.3.2/patchlevel.h
  1370. *** archie/patchlevel.h    Fri Jan 10 13:21:16 1992
  1371. --- archie-1.3.2/patchlevel.h    Wed Apr 15 01:32:54 1992
  1372. ***************
  1373. *** 3,8 ****
  1374. --- 3,9 ----
  1375.    *
  1376.    * History:
  1377.    *
  1378. +  * 04/14/92 v1.3.2 - Release.
  1379.    * 01/10/92 v1.3.1 - Release.
  1380.    * 01/09/92 v1.3 - Release.
  1381.    * 12/13/91      - added UCX support
  1382. diff -cr archie/pcompat.h archie-1.3.2/pcompat.h
  1383. *** archie/pcompat.h    Tue Nov 19 21:32:10 1991
  1384. --- archie-1.3.2/pcompat.h    Wed Apr  1 16:27:14 1992
  1385. ***************
  1386. *** 31,40 ****
  1387.   #define PMAP_ATSIGN_NF      3
  1388.   #define PMAP_ATSIGN      4
  1389.   
  1390. ! #define DISABLE_PFS(stmt) {int DpfStmp; DpfStmp = pfs_enable;\
  1391.                  pfs_enable = PMAP_DISABLE; \
  1392.                  stmt; \
  1393. !                pfs_enable = DpfStmp;}
  1394.   
  1395.   /* Definitions for PFS_ACCESS */
  1396.   #define PFA_MAP           0  /* Map the file name only                       */
  1397. --- 31,40 ----
  1398.   #define PMAP_ATSIGN_NF      3
  1399.   #define PMAP_ATSIGN      4
  1400.   
  1401. ! #define DISABLE_PFS(stmt) do {int DpfStmp; DpfStmp = pfs_enable;\
  1402.                  pfs_enable = PMAP_DISABLE; \
  1403.                  stmt; \
  1404. !                pfs_enable = DpfStmp;} while (0)
  1405.   
  1406.   /* Definitions for PFS_ACCESS */
  1407.   #define PFA_MAP           0  /* Map the file name only                       */
  1408. ***************
  1409. *** 42,45 ****
  1410.   #define PFA_CRMAP         2  /* Map file name.  Map to new name if not found */
  1411.   #define PFA_RO            4  /* Access to file is read only                  */
  1412.   
  1413. ! #define check_pfs_default() if(pfs_default == -1) get_pfs_default()
  1414. --- 42,46 ----
  1415.   #define PFA_CRMAP         2  /* Map file name.  Map to new name if not found */
  1416.   #define PFA_RO            4  /* Access to file is read only                  */
  1417.   
  1418. ! #define check_pfs_default() \
  1419. !     do { if (pfs_default == -1) get_pfs_default(); } while (0)
  1420. diff -cr archie/perrno.h archie-1.3.2/perrno.h
  1421. *** archie/perrno.h    Tue Nov 19 21:32:11 1991
  1422. --- archie-1.3.2/perrno.h    Sun Apr  5 13:28:44 1992
  1423. ***************
  1424. *** 7,13 ****
  1425.   
  1426.   #include <copyright.h>
  1427.   
  1428. ! /* this file and p_err_text.c should be updated simultaneously */
  1429.   
  1430.   /*
  1431.    * perrno.h - definitions for perrno
  1432. --- 7,13 ----
  1433.   
  1434.   #include <copyright.h>
  1435.   
  1436. ! /* This file and perrmesg.c should be updated simultaneously.  */
  1437.   
  1438.   /*
  1439.    * perrno.h - definitions for perrno
  1440. diff -cr archie/pfs.h archie-1.3.2/pfs.h
  1441. *** archie/pfs.h    Wed Jan  8 13:36:17 1992
  1442. --- archie-1.3.2/pfs.h    Wed Apr 15 01:23:21 1992
  1443. ***************
  1444. *** 3,12 ****
  1445.    *
  1446.    * For copying and distribution information, please see the file
  1447.    * <copyright.h>.
  1448. -  *
  1449. -  * v1.2.0 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  1450. -  * v1.1.2 - 08/30/91 (bpk) - added VMS support
  1451. -  * v1.1.1 - 08/20/91 (bpk) - 4.2 -> 4.2B
  1452.    */
  1453.   
  1454.   #include <copyright.h>
  1455. --- 3,8 ----
  1456. ***************
  1457. *** 31,37 ****
  1458.   # endif /* MSDOS */
  1459.   #endif /* NULL */
  1460.   
  1461. ! #define        PFS_RELEASE    "Beta.4.2D"
  1462.   /* moved up for vdir_init */
  1463.   #define ZERO(p)        bzero((char *)(p), sizeof(*(p)))
  1464.   
  1465. --- 27,35 ----
  1466.   # endif /* MSDOS */
  1467.   #endif /* NULL */
  1468.   
  1469. ! #define        PFS_RELEASE    "Beta.4.2E"
  1470. ! #define        PFS_SW_ID    "B42E"
  1471. ! 
  1472.   /* moved up for vdir_init */
  1473.   #define ZERO(p)        bzero((char *)(p), sizeof(*(p)))
  1474.   
  1475. ***************
  1476. *** 127,133 ****
  1477.       struct vdir        *next;          /* Next element in linked list     */
  1478.   };
  1479.   
  1480. ! typedef struct vdir *VDIR;
  1481.   typedef struct vdir VDIR_ST;
  1482.   
  1483.   /* Initialize directory */
  1484. --- 125,131 ----
  1485.       struct vdir        *next;          /* Next element in linked list     */
  1486.   };
  1487.   
  1488. ! typedef struct vdir *PVDIR;
  1489.   typedef struct vdir VDIR_ST;
  1490.   
  1491.   /* Initialize directory */
  1492. ***************
  1493. *** 302,307 ****
  1494. --- 300,308 ----
  1495.                MACL_DELETE|MACL_ADD|MACL_SUBTRACT)
  1496.   
  1497.   #define      MACL_OTYPE (MACL_LINK|MACL_DIRECTORY|MACL_OBJECT|MACL_INCLUDE)
  1498. + 
  1499. + /* Flags for dsrdir */
  1500. + #define DSRD_ATTRIBUTES                      0x1 /* Fill in attributes for links */
  1501.   
  1502.   /* Access methods returned by Pget_am */
  1503.   #define P_AM_ERROR            0
  1504. diff -cr archie/pmachine.h archie-1.3.2/pmachine.h
  1505. *** archie/pmachine.h    Fri Jan 10 13:01:53 1992
  1506. --- archie-1.3.2/pmachine.h    Sun Apr  5 13:23:50 1992
  1507. ***************
  1508. *** 3,11 ****
  1509.    *
  1510.    * I kept the name pmachine.h because it was already in all of the files...this
  1511.    * barely resembles the pmachine.h that comes with the real Prospero, tho.
  1512. -  *
  1513. -  * v1.2.1 - 12/13/91 (bpk) - added 3b2
  1514. -  * v1.2.0 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  1515.    */
  1516.   
  1517.   #ifdef u3b2
  1518. --- 3,8 ----
  1519. ***************
  1520. *** 40,45 ****
  1521. --- 37,50 ----
  1522.   # define MSDOS
  1523.   #endif
  1524.   
  1525. + #ifdef _AUX_SOURCE
  1526. + # define AUX
  1527. + # define NOREGEX
  1528. + # define NBBY 8    /* Number of bits in a byte.  */
  1529. + # define long Fd_mask;
  1530. + # define NFDBITS (sizeof(Fd_mask) * NBBY)    /* bits per mask */
  1531. + #endif
  1532. + 
  1533.   #ifdef OS2
  1534.   # define NOREGEX
  1535.   # include <pctcp.h>
  1536. ***************
  1537. *** 70,76 ****
  1538.   char *strchr();
  1539.   # endif
  1540.   # define rindex        strrchr
  1541. ! # ifndef AUX
  1542.   #  define bcopy(a,b,n)    memcpy(b,a,n)
  1543.   #  define bzero(a,n)    memset(a,0,n)
  1544.   # ifdef _IBMR2
  1545. --- 75,81 ----
  1546.   char *strchr();
  1547.   # endif
  1548.   # define rindex        strrchr
  1549. ! # ifndef _AUX_SOURCE
  1550.   #  define bcopy(a,b,n)    memcpy(b,a,n)
  1551.   #  define bzero(a,n)    memset(a,0,n)
  1552.   # ifdef _IBMR2
  1553. ***************
  1554. *** 85,92 ****
  1555.   #if defined(USG) || defined(UTS)
  1556.   # define NEED_STRING_H
  1557.   #endif
  1558. ! #if defined(USG) || defined(UTS) || defined(AUX)
  1559.   # define NEED_TIME_H
  1560.   #endif
  1561.   
  1562.   #ifdef VMS
  1563. --- 90,100 ----
  1564.   #if defined(USG) || defined(UTS)
  1565.   # define NEED_STRING_H
  1566.   #endif
  1567. ! #if defined(USG) || defined(UTS) || defined(_AUX_SOURCE)
  1568.   # define NEED_TIME_H
  1569. + # ifdef UTS
  1570. + #  define WANT_BOTH_TIME
  1571. + # endif
  1572.   #endif
  1573.   
  1574.   #ifdef VMS
  1575. diff -cr archie/pprot.h archie-1.3.2/pprot.h
  1576. *** archie/pprot.h    Sat Nov 23 15:43:01 1991
  1577. --- archie-1.3.2/pprot.h    Sun Apr  5 13:29:10 1992
  1578. ***************
  1579. *** 3,10 ****
  1580.    *
  1581.    * For copying and distribution information, please see the file
  1582.    * <copyright.h>.
  1583. -  *
  1584. -  * v1.2.0 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  1585.    */
  1586.   
  1587.   #include <copyright.h>
  1588. --- 3,8 ----
  1589. ***************
  1590. *** 47,59 ****
  1591.   /* the string to be stepped through to S_next, then call get_token on  */
  1592.   /* S.  The first token will be in S, and S_next will point to the next */
  1593.   /* token.  Like strtok, this macro does modify the string passed to it */
  1594.   #define get_token(S,C) \
  1595.       S = S/**/_next; \
  1596.       if(S) { \
  1597.        while(*S == C) S++; \
  1598.        S/**/_next = index(S,C); \
  1599.        if(S/**/_next) *(S/**/_next++) = '\0'; \
  1600.        if(!*S) S = NULL; \
  1601. !     }
  1602. ! 
  1603. ! 
  1604. --- 45,70 ----
  1605.   /* the string to be stepped through to S_next, then call get_token on  */
  1606.   /* S.  The first token will be in S, and S_next will point to the next */
  1607.   /* token.  Like strtok, this macro does modify the string passed to it */
  1608. + #ifdef __GNUC__
  1609.   #define get_token(S,C) \
  1610. +   do { \
  1611. +     S = S##_next; \
  1612. +     if(S) { \
  1613. +      while(*S == C) S++; \
  1614. +      S##_next = index(S,C); \
  1615. +      if(S##_next) *(S##_next++) = '\0'; \
  1616. +      if(!*S) S = NULL; \
  1617. +     } \
  1618. +   } while (0)
  1619. + #else
  1620. + #define get_token(S,C) \
  1621.       S = S/**/_next; \
  1622. +   do { \
  1623.       if(S) { \
  1624.        while(*S == C) S++; \
  1625.        S/**/_next = index(S,C); \
  1626.        if(S/**/_next) *(S/**/_next++) = '\0'; \
  1627.        if(!*S) S = NULL; \
  1628. !     } \
  1629. !   } while (0)
  1630. ! #endif /* __GNUC__ */
  1631. diff -cr archie/procquery.c archie-1.3.2/procquery.c
  1632. *** archie/procquery.c    Tue Dec  3 15:02:14 1991
  1633. --- archie-1.3.2/procquery.c    Sun Apr  5 13:29:22 1992
  1634. ***************
  1635. *** 10,20 ****
  1636.    * For copying and distribution information, please see the file
  1637.    * <copyright.h>.
  1638.    *
  1639. -  * v1.2.2 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  1640. -  * v1.2.1 - 10/18/91 (bpk) - warning stuff
  1641. -  * v1.2.0 - 09/20/91 (bpk) - VMS under Multinet 3.0 too
  1642. -  * v1.1.1 - 08/20/91 (bpk) - took out archie_query from error msg
  1643.    */
  1644.   #include <copyright.h>
  1645.   #include <stdio.h>
  1646.   #include <pfs.h>
  1647. --- 10,17 ----
  1648.    * For copying and distribution information, please see the file
  1649.    * <copyright.h>.
  1650.    *
  1651.    */
  1652. + 
  1653.   #include <copyright.h>
  1654.   #include <stdio.h>
  1655.   #include <pfs.h>
  1656. ***************
  1657. *** 210,215 ****
  1658. --- 207,215 ----
  1659.   
  1660.       if (l == (VLINK)NULL && pwarn == PNOWARN && perrno == PSUCCESS) {
  1661.       if (! listflag) puts ("No matches.");
  1662. + #ifdef CUTCP
  1663. +     netshut();
  1664. + #endif
  1665.       exit (1);
  1666.       }
  1667.   
  1668. diff -cr archie/ptalloc.c archie-1.3.2/ptalloc.c
  1669. *** archie/ptalloc.c    Tue Nov 19 21:32:13 1991
  1670. --- archie-1.3.2/ptalloc.c    Sun Apr  5 13:29:34 1992
  1671. ***************
  1672. *** 3,10 ****
  1673.    *
  1674.    * For copying and distribution information, please see the file
  1675.    * <copyright.h>.
  1676. -  *
  1677. -  * v1.2.0 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  1678.    */
  1679.   
  1680.   #include <copyright.h>
  1681. --- 3,8 ----
  1682. diff -cr archie/regex.h archie-1.3.2/regex.h
  1683. *** archie/regex.h    Tue Nov 19 21:32:14 1991
  1684. --- archie-1.3.2/regex.h    Fri Jan 31 09:14:00 1992
  1685. ***************
  1686. *** 9,15 ****
  1687.    * George Ferguson, ferguson@cs.rochester.edu, 11 Sep 1991.
  1688.    */
  1689.   
  1690. ! #if defined(AUX) || defined(USG)
  1691.   /* Let them use ours if they wish.  */
  1692.   # ifndef NOREGEX
  1693.   extern char *regcmp();
  1694. --- 9,15 ----
  1695.    * George Ferguson, ferguson@cs.rochester.edu, 11 Sep 1991.
  1696.    */
  1697.   
  1698. ! #if defined(_AUX_SOURCE) || defined(USG)
  1699.   /* Let them use ours if they wish.  */
  1700.   # ifndef NOREGEX
  1701.   extern char *regcmp();
  1702. diff -cr archie/stcopy.c archie-1.3.2/stcopy.c
  1703. *** archie/stcopy.c    Tue Nov 19 21:32:14 1991
  1704. --- archie-1.3.2/stcopy.c    Sun Apr  5 13:30:02 1992
  1705. ***************
  1706. *** 3,11 ****
  1707.    *
  1708.    * For copying and distribution information, please see the file
  1709.    * <copyright.h>.
  1710. -  *
  1711. -  * v1.2.1 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  1712. -  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  1713.    */
  1714.   
  1715.   #include <copyright.h>
  1716. --- 3,8 ----
  1717. diff -cr archie/support.c archie-1.3.2/support.c
  1718. *** archie/support.c    Fri Dec 13 16:10:59 1991
  1719. --- archie-1.3.2/support.c    Wed Apr 15 01:21:11 1992
  1720. ***************
  1721. *** 3,13 ****
  1722.    *
  1723.    * For copying and distribution information, please see the file
  1724.    * <copyright.h>.
  1725. -  *
  1726. -  * v1.2.2 - 11/19/91 (mmt) - added MSDOS & OS2 stuff
  1727. -  * v1.2.1 - 09/23/91 (gf)  - made it use regex.h---much nicer
  1728. -  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  1729. -  * v1.1.1 - 08/30/91 (bpk) - added VMS support; cast index()
  1730.    */
  1731.   
  1732.   /*
  1733. --- 3,8 ----
  1734. ***************
  1735. *** 137,143 ****
  1736.   int
  1737.   ul_insert(ul,vd,p)
  1738.       VLINK    ul;        /* Link to be inserted                   */
  1739. !     VDIR    vd;        /* Directory to receive link             */
  1740.       VLINK    p;        /* Union link to appear prior to new one */
  1741.       {
  1742.       VLINK    current;
  1743. --- 132,138 ----
  1744.   int
  1745.   ul_insert(ul,vd,p)
  1746.       VLINK    ul;        /* Link to be inserted                   */
  1747. !     PVDIR    vd;        /* Directory to receive link             */
  1748.       VLINK    p;        /* Union link to appear prior to new one */
  1749.       {
  1750.       VLINK    current;
  1751. ***************
  1752. *** 237,243 ****
  1753.   int
  1754.   vl_insert(vl,vd,allow_conflict)
  1755.       VLINK    vl;        /* Link to be inserted               */
  1756. !     VDIR    vd;        /* Directory to receive link         */
  1757.       int        allow_conflict;    /* Allow duplicate names             */
  1758.       {
  1759.       VLINK    current;    /* To step through list             */
  1760. --- 232,238 ----
  1761.   int
  1762.   vl_insert(vl,vd,allow_conflict)
  1763.       VLINK    vl;        /* Link to be inserted               */
  1764. !     PVDIR    vd;        /* Directory to receive link         */
  1765.       int        allow_conflict;    /* Allow duplicate names             */
  1766.       {
  1767.       VLINK    current;    /* To step through list             */
  1768.  
  1769. --
  1770. Brendan Kehoe, Sun Network Manager                      brendan@cs.widener.edu
  1771. Widener University                                                 Chester, PA
  1772.  
  1773. exit 0 # Just in case...
  1774.