home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / UNIX / ARCHIE / CLIENTS / XARCHIE_.3 < prev    next >
Encoding:
Text File  |  1991-12-11  |  204.4 KB  |  6,744 lines
  1. *** /tmp/release17219/EzMenu/EzMenu.c    Tue Nov 12 16:52:44 1991
  2. --- EzMenu/EzMenu.c    Sat Nov  2 17:22:40 1991
  3. ***************
  4. *** 363,371 ****
  5.     EzMenuWidget newez = (EzMenuWidget) new;
  6.     EzMenuWidget requestez = (EzMenuWidget) request;
  7.   
  8. ! #ifdef DEBUG
  9.     fprintf(stderr,"Initialize %s\n",
  10. !       XtWidgetName(request);
  11.   #endif
  12.   
  13.     /* just copy the string that will be used to initialize the menu */
  14. --- 363,371 ----
  15.     EzMenuWidget newez = (EzMenuWidget) new;
  16.     EzMenuWidget requestez = (EzMenuWidget) request;
  17.   
  18. ! #ifdef EZMENU_DEBUG
  19.     fprintf(stderr,"Initialize %s\n",
  20. !       XtName(request);
  21.   #endif
  22.   
  23.     /* just copy the string that will be used to initialize the menu */
  24. *** /tmp/release17219/Imakefile    Tue Nov 12 16:52:56 1991
  25. --- Imakefile    Sat Nov  2 20:26:11 1991
  26. ***************
  27. *** 32,48 ****
  28.   # How excited are you about debugging? This can be -g, -O, or nothing.
  29.   CDEBUGFLAGS = -g
  30.   
  31. ! # Are you using gcc? If so, read on:
  32. ! #   [from Brendan Kehoe (brendan@cs.widener.edu)]
  33. ! #   dirsend.c shouldn't be compiled with Gnu C.  Until gcc 2.0, structure
  34. ! #   passing is completely hosed on Suns -- and the inet_ntoa() calls in
  35. ! #   dirsend will seg fault.
  36. ! # You should uncommment this if you're using gcc.
  37. ! #dirsend.o:
  38. ! #    cc -c $(CFLAGS) dirsend.c
  39.   
  40. ! # Does your system have re_comp() and re_exec()? If not, uncomment the
  41. ! # following definitions.
  42.   #REGEXC = regex.c
  43.   #REGEXO = regex.o
  44.   
  45. --- 32,42 ----
  46.   # How excited are you about debugging? This can be -g, -O, or nothing.
  47.   CDEBUGFLAGS = -g
  48.   
  49. ! # To enable Prospero tracing (controlled by the -debug option), uncomment this
  50. ! #PDEBUG = -DDEBUG
  51.   
  52. ! # Does your system have re_comp() and re_exec(), or regcmp() and regex()
  53. ! # [in the case of A/UX]? If not, uncomment the following definitions.
  54.   #REGEXC = regex.c
  55.   #REGEXO = regex.o
  56.   
  57. ***************
  58. *** 55,73 ****
  59.   MakeSubdirs($(SUBDIRS))
  60.   
  61.   ASRCS = aquery.c atalloc.c dirsend.c get_pauth.c get_vdir.c \
  62. !     p_err_text.c ptalloc.c stcopy.c support.c vl_comp.c vlalloc.c
  63.   XSRCS = xarchie.c db.c actions.c types.c classnames.c procquery.c settings.c \
  64. !     ftp.c alert.c confirm.c
  65.   
  66.   AOBJS = aquery.o atalloc.o dirsend.o get_pauth.o get_vdir.o \
  67. !     p_err_text.o ptalloc.o stcopy.o support.o vl_comp.o vlalloc.o
  68.   XOBJS = xarchie.o db.o actions.o types.o classnames.o procquery.o settings.o \
  69. !     ftp.o alert.o confirm.o
  70.   
  71.   SRCS = $(ASRCS) $(XSRCS) $(REGEXC)
  72.   OBJS = $(AOBJS) $(XOBJS) $(REGEXO)
  73.   
  74. ! DEFINES =        -DARCHIE -DXARCHIE
  75.   INCLUDES =        -I. -I$(EZMENUDIR)
  76.   
  77.   DEPLIBS =        $(EZMENULIB) XawClientDepLibs
  78. --- 49,67 ----
  79.   MakeSubdirs($(SUBDIRS))
  80.   
  81.   ASRCS = aquery.c atalloc.c dirsend.c get_pauth.c get_vdir.c \
  82. !     perrmesg.c ptalloc.c stcopy.c support.c vl_comp.c vlalloc.c
  83.   XSRCS = xarchie.c db.c actions.c types.c classnames.c procquery.c settings.c \
  84. !     ftp.c alert.c confirm.c dialog.c
  85.   
  86.   AOBJS = aquery.o atalloc.o dirsend.o get_pauth.o get_vdir.o \
  87. !     perrmesg.o ptalloc.o stcopy.o support.o vl_comp.o vlalloc.o
  88.   XOBJS = xarchie.o db.o actions.o types.o classnames.o procquery.o settings.o \
  89. !     ftp.o alert.o confirm.o dialog.o
  90.   
  91.   SRCS = $(ASRCS) $(XSRCS) $(REGEXC)
  92.   OBJS = $(AOBJS) $(XOBJS) $(REGEXO)
  93.   
  94. ! DEFINES =        -DARCHIE -DXARCHIE $(PDEBUG)
  95.   INCLUDES =        -I. -I$(EZMENUDIR)
  96.   
  97.   DEPLIBS =        $(EZMENULIB) XawClientDepLibs
  98. ***************
  99. *** 89,95 ****
  100.       $(MAKE) $(MFLAGS) 'CDEBUGFLAGS=$(CDEBUGFLAGS)' all);
  101.   
  102.   #
  103. ! # C code for fallback resources
  104.   #
  105.   Xarchie.ad.h: Xarchie.ad
  106.       $(AD2C) Xarchie.ad >Xarchie.ad.h
  107. --- 83,89 ----
  108.       $(MAKE) $(MFLAGS) 'CDEBUGFLAGS=$(CDEBUGFLAGS)' all);
  109.   
  110.   #
  111. ! # Make C code for fallback resources from application resource file
  112.   #
  113.   Xarchie.ad.h: Xarchie.ad
  114.       $(AD2C) Xarchie.ad >Xarchie.ad.h
  115. *** /tmp/release17219/MANIFEST    Tue Nov 12 16:53:01 1991
  116. --- MANIFEST    Sat Nov  2 16:52:38 1991
  117. ***************
  118. *** 38,55 ****
  119.    classnames.h               1    
  120.    confirm.c                  2    Popup yes/no confirmer
  121.    confirm.h                  1    
  122. !  copyright.h                1    +From Archie client distribution (renamed)
  123.    db.c                       6    Database for results of queries
  124.    db.h                       1    
  125.    dirsend.c                  7    +From Archie client distribution (#ifdef'd)
  126.    ftp.c                      1    File retrieval code
  127.    ftp.h                      1    
  128.    get_pauth.c                1    +From Archie client distribution
  129.    get_vdir.c                 5    +From Archie client distribution
  130. -  p_err_text.c               4    +From Archie client distribution
  131.    patchlevel.h               1    Version control information
  132.    pauthent.h                 1    +From Archie client distribution
  133.    pcompat.h                  1    +From Archie client distribution
  134.    perrno.h                   2    +From Archie client distribution
  135.    pfs.h                      4    +From Archie client distribution
  136.    pmachine.h                 1    +From Archie client distribution
  137. --- 38,57 ----
  138.    classnames.h               1    
  139.    confirm.c                  2    Popup yes/no confirmer
  140.    confirm.h                  1    
  141. !  copyright.h                1    +From Archie client distribution
  142.    db.c                       6    Database for results of queries
  143.    db.h                       1    
  144. +  dialog.c            X   Popup string entry box
  145. +  dialog.h            X
  146.    dirsend.c                  7    +From Archie client distribution (#ifdef'd)
  147.    ftp.c                      1    File retrieval code
  148.    ftp.h                      1    
  149.    get_pauth.c                1    +From Archie client distribution
  150.    get_vdir.c                 5    +From Archie client distribution
  151.    patchlevel.h               1    Version control information
  152.    pauthent.h                 1    +From Archie client distribution
  153.    pcompat.h                  1    +From Archie client distribution
  154. +  perrmesg.c                 4    +From Archie client distribution
  155.    perrno.h                   2    +From Archie client distribution
  156.    pfs.h                      4    +From Archie client distribution
  157.    pmachine.h                 1    +From Archie client distribution
  158. ***************
  159. *** 57,63 ****
  160.    procquery.c                2    +From Archie client distribution (#ifdef'd)
  161.    procquery.h                1    +From Archie client distribution
  162.    ptalloc.c                  1    +From Archie client distribution
  163. !  regex.c                    7    +From Archie client distribution (non-static)
  164.    regex.h            7   New to allow regex.c to be linked with
  165.    settings.c                 4    Settings panel
  166.    settings.h                 1    
  167. --- 59,66 ----
  168.    procquery.c                2    +From Archie client distribution (#ifdef'd)
  169.    procquery.h                1    +From Archie client distribution
  170.    ptalloc.c                  1    +From Archie client distribution
  171. !  rdgram.h            X   +From Archie client distribution
  172. !  regex.c                    7    +From Archie client distribution
  173.    regex.h            7   New to allow regex.c to be linked with
  174.    settings.c                 4    Settings panel
  175.    settings.h                 1    
  176. ***************
  177. *** 65,70 ****
  178. --- 68,74 ----
  179.    support.c                  6    +From Archie client distribution
  180.    types.c                    2    Newly defined types and converters
  181.    types.h                    1    
  182. +  udp.c                X   Standalone program to test UDP traffic
  183.    vl_comp.c                  1    +From Archie client distribution
  184.    vlalloc.c                  2    +From Archie client distribution
  185.    xarchie.c                  5    Main program file for xarchie
  186. *** /tmp/release17219/Makefile    Tue Nov 12 16:53:05 1991
  187. --- Makefile    Fri Nov  8 13:05:21 1991
  188. ***************
  189. *** 7,13 ****
  190.   #
  191.   
  192.   ###########################################################################
  193. ! # Makefile generated from "Imake.tmpl" and </tmp/IIf.a00891>
  194.   # $XConsortium: Imake.tmpl,v 1.77 89/12/18 17:01:37 jim Exp $
  195.   #
  196.   # Platform-specific parameters may be set in the appropriate .cf
  197. --- 7,13 ----
  198.   #
  199.   
  200.   ###########################################################################
  201. ! # Makefile generated from "Imake.tmpl" and </tmp/IIf.a15629>
  202.   # $XConsortium: Imake.tmpl,v 1.77 89/12/18 17:01:37 jim Exp $
  203.   #
  204.   # Platform-specific parameters may be set in the appropriate .cf
  205. ***************
  206. *** 230,236 ****
  207.   #
  208.   # Imakefile for xarchie : X11 Browser interface to Archie
  209.   #
  210. ! # George Ferguson, ferguson@cs.rochester.edu, 11 Sep 1991.
  211.   #
  212.   
  213.   # Where do you want this stuff? Uncomment and adjust these to change the
  214. --- 230,236 ----
  215.   #
  216.   # Imakefile for xarchie : X11 Browser interface to Archie
  217.   #
  218. ! # George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  219.   #
  220.   
  221.   # Where do you want this stuff? Uncomment and adjust these to change the
  222. ***************
  223. *** 261,277 ****
  224.   # How excited are you about debugging? This can be -g, -O, or nothing.
  225.   CDEBUGFLAGS = -g
  226.   
  227. ! # Are you using gcc? If so, read on:
  228. ! #   [from Brendan Kehoe (brendan@cs.widener.edu)]
  229. ! #   dirsend.c shouldn't be compiled with Gnu C.  Until gcc 2.0, structure
  230. ! #   passing is completely hosed on Suns -- and the inet_ntoa() calls in
  231. ! #   dirsend will seg fault.
  232. ! # You should uncommment this if you're using gcc.
  233. ! #dirsend.o:
  234. ! #    cc -c $(CFLAGS) dirsend.c
  235.   
  236. ! # Does your system have re_comp() and re_exec()? If not, uncomment the
  237. ! # following definitions.
  238.   #REGEXC = regex.c
  239.   #REGEXO = regex.o
  240.   
  241. --- 261,271 ----
  242.   # How excited are you about debugging? This can be -g, -O, or nothing.
  243.   CDEBUGFLAGS = -g
  244.   
  245. ! # To enable Prospero tracing (controlled by the -debug option), uncomment this
  246. ! #PDEBUG = -DDEBUG
  247.   
  248. ! # Does your system have re_comp() and re_exec(), or regcmp() and regex()
  249. ! # [in the case of A/UX]? If not, uncomment the following definitions.
  250.   #REGEXC = regex.c
  251.   #REGEXO = regex.o
  252.   
  253. ***************
  254. *** 289,307 ****
  255.       done
  256.   
  257.   ASRCS = aquery.c atalloc.c dirsend.c get_pauth.c get_vdir.c \
  258. !     p_err_text.c ptalloc.c stcopy.c support.c vl_comp.c vlalloc.c
  259.   XSRCS = xarchie.c db.c actions.c types.c classnames.c procquery.c settings.c \
  260. !     ftp.c alert.c confirm.c
  261.   
  262.   AOBJS = aquery.o atalloc.o dirsend.o get_pauth.o get_vdir.o \
  263. !     p_err_text.o ptalloc.o stcopy.o support.o vl_comp.o vlalloc.o
  264.   XOBJS = xarchie.o db.o actions.o types.o classnames.o procquery.o settings.o \
  265. !     ftp.o alert.o confirm.o
  266.   
  267.   SRCS = $(ASRCS) $(XSRCS) $(REGEXC)
  268.   OBJS = $(AOBJS) $(XOBJS) $(REGEXO)
  269.   
  270. ! DEFINES =        -DARCHIE -DXARCHIE
  271.   INCLUDES =        -I. -I$(EZMENUDIR)
  272.   
  273.   DEPLIBS =        $(EZMENULIB) $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB)
  274. --- 283,301 ----
  275.       done
  276.   
  277.   ASRCS = aquery.c atalloc.c dirsend.c get_pauth.c get_vdir.c \
  278. !     perrmesg.c ptalloc.c stcopy.c support.c vl_comp.c vlalloc.c
  279.   XSRCS = xarchie.c db.c actions.c types.c classnames.c procquery.c settings.c \
  280. !     ftp.c alert.c confirm.c dialog.c
  281.   
  282.   AOBJS = aquery.o atalloc.o dirsend.o get_pauth.o get_vdir.o \
  283. !     perrmesg.o ptalloc.o stcopy.o support.o vl_comp.o vlalloc.o
  284.   XOBJS = xarchie.o db.o actions.o types.o classnames.o procquery.o settings.o \
  285. !     ftp.o alert.o confirm.o dialog.o
  286.   
  287.   SRCS = $(ASRCS) $(XSRCS) $(REGEXC)
  288.   OBJS = $(AOBJS) $(XOBJS) $(REGEXO)
  289.   
  290. ! DEFINES =        -DARCHIE -DXARCHIE $(PDEBUG)
  291.   INCLUDES =        -I. -I$(EZMENUDIR)
  292.   
  293.   DEPLIBS =        $(EZMENULIB) $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB)
  294. ***************
  295. *** 354,360 ****
  296.       $(MAKE) $(MFLAGS) 'CDEBUGFLAGS=$(CDEBUGFLAGS)' all);
  297.   
  298.   #
  299. ! # C code for fallback resources
  300.   #
  301.   Xarchie.ad.h: Xarchie.ad
  302.       $(AD2C) Xarchie.ad >Xarchie.ad.h
  303. --- 348,354 ----
  304.       $(MAKE) $(MFLAGS) 'CDEBUGFLAGS=$(CDEBUGFLAGS)' all);
  305.   
  306.   #
  307. ! # Make C code for fallback resources from application resource file
  308.   #
  309.   Xarchie.ad.h: Xarchie.ad
  310.       $(AD2C) Xarchie.ad >Xarchie.ad.h
  311. ***************
  312. *** 516,532 ****
  313.   atalloc.o: /usr/include/netinet/in.h pmachine.h
  314.   dirsend.o: copyright.h /usr/include/stdio.h /usr/include/errno.h
  315.   dirsend.o: /usr/include/sys/errno.h /usr/include/sys/time.h
  316. ! dirsend.o: /usr/include/sys/time.h /usr/include/netdb.h
  317. ! dirsend.o: /usr/include/strings.h /usr/include/sys/types.h
  318.   dirsend.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  319. ! dirsend.o: /usr/include/sys/socket.h pfs.h /usr/include/netinet/in.h pprot.h
  320. ! dirsend.o: /usr/include/sys/param.h /usr/include/machine/param.h
  321. ! dirsend.o: /usr/include/sys/signal.h /usr/include/vm/faultcode.h pcompat.h
  322. ! dirsend.o: perrno.h pmachine.h
  323. ! get_pauth.o: copyright.h /usr/include/stdio.h /usr/include/strings.h
  324. ! get_pauth.o: /usr/include/pwd.h /usr/include/sys/types.h
  325.   get_pauth.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  326. ! get_pauth.o: pcompat.h pauthent.h
  327.   get_vdir.o: copyright.h /usr/include/stdio.h /usr/include/strings.h pfs.h
  328.   get_vdir.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  329.   get_vdir.o: /usr/include/sys/sysmacros.h /usr/include/netinet/in.h pprot.h
  330. --- 510,534 ----
  331.   atalloc.o: /usr/include/netinet/in.h pmachine.h
  332.   dirsend.o: copyright.h /usr/include/stdio.h /usr/include/errno.h
  333.   dirsend.o: /usr/include/sys/errno.h /usr/include/sys/time.h
  334. ! dirsend.o: /usr/include/sys/time.h /usr/include/strings.h
  335. ! dirsend.o: /usr/include/netdb.h /usr/include/sys/types.h
  336.   dirsend.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  337. ! dirsend.o: pmachine.h /usr/include/sys/socket.h /usr/include/netinet/in.h
  338. ! dirsend.o: /usr/include/arpa/inet.h pfs.h pprot.h /usr/include/sys/param.h
  339. ! dirsend.o: /usr/include/machine/param.h /usr/include/sys/signal.h
  340. ! dirsend.o: /usr/include/vm/faultcode.h pcompat.h perrno.h
  341. ! dirsend.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  342. ! dirsend.o: /usr/staff/include/X11/X.h /usr/staff/include/X11/Xutil.h
  343. ! dirsend.o: /usr/staff/include/X11/Xresource.h /usr/staff/include/X11/Xos.h
  344. ! dirsend.o: /usr/include/sys/file.h /usr/include/sys/fcntlcom.h
  345. ! dirsend.o: /usr/include/sys/stat.h /usr/staff/include/X11/Core.h
  346. ! dirsend.o: /usr/staff/include/X11/Composite.h
  347. ! dirsend.o: /usr/staff/include/X11/Constraint.h
  348. ! dirsend.o: /usr/staff/include/X11/Object.h /usr/staff/include/X11/RectObj.h
  349. ! get_pauth.o: copyright.h /usr/include/stdio.h /usr/include/sys/types.h
  350.   get_pauth.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  351. ! get_pauth.o: /usr/include/strings.h /usr/include/pwd.h pcompat.h pauthent.h
  352. ! get_pauth.o: /usr/include/netinet/in.h
  353.   get_vdir.o: copyright.h /usr/include/stdio.h /usr/include/strings.h pfs.h
  354.   get_vdir.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  355.   get_vdir.o: /usr/include/sys/sysmacros.h /usr/include/netinet/in.h pprot.h
  356. ***************
  357. *** 533,539 ****
  358.   get_vdir.o: /usr/include/sys/param.h /usr/include/machine/param.h
  359.   get_vdir.o: /usr/include/sys/signal.h /usr/include/vm/faultcode.h perrno.h
  360.   get_vdir.o: pcompat.h pauthent.h pmachine.h
  361. ! p_err_text.o: copyright.h
  362.   ptalloc.o: copyright.h /usr/include/stdio.h pfs.h /usr/include/sys/types.h
  363.   ptalloc.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  364.   ptalloc.o: /usr/include/netinet/in.h pmachine.h
  365. --- 535,541 ----
  366.   get_vdir.o: /usr/include/sys/param.h /usr/include/machine/param.h
  367.   get_vdir.o: /usr/include/sys/signal.h /usr/include/vm/faultcode.h perrno.h
  368.   get_vdir.o: pcompat.h pauthent.h pmachine.h
  369. ! perrmesg.o: copyright.h perrno.h /usr/include/stdio.h
  370.   ptalloc.o: copyright.h /usr/include/stdio.h pfs.h /usr/include/sys/types.h
  371.   ptalloc.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  372.   ptalloc.o: /usr/include/netinet/in.h pmachine.h
  373. ***************
  374. *** 540,547 ****
  375.   stcopy.o: copyright.h /usr/include/stdio.h /usr/include/strings.h
  376.   support.o: copyright.h /usr/include/stdio.h /usr/include/strings.h
  377.   support.o: /usr/include/errno.h /usr/include/sys/errno.h /usr/include/netdb.h
  378. ! support.o: /usr/include/sys/file.h /usr/include/sys/types.h
  379. ! support.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  380.   support.o: /usr/include/sys/fcntlcom.h /usr/include/sys/stat.h
  381.   support.o: /usr/include/sys/param.h /usr/include/machine/param.h
  382.   support.o: /usr/include/sys/signal.h /usr/include/vm/faultcode.h pfs.h
  383. --- 542,549 ----
  384.   stcopy.o: copyright.h /usr/include/stdio.h /usr/include/strings.h
  385.   support.o: copyright.h /usr/include/stdio.h /usr/include/strings.h
  386.   support.o: /usr/include/errno.h /usr/include/sys/errno.h /usr/include/netdb.h
  387. ! support.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  388. ! support.o: /usr/include/sys/sysmacros.h /usr/include/sys/file.h
  389.   support.o: /usr/include/sys/fcntlcom.h /usr/include/sys/stat.h
  390.   support.o: /usr/include/sys/param.h /usr/include/machine/param.h
  391.   support.o: /usr/include/sys/signal.h /usr/include/vm/faultcode.h pfs.h
  392. ***************
  393. *** 583,589 ****
  394.   xarchie.o: /usr/staff/include/X11/Xaw/AsciiSink.h
  395.   xarchie.o: /usr/staff/include/X11/Xaw/Command.h
  396.   xarchie.o: /usr/staff/include/X11/Xaw/Cardinals.h types.h appres.h
  397. ! xarchie.o: classnames.h db.h actions.h patchlevel.h Xarchie.ad.h
  398.   db.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  399.   db.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  400.   db.o: /usr/include/sys/sysmacros.h /usr/staff/include/X11/X.h
  401. --- 585,591 ----
  402.   xarchie.o: /usr/staff/include/X11/Xaw/AsciiSink.h
  403.   xarchie.o: /usr/staff/include/X11/Xaw/Command.h
  404.   xarchie.o: /usr/staff/include/X11/Xaw/Cardinals.h types.h appres.h
  405. ! xarchie.o: classnames.h db.h actions.h settings.h patchlevel.h Xarchie.ad.h
  406.   db.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  407.   db.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  408.   db.o: /usr/include/sys/sysmacros.h /usr/staff/include/X11/X.h
  409. ***************
  410. *** 597,611 ****
  411.   db.o: /usr/staff/include/X11/Xaw/Cardinals.h
  412.   db.o: /usr/staff/include/X11/Xaw/List.h /usr/staff/include/X11/Xaw/Simple.h
  413.   db.o: xarchie.h db.h alert.h
  414. ! actions.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  415. ! actions.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  416. ! actions.o: /usr/include/sys/sysmacros.h /usr/staff/include/X11/X.h
  417. ! actions.o: /usr/staff/include/X11/Xutil.h /usr/staff/include/X11/Xresource.h
  418. ! actions.o: /usr/staff/include/X11/Xos.h /usr/include/strings.h
  419. ! actions.o: /usr/include/sys/file.h /usr/include/sys/fcntlcom.h
  420. ! actions.o: /usr/include/sys/stat.h /usr/include/sys/time.h
  421. ! actions.o: /usr/include/sys/time.h /usr/staff/include/X11/Core.h
  422. ! actions.o: /usr/staff/include/X11/Composite.h
  423.   actions.o: /usr/staff/include/X11/Constraint.h
  424.   actions.o: /usr/staff/include/X11/Object.h /usr/staff/include/X11/RectObj.h
  425.   actions.o: /usr/staff/include/X11/StringDefs.h
  426. --- 599,613 ----
  427.   db.o: /usr/staff/include/X11/Xaw/Cardinals.h
  428.   db.o: /usr/staff/include/X11/Xaw/List.h /usr/staff/include/X11/Xaw/Simple.h
  429.   db.o: xarchie.h db.h alert.h
  430. ! actions.o: /usr/include/stdio.h /usr/staff/include/X11/Intrinsic.h
  431. ! actions.o: /usr/staff/include/X11/Xlib.h /usr/include/sys/types.h
  432. ! actions.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  433. ! actions.o: /usr/staff/include/X11/X.h /usr/staff/include/X11/Xutil.h
  434. ! actions.o: /usr/staff/include/X11/Xresource.h /usr/staff/include/X11/Xos.h
  435. ! actions.o: /usr/include/strings.h /usr/include/sys/file.h
  436. ! actions.o: /usr/include/sys/fcntlcom.h /usr/include/sys/stat.h
  437. ! actions.o: /usr/include/sys/time.h /usr/include/sys/time.h
  438. ! actions.o: /usr/staff/include/X11/Core.h /usr/staff/include/X11/Composite.h
  439.   actions.o: /usr/staff/include/X11/Constraint.h
  440.   actions.o: /usr/staff/include/X11/Object.h /usr/staff/include/X11/RectObj.h
  441.   actions.o: /usr/staff/include/X11/StringDefs.h
  442. ***************
  443. *** 615,621 ****
  444.   actions.o: /usr/staff/include/X11/Xaw/AsciiSrc.h
  445.   actions.o: /usr/staff/include/X11/Xaw/AsciiSink.h
  446.   actions.o: /usr/staff/include/X11/Xaw/Cardinals.h procquery.h xarchie.h
  447. ! actions.o: types.h appres.h db.h settings.h ftp.h alert.h regex.h
  448.   types.o: /usr/staff/include/X11/IntrinsicP.h
  449.   types.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  450.   types.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  451. --- 617,624 ----
  452.   actions.o: /usr/staff/include/X11/Xaw/AsciiSrc.h
  453.   actions.o: /usr/staff/include/X11/Xaw/AsciiSink.h
  454.   actions.o: /usr/staff/include/X11/Xaw/Cardinals.h procquery.h xarchie.h
  455. ! actions.o: types.h appres.h db.h settings.h ftp.h alert.h confirm.h dialog.h
  456. ! actions.o: regex.h
  457.   types.o: /usr/staff/include/X11/IntrinsicP.h
  458.   types.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  459.   types.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  460. ***************
  461. *** 715,724 ****
  462.   settings.o: /usr/staff/include/X11/Xaw/AsciiSink.h EzMenu/EzMenu.h
  463.   settings.o: /usr/staff/include/X11/Xaw/SimpleMenu.h
  464.   settings.o: /usr/staff/include/X11/Xaw/Cardinals.h xarchie.h types.h appres.h
  465. ! settings.o: alert.h confirm.h
  466.   ftp.o: /usr/include/stdio.h /usr/include/pwd.h /usr/include/sys/types.h
  467. ! ftp.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h appres.h
  468. ! ftp.o: types.h
  469.   alert.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  470.   alert.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  471.   alert.o: /usr/include/sys/sysmacros.h /usr/staff/include/X11/X.h
  472. --- 718,735 ----
  473.   settings.o: /usr/staff/include/X11/Xaw/AsciiSink.h EzMenu/EzMenu.h
  474.   settings.o: /usr/staff/include/X11/Xaw/SimpleMenu.h
  475.   settings.o: /usr/staff/include/X11/Xaw/Cardinals.h xarchie.h types.h appres.h
  476. ! settings.o: rdgram.h copyright.h alert.h confirm.h
  477.   ftp.o: /usr/include/stdio.h /usr/include/pwd.h /usr/include/sys/types.h
  478. ! ftp.o: /usr/include/sys/stdtypes.h /usr/include/sys/sysmacros.h
  479. ! ftp.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  480. ! ftp.o: /usr/staff/include/X11/X.h /usr/staff/include/X11/Xutil.h
  481. ! ftp.o: /usr/staff/include/X11/Xresource.h /usr/staff/include/X11/Xos.h
  482. ! ftp.o: /usr/include/strings.h /usr/include/sys/file.h
  483. ! ftp.o: /usr/include/sys/fcntlcom.h /usr/include/sys/stat.h
  484. ! ftp.o: /usr/include/sys/time.h /usr/include/sys/time.h
  485. ! ftp.o: /usr/staff/include/X11/Core.h /usr/staff/include/X11/Composite.h
  486. ! ftp.o: /usr/staff/include/X11/Constraint.h /usr/staff/include/X11/Object.h
  487. ! ftp.o: /usr/staff/include/X11/RectObj.h appres.h types.h
  488.   alert.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  489.   alert.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  490.   alert.o: /usr/include/sys/sysmacros.h /usr/staff/include/X11/X.h
  491. ***************
  492. *** 748,750 ****
  493. --- 759,776 ----
  494.   confirm.o: /usr/staff/include/X11/Xaw/Dialog.h
  495.   confirm.o: /usr/staff/include/X11/Xaw/Form.h
  496.   confirm.o: /usr/staff/include/X11/Xaw/Cardinals.h /usr/include/stdio.h
  497. + dialog.o: /usr/staff/include/X11/Intrinsic.h /usr/staff/include/X11/Xlib.h
  498. + dialog.o: /usr/include/sys/types.h /usr/include/sys/stdtypes.h
  499. + dialog.o: /usr/include/sys/sysmacros.h /usr/staff/include/X11/X.h
  500. + dialog.o: /usr/staff/include/X11/Xutil.h /usr/staff/include/X11/Xresource.h
  501. + dialog.o: /usr/staff/include/X11/Xos.h /usr/include/strings.h
  502. + dialog.o: /usr/include/sys/file.h /usr/include/sys/fcntlcom.h
  503. + dialog.o: /usr/include/sys/stat.h /usr/include/sys/time.h
  504. + dialog.o: /usr/include/sys/time.h /usr/staff/include/X11/Core.h
  505. + dialog.o: /usr/staff/include/X11/Composite.h
  506. + dialog.o: /usr/staff/include/X11/Constraint.h /usr/staff/include/X11/Object.h
  507. + dialog.o: /usr/staff/include/X11/RectObj.h
  508. + dialog.o: /usr/staff/include/X11/StringDefs.h /usr/staff/include/X11/Shell.h
  509. + dialog.o: /usr/staff/include/X11/Xaw/Dialog.h
  510. + dialog.o: /usr/staff/include/X11/Xaw/Form.h
  511. + dialog.o: /usr/staff/include/X11/Xaw/Cardinals.h /usr/include/stdio.h
  512. *** /tmp/release17219/README    Tue Nov 12 16:53:11 1991
  513. --- README    Tue Nov 12 12:52:28 1991
  514. ***************
  515. *** 2,12 ****
  516.   
  517.           George Ferguson, ferguson@cs.rochester.edu
  518.   
  519. !              Last Change: 12 Sep 1991
  520.   
  521.   DISCLAIMER:
  522.   
  523. !      This is release 1.2.
  524.   
  525.        This software is provided as is with no warranty expressed or
  526.        implied. I hope you find it useful, but I won't be held responsible
  527. --- 2,13 ----
  528.   
  529.           George Ferguson, ferguson@cs.rochester.edu
  530.   
  531. !              Last Change: 12 Nov 1991
  532.   
  533.   DISCLAIMER:
  534.   
  535. !      This is release 1.3 of xarchie -- an X browser interface to
  536. !      the Archie Internet information system.
  537.   
  538.        This software is provided as is with no warranty expressed or
  539.        implied. I hope you find it useful, but I won't be held responsible
  540. ***************
  541. *** 21,33 ****
  542.        See the file "copyright.h" for details. Examples of other things
  543.        Prospero can do are in the file "README.PROSP" in this distribution.
  544.   
  545.        The original standalone archie client was written by Brendan Kehoe,
  546.        (brendan@cs.widener.edu), based on the Prospero archie client by
  547.        Clifford Neuman, (bcn@isi.edu). The file "README.FILES" describes
  548.        the files that are shared with these clients. The archie service was
  549. !      conceived of and implemented by Alan Emtage (bajan@cs.mcgill.ca) and
  550. !      Peter Deutsch (peterd@expresso.cc.mcgill.ca).
  551.   
  552.   INSTALLATION:
  553.   
  554.        1. Edit the Imakefile to reflect any changes for your site. These
  555. --- 22,46 ----
  556.        See the file "copyright.h" for details. Examples of other things
  557.        Prospero can do are in the file "README.PROSP" in this distribution.
  558.   
  559. + CREDITS:
  560. + 
  561.        The original standalone archie client was written by Brendan Kehoe,
  562.        (brendan@cs.widener.edu), based on the Prospero archie client by
  563.        Clifford Neuman, (bcn@isi.edu). The file "README.FILES" describes
  564.        the files that are shared with these clients. The archie service was
  565. !      conceived of and implemented by Alan Emtage (bajan@cs.mcgill.ca),
  566. !      Peter Deutsch (peterd@expresso.cc.mcgill.ca), and Bill Heelan
  567. !      (wheelan@cs.mcgill.ca).
  568.   
  569. + REPORTING BUGS/KUDOS:
  570. + 
  571. +      When reporting bugs, problems, suggestions or contributions, please
  572. +      be sure to send them to the right place. I (George Ferguson) am really
  573. +      only interested in the working of the X interface. Brendan Kehoe is
  574. +      is charge of the archie clients and the network stuff underlying xarchie,
  575. +      Cliff Neuman is in charge of Prospero, and Alan Emtage and the others
  576. +      are in charge of the Archie service itself.
  577. + 
  578.   INSTALLATION:
  579.   
  580.        1. Edit the Imakefile to reflect any changes for your site. These
  581. ***************
  582. *** 34,46 ****
  583.       include setting BINDIR, LIBDIR, and MANDIR if needed, and
  584.       checking CDEBUGFLAGS if debugging or optimization is desired.
  585.   
  586. -     [from Brendan Kehoe (brendan@cs.widener.edu)]
  587. -     If your default C compiler is gcc, dirsend.c shouldn't be compiled
  588. -     with Gnu C.  Until gcc 2.0, structure passing is completely hosed
  589. -     on Suns -- and the inet_ntoa() calls in dirsend will seg fault.
  590. -     There is a suitable target that you can uncomment if you are
  591. -     using gcc.
  592. - 
  593.       If your system doesn't have re_comp() and re_exec(), then you
  594.       need to uncomment the appropriate section in the Imakefile to
  595.       include those routines.
  596. --- 47,52 ----
  597. ***************
  598. *** 72,78 ****
  599.       IMPORTANT: Ignore the error message from makedepend if Xarchie.ad.h
  600.              is not found; it will be created automatically.
  601.   
  602. !      4. Make the package using
  603.           % make
  604.       or install it directly with
  605.           % make install install.man
  606. --- 78,84 ----
  607.       IMPORTANT: Ignore the error message from makedepend if Xarchie.ad.h
  608.              is not found; it will be created automatically.
  609.   
  610. !      5. Make the package using
  611.           % make
  612.       or install it directly with
  613.           % make install install.man
  614. ***************
  615. *** 82,87 ****
  616. --- 88,103 ----
  617.           % make install.xarchie
  618.       to install xarchie, its resource file, and its man page only.
  619.   
  620. + DEBUGGING:
  621. + 
  622. +      The Prospero protocol that underlies xarchie requires that UDP traffic
  623. +      be enabled on your system. If you get nothing but timeouts from dirsend,
  624. +      then either the server is just too heavily loaded or UDP traffic is
  625. +      disabled. To test the latter hypothesis, compile udp.c and follow the
  626. +      directions at the top of the file. If UDP traffic is in fact disabled,
  627. +      talk to to your syadmins. Otherwise, if you're *sure* it isn't just a
  628. +      loaded server, report the situation in detail to brendan@cs.widener.edu.
  629. + 
  630.   HISTORY:
  631.        Version 1.1 - 4 Sep 1991
  632.       Released to comp.sources.x.
  633. ***************
  634. *** 104,106 ****
  635. --- 120,161 ----
  636.          and: Alan B Clegg <abc@concert.net>
  637.         - Changed some widget names in resource file since the Settings
  638.           form wasn't being laid out correctly.
  639. + 
  640. +      Version 1.3 - 12 Nov 1991
  641. +     - Separated EzMenu widget creation from others by adding .menus
  642. +       resource and slightly changing initWidgets() in xarchie.c. This
  643. +       hopefully prevents those annoying core dumps under old or otherwise
  644. +       strange version of X. Also renamed the "hostText" on the Settings
  645. +       form to "setHostText" again in hopes of avoiding the problem.
  646. +     - Added archie.sura.net to hostMenu and made it the default elsewhere.
  647. +     - "-debug" formerly didn't want an argument -- fixed.
  648. +     - Made dirsend() asynchronous by restructuring it, so xarchie will
  649. +       now refresh and can be interrupted during queries. Added "Abort"
  650. +       button to interrupt queries.
  651. +     - Removed comments about gcc from this file and the Imakefile since
  652. +       it's handled automatically in dirsend.c using SUN_GNU_FIX.
  653. +     - From the TODO file: Fixed default-settings() action so it uses
  654. +       as defaults the values of the application resources when xarchie
  655. +       starts up.
  656. +     - Added confirmation of quitting and -expert flag (and expert
  657. +       resource) to avoid it if desired.
  658. +     - Tweaked resources for better layout, better resizing, etc, etc.
  659. +     - From: bajan@cs.mcgill.ca
  660. +       - Updated man page and added Bill Heelan acknowledgement.
  661. +     - From: khushro@zip.eecs.umich.edu
  662. +       - Added "save-to-file()" action.
  663. +     - From: Dennis Shiao <shiao@ans.net>
  664. +       - ftp.c called alert0() rather than alert1().
  665. +     - From: Lee M J McLoughlin <lmjm@doc.imperial.ac.uk>
  666. +       - Added archie.doc.ic.ac.uk to hostMenu
  667. +     - From: Amos Shapira <amoss@cs.huji.ac.il>
  668. +       - Added cs.huji.ac.il to hostMenu.
  669. +     - From: brendan@cs.widener.edu (Brendan Kehoe)
  670. +       - Changes to many files from the "archie" distribution, including
  671. +         more portable #includes and Prospero warning message handling.
  672. +         Includes new file perrmesg.c.
  673. +       - Provide udp.c to test whether UDP traffic is enabled.
  674. +     - From bcn@isi.edu (Clifford Neuman)
  675. +       - Changed dirsend.c to compare connection id's rather than
  676. +         hostnames, based on an observation from Lee McLoughlin,
  677. +         among other Prospero stuff.
  678. *** /tmp/release17219/README.FILES    Tue Nov 12 16:53:15 1991
  679. --- README.FILES    Tue Oct 22 09:10:04 1991
  680. ***************
  681. *** 20,25 ****
  682. --- 20,26 ----
  683.   
  684.   The following file is from the standalone archie client distribution:
  685.       pmachine.h
  686. +     rdgram.h
  687.   
  688.   The following file is from the standalone archie client distribution, and
  689.   was put together from parts of the Prospero distribution:
  690. ***************
  691. *** 41,52 ****
  692.   Prospero distribution:
  693.       regex.c
  694.   
  695. ! The following file is identical to the Prospero version except for code
  696. ! surrounded by "#ifdef XARCHIE" conditionals:
  697. !     dirsend.c
  698. ! 
  699. ! The following file is identical to the standalone archie client version
  700.   except for code surrounded by "#ifdef XARCHIE" conditionals:
  701.       procquery.c
  702.   
  703.   The following files are solely in the xarchie distribution:
  704. --- 42,50 ----
  705.   Prospero distribution:
  706.       regex.c
  707.   
  708. ! The following file are identical to the standalone archie client version
  709.   except for code surrounded by "#ifdef XARCHIE" conditionals:
  710. +     dirsend.c
  711.       procquery.c
  712.   
  713.   The following files are solely in the xarchie distribution:
  714. ***************
  715. *** 63,68 ****
  716. --- 61,68 ----
  717.       confirm.h
  718.       db.c
  719.       db.h
  720. +     dialog.c
  721. +     dialog.h
  722.       ftp.c
  723.       ftp.h
  724.       procquery.c
  725. *** /tmp/release17219/TODO    Tue Nov 12 16:53:20 1991
  726. --- TODO    Tue Oct 22 08:14:59 1991
  727. ***************
  728. *** 17,26 ****
  729.   - Make the "Nice Level" button a different color or shade when the value
  730.     is >0.
  731.   
  732. - - Make the "Default" button on the Settings panel use the values that
  733. -   we had at startup (ie. in main() copy the appResources into variables
  734. -   for the button's use).
  735. - 
  736.   - Try to improve the status calls so that the message "grows" as more
  737.     things are received (look for "recvd_thru = htons(...)" in get_vdir.c).
  738.   
  739. --- 17,22 ----
  740. *** /tmp/release17219/Xarchie.ad    Tue Nov 12 16:53:24 1991
  741. --- Xarchie.ad    Tue Nov 12 12:46:59 1991
  742. ***************
  743. *** 1,13 ****
  744.   !
  745.   ! Xarchie.ad : Application defaults for the X11 browser interface to Archie
  746.   !
  747. ! ! George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  748.   !
  749.   
  750.   !    -    -    -    -    -    -    -    -    -
  751.   ! Non-widget resources
  752.   
  753. ! Xarchie.archieHost:    archie.mcgill.ca
  754.   
  755.   ! Possible values are: exact, substr, subcase, or regexp
  756.   Xarchie.searchType:    exact
  757. --- 1,13 ----
  758.   !
  759.   ! Xarchie.ad : Application defaults for the X11 browser interface to Archie
  760.   !
  761. ! ! George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  762.   !
  763.   
  764.   !    -    -    -    -    -    -    -    -    -
  765.   ! Non-widget resources
  766.   
  767. ! Xarchie.archieHost:    archie.sura.net
  768.   
  769.   ! Possible values are: exact, substr, subcase, or regexp
  770.   Xarchie.searchType:    exact
  771. ***************
  772. *** 36,44 ****
  773. --- 36,53 ----
  774.   ! Transfer mode for ftp() action
  775.   Xarchie.ftpMode:    binary
  776.   
  777. + ! If True, then results of save-to-file() are printed one entry per line.
  778. + ! If False, then results are pretty-printed.
  779. + Xarchie.saveFormatOneLine:    False
  780. + 
  781.   ! Bigger numbers == more verbose, if -DDEBUG was given at compile-time
  782.   Xarchie.debugLevel:    0
  783.   
  784. + ! If True, don't confirm things like quitting
  785. + Xarchie.expert:        False
  786. + 
  787. + !    -    -    -    -    -    -    -    -    -
  788. + 
  789.   ! Main display widget hierachy:
  790.   Xarchie.widgets: \
  791.       toplevel            Paned        outerPaned \
  792. ***************
  793. *** 46,58 ****
  794.       outerPaned            Form        buttonForm \
  795.       outerPaned.buttonForm        Command        quitButton \
  796.       outerPaned.buttonForm        Command        queryButton \
  797.       outerPaned.buttonForm        Command        ftpButton \
  798.       outerPaned.buttonForm        MenuButton    searchButton \
  799. -     outerPaned.buttonForm.searchButton EzMenu    searchNowMenu \
  800.       outerPaned.buttonForm        MenuButton    sortButton \
  801. -     outerPaned.buttonForm.sortButton EzMenu        sortNowMenu \
  802.       outerPaned.buttonForm        MenuButton    niceButton \
  803. -     outerPaned.buttonForm.niceButton EzMenu        niceNowMenu \
  804.       outerPaned.buttonForm        Command        settingsButton \
  805.       outerPaned.buttonForm        Label        statusLabel \
  806.       outerPaned.buttonForm        AsciiText    statusText \
  807. --- 55,66 ----
  808.       outerPaned            Form        buttonForm \
  809.       outerPaned.buttonForm        Command        quitButton \
  810.       outerPaned.buttonForm        Command        queryButton \
  811. +     outerPaned.buttonForm        Command        abortButton \
  812. +     outerPaned.buttonForm        Command        saveButton \
  813.       outerPaned.buttonForm        Command        ftpButton \
  814.       outerPaned.buttonForm        MenuButton    searchButton \
  815.       outerPaned.buttonForm        MenuButton    sortButton \
  816.       outerPaned.buttonForm        MenuButton    niceButton \
  817.       outerPaned.buttonForm        Command        settingsButton \
  818.       outerPaned.buttonForm        Label        statusLabel \
  819.       outerPaned.buttonForm        AsciiText    statusText \
  820. ***************
  821. *** 81,86 ****
  822. --- 89,100 ----
  823.       outerPaned.stringForm    Label            dateLabel \
  824.       outerPaned.stringForm    AsciiText        dateText 
  825.   
  826. + ! Main window menus have to be created separately (puke-ola)
  827. + Xarchie.menus:\
  828. +     outerPaned.buttonForm.searchButton EzMenu    searchNowMenu \
  829. +     outerPaned.buttonForm.sortButton EzMenu        sortNowMenu \
  830. +     outerPaned.buttonForm.niceButton EzMenu        niceNowMenu
  831. + 
  832.   ! Settings panel widget hierarchy
  833.   Xarchie.settingsWidgets:\
  834.       toplevel            TopLevelShell    settingsShell \
  835. ***************
  836. *** 97,103 ****
  837.       settingsShell.settingsForm    Label        sortLabel \
  838.       settingsShell.settingsForm    MenuButton    hostButton \
  839.       settingsShell.settingsForm    EzMenu        hostMenu \
  840. !     settingsShell.settingsForm    AsciiText    hostText \
  841.       settingsShell.settingsForm    Label        maxHitsLabel \
  842.       settingsShell.settingsForm    AsciiText    maxHitsText \
  843.       settingsShell.settingsForm    Label        timeoutLabel \
  844. --- 111,117 ----
  845.       settingsShell.settingsForm    Label        sortLabel \
  846.       settingsShell.settingsForm    MenuButton    hostButton \
  847.       settingsShell.settingsForm    EzMenu        hostMenu \
  848. !     settingsShell.settingsForm    AsciiText    setHostText \
  849.       settingsShell.settingsForm    Label        maxHitsLabel \
  850.       settingsShell.settingsForm    AsciiText    maxHitsText \
  851.       settingsShell.settingsForm    Label        timeoutLabel \
  852. ***************
  853. *** 172,182 ****
  854.   ! vary if you change the fonts. The "fromVert" and "fromHoriz" resources
  855.   ! make the buttons "pile up" properly. You can change them subject to
  856.   ! the widget creation order which is the same as the order in which the
  857. ! ! widgets are described in this file.
  858.   
  859.   Xarchie*buttonForm*quitButton.label:    Quit
  860.   Xarchie*buttonForm*quitButton.translations:#override\n\
  861. !     <Btn1Down>,<Btn1Up>:    quit() \n
  862.   
  863.   Xarchie*buttonForm*queryButton.label:        Query
  864.   Xarchie*buttonForm*queryButton.fromHoriz:    quitButton
  865. --- 186,206 ----
  866.   ! vary if you change the fonts. The "fromVert" and "fromHoriz" resources
  867.   ! make the buttons "pile up" properly. You can change them subject to
  868.   ! the widget creation order which is the same as the order in which the
  869. ! ! widgets are listed in the .widgets (or similar) resource.
  870.   
  871. + ! These keep the buttons from getting bigger or smaller when the panes
  872. + ! resize. Thus only the browser grows.
  873. + Xarchie*buttonForm.min: 50
  874. + Xarchie*buttonForm.max: 50
  875. + 
  876. + ! No point in having grips since only the browser can grow, and then only
  877. + ! if the whole application grows.
  878. + Xarchie*buttonForm.showGrip: False
  879. + 
  880.   Xarchie*buttonForm*quitButton.label:    Quit
  881.   Xarchie*buttonForm*quitButton.translations:#override\n\
  882. !     Shift<Btn1Down>,<Btn1Up>:    quit(always) \n\
  883. !     <Btn1Down>,<Btn1Up>:        quit() \n
  884.   
  885.   Xarchie*buttonForm*queryButton.label:        Query
  886.   Xarchie*buttonForm*queryButton.fromHoriz:    quitButton
  887. ***************
  888. *** 183,190 ****
  889.   Xarchie*buttonForm*queryButton.translations:#override\n\
  890.       <Btn1Down>,<Btn1Up>:    query() \n
  891.   
  892.   Xarchie*buttonForm*ftpButton.label:        Ftp
  893. ! Xarchie*buttonForm*ftpButton.fromHoriz:        queryButton
  894.   Xarchie*buttonForm*ftpButton.translations:#override\n\
  895.       <Btn1Down>,<Btn1Up>:    ftp() \n
  896.   
  897. --- 207,225 ----
  898.   Xarchie*buttonForm*queryButton.translations:#override\n\
  899.       <Btn1Down>,<Btn1Up>:    query() \n
  900.   
  901. + Xarchie*buttonForm*abortButton.label:        Abort
  902. + Xarchie*buttonForm*abortButton.fromHoriz:    queryButton
  903. + Xarchie*buttonForm*abortButton.translations:#override\n\
  904. +     <Btn1Down>,<Btn1Up>:    abort() \n
  905. + 
  906. + Xarchie*buttonForm*saveButton.label:        Save
  907. + Xarchie*buttonForm*saveButton.fromHoriz:    abortButton
  908. + Xarchie*buttonForm*saveButton.translations:#override\n\
  909. +     Shift<Btn1Down>,<Btn1Up>:    save-to-file("%s.lst") \n\
  910. +     <Btn1Down>,<Btn1Up>:        save-to-file() \n
  911. + 
  912.   Xarchie*buttonForm*ftpButton.label:        Ftp
  913. ! Xarchie*buttonForm*ftpButton.fromHoriz:        saveButton
  914.   Xarchie*buttonForm*ftpButton.translations:#override\n\
  915.       <Btn1Down>,<Btn1Up>:    ftp() \n
  916.   
  917. ***************
  918. *** 214,219 ****
  919. --- 249,256 ----
  920.   Xarchie*buttonForm*statusText*editType:        read
  921.   ! Don't give a border since it's "read-only"
  922.   Xarchie*buttonForm*statusText.borderWidth:    0
  923. + ! Don't ever give a scrollbar since it's just confusing
  924. + Xarchie*buttonForm*statusText*scrollHorizontal:    never
  925.   ! Don't ever show the caret in the status line
  926.   Xarchie*buttonForm*statusText*translations:#override\n
  927.   
  928. ***************
  929. *** 222,227 ****
  930. --- 259,269 ----
  931.   
  932.   Xarchie*innerPaned.orientation:    horizontal
  933.   
  934. + ! No point in having grips since only the browser can grow, and then only
  935. + ! if the whole application grows.
  936. + Xarchie*innerPaned.showGrip: False
  937. + 
  938. + 
  939.   !    -    -    -    -    -    -    -    -    -
  940.   ! Bottom String Form
  941.   
  942. ***************
  943. *** 230,238 ****
  944. --- 272,291 ----
  945.   Xarchie*stringForm.min: 120
  946.   Xarchie*stringForm.max: 120
  947.   
  948. + ! Left justify labels or they'll move on resize
  949. + Xarchie*stringForm*Label.justify:    left
  950. + ! De-emphasize most labels
  951. + Xarchie*stringForm*Label.font:        fixed
  952. + 
  953. + ! Disable typing into most Text widgets
  954. + Xarchie*stringForm*AsciiSrc.editType:     read
  955. + 
  956. + ! Except the search term items, which can be edited and should stand out
  957.   Xarchie*stringForm*searchLabel.label:        Search Term:
  958. + Xarchie*stringForm*searchLabel.font:        *fixed*bold*
  959.   Xarchie*stringForm*searchText*width:        375
  960.   Xarchie*stringForm*searchText.fromHoriz:    searchLabel
  961. + Xarchie*stringForm*searchText*editType:     edit
  962.   Xarchie*stringForm*searchText*translations:#override\n\
  963.       <Enter>:    display-caret(True) \n\
  964.       <Leave>:    display-caret(False) \n\
  965. ***************
  966. *** 242,266 ****
  967.   Xarchie*stringForm*hostLabel.fromVert:    searchLabel
  968.   Xarchie*stringForm*hostText.fromVert:    searchLabel
  969.   Xarchie*stringForm*hostText.fromHoriz:    hostLabel
  970. ! Xarchie*stringForm*hostText.width:    424
  971.   
  972.   Xarchie*stringForm*locationLabel.label:        Location:
  973.   Xarchie*stringForm*locationLabel.fromVert:    hostLabel
  974.   Xarchie*stringForm*locationText.fromHoriz:    locationLabel
  975.   Xarchie*stringForm*locationText.fromVert:    hostLabel
  976. ! Xarchie*stringForm*locationText.width:        396
  977.   
  978.   Xarchie*stringForm*fileLabel.label:    File:
  979.   Xarchie*stringForm*fileLabel.fromVert:    locationLabel
  980.   Xarchie*stringForm*fileText.fromHoriz:    fileLabel
  981.   Xarchie*stringForm*fileText.fromVert:    locationLabel
  982. ! Xarchie*stringForm*fileText.width:    424
  983.   
  984.   Xarchie*stringForm*sizeLabel.label:    Size:
  985.   Xarchie*stringForm*sizeLabel.fromVert:    fileLabel
  986.   Xarchie*stringForm*sizeText.fromHoriz:    sizeLabel
  987.   Xarchie*stringForm*sizeText.fromVert:    fileLabel
  988. ! Xarchie*stringForm*sizeText*width:    111
  989.   
  990.   Xarchie*stringForm*modesLabel.label:    Mode:
  991.   Xarchie*stringForm*modesLabel.fromHoriz:sizeText
  992. --- 295,319 ----
  993.   Xarchie*stringForm*hostLabel.fromVert:    searchLabel
  994.   Xarchie*stringForm*hostText.fromVert:    searchLabel
  995.   Xarchie*stringForm*hostText.fromHoriz:    hostLabel
  996. ! Xarchie*stringForm*hostText.width:    429
  997.   
  998.   Xarchie*stringForm*locationLabel.label:        Location:
  999.   Xarchie*stringForm*locationLabel.fromVert:    hostLabel
  1000.   Xarchie*stringForm*locationText.fromHoriz:    locationLabel
  1001.   Xarchie*stringForm*locationText.fromVert:    hostLabel
  1002. ! Xarchie*stringForm*locationText.width:        405
  1003.   
  1004.   Xarchie*stringForm*fileLabel.label:    File:
  1005.   Xarchie*stringForm*fileLabel.fromVert:    locationLabel
  1006.   Xarchie*stringForm*fileText.fromHoriz:    fileLabel
  1007.   Xarchie*stringForm*fileText.fromVert:    locationLabel
  1008. ! Xarchie*stringForm*fileText.width:    429
  1009.   
  1010.   Xarchie*stringForm*sizeLabel.label:    Size:
  1011.   Xarchie*stringForm*sizeLabel.fromVert:    fileLabel
  1012.   Xarchie*stringForm*sizeText.fromHoriz:    sizeLabel
  1013.   Xarchie*stringForm*sizeText.fromVert:    fileLabel
  1014. ! Xarchie*stringForm*sizeText*width:    112
  1015.   
  1016.   Xarchie*stringForm*modesLabel.label:    Mode:
  1017.   Xarchie*stringForm*modesLabel.fromHoriz:sizeText
  1018. ***************
  1019. *** 274,280 ****
  1020.   Xarchie*stringForm*dateLabel.fromVert:    fileLabel
  1021.   Xarchie*stringForm*dateText.fromHoriz:    dateLabel
  1022.   Xarchie*stringForm*dateText.fromVert:    fileLabel
  1023. ! Xarchie*stringForm*dateText*width:    111
  1024.   
  1025.   !    -    -    -    -    -    -    -    -    -
  1026.   ! Popup settings editor
  1027. --- 327,333 ----
  1028.   Xarchie*stringForm*dateLabel.fromVert:    fileLabel
  1029.   Xarchie*stringForm*dateText.fromHoriz:    dateLabel
  1030.   Xarchie*stringForm*dateText.fromVert:    fileLabel
  1031. ! Xarchie*stringForm*dateText*width:    125
  1032.   
  1033.   !    -    -    -    -    -    -    -    -    -
  1034.   ! Popup settings editor
  1035. ***************
  1036. *** 317,325 ****
  1037.   Xarchie*settingsForm*hostButton.label:        Host:
  1038.   Xarchie*settingsForm*hostButton.menuName:    hostMenu
  1039.   Xarchie*settingsForm*hostButton.fromVert:    setSortButton
  1040. ! Xarchie*settingsForm*hostText.fromVert:        setSortButton
  1041. ! Xarchie*settingsForm*hostText.fromHoriz:    hostButton
  1042. ! Xarchie*settingsForm*hostText*width:        200
  1043.   
  1044.   Xarchie*settingsForm*maxHitsLabel.label:    Max Hits:
  1045.   Xarchie*settingsForm*maxHitsLabel.fromVert:    hostButton
  1046. --- 370,378 ----
  1047.   Xarchie*settingsForm*hostButton.label:        Host:
  1048.   Xarchie*settingsForm*hostButton.menuName:    hostMenu
  1049.   Xarchie*settingsForm*hostButton.fromVert:    setSortButton
  1050. ! Xarchie*settingsForm*setHostText.fromVert:    setSortButton
  1051. ! Xarchie*settingsForm*setHostText.fromHoriz:    hostButton
  1052. ! Xarchie*settingsForm*setHostText*width:        200
  1053.   
  1054.   Xarchie*settingsForm*maxHitsLabel.label:    Max Hits:
  1055.   Xarchie*settingsForm*maxHitsLabel.fromVert:    hostButton
  1056. ***************
  1057. *** 377,385 ****
  1058.   Xarchie*hostMenu.label:        Archie Hosts
  1059.   Xarchie*hostMenu.menu:\
  1060.      (line) \
  1061.      (item "archie.mcgill.ca"    (action "set-host(archie.mcgill.ca)")) \
  1062.      (item "archie.funet.fi"    (action "set-host(archie.funet.fi)")) \
  1063. !    (item "archie.au"        (action "set-host(archie.au)"))
  1064.   
  1065.   Xarchie*niceMenu.label:        Nice Levels
  1066.   Xarchie*niceMenu.menu:\
  1067. --- 430,441 ----
  1068.   Xarchie*hostMenu.label:        Archie Hosts
  1069.   Xarchie*hostMenu.menu:\
  1070.      (line) \
  1071. +    (item "archie.sura.net"    (action "set-host(archie.sura.net)")) \
  1072.      (item "archie.mcgill.ca"    (action "set-host(archie.mcgill.ca)")) \
  1073.      (item "archie.funet.fi"    (action "set-host(archie.funet.fi)")) \
  1074. !    (item "archie.au"        (action "set-host(archie.au)")) \
  1075. !    (item "archie.doc.ic.ac.uk"    (action "set-host(archie.doc.ic.ac.uk)")) \
  1076. !    (item "cs.huji.ac.il"    (action "set-host(cs.huji.ac.il)"))
  1077.   
  1078.   Xarchie*niceMenu.label:        Nice Levels
  1079.   Xarchie*niceMenu.menu:\
  1080. ***************
  1081. *** 426,431 ****
  1082. --- 482,488 ----
  1083.   
  1084.   Xarchie*allowShellResize:        True
  1085.   Xarchie*Dialog*Label.resizable:        True
  1086. + Xarchie*Dialog*Text*scrollHorizontal:    never
  1087.   Xarchie*Dialog.icon:            xlogo32
  1088.   
  1089.   Xarchie*alertDialog*okButton.label:    Ok
  1090. ***************
  1091. *** 432,434 ****
  1092. --- 489,498 ----
  1093.   
  1094.   Xarchie*confirmDialog*yesButton.label:    Yes
  1095.   Xarchie*confirmDialog*noButton.label:    No
  1096. + 
  1097. + Xarchie*dialogDialog*okButton.label:    Ok
  1098. + Xarchie*dialogDialog*cancelButton.label:Cancel
  1099. + Xarchie*dialogDialog.value*translations:#override\n\
  1100. +     <Key>Return:    dialog-ok() \n\
  1101. +     <Enter>:    display-caret(True) \n\
  1102. +     <Leave>:    display-caret(False) \n
  1103. *** /tmp/release17219/Xarchie.ad.h    Tue Nov 12 16:53:30 1991
  1104. --- Xarchie.ad.h    Tue Nov 12 12:53:03 1991
  1105. ***************
  1106. *** 1,4 ****
  1107. ! "Xarchie.archieHost:    archie.mcgill.ca",
  1108.   "Xarchie.searchType:    exact",
  1109.   "Xarchie.sortType:    default",
  1110.   "Xarchie.maxHits:    99",
  1111. --- 1,4 ----
  1112. ! "Xarchie.archieHost:    archie.sura.net",
  1113.   "Xarchie.searchType:    exact",
  1114.   "Xarchie.sortType:    default",
  1115.   "Xarchie.maxHits:    99",
  1116. ***************
  1117. *** 8,14 ****
  1118. --- 8,16 ----
  1119.   "Xarchie.niceLevel:    0",
  1120.   "Xarchie.ftpDir:        .",
  1121.   "Xarchie.ftpMode:    binary",
  1122. + "Xarchie.saveFormatOneLine:    False",
  1123.   "Xarchie.debugLevel:    0",
  1124. + "Xarchie.expert:        False",
  1125.   "Xarchie.widgets: \
  1126.       toplevel            Paned        outerPaned \
  1127.   \
  1128. ***************
  1129. *** 15,27 ****
  1130.       outerPaned            Form        buttonForm \
  1131.       outerPaned.buttonForm        Command        quitButton \
  1132.       outerPaned.buttonForm        Command        queryButton \
  1133.       outerPaned.buttonForm        Command        ftpButton \
  1134.       outerPaned.buttonForm        MenuButton    searchButton \
  1135. -     outerPaned.buttonForm.searchButton EzMenu    searchNowMenu \
  1136.       outerPaned.buttonForm        MenuButton    sortButton \
  1137. -     outerPaned.buttonForm.sortButton EzMenu        sortNowMenu \
  1138.       outerPaned.buttonForm        MenuButton    niceButton \
  1139. -     outerPaned.buttonForm.niceButton EzMenu        niceNowMenu \
  1140.       outerPaned.buttonForm        Command        settingsButton \
  1141.       outerPaned.buttonForm        Label        statusLabel \
  1142.       outerPaned.buttonForm        AsciiText    statusText \
  1143. --- 17,28 ----
  1144.       outerPaned            Form        buttonForm \
  1145.       outerPaned.buttonForm        Command        quitButton \
  1146.       outerPaned.buttonForm        Command        queryButton \
  1147. +     outerPaned.buttonForm        Command        abortButton \
  1148. +     outerPaned.buttonForm        Command        saveButton \
  1149.       outerPaned.buttonForm        Command        ftpButton \
  1150.       outerPaned.buttonForm        MenuButton    searchButton \
  1151.       outerPaned.buttonForm        MenuButton    sortButton \
  1152.       outerPaned.buttonForm        MenuButton    niceButton \
  1153.       outerPaned.buttonForm        Command        settingsButton \
  1154.       outerPaned.buttonForm        Label        statusLabel \
  1155.       outerPaned.buttonForm        AsciiText    statusText \
  1156. ***************
  1157. *** 49,54 ****
  1158. --- 50,59 ----
  1159.       outerPaned.stringForm    AsciiText        modesText \
  1160.       outerPaned.stringForm    Label            dateLabel \
  1161.       outerPaned.stringForm    AsciiText        dateText ",
  1162. + "Xarchie.menus:\
  1163. +     outerPaned.buttonForm.searchButton EzMenu    searchNowMenu \
  1164. +     outerPaned.buttonForm.sortButton EzMenu        sortNowMenu \
  1165. +     outerPaned.buttonForm.niceButton EzMenu        niceNowMenu",
  1166.   "Xarchie.settingsWidgets:\
  1167.       toplevel            TopLevelShell    settingsShell \
  1168.       settingsShell            Form        settingsForm \
  1169. ***************
  1170. *** 64,70 ****
  1171.       settingsShell.settingsForm    Label        sortLabel \
  1172.       settingsShell.settingsForm    MenuButton    hostButton \
  1173.       settingsShell.settingsForm    EzMenu        hostMenu \
  1174. !     settingsShell.settingsForm    AsciiText    hostText \
  1175.       settingsShell.settingsForm    Label        maxHitsLabel \
  1176.       settingsShell.settingsForm    AsciiText    maxHitsText \
  1177.       settingsShell.settingsForm    Label        timeoutLabel \
  1178. --- 69,75 ----
  1179.       settingsShell.settingsForm    Label        sortLabel \
  1180.       settingsShell.settingsForm    MenuButton    hostButton \
  1181.       settingsShell.settingsForm    EzMenu        hostMenu \
  1182. !     settingsShell.settingsForm    AsciiText    setHostText \
  1183.       settingsShell.settingsForm    Label        maxHitsLabel \
  1184.       settingsShell.settingsForm    AsciiText    maxHitsText \
  1185.       settingsShell.settingsForm    Label        timeoutLabel \
  1186. ***************
  1187. *** 105,119 ****
  1188.       <Enter>:    display-caret(True) \\n\
  1189.       <Leave>:    display-caret(False) \\n",
  1190.   "Xarchie*outerPaned.orientation:    vertical",
  1191.   "Xarchie*buttonForm*quitButton.label:    Quit",
  1192.   "Xarchie*buttonForm*quitButton.translations:#override\\n\
  1193. !     <Btn1Down>,<Btn1Up>:    quit() \\n",
  1194.   "Xarchie*buttonForm*queryButton.label:        Query",
  1195.   "Xarchie*buttonForm*queryButton.fromHoriz:    quitButton",
  1196.   "Xarchie*buttonForm*queryButton.translations:#override\\n\
  1197.       <Btn1Down>,<Btn1Up>:    query() \\n",
  1198.   "Xarchie*buttonForm*ftpButton.label:        Ftp",
  1199. ! "Xarchie*buttonForm*ftpButton.fromHoriz:        queryButton",
  1200.   "Xarchie*buttonForm*ftpButton.translations:#override\\n\
  1201.       <Btn1Down>,<Btn1Up>:    ftp() \\n",
  1202.   "Xarchie*buttonForm*searchButton.label:        Search Type",
  1203. --- 110,137 ----
  1204.       <Enter>:    display-caret(True) \\n\
  1205.       <Leave>:    display-caret(False) \\n",
  1206.   "Xarchie*outerPaned.orientation:    vertical",
  1207. + "Xarchie*buttonForm.min: 50",
  1208. + "Xarchie*buttonForm.max: 50",
  1209. + "Xarchie*buttonForm.showGrip: False",
  1210.   "Xarchie*buttonForm*quitButton.label:    Quit",
  1211.   "Xarchie*buttonForm*quitButton.translations:#override\\n\
  1212. !     Shift<Btn1Down>,<Btn1Up>:    quit(always) \\n\
  1213. !     <Btn1Down>,<Btn1Up>:        quit() \\n",
  1214.   "Xarchie*buttonForm*queryButton.label:        Query",
  1215.   "Xarchie*buttonForm*queryButton.fromHoriz:    quitButton",
  1216.   "Xarchie*buttonForm*queryButton.translations:#override\\n\
  1217.       <Btn1Down>,<Btn1Up>:    query() \\n",
  1218. + "Xarchie*buttonForm*abortButton.label:        Abort",
  1219. + "Xarchie*buttonForm*abortButton.fromHoriz:    queryButton",
  1220. + "Xarchie*buttonForm*abortButton.translations:#override\\n\
  1221. +     <Btn1Down>,<Btn1Up>:    abort() \\n",
  1222. + "Xarchie*buttonForm*saveButton.label:        Save",
  1223. + "Xarchie*buttonForm*saveButton.fromHoriz:    abortButton",
  1224. + "Xarchie*buttonForm*saveButton.translations:#override\\n\
  1225. +     Shift<Btn1Down>,<Btn1Up>:    save-to-file(\"%s.lst\") \\n\
  1226. +     <Btn1Down>,<Btn1Up>:        save-to-file() \\n",
  1227.   "Xarchie*buttonForm*ftpButton.label:        Ftp",
  1228. ! "Xarchie*buttonForm*ftpButton.fromHoriz:        saveButton",
  1229.   "Xarchie*buttonForm*ftpButton.translations:#override\\n\
  1230.       <Btn1Down>,<Btn1Up>:    ftp() \\n",
  1231.   "Xarchie*buttonForm*searchButton.label:        Search Type",
  1232. ***************
  1233. *** 136,148 ****
  1234. --- 154,173 ----
  1235.   "Xarchie*buttonForm*statusText*width:        410",
  1236.   "Xarchie*buttonForm*statusText*editType:        read",
  1237.   "Xarchie*buttonForm*statusText.borderWidth:    0",
  1238. + "Xarchie*buttonForm*statusText*scrollHorizontal:    never",
  1239.   "Xarchie*buttonForm*statusText*translations:#override\\n",
  1240.   "Xarchie*innerPaned.orientation:    horizontal",
  1241. + "Xarchie*innerPaned.showGrip: False",
  1242.   "Xarchie*stringForm.min: 120",
  1243.   "Xarchie*stringForm.max: 120",
  1244. + "Xarchie*stringForm*Label.justify:    left",
  1245. + "Xarchie*stringForm*Label.font:        fixed",
  1246. + "Xarchie*stringForm*AsciiSrc.editType:     read",
  1247.   "Xarchie*stringForm*searchLabel.label:        Search Term:",
  1248. + "Xarchie*stringForm*searchLabel.font:        *fixed*bold*",
  1249.   "Xarchie*stringForm*searchText*width:        375",
  1250.   "Xarchie*stringForm*searchText.fromHoriz:    searchLabel",
  1251. + "Xarchie*stringForm*searchText*editType:     edit",
  1252.   "Xarchie*stringForm*searchText*translations:#override\\n\
  1253.       <Enter>:    display-caret(True) \\n\
  1254.       <Leave>:    display-caret(False) \\n\
  1255. ***************
  1256. *** 151,172 ****
  1257.   "Xarchie*stringForm*hostLabel.fromVert:    searchLabel",
  1258.   "Xarchie*stringForm*hostText.fromVert:    searchLabel",
  1259.   "Xarchie*stringForm*hostText.fromHoriz:    hostLabel",
  1260. ! "Xarchie*stringForm*hostText.width:    424",
  1261.   "Xarchie*stringForm*locationLabel.label:        Location:",
  1262.   "Xarchie*stringForm*locationLabel.fromVert:    hostLabel",
  1263.   "Xarchie*stringForm*locationText.fromHoriz:    locationLabel",
  1264.   "Xarchie*stringForm*locationText.fromVert:    hostLabel",
  1265. ! "Xarchie*stringForm*locationText.width:        396",
  1266.   "Xarchie*stringForm*fileLabel.label:    File:",
  1267.   "Xarchie*stringForm*fileLabel.fromVert:    locationLabel",
  1268.   "Xarchie*stringForm*fileText.fromHoriz:    fileLabel",
  1269.   "Xarchie*stringForm*fileText.fromVert:    locationLabel",
  1270. ! "Xarchie*stringForm*fileText.width:    424",
  1271.   "Xarchie*stringForm*sizeLabel.label:    Size:",
  1272.   "Xarchie*stringForm*sizeLabel.fromVert:    fileLabel",
  1273.   "Xarchie*stringForm*sizeText.fromHoriz:    sizeLabel",
  1274.   "Xarchie*stringForm*sizeText.fromVert:    fileLabel",
  1275. ! "Xarchie*stringForm*sizeText*width:    111",
  1276.   "Xarchie*stringForm*modesLabel.label:    Mode:",
  1277.   "Xarchie*stringForm*modesLabel.fromHoriz:sizeText",
  1278.   "Xarchie*stringForm*modesLabel.fromVert:    fileLabel",
  1279. --- 176,197 ----
  1280.   "Xarchie*stringForm*hostLabel.fromVert:    searchLabel",
  1281.   "Xarchie*stringForm*hostText.fromVert:    searchLabel",
  1282.   "Xarchie*stringForm*hostText.fromHoriz:    hostLabel",
  1283. ! "Xarchie*stringForm*hostText.width:    429",
  1284.   "Xarchie*stringForm*locationLabel.label:        Location:",
  1285.   "Xarchie*stringForm*locationLabel.fromVert:    hostLabel",
  1286.   "Xarchie*stringForm*locationText.fromHoriz:    locationLabel",
  1287.   "Xarchie*stringForm*locationText.fromVert:    hostLabel",
  1288. ! "Xarchie*stringForm*locationText.width:        405",
  1289.   "Xarchie*stringForm*fileLabel.label:    File:",
  1290.   "Xarchie*stringForm*fileLabel.fromVert:    locationLabel",
  1291.   "Xarchie*stringForm*fileText.fromHoriz:    fileLabel",
  1292.   "Xarchie*stringForm*fileText.fromVert:    locationLabel",
  1293. ! "Xarchie*stringForm*fileText.width:    429",
  1294.   "Xarchie*stringForm*sizeLabel.label:    Size:",
  1295.   "Xarchie*stringForm*sizeLabel.fromVert:    fileLabel",
  1296.   "Xarchie*stringForm*sizeText.fromHoriz:    sizeLabel",
  1297.   "Xarchie*stringForm*sizeText.fromVert:    fileLabel",
  1298. ! "Xarchie*stringForm*sizeText*width:    112",
  1299.   "Xarchie*stringForm*modesLabel.label:    Mode:",
  1300.   "Xarchie*stringForm*modesLabel.fromHoriz:sizeText",
  1301.   "Xarchie*stringForm*modesLabel.fromVert:    fileLabel",
  1302. ***************
  1303. *** 178,184 ****
  1304.   "Xarchie*stringForm*dateLabel.fromVert:    fileLabel",
  1305.   "Xarchie*stringForm*dateText.fromHoriz:    dateLabel",
  1306.   "Xarchie*stringForm*dateText.fromVert:    fileLabel",
  1307. ! "Xarchie*stringForm*dateText*width:    111",
  1308.   "Xarchie*settingsForm*Text*borderWidth:        0",
  1309.   "Xarchie*settingsForm*Label*resizable:        True",
  1310.   "Xarchie*settingsShell.title:            Xarchie Settings Panel",
  1311. --- 203,209 ----
  1312.   "Xarchie*stringForm*dateLabel.fromVert:    fileLabel",
  1313.   "Xarchie*stringForm*dateText.fromHoriz:    dateLabel",
  1314.   "Xarchie*stringForm*dateText.fromVert:    fileLabel",
  1315. ! "Xarchie*stringForm*dateText*width:    125",
  1316.   "Xarchie*settingsForm*Text*borderWidth:        0",
  1317.   "Xarchie*settingsForm*Label*resizable:        True",
  1318.   "Xarchie*settingsShell.title:            Xarchie Settings Panel",
  1319. ***************
  1320. *** 210,218 ****
  1321.   "Xarchie*settingsForm*hostButton.label:        Host:",
  1322.   "Xarchie*settingsForm*hostButton.menuName:    hostMenu",
  1323.   "Xarchie*settingsForm*hostButton.fromVert:    setSortButton",
  1324. ! "Xarchie*settingsForm*hostText.fromVert:        setSortButton",
  1325. ! "Xarchie*settingsForm*hostText.fromHoriz:    hostButton",
  1326. ! "Xarchie*settingsForm*hostText*width:        200",
  1327.   "Xarchie*settingsForm*maxHitsLabel.label:    Max Hits:",
  1328.   "Xarchie*settingsForm*maxHitsLabel.fromVert:    hostButton",
  1329.   "Xarchie*settingsForm*maxHitsText.fromVert:    hostButton",
  1330. --- 235,243 ----
  1331.   "Xarchie*settingsForm*hostButton.label:        Host:",
  1332.   "Xarchie*settingsForm*hostButton.menuName:    hostMenu",
  1333.   "Xarchie*settingsForm*hostButton.fromVert:    setSortButton",
  1334. ! "Xarchie*settingsForm*setHostText.fromVert:    setSortButton",
  1335. ! "Xarchie*settingsForm*setHostText.fromHoriz:    hostButton",
  1336. ! "Xarchie*settingsForm*setHostText*width:        200",
  1337.   "Xarchie*settingsForm*maxHitsLabel.label:    Max Hits:",
  1338.   "Xarchie*settingsForm*maxHitsLabel.fromVert:    hostButton",
  1339.   "Xarchie*settingsForm*maxHitsText.fromVert:    hostButton",
  1340. ***************
  1341. *** 256,264 ****
  1342.   "Xarchie*hostMenu.label:        Archie Hosts",
  1343.   "Xarchie*hostMenu.menu:\
  1344.      (line) \
  1345.      (item \"archie.mcgill.ca\"    (action \"set-host(archie.mcgill.ca)\")) \
  1346.      (item \"archie.funet.fi\"    (action \"set-host(archie.funet.fi)\")) \
  1347. !    (item \"archie.au\"        (action \"set-host(archie.au)\"))",
  1348.   "Xarchie*niceMenu.label:        Nice Levels",
  1349.   "Xarchie*niceMenu.menu:\
  1350.       (line) \
  1351. --- 281,292 ----
  1352.   "Xarchie*hostMenu.label:        Archie Hosts",
  1353.   "Xarchie*hostMenu.menu:\
  1354.      (line) \
  1355. +    (item \"archie.sura.net\"    (action \"set-host(archie.sura.net)\")) \
  1356.      (item \"archie.mcgill.ca\"    (action \"set-host(archie.mcgill.ca)\")) \
  1357.      (item \"archie.funet.fi\"    (action \"set-host(archie.funet.fi)\")) \
  1358. !    (item \"archie.au\"        (action \"set-host(archie.au)\")) \
  1359. !    (item \"archie.doc.ic.ac.uk\"    (action \"set-host(archie.doc.ic.ac.uk)\")) \
  1360. !    (item \"cs.huji.ac.il\"    (action \"set-host(cs.huji.ac.il)\"))",
  1361.   "Xarchie*niceMenu.label:        Nice Levels",
  1362.   "Xarchie*niceMenu.menu:\
  1363.       (line) \
  1364. ***************
  1365. *** 294,300 ****
  1366. --- 322,335 ----
  1367.       (item \"Nicest\"        (action \"set-nice-level-now(32765)\"))",
  1368.   "Xarchie*allowShellResize:        True",
  1369.   "Xarchie*Dialog*Label.resizable:        True",
  1370. + "Xarchie*Dialog*Text*scrollHorizontal:    never",
  1371.   "Xarchie*Dialog.icon:            xlogo32",
  1372.   "Xarchie*alertDialog*okButton.label:    Ok",
  1373.   "Xarchie*confirmDialog*yesButton.label:    Yes",
  1374.   "Xarchie*confirmDialog*noButton.label:    No",
  1375. + "Xarchie*dialogDialog*okButton.label:    Ok",
  1376. + "Xarchie*dialogDialog*cancelButton.label:Cancel",
  1377. + "Xarchie*dialogDialog.value*translations:#override\\n\
  1378. +     <Key>Return:    dialog-ok() \\n\
  1379. +     <Enter>:    display-caret(True) \\n\
  1380. +     <Leave>:    display-caret(False) \\n",
  1381. *** /tmp/release17219/actions.c    Tue Nov 12 16:53:34 1991
  1382. --- actions.c    Tue Nov 12 12:47:14 1991
  1383. ***************
  1384. *** 6,15 ****
  1385.    * which are imported. Eventually there may be more actions, and they'll
  1386.    * be put here.
  1387.    *
  1388. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  1389.    *
  1390.    */
  1391.   
  1392.   #include <X11/Intrinsic.h>
  1393.   #include <X11/StringDefs.h>
  1394.   #include <X11/Xaw/Text.h>
  1395. --- 6,16 ----
  1396.    * which are imported. Eventually there may be more actions, and they'll
  1397.    * be put here.
  1398.    *
  1399. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  1400.    *
  1401.    */
  1402.   
  1403. + #include <stdio.h>
  1404.   #include <X11/Intrinsic.h>
  1405.   #include <X11/StringDefs.h>
  1406.   #include <X11/Xaw/Text.h>
  1407. ***************
  1408. *** 22,38 ****
  1409.   #include "settings.h"        /* for settings actions */
  1410.   #include "ftp.h"
  1411.   #include "alert.h"
  1412.   #include "regex.h"
  1413.   
  1414.   /*
  1415.    * Functions defined here
  1416.    */
  1417.   static void quitAction(),queryAction(),ftpAction();
  1418.   
  1419.   /*
  1420.    * Data defined here:
  1421.    */
  1422. ! XtActionsRec actionTable[15] = {    /* check size in actions.h! */
  1423.       { "quit",            quitAction },
  1424.       { "query",            queryAction },
  1425.       { "ftp",            ftpAction },
  1426. --- 23,45 ----
  1427.   #include "settings.h"        /* for settings actions */
  1428.   #include "ftp.h"
  1429.   #include "alert.h"
  1430. + #include "confirm.h"
  1431. + #include "dialog.h"
  1432.   #include "regex.h"
  1433. + extern char *progname;
  1434. + extern Database *db;
  1435. + extern abortDirsend();        /* dirsend.c */
  1436.   
  1437.   /*
  1438.    * Functions defined here
  1439.    */
  1440.   static void quitAction(),queryAction(),ftpAction();
  1441. + static void saveAction(),abortAction();
  1442.   
  1443.   /*
  1444.    * Data defined here:
  1445.    */
  1446. ! XtActionsRec actionTable[22] = {    /* check size in actions.h! */
  1447.       { "quit",            quitAction },
  1448.       { "query",            queryAction },
  1449.       { "ftp",            ftpAction },
  1450. ***************
  1451. *** 48,54 ****
  1452. --- 55,69 ----
  1453.       { "set-host-now",        setHostNowAction },
  1454.       { "set-nice-level",        setNiceLevelAction },
  1455.       { "set-nice-level-now",    setNiceLevelNowAction },
  1456. +     { "save-to-file",        saveAction },
  1457. +     { "abort",            abortAction },
  1458. +     { "alert-ok",        alertOk },
  1459. +     { "confirm-yes",        confirmYes },
  1460. +     { "confirm-no",        confirmNo },
  1461. +     { "dialog-ok",        dialogOk },
  1462. +     { "dialog-cancel",        dialogCancel },
  1463.   };
  1464. + static Boolean doingQuery;
  1465.   
  1466.   /*    -    -    -    -    -    -    -    -    */
  1467.   
  1468. ***************
  1469. *** 60,67 ****
  1470.   String *params;
  1471.   Cardinal *num_params;
  1472.   {
  1473. !     XtDestroyApplicationContext(appContext);
  1474. !     exit(0);
  1475.   }
  1476.   
  1477.   /*ARGSUSED*/
  1478. --- 75,85 ----
  1479.   String *params;
  1480.   Cardinal *num_params;
  1481.   {
  1482. !     if (*num_params > ZERO || appResources.expert ||
  1483. !                     confirm0("Really quit xarchie?")) {
  1484. !     XtDestroyApplicationContext(appContext);
  1485. !     exit(0);
  1486. !     }
  1487.   }
  1488.   
  1489.   /*ARGSUSED*/
  1490. ***************
  1491. *** 77,82 ****
  1492. --- 95,106 ----
  1493.       int len;
  1494.       Boolean gif;
  1495.   
  1496. +     if (doingQuery) {
  1497. +     /* Don't do anything using popups since we could be in dirsend()
  1498. +        by now. */
  1499. +     XBell(display,0);
  1500. +     return;
  1501. +     }
  1502.       XtSetArg(args[0],XtNstring,&s);
  1503.       XtGetValues(searchText,args,ONE);
  1504.       if (*s == '\0') {
  1505. ***************
  1506. *** 114,119 ****
  1507. --- 138,148 ----
  1508.           return;
  1509.       }
  1510.   #endif /* DONT_CATCH_GIFS */
  1511. +     doingQuery = True;
  1512. +     if (queryButton != NULL)
  1513. +     XtSetSensitive(queryButton,False);
  1514. +     if (abortButton != NULL)
  1515. +     XtSetSensitive(abortButton,True);
  1516.       if (appResources.sortType == GfInvdate)
  1517.       procquery(appResources.archieHost,s,appResources.maxHits,
  1518.             appResources.offset,appResources.searchType,True,0);
  1519. ***************
  1520. *** 120,125 ****
  1521. --- 149,159 ----
  1522.       else
  1523.       procquery(appResources.archieHost,s,appResources.maxHits,
  1524.             appResources.offset,appResources.searchType,False,0);
  1525. +     doingQuery = False;
  1526. +     if (abortButton != NULL)
  1527. +     XtSetSensitive(abortButton,False);
  1528. +     if (queryButton != NULL)
  1529. +     XtSetSensitive(queryButton,True);
  1530.   }
  1531.   
  1532.   /*ARGSUSED*/
  1533. ***************
  1534. *** 141,144 ****
  1535. --- 175,245 ----
  1536.       }
  1537.       ftp(selectedHostEntry->hostname,selectedLocEntry->linkpath,
  1538.       selectedFileEntry->name);
  1539. + }
  1540. + 
  1541. + /*ARGSUSED*/
  1542. + static void
  1543. + saveAction(w,event,params,num_params)
  1544. + Widget w;
  1545. + XEvent *event;
  1546. + String *params;
  1547. + Cardinal *num_params;
  1548. + {
  1549. +     static char filename[256];
  1550. +     Arg args[1];
  1551. +     char *s;
  1552. +     FILE *fp;
  1553. +     HostEntry *hostp;
  1554. +     LocEntry *locp;
  1555. +     FileEntry *filep;
  1556. + 
  1557. +     if (*num_params == ZERO) {
  1558. +     if ((s=dialog("Filename to save to:",filename)) == NULL || *s == '\0')
  1559. +         return;
  1560. +     strncpy(filename,s,255);
  1561. +     } else if (*num_params == ONE) {
  1562. +     XtSetArg(args[0],XtNstring,&s);
  1563. +     XtGetValues(searchText,args,ONE);
  1564. +      sprintf(filename,*params,s);
  1565. +     } else {
  1566. +     fprintf(stderr,"%s: wrong number of args to \"save-to-file()\"",
  1567. +                                 progname);
  1568. +     return;
  1569. +     }
  1570. +     if ((fp=fopen(filename,"w")) == NULL) {
  1571. +     alert1("Can't open %s for writing",filename);
  1572. +     return;
  1573. +     }
  1574. +     status1("Writing %s...",filename);
  1575. +     if (appResources.saveFormatOneLine) {
  1576. +     for (hostp=db->hostEntries; hostp != NULL; hostp = hostp->next)
  1577. +         for (locp=hostp->locEntries; locp != NULL; locp = locp->next)
  1578. +         for (filep=locp->fileEntries; filep != NULL; filep=filep->next)
  1579. +             fprintf(fp,"%s %10d  %s  %s:%s/%s\n",
  1580. +                 filep->modes,filep->size,filep->date,
  1581. +                 hostp->hostname,locp->linkpath,filep->name);
  1582. +     } else {
  1583. +     for (hostp=db->hostEntries; hostp != NULL; hostp = hostp->next) {
  1584. +         fprintf(fp,"%s\n",hostp->hostname);
  1585. +         for (locp=hostp->locEntries; locp != NULL; locp = locp->next) {
  1586. +         fprintf(fp,"\t%s\n",locp->linkpath);
  1587. +         for (filep=locp->fileEntries; filep != NULL; filep=filep->next)
  1588. +             fprintf(fp,"\t\t%s %10d  %s  %s\n",
  1589. +                 filep->modes,filep->size,filep->date,filep->name);
  1590. +         }
  1591. +     }
  1592. +     }
  1593. +     fclose(fp);
  1594. +     status0("Ready");
  1595. + }
  1596. + 
  1597. + /*ARGSUSED*/
  1598. + static void
  1599. + abortAction(w,event,params,num_params)
  1600. + Widget w;
  1601. + XEvent *event;
  1602. + String *params;
  1603. + Cardinal *num_params;
  1604. + {
  1605. +     abortDirsend();
  1606.   }
  1607. *** /tmp/release17219/actions.h    Tue Nov 12 16:53:38 1991
  1608. --- actions.h    Tue Oct 22 08:31:03 1991
  1609. ***************
  1610. *** 1,7 ****
  1611.   /*
  1612.    * actions.h : Definition of the action table so its size is known
  1613.    *
  1614. !  * George Ferguson, ferguson@cs.rochester.edu, 4 Sep 1991.
  1615.    *
  1616.    */
  1617.   
  1618. --- 1,7 ----
  1619.   /*
  1620.    * actions.h : Definition of the action table so its size is known
  1621.    *
  1622. !  * George Ferguson, ferguson@cs.rochester.edu, 20 Oct 1991.
  1623.    *
  1624.    */
  1625.   
  1626. ***************
  1627. *** 8,13 ****
  1628.   #ifndef ACTIONS_H
  1629.   #define ACTIONS_H
  1630.   
  1631. ! extern XtActionsRec actionTable[15];
  1632.   
  1633.   #endif /* ACTIONS_H */
  1634. --- 8,13 ----
  1635.   #ifndef ACTIONS_H
  1636.   #define ACTIONS_H
  1637.   
  1638. ! extern XtActionsRec actionTable[22];
  1639.   
  1640.   #endif /* ACTIONS_H */
  1641. *** /tmp/release17219/appres.h    Tue Nov 12 16:53:44 1991
  1642. --- appres.h    Tue Nov 12 12:47:49 1991
  1643. ***************
  1644. *** 2,8 ****
  1645.    * appres.h : External defs for files needing the application
  1646.    *    resources.
  1647.    *
  1648. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  1649.    *
  1650.    */
  1651.   
  1652. --- 2,8 ----
  1653.    * appres.h : External defs for files needing the application
  1654.    *    resources.
  1655.    *
  1656. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  1657.    *
  1658.    */
  1659.   
  1660. ***************
  1661. *** 13,18 ****
  1662. --- 13,19 ----
  1663.   
  1664.   typedef struct {
  1665.       String    widgets;
  1666. +     String    menus;
  1667.       SearchType    searchType;
  1668.       SortType    sortType;
  1669.       String    archieHost;
  1670. ***************
  1671. *** 25,30 ****
  1672. --- 26,33 ----
  1673.       String    ftpType;
  1674.       int        debugLevel;
  1675.       String    settingsWidgets;
  1676. +     Boolean    saveFormatOneLine;
  1677. +     Boolean    expert;
  1678.   } AppResources;
  1679.   
  1680.   extern AppResources appResources;
  1681. *** /tmp/release17219/aquery.c    Tue Nov 12 16:53:48 1991
  1682. --- aquery.c    Sat Nov  2 16:48:27 1991
  1683. ***************
  1684. *** 11,23 ****
  1685.    * and new sorting code by George Ferguson (ferguson@cs.rochester.edu) 
  1686.    * and Brendan Kehoe (brendan@cs.widener.edu).
  1687.    *
  1688. !  * v1.1.1 - bcn  08/20/91 - make it do it properly (new invdatecmplink)
  1689. !  * v1.1.1 - bpk 08/20/91 - made sorting go inverted as we purport it does
  1690.    */
  1691.   #include <copyright.h>
  1692.   
  1693.   #include <stdio.h>
  1694. ! #include <strings.h>            /* for char *index() */
  1695.   
  1696.   #include <pfs.h>
  1697.   #include <perrno.h>
  1698. --- 11,29 ----
  1699.    * and new sorting code by George Ferguson (ferguson@cs.rochester.edu) 
  1700.    * and Brendan Kehoe (brendan@cs.widener.edu).
  1701.    *
  1702. !  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  1703. !  * v1.1.3 - 08/30/91 (bpk) - cast index()
  1704. !  * v1.1.2 - 08/20/91 (bcn) - make it do it properly (new invdatecmplink)
  1705. !  * v1.1.1 - 08/20/91 (bpk) - made sorting go inverted as we purport it does
  1706.    */
  1707.   #include <copyright.h>
  1708.   
  1709.   #include <stdio.h>
  1710. ! #if defined(USG) || defined(UTS) || defined(_AIX)
  1711. ! # include <string.h>            /* for char *index() */
  1712. ! #else
  1713. ! # include <strings.h>            /* for char *index() */
  1714. ! #endif
  1715.   
  1716.   #include <pfs.h>
  1717.   #include <perrno.h>
  1718. ***************
  1719. *** 26,31 ****
  1720. --- 32,40 ----
  1721.   
  1722.   static void translateArchieResponse();
  1723.   
  1724. + extern int pwarn;
  1725. + extern char p_warn_string[];
  1726. + 
  1727.   /*
  1728.    * archie_query : Sends a request to _host_, telling it to search for
  1729.    *                _string_ using _query_type_ as the search method.
  1730. ***************
  1731. *** 83,89 ****
  1732.           max_hits,offset,query_type,string);
  1733.   
  1734.       /* Initialize Prospero structures */
  1735. !     perrno = 0; *p_err_string = '\0';
  1736.       vdir_init(dir);
  1737.       
  1738.       /* Retrieve the list of matches, return error if there was one */
  1739. --- 92,99 ----
  1740.           max_hits,offset,query_type,string);
  1741.   
  1742.       /* Initialize Prospero structures */
  1743. !     perrno = PSUCCESS; *p_err_string = '\0';
  1744. !     pwarn = PNOWARN; *p_warn_string = '\0';
  1745.       vdir_init(dir);
  1746.       
  1747.       /* Retrieve the list of matches, return error if there was one */
  1748. ***************
  1749. *** 181,187 ****
  1750.           if (strncmp(l->filename,"ARCHIE/HOST",11) == 0) {
  1751.           l->type = stcopyr("EXTERNAL(AFTP,DIRECTORY)",l->type);
  1752.           l->host = stcopyr(l->filename+12,l->host);
  1753. !         slash = index(l->host,'/');
  1754.           if (slash) {
  1755.               l->filename = stcopyr(slash,l->filename);
  1756.               *slash++ = '\0';
  1757. --- 191,197 ----
  1758.           if (strncmp(l->filename,"ARCHIE/HOST",11) == 0) {
  1759.           l->type = stcopyr("EXTERNAL(AFTP,DIRECTORY)",l->type);
  1760.           l->host = stcopyr(l->filename+12,l->host);
  1761. !         slash = (char *)index(l->host,'/');
  1762.           if (slash) {
  1763.               l->filename = stcopyr(slash,l->filename);
  1764.               *slash++ = '\0';
  1765. ***************
  1766. *** 197,202 ****
  1767. --- 207,213 ----
  1768.    *             belongs before q, > 0 if p belongs after q, and == 0 if their
  1769.    *             host and filename fields are identical.
  1770.    */
  1771. + int
  1772.   defcmplink(p,q)
  1773.       VLINK p,q;
  1774.       {
  1775. ***************
  1776. *** 216,221 ****
  1777. --- 227,233 ----
  1778.    *                 same, it then calls defcmplink() and returns its 
  1779.    *           value.
  1780.    */
  1781. + int
  1782.   invdatecmplink(p,q)
  1783.       VLINK p,q;
  1784.       {
  1785. *** /tmp/release17219/archie.h    Tue Nov 12 16:53:51 1991
  1786. --- archie.h    Mon Oct 21 12:38:21 1991
  1787. ***************
  1788. *** 4,18 ****
  1789.    *     Written by Brendan Kehoe (brendan@cs.widener.edu), 
  1790.    *                George Ferguson (ferguson@cs.rochester.edu), and
  1791.    *                Clifford Neuman (bcn@isi.edu).
  1792. -  *
  1793.    */
  1794.   
  1795.   /*
  1796. !  * Archie server (one of):   archie.mcgill.ca
  1797.    *                           archie.funet.fi
  1798.    *                           archie.au
  1799.    */
  1800. ! #define ARCHIE_HOST "ARCHIE.MCGILL.CA"
  1801.   
  1802.   /*
  1803.    * Default value for max hits.  Note that this is normally different
  1804. --- 4,18 ----
  1805.    *     Written by Brendan Kehoe (brendan@cs.widener.edu), 
  1806.    *                George Ferguson (ferguson@cs.rochester.edu), and
  1807.    *                Clifford Neuman (bcn@isi.edu).
  1808.    */
  1809.   
  1810.   /*
  1811. !  * Archie server (one of):   archie.sura.net
  1812. !  *                 archie.mcgill.ca
  1813.    *                           archie.funet.fi
  1814.    *                           archie.au
  1815.    */
  1816. ! #define ARCHIE_HOST "ARCHIE.SURA.NET"
  1817.   
  1818.   /*
  1819.    * Default value for max hits.  Note that this is normally different
  1820. ***************
  1821. *** 19,25 ****
  1822.    * for different client implementations.  Doing so makes it easier to
  1823.    * collect statistics on the use of the various clients.
  1824.    */
  1825. ! #define    MAX_HITS    99
  1826.   
  1827.   /*
  1828.    * CLIENT_VERSION may be used to identify the version of the client if 
  1829. --- 19,33 ----
  1830.    * for different client implementations.  Doing so makes it easier to
  1831.    * collect statistics on the use of the various clients.
  1832.    */
  1833. ! #ifdef VMS
  1834. ! # define    MAX_HITS    98    /* VMS Client */
  1835. ! #else
  1836. ! # ifdef XARCHIE
  1837. ! #  define    MAX_HITS    99    /* X Client */
  1838. ! # else
  1839. ! #  define    MAX_HITS    95    /* Normal client */
  1840. ! # endif
  1841. ! #endif
  1842.   
  1843.   /*
  1844.    * CLIENT_VERSION may be used to identify the version of the client if 
  1845. ***************
  1846. *** 26,35 ****
  1847.    * distributed separately from the Prospero distribution.  The version
  1848.    * command should then identify both the client version and the Prospero
  1849.    * version identifiers.   
  1850. -  *
  1851. -  * #define CLIENT_VERSION    "xyz"
  1852.    */
  1853. ! #define CLIENT_VERSION        "xarchie"
  1854.   
  1855.   /* Procedures from user/aquery.c */
  1856.   
  1857. --- 34,45 ----
  1858.    * distributed separately from the Prospero distribution.  The version
  1859.    * command should then identify both the client version and the Prospero
  1860.    * version identifiers.   
  1861.    */
  1862. ! #ifdef XARCHIE
  1863. ! # define CLIENT_VERSION    "1.3-X"
  1864. ! #else
  1865. ! # define CLIENT_VERSION "1.2"
  1866. ! #endif
  1867.   
  1868.   /* Procedures from user/aquery.c */
  1869.   
  1870. ***************
  1871. *** 47,50 ****
  1872.   /* Flags                                                               */
  1873.   #define AQ_NOSORT    0x01    /* Don't sort                          */
  1874.   #define AQ_NOTRANS    0x02    /* Don't translate Archie responses    */
  1875. - 
  1876. --- 57,59 ----
  1877. *** /tmp/release17219/atalloc.c    Tue Nov 12 16:53:55 1991
  1878. --- atalloc.c    Mon Oct 21 12:39:23 1991
  1879. ***************
  1880. *** 52,57 ****
  1881. --- 52,58 ----
  1882.    *    ATFREE takes a pointer to a PATTRRIB structure and adds it to
  1883.    *    the free list for later reuse.
  1884.    */
  1885. + void
  1886.   atfree(at)
  1887.       PATTRIB    at;
  1888.       {
  1889. ***************
  1890. *** 77,82 ****
  1891. --- 78,84 ----
  1892.    *    PATTRIB structures.  It is used to free an entrie list of PATTRIB
  1893.    *    structures.
  1894.    */
  1895. + void
  1896.   atlfree(at)
  1897.       PATTRIB    at;
  1898.       {
  1899. *** /dev/null    Tue Nov 12 16:30:11 1991
  1900. --- dialog.c    Sun Oct 20 15:58:33 1991
  1901. ***************
  1902. *** 0 ****
  1903. --- 1,110 ----
  1904. + /*
  1905. +  * dialog.c : A popup string entry box
  1906. +  *
  1907. +  * George Ferguson, ferguson@cs.rochester.edu, 20 Oct 1991.
  1908. +  *
  1909. +  */
  1910. + 
  1911. + #include <X11/Intrinsic.h>
  1912. + #include <X11/StringDefs.h>
  1913. + #include <X11/Shell.h>
  1914. + #include <X11/Xaw/Dialog.h>
  1915. + #include <X11/Xaw/Cardinals.h>
  1916. + #include <stdio.h>
  1917. + extern Widget toplevel;            /* this is the only external */
  1918. + 
  1919. + /*
  1920. +  * Functions defined here
  1921. +  */
  1922. + char *dialog0();            /* main public routine */
  1923. + void dialogOk(), dialogCancel();    /* public action procedures */
  1924. + 
  1925. + static Widget dialogShell,dialogDialog;
  1926. + static Boolean dialogDone;
  1927. + static char *dialogResult;
  1928. + 
  1929. + char *
  1930. + dialog(str,value)
  1931. + char *str,*value;
  1932. + {
  1933. +     Arg args[2];
  1934. +     XEvent event;
  1935. +     Window rwin,child;
  1936. +     int rx,ry,cx,cy,x,y;
  1937. +     unsigned int but;
  1938. +     Dimension w,h;
  1939. + 
  1940. +     /* Go synchronous or the widgets don't resize properly */
  1941. +     XSynchronize(XtDisplay(toplevel),True);
  1942. +     if (dialogShell == NULL) {
  1943. +     dialogShell = XtCreatePopupShell("dialogShell",
  1944. +                      transientShellWidgetClass,
  1945. +                      toplevel,NULL,ZERO);
  1946. +     dialogDialog = XtCreateManagedWidget("dialogDialog",
  1947. +                          dialogWidgetClass,
  1948. +                          dialogShell,NULL,ZERO);
  1949. +     XawDialogAddButton(dialogDialog,"okButton",dialogOk,NULL);
  1950. +     XawDialogAddButton(dialogDialog,"cancelButton",dialogCancel,NULL);
  1951. +     XtRealizeWidget(dialogShell);
  1952. +     }
  1953. +     /* Set the label and initial value */
  1954. +     XtSetArg(args[0],XtNlabel,str);
  1955. +     XtSetArg(args[1],XtNvalue,(value ? value : ""));
  1956. +     XtSetValues(dialogDialog,args,TWO);
  1957. +     /* Center the popup over the mouse */
  1958. +     XtSetArg(args[0],XtNwidth,&w);
  1959. +     XtSetArg(args[1],XtNheight,&h);
  1960. +     XtGetValues(dialogShell,args,TWO);
  1961. +     XQueryPointer(XtDisplay(toplevel),XtWindow(toplevel),
  1962. +                     &rwin,&child,&rx,&ry,&cx,&cy,&but);
  1963. +     x = rx-w/2;
  1964. +     if (x < 0)
  1965. +     x = 0;
  1966. +     else if (x > WidthOfScreen(XtScreen(toplevel))-w)
  1967. +     x = WidthOfScreen(XtScreen(toplevel))-w;
  1968. +     y = ry-h/2;
  1969. +     if (y < 0)
  1970. +     y = 0;
  1971. +     else if (y > HeightOfScreen(XtScreen(toplevel))-h)
  1972. +     y = WidthOfScreen(XtScreen(toplevel))-h;
  1973. +     XtSetArg(args[0],XtNx,x);
  1974. +     XtSetArg(args[1],XtNy,y);
  1975. +     XtSetValues(dialogShell,args,TWO);
  1976. +     /* Pop it up and block until one of the buttons is clicked */
  1977. +     dialogDone = False;
  1978. +     XtPopup(dialogShell,XtGrabExclusive);
  1979. +     while (!dialogDone) {
  1980. +     XtAppNextEvent(XtWidgetToApplicationContext(toplevel),&event);
  1981. +     XtDispatchEvent(&event);
  1982. +     }
  1983. +     /* Okay, pop it down */
  1984. +     XtPopdown(dialogShell);
  1985. +     /* Back to normal */
  1986. +     XSynchronize(XtDisplay(toplevel),False);
  1987. +     /* And here's the entered value */
  1988. +     return(dialogResult);
  1989. + }
  1990. + 
  1991. + /*ARGSUSED*/
  1992. + void
  1993. + dialogOk(w,event,params,num_params)
  1994. + Widget w;
  1995. + XEvent *event;
  1996. + String *params;
  1997. + Cardinal *num_params;
  1998. + {
  1999. +     dialogResult = XawDialogGetValueString(dialogDialog);
  2000. +     dialogDone = True;
  2001. + }
  2002. + 
  2003. + /*ARGSUSED*/
  2004. + void
  2005. + dialogCancel(w,event,params,num_params)
  2006. + Widget w;
  2007. + XEvent *event;
  2008. + String *params;
  2009. + Cardinal *num_params;
  2010. + {
  2011. +     dialogResult = NULL;
  2012. +     dialogDone = True;
  2013. + }
  2014. *** /dev/null    Tue Nov 12 16:30:11 1991
  2015. --- dialog.h    Sun Oct 20 15:54:11 1991
  2016. ***************
  2017. *** 0 ****
  2018. --- 1,10 ----
  2019. + /*
  2020. +  * dialog.h : A popup string entry box.
  2021. +  *
  2022. +  * George Ferguson, ferguson@cs.rochester.edu, 20 Oct 1991.
  2023. +  *
  2024. +  */
  2025. + 
  2026. + extern char *dialog(/* str,value */);
  2027. + extern void dialogOk(/* w,event,params,numparams */);
  2028. + extern void dialogCancel(/* w,event,params,numparams */);
  2029. *** /tmp/release17219/dirsend.c    Tue Nov 12 16:54:39 1991
  2030. --- dirsend.c    Thu Nov  7 10:05:57 1991
  2031. ***************
  2032. *** 4,44 ****
  2033.    * For copying and distribution information, please see the file
  2034.    * <copyright.h>.
  2035.    *
  2036. !  * Modified for xarchie by George Ferguson, ferguson@cs.rochester.edu,
  2037. !  * 4 Sep 1991.
  2038.    */
  2039.   
  2040.   #include <copyright.h>
  2041.   #include <stdio.h>
  2042.   #include <errno.h>
  2043. - #include <sys/time.h>
  2044. - #include <netdb.h>
  2045. - #include <strings.h>
  2046.   
  2047. ! #include <sys/types.h>
  2048. ! #include <sys/socket.h>
  2049. ! #ifdef AIX
  2050. ! #include <sys/select.h>
  2051. ! #endif
  2052.   
  2053. - 
  2054.   #include <pfs.h>
  2055.   #include <pprot.h>
  2056.   #include <pcompat.h>
  2057.   #include <perrno.h>
  2058. - #include <pmachine.h>
  2059.   
  2060.   
  2061.   static int notprived = 0;
  2062.   extern int errno;
  2063.   extern int perrno;
  2064.   #ifdef DEBUG
  2065.   extern int pfs_debug;
  2066.   #endif
  2067.   extern int pfs_disable_flag;
  2068.   
  2069. - int    rdgram_priority = 0;
  2070. - 
  2071.   char    *nlsindex();
  2072.   
  2073.   #define max(X, Y)  ((X) > (Y) ? (X) : (Y))
  2074. --- 4,88 ----
  2075.    * For copying and distribution information, please see the file
  2076.    * <copyright.h>.
  2077.    *
  2078. !  * v1.2.3 - 11/04/91 (bcn) - removed host comparison and replaced with check
  2079. !                   for connection id (undoes effect of v1.2.2.).
  2080. !  * v1.2.2 - 11/02/91 (gf)  - removed extra inet_ntoa() calls and stuff for
  2081. !                  multi-interface nets (lmjm@doc.imperial.ac.uk)
  2082. !  * v1.2.1 - 10/20/91 (gf)  - asynch implementation
  2083. !  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  2084. !  * v1.1.2 - 08/30/91 (bpk) - added VMS support
  2085. !  * v1.1.1 - 08/29/91 (bcn) - changed backoff handling
  2086. !  * v1.1.0 - 08/13/91 (gf)  - added XArchie status calls
  2087. !  *
  2088. !  * gf: 20 Oct 1991:
  2089. !  *  Broken into pieces so that under X dirsend() doesn't block in select()
  2090. !  *  but rather uses Xt calls to allow continued event processing. If
  2091. !  *  XARCHIE is not defined, can still be used since processEvent() will
  2092. !  *  use select() in this case.
  2093. !  *
  2094. !  * lmjm: 2 Nov 1991:
  2095. !  *  I've found that dirsend.c checks to see if the ip address of the response
  2096. !  *  is the same as the ip address that it sent to.  With multiple interfaces
  2097. !  *  this is not always true and a valid response is rejected.
  2098.    */
  2099.   
  2100.   #include <copyright.h>
  2101.   #include <stdio.h>
  2102.   #include <errno.h>
  2103.   
  2104. ! #ifdef VMS
  2105. ! # ifdef WALLONGONG
  2106. ! #  include "twg$tcp:[netdist.include]netdb.h"
  2107. ! # else /* Multinet */
  2108. ! #  include "multinet_root:[multinet.include]netdb.h"
  2109. ! # endif
  2110. ! # include <vms.h>
  2111. ! #else /* not VMS */
  2112. ! # ifdef NEED_TIME_H
  2113. ! #  include <time.h>
  2114. ! # else
  2115. ! #  include <sys/time.h>
  2116. ! # endif
  2117. ! # if defined(USG) || defined(UTS) || defined(_AIX)
  2118. ! #  include <string.h>
  2119. ! # else
  2120. ! #  include <strings.h>
  2121. ! # endif
  2122. ! # include <netdb.h>
  2123. ! # include <sys/types.h>
  2124. ! # include <pmachine.h>
  2125. ! # include <sys/socket.h>
  2126. ! # ifdef NEED_SELECT_H
  2127. ! #  include <sys/select.h>
  2128. ! # endif /* NEED_SELECT_H */
  2129. ! #endif /* !VMS */
  2130. ! #include <netinet/in.h>
  2131. ! #include <arpa/inet.h>
  2132.   
  2133.   #include <pfs.h>
  2134.   #include <pprot.h>
  2135.   #include <pcompat.h>
  2136.   #include <perrno.h>
  2137.   
  2138. + /* Gnu C currently fails to pass structures on Sparcs properly.  This directly
  2139. +    effects the calling of inet_ntoa().  To get around it, we use this hack;
  2140. +    take the address of what's being called to inet_ntoa, so it gets it
  2141. +    properly.  This won't be necessary with gcc 2.0.  */
  2142. + #if defined(sun) && defined(__GNUC__)
  2143. + # define SUN_GNU_FIX &
  2144. + #else
  2145. + # define SUN_GNU_FIX
  2146. + #endif
  2147.   
  2148.   static int notprived = 0;
  2149.   extern int errno;
  2150.   extern int perrno;
  2151. + extern int rdgram_priority;
  2152.   #ifdef DEBUG
  2153.   extern int pfs_debug;
  2154.   #endif
  2155.   extern int pfs_disable_flag;
  2156.   
  2157.   char    *nlsindex();
  2158.   
  2159.   #define max(X, Y)  ((X) > (Y) ? (X) : (Y))
  2160. ***************
  2161. *** 55,60 ****
  2162. --- 99,191 ----
  2163.   static int client_dirsrv_retry = CLIENT_DIRSRV_RETRY; 
  2164.   #endif /* XARCHIE */
  2165.   
  2166. + /* These were parameters to dirsend() */
  2167. + static PTEXT pkt;
  2168. + static char *hostname;
  2169. + static struct sockaddr_in *hostaddr;
  2170. + 
  2171. + /* These were locals in dirsend(). Note that the initializations here
  2172. +  * are really meaningless since we have to redo them for each call to
  2173. +  * dirsend() since they were formerly automatically initialized.
  2174. +  */
  2175. + static PTEXT        first = NULL;    /* First returned packet     */
  2176. + static PTEXT        next;        /* The one we are waiting for      */
  2177. + static PTEXT        vtmp;           /* For reorganizing linked list  */
  2178. + static PTEXT        comp_thru;    /* We have all packets though    */
  2179. + static int        lp = -1;    /* Opened UDP port             */
  2180. + static int        hdr_len;    /* Header Length                 */
  2181. + static int        nd_pkts;    /* Number of packets we want     */
  2182. + static int        no_pkts;    /* Number of packets we have     */
  2183. + static int        pkt_cid;        /* Packet connection identifier  */
  2184. + static unsigned short    this_conn_id;    /* Connection ID we are using    */
  2185. + static unsigned short    recvd_thru;    /* Received through              */
  2186. + static short        priority;    /* Priority for request          */
  2187. + static short        one = 0;    /* Pointer to value 1            */
  2188. + static short        zero = 0;    /* Pointer to value 0         */
  2189. + static char        *seqtxt;    /* Pointer to text w/ sequence # */
  2190. + static struct sockaddr_in  us;        /* Our address                   */
  2191. + static struct sockaddr_in  to;        /* Address to send query     */
  2192. + static struct sockaddr_in  from;    /* Reply received from         */
  2193. + static int        from_sz;    /* Size of from structure     */
  2194. + static struct hostent    *host;        /* Host info from gethostbyname  */
  2195. + static long        newhostaddr;    /* New host address from *host   */
  2196. + static int        req_udp_port=0; /* Requested port (optional)     */
  2197. + static char        *openparen;    /* Delimits port in name         */
  2198. + static char        hostnoport[500];/* Host name without port        */
  2199. + static int        ns;        /* Number of bytes actually sent */
  2200. + static int        nr;        /* Number of bytes received      */
  2201. + static fd_set        readfds;    /* Used for select         */
  2202. + static int        tmp;
  2203. + static char        *ctlptr;    /* Pointer to control field      */
  2204. + static short        stmp;        /* Temp short for conversions    */
  2205. + static int        backoff;    /* Server requested backoff      */
  2206. + static unsigned char    rdflag11;    /* First byte of flags (bit vect)*/
  2207. + static unsigned char    rdflag12;    /* Second byte of flags (int)    */
  2208. + static int        scpflag = 0;    /* Set if any sequencd cont pkts */
  2209. + static int        ackpend = 0;    /* Acknowledgement pending      */
  2210. + static int        gaps = 0;    /* Gaps present in recvd pkts   */
  2211. + static struct timeval    timeout;    /* Time to wait for response    */
  2212. + static struct timeval    ackwait;    /* Time to wait before acking   */
  2213. + static struct timeval    gapwait;    /* Time to wait b4 filling gaps */
  2214. + static struct timeval    *selwait;    /* Time to wait for select      */
  2215. + static int        retries;    /* was = client_dirsrv_retry    */
  2216. + char   to_hostname[512];        /* lmjm: saves inet_ntoa() str  */
  2217. + 
  2218. + /* These are added so dirsend() "blocks" properly */
  2219. + static PTEXT dirsendReturn;
  2220. + static int dirsendDone;
  2221. + 
  2222. + /* And here are the values for dirsendDone */
  2223. + #define DSRET_DONE        1
  2224. + #define DSRET_SEND_ERROR    -1
  2225. + #define DSRET_RECV_ERROR    -2
  2226. + #define DSRET_SELECT_ERROR    -3
  2227. + #define DSRET_TIMEOUT        -4
  2228. + #define DSRET_ABORTED        -5
  2229. + 
  2230. + /* New procedures to break up dirsend() */
  2231. + static int initDirsend();
  2232. + static void retryDirsend(), keepWaitingDirsend();
  2233. + static void timeoutProc();
  2234. + static void readProc();
  2235. + 
  2236. + /* Wrappers around X calls to allow non-X usage */
  2237. + static void addInputSource(), removeInputSource();
  2238. + static void addTimeOut(), removeTimeOut();
  2239. + static void processEvent();
  2240. + 
  2241. + /* Extra stuff for the asynchronous X version of dirsend() */
  2242. + #ifdef XARCHIE
  2243. + #include <X11/Intrinsic.h>
  2244. + extern XtAppContext appContext;
  2245. + #else
  2246. + typedef char *XtPointer;
  2247. + typedef char *XtInputId;
  2248. + typedef char *XtIntervalId;
  2249. + #endif
  2250. + static XtInputId inputId;
  2251. + static XtIntervalId timerId = (XtIntervalId)0;
  2252. + 
  2253.   /*
  2254.    * dirsend - send packet and receive response
  2255.    *
  2256. ***************
  2257. *** 75,129 ****
  2258.    *   The packet is freed even if dirsend fails.
  2259.    */
  2260.   PTEXT
  2261. ! dirsend(pkt,hostname,hostaddr)
  2262. !     PTEXT pkt;
  2263. !     char *hostname;
  2264. !     struct sockaddr_in    *hostaddr;
  2265.   {
  2266. !     PTEXT        first = NULL;    /* First returned packet     */
  2267. !     PTEXT        next;        /* The one we are waiting for      */
  2268. !     PTEXT        vtmp;           /* For reorganizing linked list  */
  2269. !     PTEXT        comp_thru;    /* We have all packets though    */
  2270. !     int            lp = -1;    /* Opened UDP port             */
  2271. !     int            hdr_len;    /* Header Length                 */
  2272. !     int            nd_pkts;    /* Number of packets we want     */
  2273. !     int            no_pkts;    /* Number of packets we have     */
  2274. !     int            pkt_cid;        /* Packet connection identifier  */
  2275. !     unsigned short    this_conn_id;    /* Connection ID we are using    */
  2276. !     unsigned short    recvd_thru;    /* Received through              */
  2277. !     short        priority;    /* Priority for request          */
  2278. !     static short    one = 0;    /* Pointer to value 1            */
  2279. !     static short    zero = 0;    /* Pointer to value 0         */
  2280. !     char        *seqtxt;    /* Pointer to text w/ sequence # */
  2281. !     struct sockaddr_in  us;        /* Our address                   */
  2282. !     struct sockaddr_in    to;        /* Address to send query     */
  2283. !     struct sockaddr_in    from;        /* Reply received from         */
  2284. !     int            from_sz;    /* Size of from structure     */
  2285. !     struct hostent    *host;        /* Host info from gethostbyname  */
  2286. !     long        newhostaddr;    /* New host address from *host   */
  2287. !     int            req_udp_port=0; /* Requested port (optional)     */
  2288. !     char        *openparen;    /* Delimits port in name         */
  2289. !     char        hostnoport[500];/* Host name without port        */
  2290. !     int            ns;        /* Number of bytes actually sent */
  2291. !     int            nr;        /* Number of bytes received      */
  2292. !     fd_set        readfds;    /* Used for select         */
  2293. !     int            tmp;
  2294. !     char        *ctlptr;    /* Pointer to control field      */
  2295. !     short        stmp;        /* Temp short for conversions    */
  2296. !     int            backoff;    /* Server requested backoff      */
  2297. !     unsigned char    rdflag11;    /* First byte of flags (bit vect)*/
  2298. !     unsigned char    rdflag12;    /* Second byte of flags (int)    */
  2299. !     int            scpflag = 0;    /* Set if any sequencd cont pkts */
  2300.   
  2301. !     int            ackpend = 0;    /* Acknowledgement pending      */
  2302. !     int            gaps = 0;    /* Gaps present in recvd pkts   */
  2303. !     struct timeval    timeout;    /* Time to wait for response    */
  2304. !     struct timeval    ackwait;    /* Time to wait before acking   */
  2305. !     struct timeval    gapwait;    /* Time to wait b4 filling gaps */
  2306. !     struct timeval    *selwait;    /* Time to wait for select      */
  2307. !     int            retries = client_dirsrv_retry;
  2308.   
  2309.   #ifdef XARCHIE
  2310.       status0("Initializing");
  2311.   #endif
  2312.   
  2313. --- 206,271 ----
  2314.    *   The packet is freed even if dirsend fails.
  2315.    */
  2316.   PTEXT
  2317. ! dirsend(pkt_p,hostname_p,hostaddr_p)
  2318. !     PTEXT pkt_p;
  2319. !     char *hostname_p;
  2320. !     struct sockaddr_in    *hostaddr_p;
  2321.   {
  2322. !     /* copy parameters to globals since other routines use them */
  2323. !     pkt = pkt_p;
  2324. !     hostname = hostname_p;
  2325. !     hostaddr = hostaddr_p;
  2326. !     /* Do the initializations of formerly auto variables */
  2327. !     first = NULL;
  2328. !     lp = -1;
  2329. !     one = 0;
  2330. !     zero = 0;
  2331. !     req_udp_port=0;
  2332. !     scpflag = 0;
  2333. !     ackpend = 0;
  2334. !     gaps = 0;
  2335. !     retries = client_dirsrv_retry;
  2336.   
  2337. !     if (initDirsend() < 0)
  2338. !     return(NULL);
  2339. !     addInputSource();
  2340. !     /* set the first timeout */
  2341. !     retryDirsend();
  2342.   
  2343. +     dirsendReturn = NULL;
  2344. +     dirsendDone = 0;
  2345. +     /* Until one of the callbacks says to return, keep processing events */
  2346. +     while (!dirsendDone)
  2347. +     processEvent();
  2348. +     /* Clean up event generators */
  2349. +     removeTimeOut();
  2350. +     removeInputSource();
  2351.   #ifdef XARCHIE
  2352. +     /* Set status if needed (has to be outside of loop or X will crash) */
  2353. +     switch (dirsendDone) {
  2354. +     case DSRET_SEND_ERROR: status0("Send error"); break;
  2355. +     case DSRET_RECV_ERROR: status0("Recv error"); break;
  2356. +         case DSRET_TIMEOUT:
  2357. +         status1("Connection to %s timed out",to_hostname);
  2358. +         break;
  2359. +         case DSRET_ABORTED: status0("Aborted"); break;
  2360. +     }
  2361. + #endif
  2362. +     /* Return whatever we're supposed to */
  2363. +     return(dirsendReturn);
  2364. + }
  2365. + 
  2366. + 
  2367. + /*    -    -    -    -    -    -    -    -    */
  2368. + /* This function does all the initialization that used to be done at the
  2369. +  * start of dirsend(), including opening the socket descriptor "lp". It
  2370. +  * returns the descriptor if successful, otherwise -1 to indicate that
  2371. +  * dirsend() should return NULL immediately.
  2372. +  */
  2373. + static int
  2374. + initDirsend()
  2375. + {
  2376. + #ifdef XARCHIE
  2377.       status0("Initializing");
  2378.   #endif
  2379.   
  2380. ***************
  2381. *** 196,202 ****
  2382.   #endif
  2383.           perrno = DIRSEND_BAD_HOSTNAME;
  2384.           ptlfree(pkt);
  2385. !             return(NULL);
  2386.       }
  2387.       /* If a port is included, save it away */
  2388.       if(openparen = index(hostname,'(')) {
  2389. --- 338,345 ----
  2390.   #endif
  2391.           perrno = DIRSEND_BAD_HOSTNAME;
  2392.           ptlfree(pkt);
  2393. !             /* return(NULL); */
  2394. !         return(-1);
  2395.       }
  2396.       /* If a port is included, save it away */
  2397.       if(openparen = index(hostname,'(')) {
  2398. ***************
  2399. *** 219,225 ****
  2400.   #endif
  2401.           perrno = DIRSEND_BAD_HOSTNAME;
  2402.           ptlfree(pkt);
  2403. !         return(NULL);
  2404.           }
  2405.           bzero((char *)&to, S_AD_SZ);
  2406.           to.sin_family = AF_INET;
  2407. --- 362,369 ----
  2408.   #endif
  2409.           perrno = DIRSEND_BAD_HOSTNAME;
  2410.           ptlfree(pkt);
  2411. !         /* return(NULL); */
  2412. !         return(-1);
  2413.           }
  2414.           bzero((char *)&to, S_AD_SZ);
  2415.           to.sin_family = AF_INET;
  2416. ***************
  2417. *** 235,240 ****
  2418. --- 379,388 ----
  2419.       }
  2420.       }
  2421.       else bcopy(hostaddr,&to, S_AD_SZ);
  2422. +     /* lmjm: Save away the hostname */
  2423. +     strncpy(to_hostname,
  2424. +         inet_ntoa(SUN_GNU_FIX *(struct in_addr *)&to.sin_addr),
  2425. +         sizeof(to_hostname)-1);
  2426.   
  2427.       if(req_udp_port) to.sin_port = htons(req_udp_port);
  2428.       else to.sin_port = dir_udp_port;
  2429. ***************
  2430. *** 254,260 ****
  2431.   #endif
  2432.       perrno = DIRSEND_UDP_CANT;
  2433.       ptlfree(pkt);
  2434. !         return(NULL);
  2435.       }
  2436.   
  2437.       /* Try to bind it to a privileged port - loop through candidate */
  2438. --- 402,409 ----
  2439.   #endif
  2440.       perrno = DIRSEND_UDP_CANT;
  2441.       ptlfree(pkt);
  2442. !         /* return(NULL); */
  2443. !     return(-1);
  2444.       }
  2445.   
  2446.       /* Try to bind it to a privileged port - loop through candidate */
  2447. ***************
  2448. *** 305,317 ****
  2449.           if (to.sin_family == AF_INET) {
  2450.           if(req_udp_port) 
  2451.           fprintf(stderr,"Sending message to %s+%d(%d)...",
  2452. !             inet_ntoa(*(struct in_addr *)&to.sin_addr), req_udp_port, ntohs(this_conn_id));
  2453.           else fprintf(stderr,"Sending message to %s(%d)...",
  2454. !              inet_ntoa(*(struct in_addr *)&to.sin_addr), ntohs(this_conn_id));
  2455.       }
  2456.   #else
  2457.           if (to.sin_family == AF_INET) 
  2458. !         fprintf(stderr,"Sending message to %s...", inet_ntoa(*(struct in_addr *)&to.sin_addr));
  2459.   #endif
  2460.           else
  2461.               fprintf(stderr,"Sending message...");
  2462. --- 454,466 ----
  2463.           if (to.sin_family == AF_INET) {
  2464.           if(req_udp_port) 
  2465.           fprintf(stderr,"Sending message to %s+%d(%d)...",
  2466. !             to_hostname, req_udp_port, ntohs(this_conn_id));
  2467.           else fprintf(stderr,"Sending message to %s(%d)...",
  2468. !              to_hostname, ntohs(this_conn_id));
  2469.       }
  2470.   #else
  2471.           if (to.sin_family == AF_INET) 
  2472. !         fprintf(stderr,"Sending message to %s...", to_hostname);
  2473.   #endif
  2474.           else
  2475.               fprintf(stderr,"Sending message...");
  2476. ***************
  2477. *** 323,333 ****
  2478.       next = first;
  2479.   
  2480.   #ifdef XARCHIE
  2481. !     status1("Connecting to %s",inet_ntoa(*(struct in_addr *)&to.sin_addr));
  2482.   #endif
  2483.   
  2484. !  retry:
  2485. ! 
  2486.       gaps = ackpend = 0;
  2487.   
  2488.       ns = sendto(lp,(char *)(pkt->start), pkt->length, 0, (struct sockaddr *)&to, S_AD_SZ);
  2489. --- 472,492 ----
  2490.       next = first;
  2491.   
  2492.   #ifdef XARCHIE
  2493. !     status1("Connecting to %s",to_hostname);
  2494.   #endif
  2495. +     return(lp);
  2496. + }
  2497.   
  2498. ! /*    -    -    -    -    -    -    -    -    */
  2499. ! /*
  2500. !  * This used to be a label to goto to retry the last packet. Now we resend
  2501. !  * the packet and call keepWaitingDirsend() to wait for a reply. (We
  2502. !  * call keepWaitingDirsend() because formerly the code dropped through
  2503. !  * the keep_waiting label.)
  2504. !  */
  2505. ! static void
  2506. ! retryDirsend()
  2507. ! {
  2508.       gaps = ackpend = 0;
  2509.   
  2510.       ns = sendto(lp,(char *)(pkt->start), pkt->length, 0, (struct sockaddr *)&to, S_AD_SZ);
  2511. ***************
  2512. *** 334,340 ****
  2513.       if(ns != pkt->length) {
  2514.   #ifdef DEBUG
  2515.       if (pfs_debug) {
  2516. !         fprintf(stderr,"\nsent only %d/%d: ",ns, pkt->length);
  2517.           perror("");
  2518.       }
  2519.   #endif
  2520. --- 493,499 ----
  2521.       if(ns != pkt->length) {
  2522.   #ifdef DEBUG
  2523.       if (pfs_debug) {
  2524. !     fprintf(stderr,"\nsent only %d/%d: ",ns, pkt->length);
  2525.           perror("");
  2526.       }
  2527.   #endif
  2528. ***************
  2529. *** 342,360 ****
  2530.       perrno = DIRSEND_NOT_ALL_SENT;
  2531.       ptlfree(first);
  2532.       ptlfree(pkt);
  2533. ! #ifdef XARCHIE
  2534. !         status0("Send Error");
  2535. ! #endif
  2536. !         return(NULL);
  2537.       }
  2538.   #ifdef DEBUG
  2539.       if (pfs_debug > 2) fprintf(stderr,"Sent.\n");
  2540.   #endif
  2541.       /* We come back to this point (by a goto) if the packet */
  2542.       /* received is only part of the response, or if the     */
  2543.       /* response came from the wrong host            */
  2544.   
  2545. -  keep_waiting:    
  2546.   #ifdef DEBUG
  2547.       if (pfs_debug > 2) fprintf(stderr,"Waiting for reply...");
  2548.   #endif
  2549. --- 501,530 ----
  2550.       perrno = DIRSEND_NOT_ALL_SENT;
  2551.       ptlfree(first);
  2552.       ptlfree(pkt);
  2553. !     /* return(NULL); */
  2554. !     dirsendReturn = NULL;
  2555. !     dirsendDone = DSRET_SEND_ERROR;
  2556.       }
  2557.   #ifdef DEBUG
  2558.       if (pfs_debug > 2) fprintf(stderr,"Sent.\n");
  2559.   #endif
  2560. +     keepWaitingDirsend();
  2561. + }
  2562. + 
  2563. + /*    -    -    -    -    -    -    -    -    */
  2564. + /*
  2565. +  * This used to be a label to goto to set the appropriate timeout value
  2566. +  * and blocked in select(). Now we set selwait and the fd_sets to the
  2567. +  * appropriate values, and in X register a new timeout, then return to
  2568. +  * allow event processing.
  2569. +  */
  2570. + static void
  2571. + keepWaitingDirsend()
  2572. + {
  2573.       /* We come back to this point (by a goto) if the packet */
  2574.       /* received is only part of the response, or if the     */
  2575.       /* response came from the wrong host            */
  2576.   
  2577.   #ifdef DEBUG
  2578.       if (pfs_debug > 2) fprintf(stderr,"Waiting for reply...");
  2579.   #endif
  2580. ***************
  2581. *** 365,375 ****
  2582.       else if(gaps) selwait = &gapwait;
  2583.       else selwait = &timeout;
  2584.   
  2585. !     /* select - either recv is ready, or timeout */
  2586. !     /* see if timeout or error or wrong descriptor */
  2587. !     tmp = select(lp + 1, &readfds, (fd_set *)0, (fd_set *)0, selwait);
  2588.   
  2589. !     if((tmp == 0) && (gaps || ackpend)) { /* Send acknowledgment */
  2590.       /* Acks are piggybacked on retries - If we have received */
  2591.       /* an ack from the server, then the packet sent is only  */
  2592.       /* an ack and the rest of the message will be empty      */
  2593. --- 535,555 ----
  2594.       else if(gaps) selwait = &gapwait;
  2595.       else selwait = &timeout;
  2596.   
  2597. !     addTimeOut();
  2598. ! }
  2599.   
  2600. ! /*    -    -    -    -    -    -    -    -    */
  2601. ! /*
  2602. !  * This routine is called when a timeout occurs. It includes the code that
  2603. !  * was formerly used when select() returned 0 (indicating a timeout).
  2604. !  */
  2605. ! /*ARGSUSED*/
  2606. ! static void
  2607. ! timeoutProc(client_data,id)
  2608. ! XtPointer client_data;
  2609. ! XtIntervalId *id;
  2610. ! {
  2611. !     if (gaps || ackpend) { /* Send acknowledgment */
  2612.       /* Acks are piggybacked on retries - If we have received */
  2613.       /* an ack from the server, then the packet sent is only  */
  2614.       /* an ack and the rest of the message will be empty      */
  2615. ***************
  2616. *** 379,388 ****
  2617.               (ackpend ? "requested" : "gaps"));
  2618.       }    
  2619.   #endif
  2620. !     goto retry;
  2621.       }
  2622.   
  2623. !     if((tmp == 0) && (retries-- > 0)) {
  2624.       timeout.tv_sec = CLIENT_DIRSRV_BACKOFF(timeout.tv_sec);
  2625.   #ifdef DEBUG
  2626.       if (pfs_debug > 2) {
  2627. --- 559,569 ----
  2628.               (ackpend ? "requested" : "gaps"));
  2629.       }    
  2630.   #endif
  2631. !     retryDirsend();
  2632. !     return;
  2633.       }
  2634.   
  2635. !     if (retries-- > 0) {
  2636.       timeout.tv_sec = CLIENT_DIRSRV_BACKOFF(timeout.tv_sec);
  2637.   #ifdef DEBUG
  2638.       if (pfs_debug > 2) {
  2639. ***************
  2640. *** 393,420 ****
  2641.   #ifdef XARCHIE
  2642.           status1("Timed out -- retrying (%d seconds)",timeout.tv_sec);
  2643.   #endif
  2644. !     goto retry;
  2645.       }
  2646.   
  2647. -     if((tmp < 1) || !FD_ISSET(lp, &readfds)) {
  2648.   #ifdef DEBUG
  2649. !     if (pfs_debug) {
  2650. !         fprintf(stderr, "select failed: readfds=%x ",
  2651. !                     readfds);
  2652. !             perror("");
  2653. !         }
  2654. ! #endif
  2655. !     close(lp);
  2656. !     perrno = DIRSEND_SELECT_FAILED;
  2657. !     ptlfree(first);
  2658. !     ptlfree(pkt);
  2659. ! #ifdef XARCHIE
  2660. !         status1("Couldn't connect to %s",
  2661. !         inet_ntoa(*(struct in_addr *)&to.sin_addr));
  2662. ! #endif
  2663. !         return(NULL);
  2664.       }
  2665.   
  2666.   
  2667.       from_sz = sizeof(from);
  2668.       next->start = next->dat;
  2669. --- 574,614 ----
  2670.   #ifdef XARCHIE
  2671.           status1("Timed out -- retrying (%d seconds)",timeout.tv_sec);
  2672.   #endif
  2673. !     retryDirsend();
  2674. !     return;
  2675.       }
  2676.   
  2677.   #ifdef DEBUG
  2678. !     if (pfs_debug) {
  2679. !     fprintf(stderr, "select failed(timeoutProc): readfds=%x ",
  2680. !         readfds);
  2681. !     perror("");
  2682.       }
  2683. + #endif
  2684. +     close(lp);
  2685. +     perrno = DIRSEND_SELECT_FAILED;
  2686. +     ptlfree(first);
  2687. +     ptlfree(pkt);
  2688. +     /* return(NULL); */
  2689. +     dirsendReturn = NULL;
  2690. +     dirsendDone = DSRET_TIMEOUT;
  2691. + }
  2692.   
  2693. + /*    -    -    -    -    -    -    -    -    */
  2694. + /*
  2695. +  * This function is called whenever there's something to read on the
  2696. +  * connection. It includes the code that was run when select() returned
  2697. +  * greater than 0 (indicating read ready).
  2698. +  */
  2699. + /*ARGSUSED*/
  2700. + static void
  2701. + readProc(client_data,source,id)
  2702. + XtPointer client_data;
  2703. + int *source;
  2704. + XtInputId *id;
  2705. + {
  2706. +     /* We got something to read, so clear the timer */
  2707. +     removeTimeOut();
  2708.   
  2709.       from_sz = sizeof(from);
  2710.       next->start = next->dat;
  2711. ***************
  2712. *** 426,435 ****
  2713.       perrno = DIRSEND_BAD_RECV;
  2714.       ptlfree(first);
  2715.       ptlfree(pkt);
  2716. ! #ifdef XARCHIE
  2717. !         status0("Recv Error");
  2718. ! #endif
  2719. !         return(NULL);
  2720.       }
  2721.   
  2722.       next->length = nr;
  2723. --- 620,629 ----
  2724.       perrno = DIRSEND_BAD_RECV;
  2725.       ptlfree(first);
  2726.       ptlfree(pkt);
  2727. !     /* return(NULL) */
  2728. !     dirsendReturn = NULL;
  2729. !     dirsendDone = DSRET_RECV_ERROR;
  2730. !         return;
  2731.       }
  2732.   
  2733.       next->length = nr;
  2734. ***************
  2735. *** 437,462 ****
  2736.       *(next->start + next->length) = NULL;
  2737.   
  2738.   #ifdef DEBUG
  2739. !     if (pfs_debug > 2) 
  2740. !         fprintf(stderr,"Received packet from %s\n", inet_ntoa(*(struct in_addr *)&from.sin_addr));
  2741.   #endif
  2742. -     if (to.sin_addr.s_addr != from.sin_addr.s_addr) {
  2743. - #ifdef DEBUG
  2744. -     if (pfs_debug) {
  2745. -         fprintf(stderr, "dirsend: received packet from wrong host! (%x)\n",
  2746. -             from.sin_addr.s_addr);
  2747. -         (void) fflush(stdout);
  2748. -     }
  2749. - #endif
  2750. -     goto keep_waiting;
  2751. -     }
  2752.   
  2753.   #ifdef XARCHIE
  2754.       {
  2755.           static int num = 2;
  2756.       if (num == 2)
  2757. !         status1("Connected to %s",
  2758. !             inet_ntoa(*(struct in_addr *)&to.sin_addr));
  2759.       else
  2760.           status1("Receiving...%c",(num?'+':'*'));
  2761.       num = !num;
  2762. --- 631,646 ----
  2763.       *(next->start + next->length) = NULL;
  2764.   
  2765.   #ifdef DEBUG
  2766. !     if (pfs_debug > 2)
  2767. !         fprintf(stderr,"Received packet from %s\n",
  2768. !         inet_ntoa(SUN_GNU_FIX *(struct in_addr *)&from.sin_addr);
  2769.   #endif
  2770.   
  2771.   #ifdef XARCHIE
  2772.       {
  2773.           static int num = 2;
  2774.       if (num == 2)
  2775. !         status1("Connected to %s",to_hostname);
  2776.       else
  2777.           status1("Receiving...%c",(num?'+':'*'));
  2778.       num = !num;
  2779. ***************
  2780. *** 474,479 ****
  2781. --- 658,669 ----
  2782.           if(stmp) pkt_cid = ntohs(stmp);
  2783.           ctlptr += 2;
  2784.       }
  2785. +     if(pkt_cid && this_conn_id && (pkt_cid != this_conn_id)) {
  2786. +         /* The packet is not for us */
  2787. +         /* goto keep_waiting; */
  2788. +         keepWaitingDirsend();
  2789. +         return;
  2790. +     }
  2791.       if(hdr_len >= 5) {    /* Packet number */
  2792.           bcopy(ctlptr,&stmp,2);
  2793.           next->seq = ntohs(stmp);
  2794. ***************
  2795. *** 543,549 ****
  2796.           bcopy(ctlptr,&rdflag12,1);
  2797.           ctlptr += 1;
  2798.       }
  2799. !     if(next->seq == 0) goto keep_waiting;
  2800.       if(next->length >= 0) next->length -= hdr_len;
  2801.       next->start += hdr_len;
  2802.       goto done_old;
  2803. --- 733,743 ----
  2804.           bcopy(ctlptr,&rdflag12,1);
  2805.           ctlptr += 1;
  2806.       }
  2807. !     if(next->seq == 0) {
  2808. !         /* goto keep_waiting; */
  2809. !         keepWaitingDirsend();
  2810. !         return;
  2811. !     }
  2812.       if(next->length >= 0) next->length -= hdr_len;
  2813.       next->start += hdr_len;
  2814.       goto done_old;
  2815. ***************
  2816. *** 564,569 ****
  2817. --- 758,769 ----
  2818.       bcopy(ctlptr,&stmp,2);
  2819.       if(stmp) pkt_cid = ntohs(stmp);
  2820.       ctlptr += 2;
  2821. +     if(pkt_cid && this_conn_id && (pkt_cid != this_conn_id)) {
  2822. +         /* The packet is not for us */
  2823. +         /* goto keep_waiting; */
  2824. +         keepWaitingDirsend();
  2825. +         return;
  2826. +     }
  2827.       /* Packet number */
  2828.       if(ctlptr < (next->start + next->length)) {
  2829.           bcopy(ctlptr,&stmp,2);
  2830. ***************
  2831. *** 592,598 ****
  2832.           if(backoff) timeout.tv_sec = backoff;
  2833.           ctlptr += 2;
  2834.       }
  2835. !     if(next->seq == 0) goto keep_waiting;
  2836.       goto done_old;
  2837.   
  2838.       }
  2839. --- 792,802 ----
  2840.           if(backoff) timeout.tv_sec = backoff;
  2841.           ctlptr += 2;
  2842.       }
  2843. !     if(next->seq == 0) {
  2844. !         /* goto keep_waiting; */
  2845. !         keepWaitingDirsend();
  2846. !         return;
  2847. !     }
  2848.       goto done_old;
  2849.   
  2850.       }
  2851. ***************
  2852. *** 625,631 ****
  2853.       else gaps++;
  2854.       no_pkts = 1;
  2855.       next = ptalloc();
  2856. !     goto keep_waiting;
  2857.       }
  2858.       
  2859.       if(comp_thru && (next->seq <= comp_thru->seq))
  2860. --- 829,837 ----
  2861.       else gaps++;
  2862.       no_pkts = 1;
  2863.       next = ptalloc();
  2864. !     /* goto keep_waiting; */
  2865. !     keepWaitingDirsend();
  2866. !     return;
  2867.       }
  2868.       
  2869.       if(comp_thru && (next->seq <= comp_thru->seq))
  2870. ***************
  2871. *** 687,693 ****
  2872.   
  2873.       if ((nd_pkts == 0) || (no_pkts < nd_pkts)) {
  2874.       next = ptalloc();
  2875. !     goto keep_waiting;
  2876.       }
  2877.   
  2878.    all_done:
  2879. --- 893,901 ----
  2880.   
  2881.       if ((nd_pkts == 0) || (no_pkts < nd_pkts)) {
  2882.       next = ptalloc();
  2883. !     /* goto keep_waiting; */
  2884. !     keepWaitingDirsend();
  2885. !     return;
  2886.       }
  2887.   
  2888.    all_done:
  2889. ***************
  2890. *** 696,702 ****
  2891.       if (pfs_debug > 2) {
  2892.           if (to.sin_family == AF_INET)
  2893.           fprintf(stderr,"Acknowledging final packet to %s(%d)\n",
  2894. !             inet_ntoa(*(struct in_addr *)&to.sin_addr), ntohs(this_conn_id));
  2895.               else
  2896.                   fprintf(stderr,"Acknowledging final packet\n");
  2897.           (void) fflush(stderr);
  2898. --- 904,910 ----
  2899.       if (pfs_debug > 2) {
  2900.           if (to.sin_family == AF_INET)
  2901.           fprintf(stderr,"Acknowledging final packet to %s(%d)\n",
  2902. !             to_hostname, ntohs(this_conn_id));
  2903.               else
  2904.                   fprintf(stderr,"Acknowledging final packet\n");
  2905.           (void) fflush(stderr);
  2906. ***************
  2907. *** 741,746 ****
  2908.       }
  2909.       }
  2910.   
  2911. !     return(first);
  2912.   
  2913.   }
  2914. --- 949,1052 ----
  2915.       }
  2916.       }
  2917.   
  2918. !     /* return(first); */
  2919. !     dirsendReturn = first;
  2920. !     dirsendDone = DSRET_DONE;
  2921.   
  2922. + }
  2923. + /*    -    -    -    -    -    -    -    -    */
  2924. + /* These routines allow dirsend() to run with or without X by providing
  2925. +  * wrappers around the calls that handle the asynchronous communication.
  2926. +  * All parameters are passed using globals.
  2927. +  * Under X: The input sources and timeouts are set using Xt calls, and
  2928. +  *        processEvent() just calls XtAppProcessEvent().
  2929. +  * Non-X: None of the input sources and timeouts are used, and
  2930. +  *      processEvent() calls select() to handle both timeouts and the
  2931. +  *      socket file descriptor. The return value of select() is used
  2932. +  *      to determine which callback routine to call.
  2933. +  */
  2934. + 
  2935. + static void
  2936. + addInputSource()
  2937. + {
  2938. + #ifdef XARCHIE
  2939. +     inputId = XtAppAddInput(appContext,lp,XtInputReadMask,readProc,NULL);
  2940. + #endif
  2941. + }
  2942. + 
  2943. + static void
  2944. + removeInputSource()
  2945. + {
  2946. + #ifdef XARCHIE
  2947. +     XtRemoveInput(inputId);
  2948. + #endif
  2949. + }
  2950. + 
  2951. + static void
  2952. + addTimeOut()
  2953. + {
  2954. + #ifdef XARCHIE
  2955. +     unsigned long timeoutLen = selwait->tv_sec*1000 + selwait->tv_usec/1000;
  2956. + 
  2957. +     /* old timeout can still be there if we are being called after the
  2958. +      * file descriptor was read, so we remove it just to be sure. */
  2959. +     removeTimeOut();
  2960. +     timerId = XtAppAddTimeOut(appContext,timeoutLen,timeoutProc,NULL);
  2961. + #endif
  2962. + }
  2963. + 
  2964. + static void
  2965. + removeTimeOut()
  2966. + {
  2967. + #ifdef XARCHIE
  2968. +     if (timerId != (XtIntervalId)0) {
  2969. +     XtRemoveTimeOut(timerId);
  2970. +     timerId = (XtIntervalId)0;
  2971. +     }
  2972. + #endif
  2973. + }
  2974. + 
  2975. + static void
  2976. + processEvent()
  2977. + {
  2978. + #ifdef XARCHIE
  2979. +     XtAppProcessEvent(appContext,XtIMAll);
  2980. + #else
  2981. +     /* select - either recv is ready, or timeout */
  2982. +     /* see if timeout or error or wrong descriptor */
  2983. +     tmp = select(lp + 1, &readfds, (fd_set *)0, (fd_set *)0, selwait);
  2984. +     if (tmp == 0) {
  2985. +     timeoutProc(NULL,&timerId);
  2986. +     } else if ((tmp < 0) || !FD_ISSET(lp,&readfds)) {
  2987. + #ifdef DEBUG
  2988. +     if (pfs_debug) {
  2989. +         fprintf(stderr, "select failed(processEvent): readfds=%x ",
  2990. +             readfds);
  2991. +         perror("");
  2992. +     }
  2993. + #endif
  2994. +     close(lp);
  2995. +     perrno = DIRSEND_SELECT_FAILED;
  2996. +     ptlfree(first);
  2997. +     ptlfree(pkt);
  2998. +     /* return(NULL); */
  2999. +     dirsendReturn = NULL;
  3000. +     dirsendDone = DSRET_SELECT_ERROR;
  3001. +     } else {
  3002. +     readProc(NULL,&lp,&inputId);
  3003. +     }
  3004. + #endif /* XARCHIE */
  3005. + }
  3006. + 
  3007. + void
  3008. + abortDirsend()
  3009. + {
  3010. +     if (!dirsendDone) {
  3011. +     close(lp);
  3012. +     ptlfree(first);
  3013. +     ptlfree(pkt);
  3014. +     dirsendReturn = NULL;
  3015. +     dirsendDone = DSRET_ABORTED;
  3016. +     }
  3017. +     return;
  3018.   }
  3019. *** /tmp/release17219/ftp.c    Tue Nov 12 16:54:45 1991
  3020. --- ftp.c    Tue Nov 12 12:48:35 1991
  3021. ***************
  3022. *** 1,7 ****
  3023.   /*
  3024.    * ftp.c : Fetches a file by anonymous ftp.
  3025.    *
  3026. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  3027.    *
  3028.    * This is just an initial cut at providing the real kind of ftp
  3029.    * services that we want. In particular, we will eventually be using
  3030. --- 1,7 ----
  3031.   /*
  3032.    * ftp.c : Fetches a file by anonymous ftp.
  3033.    *
  3034. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  3035.    *
  3036.    * This is just an initial cut at providing the real kind of ftp
  3037.    * services that we want. In particular, we will eventually be using
  3038. ***************
  3039. *** 59,64 ****
  3040.       fprintf(fp,"get %s\n",file);
  3041.       status = pclose(fp) >> 8;
  3042.       if (status)
  3043. !     alert0("Ftp returned error code %d",status);
  3044.       status0("Ready");
  3045.   }
  3046. --- 59,64 ----
  3047.       fprintf(fp,"get %s\n",file);
  3048.       status = pclose(fp) >> 8;
  3049.       if (status)
  3050. !     alert1("Ftp returned error code %d",status);
  3051.       status0("Ready");
  3052.   }
  3053. *** /tmp/release17219/get_pauth.c    Tue Nov 12 16:54:49 1991
  3054. --- get_pauth.c    Sat Nov  2 16:48:39 1991
  3055. ***************
  3056. *** 3,15 ****
  3057.    *
  3058.    * For copying and distribution information, please see the file
  3059.    * <copyright.h>.
  3060.    */
  3061.   
  3062.   #include <copyright.h>
  3063.   #include <stdio.h>
  3064. ! #include <strings.h>
  3065. ! #include <pwd.h>
  3066.   
  3067.   #include <pcompat.h>
  3068.   #include <pauthent.h>
  3069.   
  3070. --- 3,32 ----
  3071.    *
  3072.    * For copying and distribution information, please see the file
  3073.    * <copyright.h>.
  3074. +  *
  3075. +  * v1.2.1 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  3076. +  * v1.2.0 - 09/17/91 (bpk) - fixed it up (thanks to synful)
  3077. +  * v1.1.1 - 08/30/91 (bpk) - added VMS support
  3078.    */
  3079.   
  3080.   #include <copyright.h>
  3081.   #include <stdio.h>
  3082. ! #ifndef VMS
  3083. ! # include <sys/types.h>
  3084. ! #endif
  3085.   
  3086. + #if defined(USG) || defined(UTS) || defined(_AIX)
  3087. + # include <string.h>
  3088. + #else
  3089. + # include <strings.h>
  3090. + #endif
  3091. + 
  3092. + #ifndef VMS
  3093. + # include <pwd.h>
  3094. + #else
  3095. + # include <jpidef.h>
  3096. + #endif
  3097. + 
  3098.   #include <pcompat.h>
  3099.   #include <pauthent.h>
  3100.   
  3101. ***************
  3102. *** 19,26 ****
  3103.       {
  3104.       static PAUTH_ST   no_auth_st;
  3105.       static PAUTH          no_auth = NULL;
  3106. ! 
  3107.       struct passwd *whoiampw;
  3108.   
  3109.       if(no_auth == NULL) {
  3110.           no_auth = &no_auth_st;
  3111. --- 36,54 ----
  3112.       {
  3113.       static PAUTH_ST   no_auth_st;
  3114.       static PAUTH          no_auth = NULL;
  3115. ! #ifndef VMS
  3116.       struct passwd *whoiampw;
  3117. + #else
  3118. +     char username[13];
  3119. +     unsigned short usernamelen;
  3120. +     struct {
  3121. +         unsigned short buflen;
  3122. +         unsigned short itmcod;
  3123. +         char *bufadr;
  3124. +         unsigned short *retlenadr;
  3125. +         unsigned long null;
  3126. +     } jpi_itemlist;
  3127. + #endif
  3128.   
  3129.       if(no_auth == NULL) {
  3130.           no_auth = &no_auth_st;
  3131. ***************
  3132. *** 27,35 ****
  3133. --- 55,77 ----
  3134.           strcpy(no_auth->auth_type,"UNAUTHENTICATED");
  3135.   
  3136.           /* find out who we are */
  3137. + #ifndef VMS
  3138.           DISABLE_PFS(whoiampw = getpwuid(getuid()));
  3139.           if (whoiampw == 0) strcpy(no_auth->authenticator,"nobody");
  3140.           else strcpy(no_auth->authenticator, whoiampw->pw_name);
  3141. + #else
  3142. +         jpi_itemlist.buflen = sizeof(username);
  3143. +         jpi_itemlist.itmcod = JPI$_USERNAME;
  3144. +         jpi_itemlist.bufadr = &username;
  3145. +         jpi_itemlist.retlenadr = &usernamelen;
  3146. +         jpi_itemlist.null = 0;
  3147. +         if (SYS$GETJPI(0, 0, 0, &jpi_itemlist, 0, 0, 0) & 0x1)
  3148. +         {
  3149. +         username[usernamelen] = 0;
  3150. +         strcpy(no_auth->authenticator, username);
  3151. +         } else
  3152. +         strcpy(no_auth->authenticator, "nobody");
  3153. + #endif
  3154.       }
  3155.       return(no_auth);
  3156.       }
  3157. *** /tmp/release17219/get_vdir.c    Tue Nov 12 16:54:53 1991
  3158. --- get_vdir.c    Sun Nov  3 18:17:54 1991
  3159. ***************
  3160. *** 3,13 ****
  3161.    *
  3162.    * For copying and distribution information, please see the file
  3163.    * <copyright.h>.
  3164.    */
  3165.   
  3166.   #include <copyright.h>
  3167.   #include <stdio.h>
  3168. ! #include <strings.h>
  3169.   
  3170.   #include <pfs.h>
  3171.   #include <pprot.h>
  3172. --- 3,21 ----
  3173.    *
  3174.    * For copying and distribution information, please see the file
  3175.    * <copyright.h>.
  3176. +  *
  3177. +  * v1.2.1 - 10/23/91 (bpk) - added missing code
  3178. +  * v1.2.0 - 09/17/91 (bpk) - added new get_vdir code
  3179. +  * v1.1.1 - 08/30/91 (bpk) - cast rindex()
  3180.    */
  3181.   
  3182.   #include <copyright.h>
  3183.   #include <stdio.h>
  3184. ! #if defined(USG) || defined(UTS) || defined(_AIX)
  3185. ! # include <string.h>
  3186. ! #else
  3187. ! # include <strings.h>
  3188. ! #endif
  3189.   
  3190.   #include <pfs.h>
  3191.   #include <pprot.h>
  3192. ***************
  3193. *** 20,25 ****
  3194. --- 28,35 ----
  3195.   extern int    pfs_debug;
  3196.   #endif
  3197.   
  3198. + extern int    pwarn;
  3199. + extern char    p_warn_string[];
  3200.   extern int    perrno;
  3201.   extern char    p_err_string[];
  3202.   
  3203. ***************
  3204. *** 67,72 ****
  3205. --- 77,83 ----
  3206.    *              Doesn't process errors returned from server
  3207.    *        Doesn't expand union links if requested to
  3208.    */
  3209. + int
  3210.   get_vdir(dhost,dfile,components,dir,flags,filters,acomp)
  3211.       char    *dhost;        /* Host on which directory resides           */
  3212.       char    *dfile;        /* Name of file on that host                 */
  3213. ***************
  3214. *** 91,96 ****
  3215. --- 102,109 ----
  3216.       int    getattrib = 0;  /* Get attributes from server                */
  3217.       int    vl_insert_flag; /* Flags to vl_insert                        */
  3218.   
  3219. +     int    fwdcnt = MAX_FWD_DEPTH;
  3220. + 
  3221.       int    no_links = 0;   /* Count of number of links found         */
  3222.   
  3223.       char    options[40];    /* LIST option                               */
  3224. ***************
  3225. *** 200,207 ****
  3226.               char     l_ntype[MAX_DIR_LINESIZE];
  3227.               char     l_fname[MAX_DIR_LINESIZE];
  3228.               int        l_version;
  3229. -             int        l_magic;
  3230.               char     t_unresolved[MAX_DIR_LINESIZE];
  3231.               int        tmp;
  3232.   
  3233.           case 'L': /* LINK or LINK-INFO */
  3234. --- 213,220 ----
  3235.               char     l_ntype[MAX_DIR_LINESIZE];
  3236.               char     l_fname[MAX_DIR_LINESIZE];
  3237.               int        l_version;
  3238.               char     t_unresolved[MAX_DIR_LINESIZE];
  3239. +             int        l_magic;
  3240.               int        tmp;
  3241.   
  3242.           case 'L': /* LINK or LINK-INFO */
  3243. ***************
  3244. *** 231,237 ****
  3245.               break;
  3246.               }
  3247.   
  3248. !             /* Not LINK-INFO, must be LINK */
  3249.   
  3250.               /* If only verifying, don't want to change dir */
  3251.               if(flags == GVD_VERIFY) {
  3252. --- 244,251 ----
  3253.               break;
  3254.               }
  3255.   
  3256. !             /* Not LINK-INFO, must be LINK - if not check for error */
  3257. !             if(strncmp(line,"LINK",4) != 0) goto scanerr;
  3258.   
  3259.               /* If only verifying, don't want to change dir */
  3260.               if(flags == GVD_VERIFY) {
  3261. ***************
  3262. *** 292,304 ****
  3263.               break;
  3264.   
  3265.           case 'F': /* FILTER, FAILURE or FORWARDED*/
  3266. -             /* FAILURE (treat as NOT-A-DIRECTORY, let caller know) */
  3267. -             if(strncmp(line,"FAILURE",7) == 0) {
  3268. -             perrno = scan_error(line);
  3269. -             return(perrno);
  3270. -             }
  3271.               /* FORWARDED */
  3272.               if(strncmp(line,"FORWARDED",9) == 0) {
  3273.               /* parse and start over */
  3274.   
  3275.               tmp = sscanf(line,"FORWARDED %s %s %s %s %d %d", 
  3276. --- 306,318 ----
  3277.               break;
  3278.   
  3279.           case 'F': /* FILTER, FAILURE or FORWARDED*/
  3280.               /* FORWARDED */
  3281.               if(strncmp(line,"FORWARDED",9) == 0) {
  3282. +             if(fwdcnt-- <= 0) {
  3283. +                 ptlfree(resp);
  3284. +                 perrno = PFS_MAX_FWD_DEPTH;
  3285. +                 return(perrno);
  3286. +             }
  3287.               /* parse and start over */
  3288.   
  3289.               tmp = sscanf(line,"FORWARDED %s %s %s %s %d %d", 
  3290. ***************
  3291. *** 316,321 ****
  3292. --- 330,336 ----
  3293.               ptlfree(resp);
  3294.               goto startover;
  3295.               }
  3296. +             if(strncmp(line,"FILTER",6) != 0) goto scanerr;
  3297.               break;
  3298.   
  3299.   
  3300. ***************
  3301. *** 324,335 ****
  3302.               break;
  3303.   
  3304.           case 'N': /* NOT-A-DIRECTORY or NONE-FOUND */
  3305. -             /* NOT-A-DIRECTORY, let caller know       */
  3306. -             if(strncmp(line,"NOT-A-DIRECTORY",15) == 0) {
  3307. -             perrno = DIRSRV_NOT_DIRECTORY;
  3308. -             return(perrno);
  3309. -             }
  3310. - 
  3311.               /* NONE-FOUND, we just have no links to insert */
  3312.               /* It is not an error, but we must clear any   */
  3313.               /* old links in the directory arg              */
  3314. --- 339,344 ----
  3315. ***************
  3316. *** 348,370 ****
  3317.               }
  3318.               break;
  3319.               }
  3320.   
  3321. -             perrno = DIRSRV_BAD_FORMAT;
  3322. -             break;
  3323. - 
  3324. -         case 'E': /* ERROR */
  3325. -             if(strncmp(line,"ERROR",5) == 0) {
  3326. -             perrno = DIRSRV_ERROR;
  3327. -             strncpy(p_err_string,line+6,P_ERR_STRING_SZ);
  3328. -             return(perrno);
  3329. -             }
  3330. -             perrno = DIRSRV_BAD_FORMAT;
  3331. -             break;
  3332. - 
  3333.           case 'U': /* UNRESOLVED */
  3334.               if(strncmp(line,"UNRESOLVED",10) != 0) {
  3335. !             perrno = DIRSRV_BAD_FORMAT;
  3336. !             break;
  3337.               }
  3338.               tmp = sscanf(line,"UNRESOLVED %s", t_unresolved);
  3339.               if(tmp < 1) {
  3340. --- 357,368 ----
  3341.               }
  3342.               break;
  3343.               }
  3344. +             /* If NOT-A-DIRECTORY or anything else, scan error */
  3345. +             goto scanerr;
  3346.   
  3347.           case 'U': /* UNRESOLVED */
  3348.               if(strncmp(line,"UNRESOLVED",10) != 0) {
  3349. !             goto scanerr;
  3350.               }
  3351.               tmp = sscanf(line,"UNRESOLVED %s", t_unresolved);
  3352.               if(tmp < 1) {
  3353. ***************
  3354. *** 377,383 ****
  3355.               /* ulcomp is the components that were resolved */
  3356.               *(ulcomp+strlen(acomp)-strlen(t_unresolved)-1) = '\0';
  3357.               /* Comp gets the last component resolved */
  3358. !             comp = rindex(ulcomp,'/');
  3359.               if(comp) comp++;
  3360.               else comp = ulcomp;
  3361.               /* Let rd_vdir know what remains */
  3362. --- 375,381 ----
  3363.               /* ulcomp is the components that were resolved */
  3364.               *(ulcomp+strlen(acomp)-strlen(t_unresolved)-1) = '\0';
  3365.               /* Comp gets the last component resolved */
  3366. !             comp = (char *) rindex(ulcomp,'/');
  3367.               if(comp) comp++;
  3368.               else comp = ulcomp;
  3369.               /* Let rd_vdir know what remains */
  3370. ***************
  3371. *** 391,400 ****
  3372.               perrno = DIRSRV_BAD_VERS;
  3373.               return(perrno);
  3374.               }
  3375. !             perrno = DIRSRV_BAD_FORMAT;
  3376. !             break;
  3377.           default:
  3378. !             if(*line) perrno = DIRSRV_BAD_FORMAT;
  3379.               break;
  3380.           }
  3381.           }
  3382. --- 389,402 ----
  3383.               perrno = DIRSRV_BAD_VERS;
  3384.               return(perrno);
  3385.               }
  3386. !             goto scanerr;
  3387. ! 
  3388. !         scanerr:
  3389.           default:
  3390. !             if(*line && (tmp = scan_error(line))) {
  3391. !             ptlfree(resp);
  3392. !             return(tmp);
  3393. !             }
  3394.               break;
  3395.           }
  3396.           }
  3397. ***************
  3398. *** 410,416 ****
  3399.           /* ulcomp is the components that were resolved */
  3400.           strcpy(ulcomp,acomp);
  3401.           /* Comp gets the last component resolved */
  3402. !         comp = rindex(ulcomp,'/');
  3403.           if(comp) comp++;
  3404.           else comp = ulcomp;
  3405.           /* If we have union links to resolve, only one component remains */
  3406. --- 412,418 ----
  3407.           /* ulcomp is the components that were resolved */
  3408.           strcpy(ulcomp,acomp);
  3409.           /* Comp gets the last component resolved */
  3410. !         comp = (char *) rindex(ulcomp,'/');
  3411.           if(comp) comp++;
  3412.           else comp = ulcomp;
  3413.           /* If we have union links to resolve, only one component remains */
  3414. *** /tmp/release17219/patchlevel.h    Tue Nov 12 16:54:57 1991
  3415. --- patchlevel.h    Tue Nov 12 16:52:18 1991
  3416. ***************
  3417. *** 1,10 ****
  3418.   /*
  3419.    * patchlevel.h : xarchie version control
  3420.    *
  3421. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  3422.    *
  3423.    */
  3424.   
  3425.   int xarchieMajorVersion = 1;
  3426. ! int xarchieMinorVersion = 2;
  3427. ! 
  3428. --- 1,10 ----
  3429.   /*
  3430.    * patchlevel.h : xarchie version control
  3431.    *
  3432. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  3433.    *
  3434.    */
  3435.   
  3436.   int xarchieMajorVersion = 1;
  3437. ! int xarchieMinorVersion = 3;
  3438. ! char *xarchieExtraVersion = "";
  3439. *** /tmp/release17219/pauthent.h    Tue Nov 12 16:55:00 1991
  3440. --- pauthent.h    Sat Nov  2 12:50:54 1991
  3441. ***************
  3442. *** 19,24 ****
  3443. --- 19,28 ----
  3444.   
  3445.   PAUTH get_pauth();
  3446.   
  3447. + #ifndef VMS
  3448. + #include <netinet/in.h>
  3449. + #endif
  3450. + 
  3451.   struct client_info {
  3452.       int                ainfo_type;
  3453.       char            *auth_type;
  3454. ***************
  3455. *** 25,31 ****
  3456.       char            *authenticator;
  3457.       char            *userid;
  3458.       short            port;
  3459. !     long            haddr;
  3460.       struct pfs_auth_info    *previous;
  3461.       struct pfs_auth_info    *next;
  3462.   };
  3463. --- 29,35 ----
  3464.       char            *authenticator;
  3465.       char            *userid;
  3466.       short            port;
  3467. !     struct in_addr        haddr;
  3468.       struct pfs_auth_info    *previous;
  3469.       struct pfs_auth_info    *next;
  3470.   };
  3471. *** /dev/null    Tue Nov 12 16:30:11 1991
  3472. --- perrmesg.c    Sat Nov  2 20:55:53 1991
  3473. ***************
  3474. *** 0 ****
  3475. --- 1,195 ----
  3476. + /*
  3477. +  * Copyright (c) 1989, 1990, 1991 by the University of Washington
  3478. +  *
  3479. +  * For copying and distribution information, please see the file
  3480. +  * <copyright.h>.
  3481. +  */
  3482. + 
  3483. + #include <copyright.h>
  3484. + #include <perrno.h>
  3485. + #include <stdio.h>
  3486. + 
  3487. + /* This file and perrno.h should always be updated simultaneously */
  3488. + 
  3489. + int    perrno = 0;
  3490. + int    pwarn = 0;
  3491. + char    p_err_string[P_ERR_STRING_SZ];
  3492. + char    p_warn_string[P_ERR_STRING_SZ];
  3493. + 
  3494. + char    *p_err_text[256] = {
  3495. +     /*   0 */ "Success (prospero)",
  3496. +     /*   1 */ "Port unknown (dirsend)",
  3497. +     /*   2 */ "Can't open local UDP port (dirsend)",
  3498. +     /*   3 */ "Can't resolve hostname (dirsend)",
  3499. +     /*   4 */ "Unable to send entire message (dirsend)",
  3500. +     /*   5 */ "Timed out (dirsend)",
  3501. +     /*   6 */ "Recvfrom failed (dirsend)",
  3502. +     /*   7 */ "",    /*   8 */ "",    /*   9 */ "",    /*  10 */ "",
  3503. +     /*  11 */ "Sendto failed (reply)",
  3504. +     /*  12 */ "",    /*  13 */ "",    /*  14 */ "",    /*  15 */ "",
  3505. +     /*  16 */ "",    /*  17 */ "",    /*  18 */ "",    /*  19 */ "",
  3506. +     /*  20 */ "",
  3507. +     /*  21 */ "Link already exists (vl_insert)",
  3508. +     /*  22 */ "Link with same name already exists (vl_insert)",
  3509. +     /*  23 */ "",    /*  24 */ "",
  3510. +     /*  25 */ "Link already exists (ul_insert)",
  3511. +     /*  26 */ "Replacing existing link (ul_insert)",
  3512. +     /*  27 */ "Previous entry not found in dir->ulinks (ul_insert)",
  3513. +     /*  28 */ "",    /*  29 */ "",    /*  30 */ "",    /*  31 */ "",
  3514. +     /*  32 */ "",    /*  33 */ "",    /*  34 */ "",    /*  35 */ "",
  3515. +     /*  36 */ "",    /*  37 */ "",    /*  38 */ "",    /*  39 */ "",
  3516. +     /*  40 */ "",
  3517. +     /*  41 */ "Temporary not found (rd_vdir)",
  3518. +     /*  42 */ "Namespace not closed with object (rd_vdir)",
  3519. +     /*  43 */ "Alias for namespace not defined (rd_vdir)",
  3520. +     /*  44 */ "Specified namespace not found (rd_vdir)",
  3521. +     /*  45 */ "",    /*  46 */ "",    /*  47 */ "",    /*  48 */ "",
  3522. +     /*  49 */ "",    /*  50 */ "",
  3523. +     /*  51 */ "File access method not supported (pfs_access)",
  3524. +     /*  52 */ "",    /*  53 */ "",    /*  54 */ "",
  3525. +     /*  55 */ "Pointer to cached copy - delete on close (pmap_cache)",
  3526. +     /*  56 */ "Unable to retrieve file (pmap_cache)",
  3527. +     /*  57 */ "",    /*  58 */ "",    /*  59 */ "",    /*  60 */ "",
  3528. +     /*  61 */ "Directory already exists (mk_vdir)",
  3529. +     /*  62 */ "Link with same name already exists (mk_vdir)",
  3530. +     /*  63 */ "",    /*  64 */ "",
  3531. +     /*  65 */ "Not a virtual system (vfsetenv)",
  3532. +     /*  66 */ "Can't find directory (vfsetenv)",
  3533. +     /*  67 */ "",    /*  68 */ "",    /*  69 */ "",    /*  70 */ "",
  3534. +     /*  71 */ "Link already exists (add_vlink)",
  3535. +     /*  72 */ "Link with same name already exists (add_vlink)",
  3536. +     /*  73 */ "",    /*  74 */ "",    /*  75 */ "",    /*  76 */ "",
  3537. +     /*  77 */ "",    /*  78 */ "",    /*  79 */ "",    /*  80 */ "",
  3538. +     /*  81 */ "",    /*  82 */ "",    /*  83 */ "",    /*  84 */ "",
  3539. +     /*  85 */ "",    /*  86 */ "",    /*  87 */ "",    /*  88 */ "",
  3540. +     /*  89 */ "",    /*  90 */ "",    /*  91 */ "",    /*  92 */ "",
  3541. +     /*  93 */ "",    /*  94 */ "",    /*  95 */ "",    /*  96 */ "",
  3542. +     /*  97 */ "",    /*  98 */ "",    /*  99 */ "",    /* 100 */ "",
  3543. +     /* 101 */ "",    /* 102 */ "",    /* 103 */ "",    /* 104 */ "",
  3544. +     /* 105 */ "",    /* 106 */ "",    /* 107 */ "",    /* 108 */ "",
  3545. +     /* 109 */ "",    /* 110 */ "",    /* 111 */ "",    /* 112 */ "",
  3546. +     /* 113 */ "",    /* 114 */ "",    /* 115 */ "",    /* 116 */ "",
  3547. +     /* 117 */ "",    /* 118 */ "",    /* 119 */ "",    /* 120 */ "",
  3548. +     /* 121 */ "",    /* 122 */ "",    /* 123 */ "",    /* 124 */ "",
  3549. +     /* 125 */ "",    /* 126 */ "",    /* 127 */ "",    /* 128 */ "",
  3550. +     /* 129 */ "",    /* 130 */ "",    /* 131 */ "",    /* 132 */ "",
  3551. +     /* 133 */ "",    /* 134 */ "",    /* 135 */ "",    /* 136 */ "",
  3552. +     /* 137 */ "",    /* 138 */ "",    /* 139 */ "",    /* 140 */ "",
  3553. +     /* 141 */ "",    /* 142 */ "",    /* 143 */ "",    /* 144 */ "",
  3554. +     /* 145 */ "",    /* 146 */ "",    /* 147 */ "",    /* 148 */ "",
  3555. +     /* 149 */ "",    /* 150 */ "",    /* 151 */ "",    /* 152 */ "",
  3556. +     /* 153 */ "",    /* 154 */ "",    /* 155 */ "",    /* 156 */ "",
  3557. +     /* 157 */ "",    /* 158 */ "",    /* 159 */ "",    /* 160 */ "",
  3558. +     /* 161 */ "",    /* 162 */ "",    /* 163 */ "",    /* 164 */ "",
  3559. +     /* 165 */ "",    /* 166 */ "",    /* 167 */ "",    /* 168 */ "",
  3560. +     /* 169 */ "",    /* 170 */ "",    /* 171 */ "",    /* 172 */ "",
  3561. +     /* 173 */ "",    /* 174 */ "",    /* 175 */ "",    /* 176 */ "",
  3562. +     /* 177 */ "",    /* 178 */ "",    /* 179 */ "",    /* 180 */ "",
  3563. +     /* 181 */ "",    /* 182 */ "",    /* 183 */ "",    /* 184 */ "",
  3564. +     /* 185 */ "",    /* 186 */ "",    /* 187 */ "",    /* 188 */ "",
  3565. +     /* 189 */ "",    /* 190 */ "",    /* 191 */ "",    /* 192 */ "",
  3566. +     /* 193 */ "",    /* 194 */ "",    /* 195 */ "",    /* 196 */ "",
  3567. +     /* 197 */ "",    /* 198 */ "",    /* 199 */ "",    /* 200 */ "",
  3568. +     /* 201 */ "",    /* 202 */ "",    /* 203 */ "",    /* 204 */ "",
  3569. +     /* 205 */ "",    /* 206 */ "",    /* 207 */ "",    /* 208 */ "",
  3570. +     /* 209 */ "",    /* 210 */ "",    /* 211 */ "",    /* 212 */ "",
  3571. +     /* 213 */ "",    /* 214 */ "",    /* 215 */ "",    /* 216 */ "",
  3572. +     /* 217 */ "",    /* 218 */ "",    /* 219 */ "",    /* 220 */ "",
  3573. +     /* 221 */ "",    /* 222 */ "",    /* 223 */ "",    /* 224 */ "",
  3574. +     /* 225 */ "",    /* 226 */ "",    /* 227 */ "",    /* 228 */ "",
  3575. +     /* 229 */ "",
  3576. +     /* 230 */ "File not found (prospero)",
  3577. +     /* 231 */ "Directory not found (prospero)",
  3578. +     /* 232 */ "Symbolic links nested too deep (prospero)",
  3579. +     /* 233 */ "Environment not initialized - source vfsetup.source then run vfsetup",
  3580. +     /* 234 */ "Can't traverse an external file (prospero)",
  3581. +     /* 235 */ "Forwarding chain is too long (prospero)",
  3582. +     /* 236 */ "",    /* 237 */ "",    /* 238 */ "",    /* 239 */ "",
  3583. +     /* 240 */ "",    /* 241 */ "",
  3584. +     /* 242 */ "Authentication required (prospero server)",
  3585. +     /* 243 */ "Not authorized (prospero server)",
  3586. +     /* 244 */ "Not found (prospero server)",
  3587. +     /* 245 */ "Bad version number (prospero server)",
  3588. +     /* 246 */ "Not a directory (prospero server)",
  3589. +     /* 247 */ "Already exists (prospero server)",
  3590. +     /* 248 */ "Link with same name already exists (prospero server)",
  3591. +     /* 249 */ "",    /* 250 */ "",
  3592. +     /* 251 */ "Command not implemented on server (dirsrv)",
  3593. +     /* 252 */ "Bad format for response (dirsrv)",
  3594. +     /* 253 */ "Protocol error (prospero server)",
  3595. +     /* 254 */ "Unspecified server failure (prospero server)",
  3596. +     /* 255 */ "Generic Failure (prospero)"};
  3597. + 
  3598. + char    *p_warn_text[256] = {
  3599. +     /*   0 */ "No warning",
  3600. +     /*   1 */ "You are using an old version of this program",
  3601. +     /*   2 */ "From server",
  3602. +     /*   3 */ "Unrecognized line in response from server",
  3603. +   /* 4-254 */ "", "", "", "", "", "", "", "", "", "", "", "", "",
  3604. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3605. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3606. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3607. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3608. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3609. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3610. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3611. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3612. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3613. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3614. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3615. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3616. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3617. +   "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
  3618. +     /* 255 */ ""};
  3619. + 
  3620. + #ifndef ARCHIE
  3621. + perrmesg(prefix,no,text)
  3622. +     char    *prefix;
  3623. +     int        no;
  3624. +     char    *text;
  3625. +     {
  3626. +     fprintf(stderr,"%s%s%s%s\n", (prefix ? prefix : ""),
  3627. +         (no ? p_err_text[no] : p_err_text[perrno]),
  3628. +         ((text ? (*text ? " - " : "") : 
  3629. +           (!no && *p_err_string ? " - " : ""))),
  3630. +         (text ? text : (no ? "" : p_err_string)));
  3631. +     }
  3632. + 
  3633. + sperrmesg(buf,prefix,no,text)
  3634. +     char    *buf;
  3635. +     char    *prefix;
  3636. +     int        no;
  3637. +     char    *text;
  3638. +     {
  3639. +     sprintf(buf,"%s%s%s%s\n", (prefix ? prefix : ""),
  3640. +         (no ? p_err_text[no] : p_err_text[perrno]),
  3641. +         ((text ? (*text ? " - " : "") : 
  3642. +           (!no && *p_err_string ? " - " : ""))),
  3643. +         (text ? text : (no ? "" : p_err_string)));
  3644. +     }
  3645. + 
  3646. + pwarnmesg(prefix,no,text)
  3647. +     char    *prefix;
  3648. +     int        no;
  3649. +     char    *text;
  3650. +     {
  3651. +     fprintf(stderr,"%s%s%s%s\n", (prefix ? prefix : ""),
  3652. +         (no ? p_warn_text[no] : p_warn_text[pwarn]),
  3653. +         ((text ? (*text ? " - " : "") : 
  3654. +           (!no && *p_warn_string ? " - " : ""))),
  3655. +         (text ? text : (no ? "" : p_warn_string)));
  3656. +     }
  3657. + 
  3658. + spwarnmesg(buf,prefix,no,text)
  3659. +     char    *buf;
  3660. +     char    *prefix;
  3661. +     int        no;
  3662. +     char    *text;
  3663. +     {
  3664. +     sprintf(buf,"%s%s%s%s\n", (prefix ? prefix : ""),
  3665. +         (no ? p_warn_text[no] : p_warn_text[pwarn]),
  3666. +         ((text ? (*text ? " - " : "") : 
  3667. +           (!no && *p_warn_string ? " - " : ""))),
  3668. +         (text ? text : (no ? "" : p_warn_string)));
  3669. +     }
  3670. + #endif
  3671. *** /tmp/release17219/perrno.h    Tue Nov 12 16:55:10 1991
  3672. --- perrno.h    Mon Oct 21 12:54:42 1991
  3673. ***************
  3674. *** 17,28 ****
  3675.    * libraries.
  3676.    */
  3677.   
  3678. ! /**/ /* Means that this code should be replace by the 24X series code */
  3679.   
  3680.   extern int    perrno;
  3681.   extern char    p_err_string[];
  3682.   extern char    *p_err_text[];
  3683.   
  3684.   /* Error codes returned or found in verrno */
  3685.   
  3686.   #ifndef PSUCCESS
  3687. --- 17,32 ----
  3688.    * libraries.
  3689.    */
  3690.   
  3691. ! #define        P_ERR_STRING_SZ 100     /* Size of error string        */
  3692.   
  3693.   extern int    perrno;
  3694.   extern char    p_err_string[];
  3695.   extern char    *p_err_text[];
  3696.   
  3697. + extern int    pwarn;
  3698. + extern char    p_warn_string[];
  3699. + extern char    *p_warn_text[];
  3700. + 
  3701.   /* Error codes returned or found in verrno */
  3702.   
  3703.   #ifndef PSUCCESS
  3704. ***************
  3705. *** 88,93 ****
  3706. --- 92,98 ----
  3707.   #define PFS_SYMLINK_DEPTH      232    /* Max sym-link depth exceeded  */
  3708.   #define PFS_ENV_NOT_INITIALIZED    233    /* Can't read environment    */
  3709.   #define PFS_EXT_USED_AS_DIR    234    /* Can't use externals as dirs  */
  3710. + #define PFS_MAX_FWD_DEPTH      235    /* Exceeded max forward depth   */
  3711.   
  3712.   /* Error codes returned by directory server                    */
  3713.   /* some of these duplicate errors from individual routines     */
  3714. ***************
  3715. *** 100,105 ****
  3716. --- 105,111 ----
  3717.   #define DIRSRV_ALREADY_EXISTS  247    /* Identical link already exists */
  3718.   #define DIRSRV_NAME_CONFLICT   248    /* Link with name already exists */
  3719.   
  3720. + #define DIRSRV_UNIMPLEMENTED   251      /* Unimplemented command         */
  3721.   #define DIRSRV_BAD_FORMAT      252
  3722.   #define DIRSRV_ERROR           253
  3723.   #define DIRSRV_SERVER_FAILED   254      /* Unspecified server failure    */
  3724. ***************
  3725. *** 107,109 ****
  3726. --- 113,123 ----
  3727.   #ifndef PFAILURE
  3728.   #define    PFAILURE            255
  3729.   #endif
  3730. + 
  3731. + /* Warning codes */
  3732. + 
  3733. + #define PNOWARN             0    /* No warning indicated         */
  3734. + #define PWARN_OUT_OF_DATE     1    /* Software is out of date       */
  3735. + #define PWARN_MSG_FROM_SERVER     2      /* Warning in p_warn_string      */
  3736. + #define PWARN_UNRECOGNIZED_RESP  3    /* Unrecognized line in response */
  3737. + #define PWARNING           255    /* Warning in p_warn_string      */
  3738. *** /tmp/release17219/pfs.h    Tue Nov 12 16:55:14 1991
  3739. --- pfs.h    Sat Nov  2 13:25:03 1991
  3740. ***************
  3741. *** 3,23 ****
  3742.    *
  3743.    * For copying and distribution information, please see the file
  3744.    * <copyright.h>.
  3745.    */
  3746.   
  3747.   #include <copyright.h>
  3748.   
  3749. ! #ifndef _TYPES_
  3750. ! #include <sys/types.h>
  3751. ! #endif /* _TYPES_ */
  3752.   
  3753. - #include <netinet/in.h> 
  3754. - 
  3755.   #ifndef NULL
  3756.   #define NULL 0
  3757.   #endif /* NULL */
  3758.   
  3759. ! #define        PFS_RELEASE    "Beta.4.2"
  3760.   /* moved up for vdir_init */
  3761.   #define ZERO(p)        bzero((char *)(p), sizeof(*(p)))
  3762.   
  3763. --- 3,29 ----
  3764.    *
  3765.    * For copying and distribution information, please see the file
  3766.    * <copyright.h>.
  3767. +  *
  3768. +  * v1.1.2 - bpk 08/30/91 - added VMS support
  3769. +  * v1.1.1 - bpk 08/20/91 - 4.2 -> 4.2B
  3770.    */
  3771.   
  3772.   #include <copyright.h>
  3773.   
  3774. ! #ifdef VMS
  3775. ! # include <vms.h>
  3776. ! #else /* not VMS */
  3777. ! # ifndef _TYPES_
  3778. ! #  include <sys/types.h>
  3779. ! # endif /* _TYPES_ */
  3780. ! # include <netinet/in.h> 
  3781. ! #endif /* VMS */
  3782.   
  3783.   #ifndef NULL
  3784.   #define NULL 0
  3785.   #endif /* NULL */
  3786.   
  3787. ! #define        PFS_RELEASE    "Beta.4.2D"
  3788.   /* moved up for vdir_init */
  3789.   #define ZERO(p)        bzero((char *)(p), sizeof(*(p)))
  3790.   
  3791. ***************
  3792. *** 46,51 ****
  3793. --- 52,59 ----
  3794.   /* Request structure: maintains information about server requests */
  3795.   struct preq {
  3796.       int            cid;          /* Connection ID                  */
  3797. +     short        priority;      /* Connection priority            */
  3798. +     int            pf_priority;      /* Priority assigned by pri_func  */
  3799.       int            recv_tot;      /* Total # of packets received    */
  3800.       int            trns_tot;      /* Total # of packets to transmit */
  3801.       struct ptext    *cpkt;          /* Current packet being filled in */
  3802. ***************
  3803. *** 61,67 ****
  3804.   typedef struct preq PREQ_ST;
  3805.   
  3806.   
  3807. ! /* Definition of structure contining information on virtual link */
  3808.   
  3809.   struct vlink {
  3810.       int            dontfree;      /* Flag: don't free this link     */
  3811. --- 69,75 ----
  3812.   typedef struct preq PREQ_ST;
  3813.   
  3814.   
  3815. ! /* Definition of structure containing information on virtual link */
  3816.   
  3817.   struct vlink {
  3818.       int            dontfree;      /* Flag: don't free this link     */
  3819. ***************
  3820. *** 299,304 ****
  3821. --- 307,315 ----
  3822.   
  3823.   #define        PSUCCESS    0
  3824.   #define        PFAILURE    255
  3825. + 
  3826. + /* Hush up warnings.  */
  3827. + void vllfree();
  3828.   
  3829.   /* Procedures in libpfs.a */
  3830.   
  3831. *** /tmp/release17219/pmachine.h    Tue Nov 12 16:55:18 1991
  3832. --- pmachine.h    Sat Nov  2 16:48:59 1991
  3833. ***************
  3834. *** 5,14 ****
  3835.    * barely resembles the pmachine.h that comes with the real Prospero, tho.
  3836.    */
  3837.   
  3838. - #if defined(NOREGEX)
  3839. - #define REGEX_FILE "regex.c" /* originally "../../misc/regex.c in wcmatch.c */
  3840. - #endif
  3841. - 
  3842.   #ifdef FUNCS
  3843.   #define index        strchr
  3844.   #define rindex        strrchr
  3845. --- 5,10 ----
  3846. ***************
  3847. *** 18,27 ****
  3848.   #endif
  3849.   #endif
  3850.   
  3851.   /*
  3852.    * FD_SET: lib/pfs/dirsend.c, user/vget/ftp.c
  3853.    */
  3854. ! #ifndef FD_SET
  3855.   #define    NFDBITS        32
  3856.   #define    FD_SETSIZE    32
  3857.   #define    FD_SET(n, p)    ((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
  3858. --- 14,36 ----
  3859.   #endif
  3860.   #endif
  3861.   
  3862. + #if defined(RS6000) || defined(BULL)
  3863. + # define NEED_SELECT_H
  3864. + #endif
  3865. + 
  3866. + #if defined(_AIX) || defined(UTS) || defined(AUX) || defined(USG)
  3867. + # define NEED_TIME_H
  3868. + #endif
  3869. + 
  3870. + #ifdef VMS
  3871. + /* Get the system status stuff.  */
  3872. + # include <ssdef.h>
  3873. + #endif /* VMS */
  3874. + 
  3875.   /*
  3876.    * FD_SET: lib/pfs/dirsend.c, user/vget/ftp.c
  3877.    */
  3878. ! #if !defined(FD_SET) && !defined(VMS)
  3879.   #define    NFDBITS        32
  3880.   #define    FD_SETSIZE    32
  3881.   #define    FD_SET(n, p)    ((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
  3882. *** /tmp/release17219/pprot.h    Tue Nov 12 16:55:21 1991
  3883. --- pprot.h    Sat Nov  2 13:26:49 1991
  3884. ***************
  3885. *** 8,14 ****
  3886.   #include <copyright.h>
  3887.   
  3888.   #ifndef MAXPATHLEN
  3889. ! #include <sys/param.h>
  3890.   #endif
  3891.   
  3892.   /* Protocol Definitions */
  3893. --- 8,18 ----
  3894.   #include <copyright.h>
  3895.   
  3896.   #ifndef MAXPATHLEN
  3897. ! # ifdef VMS
  3898. ! #  define MAXPATHLEN 32
  3899. ! # else /* not VMS */
  3900. ! #  include <sys/param.h>
  3901. ! # endif /* VMS */
  3902.   #endif
  3903.   
  3904.   /* Protocol Definitions */
  3905. ***************
  3906. *** 23,28 ****
  3907. --- 27,34 ----
  3908.   #define           MAXPKT            1024   /* Max size of response from server  */
  3909.   #define           SEQ_SIZE        32     /* Max size of sequence text in resp */ 
  3910.   #define           MAX_DIR_LINESIZE 160+MAXPATHLEN /* Max linesize in directory */
  3911. + 
  3912. + #define           MAX_FWD_DEPTH    20     /* Max fwd pointers to follow        */
  3913.   
  3914.   #define S_AD_SZ        sizeof(struct sockaddr_in)
  3915.   
  3916. *** /tmp/release17219/procquery.c    Tue Nov 12 16:55:25 1991
  3917. --- procquery.c    Sat Nov  2 21:03:58 1991
  3918. ***************
  3919. *** 10,16 ****
  3920.    * For copying and distribution information, please see the file
  3921.    * <copyright.h>.
  3922.    *
  3923. !  * v1.1.1 - bpk 08/20/91 - took out archie_query from error msg
  3924.    */
  3925.   #include <copyright.h>
  3926.   #include <stdio.h>
  3927. --- 10,18 ----
  3928.    * For copying and distribution information, please see the file
  3929.    * <copyright.h>.
  3930.    *
  3931. !  * v1.2.1 - 10/18/91 (bpk) - warning stuff
  3932. !  * v1.2.0 - 09/20/91 (bpk) - VMS under Multinet 3.0 too
  3933. !  * v1.1.1 - 08/20/91 (bpk) - took out archie_query from error msg
  3934.    */
  3935.   #include <copyright.h>
  3936.   #include <stdio.h>
  3937. ***************
  3938. *** 18,28 ****
  3939.   #include <perrno.h>
  3940.   #include <pmachine.h>
  3941.   #include <archie.h>
  3942. ! #if defined(AUX) || defined (AIX)
  3943.   # include <time.h>
  3944.   #else
  3945. ! # include <sys/time.h>
  3946.   #endif
  3947.   extern int client_dirsrv_timeout,client_dirsrv_retry;    /* dirsend.c */
  3948.   extern char *progname;
  3949.   
  3950. --- 20,34 ----
  3951.   #include <perrno.h>
  3952.   #include <pmachine.h>
  3953.   #include <archie.h>
  3954. ! 
  3955. ! #ifdef NEED_TIME_H
  3956.   # include <time.h>
  3957.   #else
  3958. ! # ifndef VMS
  3959. ! #  include <sys/time.h>
  3960. ! # endif
  3961.   #endif
  3962. + 
  3963.   extern int client_dirsrv_timeout,client_dirsrv_retry;    /* dirsend.c */
  3964.   extern char *progname;
  3965.   
  3966. ***************
  3967. *** 35,40 ****
  3968. --- 41,47 ----
  3969.   extern Database *db;                    /* database for all queries */
  3970.   static HostEntry *currentHostEntry;     /* current host, this query */
  3971.   static LocEntry *currentLocEntry;       /* current location, this query */
  3972. + static int numMatches;            /* num hits this query */
  3973.   #endif
  3974.   
  3975.   /*
  3976. ***************
  3977. *** 45,57 ****
  3978.   /*
  3979.    * Data defined here
  3980.    */
  3981. ! int perrno, pfs_debug;
  3982.   static struct tm *presenttime;
  3983.   
  3984.   /*    -    -    -    -    -    -    -    -    */
  3985.   /*
  3986.    * display_link : Prints the contents of the given virtual link. If
  3987. !  *    listflag is 0, then this uses static variables to save state
  3988.    *    between calls for a less verbose output. If listflag is non-zero
  3989.    *    then all information is printed every time.
  3990.    */
  3991. --- 52,67 ----
  3992.   /*
  3993.    * Data defined here
  3994.    */
  3995. ! extern int pwarn, perrno;
  3996. ! int pfs_debug;
  3997.   static struct tm *presenttime;
  3998. + static char lastpath[MAX_VPATH] = "\001";
  3999. + static char lasthost[MAX_VPATH] = "\001";
  4000.   
  4001.   /*    -    -    -    -    -    -    -    -    */
  4002.   /*
  4003.    * display_link : Prints the contents of the given virtual link. If
  4004. !  *    listflag is 0, then this uses last{host,path} to save state
  4005.    *    between calls for a less verbose output. If listflag is non-zero
  4006.    *    then all information is printed every time.
  4007.    */
  4008. ***************
  4009. *** 60,68 ****
  4010.   VLINK l;
  4011.   int listflag;
  4012.   {
  4013. -     static char    lastpath[MAX_VPATH] = "\001";
  4014. -     static char    lasthost[MAX_VPATH] = "\001";
  4015. - 
  4016.       PATTRIB     ap;
  4017.       char    linkpath[MAX_VPATH];
  4018.       int        dirflag = 0;
  4019. --- 70,75 ----
  4020. ***************
  4021. *** 146,157 ****
  4022.       currentLocEntry = addLocEntry("*UNKNOWN*",currentHostEntry,NULL);
  4023.       }
  4024.       (void)addFileEntry(linkpath,size,modes,archie_date,currentLocEntry,NULL);
  4025. !     doPendingEvents();
  4026.   #else
  4027.       /* Print this link's information */
  4028.       if (listflag)
  4029.       printf("%s %6d %s %s%s\n",gt_date,size,l->host,l->filename,
  4030. !                             (dirflag ? "/" : ""));
  4031.       else
  4032.       printf("      %9s %s %10d  %s  %s\n",(dirflag ? "DIRECTORY" : "FILE"),
  4033.                       modes,size,archie_date,l->name);
  4034. --- 153,164 ----
  4035.       currentLocEntry = addLocEntry("*UNKNOWN*",currentHostEntry,NULL);
  4036.       }
  4037.       (void)addFileEntry(linkpath,size,modes,archie_date,currentLocEntry,NULL);
  4038. !     numMatches += 1;
  4039.   #else
  4040.       /* Print this link's information */
  4041.       if (listflag)
  4042.       printf("%s %6d %s %s%s\n",gt_date,size,l->host,l->filename,
  4043. !            (dirflag ? "/" : ""));
  4044.       else
  4045.       printf("      %9s %s %10d  %s  %s\n",(dirflag ? "DIRECTORY" : "FILE"),
  4046.                       modes,size,archie_date,l->name);
  4047. ***************
  4048. *** 193,198 ****
  4049. --- 200,206 ----
  4050.       clearDb(db);
  4051.       currentHostEntry = HOST_NULL;
  4052.       currentLocEntry = LOC_NULL;
  4053. +     numMatches = 0;
  4054.   #endif
  4055.   
  4056.       /* Do the query */
  4057. ***************
  4058. *** 204,228 ****
  4059.       /* Error? */
  4060.       if (perrno != PSUCCESS) {
  4061.   #ifdef XARCHIE
  4062. !     if (*p_err_string)
  4063. !         alert2("Prospero error: %.100s - %.100s",p_err_text[perrno],
  4064. !                              p_err_string);
  4065.       else
  4066. !         alert1("Prospero error: %.200s",p_err_text[perrno]);
  4067.           status0("Ready");
  4068.   #else
  4069. !     if (*p_err_string)
  4070. !       fprintf(stderr, "%s: failed: %s - %s\n", progname,
  4071. !           p_err_text[perrno], p_err_string);
  4072.       else
  4073. !       fprintf(stderr, "%s failed: %s\n", progname, p_err_text[perrno]);
  4074.   #endif
  4075.       }
  4076.   
  4077.       /* Display the results */
  4078.   #ifdef XARCHIE
  4079.       status0("Parsing");
  4080.   #endif
  4081.       while (l != NULL) {
  4082.       display_link(l,listflag);
  4083.       l = l->next;
  4084. --- 212,263 ----
  4085.       /* Error? */
  4086.       if (perrno != PSUCCESS) {
  4087.   #ifdef XARCHIE
  4088. !     if (p_err_text[perrno]) {
  4089. !       if (*p_err_string)
  4090. !         alert2("Prospero error: %.100s - %.100s",p_err_text[perrno],
  4091. !             p_err_string);
  4092. !       else
  4093. !         alert1("Prospero error: %.200s",p_err_text[perrno]);
  4094. !     } else
  4095. !         alert1("Prospero error: Undefined error %d (prospero)", perrno);
  4096. !         status0("Ready");
  4097. ! #else
  4098. !     if (p_err_text[perrno]) {
  4099. !         if (*p_err_string)
  4100. !         fprintf(stderr, "%s: failed: %s - %s\n", progname,
  4101. !                 p_err_text[perrno], p_err_string);
  4102. !         else
  4103. !             fprintf(stderr, "%s failed: %s\n", progname, p_err_text[perrno]);
  4104. !     } else
  4105. !         fprintf(stderr, "%s failed: Undefined error %d (prospero)", perrno);
  4106. ! #endif
  4107. !     }
  4108. ! 
  4109. !     /* Warning? */
  4110. !     if (pwarn != PNOWARN) {
  4111. ! #ifdef XARCHIE
  4112. !     if (*p_warn_string)
  4113. !         alert2("Prospero warning: %.100s - %.100s",
  4114. !            p_warn_text[pwarn], p_warn_string);
  4115.       else
  4116. !         alert1("Prospero warning: %.200s",p_warn_text[pwarn]);
  4117.           status0("Ready");
  4118.   #else
  4119. !     if (*p_warn_string)
  4120. !         fprintf(stderr, "%s: Warning! %s - %s\n", progname,
  4121. !         p_warn_text[pwarn], p_warn_string);
  4122.       else
  4123. !         fprintf(stderr, "%s: Warning! %s\n", progname, p_warn_text[pwarn]);
  4124.   #endif
  4125.       }
  4126.   
  4127. + 
  4128.       /* Display the results */
  4129.   #ifdef XARCHIE
  4130.       status0("Parsing");
  4131.   #endif
  4132. +     *lasthost = '\001';
  4133. +     *lastpath = '\001';
  4134.       while (l != NULL) {
  4135.       display_link(l,listflag);
  4136.       l = l->next;
  4137. ***************
  4138. *** 229,234 ****
  4139.       }
  4140.   #ifdef XARCHIE
  4141.       displayHosts(db);
  4142. !     status0("Ready");
  4143.   #endif
  4144.   }
  4145. --- 264,269 ----
  4146.       }
  4147.   #ifdef XARCHIE
  4148.       displayHosts(db);
  4149. !     status1("Found %d matches -- Ready",numMatches);
  4150.   #endif
  4151.   }
  4152. *** /tmp/release17219/ptalloc.c    Tue Nov 12 16:55:29 1991
  4153. --- ptalloc.c    Mon Oct 21 12:56:01 1991
  4154. ***************
  4155. *** 51,56 ****
  4156. --- 51,57 ----
  4157.    *    VTFREE takes a pointer to a VTEXT structure and adds it to
  4158.    *    the free list for later reuse.
  4159.    */
  4160. + void
  4161.   ptfree(vt)
  4162.       PTEXT    vt;
  4163.       {
  4164. ***************
  4165. *** 67,72 ****
  4166. --- 68,74 ----
  4167.    *    VTEXT structures.  It is used to free an entrie list of VTEXT
  4168.    *    structures.
  4169.    */
  4170. + void
  4171.   ptlfree(vt)
  4172.       PTEXT    vt;
  4173.       {
  4174. *** /dev/null    Tue Nov 12 16:30:11 1991
  4175. --- rdgram.h    Sat Nov  2 13:31:22 1991
  4176. ***************
  4177. *** 0 ****
  4178. --- 1,16 ----
  4179. + /*
  4180. +  * Copyright (c) 1991 by the University of Washington
  4181. +  *
  4182. +  * For copying and distribution information, please see the file
  4183. +  * <copyright.h>.
  4184. +  */
  4185. + 
  4186. + #include <copyright.h>
  4187. + 
  4188. + /* Queuing priorities for datagrams */
  4189. + #define           RDGRAM_MAX_PRI   32765  /* Maximum user proiority          */
  4190. + #define           RDGRAM_MAX_SPRI  32767  /* Maximum priority for system use */
  4191. + #define           RDGRAM_MIN_PRI  -32765  /* Maximum user proiority          */
  4192. + #define           RDGRAM_MIN_SPRI -32768  /* Maximum priority for system use */
  4193. + 
  4194. + int    rdgram_priority = 0;
  4195. *** /tmp/release17219/regex.c    Tue Nov 12 16:55:46 1991
  4196. --- regex.c    Tue Nov 12 16:50:52 1991
  4197. ***************
  4198. *** 1,74 ****
  4199.   /*
  4200. !  * These routines are from "a pre-release of a bunch of berkelix
  4201. !  * regex(3)/ed(1) compatible regular-expression routines" written by Ozan
  4202. !  * S. Yigit, Dept. of Computer Science, York University.  Parts of the
  4203. !  * code that are not needed by Prospero have been removed, but most of
  4204. !  * the accompanying information has been left intact.  This file is to be
  4205. !  * included on those operating systems that do not support re_comp and
  4206. !  * re_exec.
  4207. !  *
  4208. !  * gf: 12 Sep 1991: Modified so routines aren't static, so we can link with
  4209. !  *                  them instead of including the C code.
  4210.    */
  4211.   
  4212.   /*
  4213. - 
  4214. - These routines are completely public domain. You can do whatever you
  4215. - like with them, and hopefully you are professional enough not to strip
  4216. - out the authorship information, acknowledgements and references.
  4217. - 
  4218. - The reason for this being a *pre-release* is that I received a lot
  4219. - of useful suggestions about packaging, about additional routines etc.
  4220. - from a few people. I do not have too much time to do those changes
  4221. - right now, so I am putting this package out for those who needed
  4222. - it yesterday. Next release will include other routines, and better
  4223. - packaging.
  4224. - 
  4225. - These routines are *not* tested under SysV, but they are tested
  4226. - under PRO/Venix (2.0) and BSD 4.2.
  4227. - 
  4228. - In general, these routines run just as fast, or faster than regex library
  4229. - routines under BSD 4.2. In some cases, they are slightly slower. I did not
  4230. - try too hard to optimize the re_exec routine.
  4231. - 
  4232. - Coding style is a la K&R, with lotsa short identifiers. I like it
  4233. - that way. All flames should be fed to yetti!dragon.
  4234. - 
  4235. - Acknowledgements: Henry Spencer, Hugh Redelmeier and Drew Sullivan made
  4236. -           a lot of important suggestions, some of which will be
  4237. -           incorporated into the next version.
  4238. - 
  4239. -  */
  4240. - 
  4241. - /*
  4242.    * regex - Regular expression pattern matching
  4243.    *         and replacement
  4244.    *
  4245. !  *
  4246. !  * By:  Ozan S. Yigit (oz)
  4247. !  *      Dept. of Computer Science
  4248.    *      York University
  4249. -  *         [...!utzoo!yetti!oz || oz@yusol.BITNET || oz@yuyetti.BITNET]
  4250.    *
  4251.    * These routines are the PUBLIC DOMAIN equivalents 
  4252.    * of regex routines as found in 4.nBSD UN*X, with minor
  4253.    * extensions.
  4254.    *
  4255. !  * These routines are derived from various implementations
  4256. !  * found in software tools books, and Conroy's grep. They
  4257. !  * are NOT derived from licensed/restricted software.
  4258. !  * For more interesting/academic/complicated implementations,
  4259. !  * see Henry Spencer's regexp routines, or GNU Emacs pattern
  4260. !  * matching module.
  4261.    *
  4262.    * Routines:
  4263.    *      re_comp:        compile a regular expression into
  4264. !  *                      a DFA.
  4265.    *
  4266.    *            char *re_comp(s)
  4267.    *            char *s;
  4268.    *
  4269. !  *      re_exec:        execute the DFA to match a pattern.
  4270.    *
  4271.    *            int re_exec(s)
  4272.    *            char *s;
  4273. --- 1,52 ----
  4274. + #ifdef NOREGEX
  4275.   /*
  4276. !  * These routines are BSD regex(3)/ed(1) compatible regular-expression
  4277. !  * routines written by Ozan S. Yigit, Computer Science, York University.
  4278. !  * Parts of the code that are not needed by Prospero have been removed,
  4279. !  * but most of the accompanying information has been left intact. 
  4280. !  * This file is to be included on those operating systems that do not
  4281. !  * support re_comp and re_exec.
  4282.    */
  4283.   
  4284.   /*
  4285.    * regex - Regular expression pattern matching
  4286.    *         and replacement
  4287.    *
  4288. !  * by:  Ozan S. Yigit (oz@nexus.yorku.ca)
  4289. !  *    Dept. of Computing Services
  4290.    *      York University
  4291.    *
  4292.    * These routines are the PUBLIC DOMAIN equivalents 
  4293.    * of regex routines as found in 4.nBSD UN*X, with minor
  4294.    * extensions.
  4295.    *
  4296. !  * Modification history:
  4297.    *
  4298. +  * Log:    regex.c,v
  4299. +  * Revision 1.3  89/04/01  14:18:09  oz
  4300. +  * Change all references to a dfa: this is actually an nfa.
  4301. +  * 
  4302. +  * Revision 1.2  88/08/28  15:36:04  oz
  4303. +  * Use a complement bitmap to represent NCL.
  4304. +  * This removes the need to have seperate 
  4305. +  * code in the pmatch case block - it is 
  4306. +  * just CCL code now.
  4307. +  * 
  4308. +  * Use the actual CCL code in the CLO
  4309. +  * section of pmatch. No need for a recursive
  4310. +  * pmatch call.
  4311. +  * 
  4312. +  * Use a bitmap table to set char bits in an
  4313. +  * 8-bit chunk.
  4314. +  * 
  4315.    * Routines:
  4316.    *      re_comp:        compile a regular expression into
  4317. !  *                      a NFA.
  4318.    *
  4319.    *            char *re_comp(s)
  4320.    *            char *s;
  4321.    *
  4322. !  *      re_exec:        execute the NFA to match a pattern.
  4323.    *
  4324.    *            int re_exec(s)
  4325.    *            char *s;
  4326. ***************
  4327. *** 91,102 ****
  4328.    *
  4329.    *      [4]     [set]   matches one of the characters in the set.
  4330.    *                      If the first character in the set is "^",
  4331. !  *                      it matches a character NOT in the set. A
  4332. !  *                      shorthand S-E is used to specify a set of
  4333. !  *                      characters S upto E, inclusive. The special
  4334. !  *                      characters "]" and "-" have no special
  4335. !  *                      meaning if they appear as the first chars
  4336. !  *                      in the set.
  4337.    *                      examples:        match:
  4338.    *
  4339.    *                              [a-z]    any lowercase alpha
  4340. --- 69,80 ----
  4341.    *
  4342.    *      [4]     [set]   matches one of the characters in the set.
  4343.    *                      If the first character in the set is "^",
  4344. !  *                      it matches a character NOT in the set, i.e. 
  4345. !  *            complements the set. A shorthand S-E is 
  4346. !  *            used to specify a set of characters S upto 
  4347. !  *            E, inclusive. The special characters "]" and 
  4348. !  *            "-" have no special meaning if they appear 
  4349. !  *            as the first chars in the set.
  4350.    *                      examples:        match:
  4351.    *
  4352.    *                              [a-z]    any lowercase alpha
  4353. ***************
  4354. *** 155,168 ****
  4355.    *              Grep [rsx-11 C dist]            David Conroy
  4356.    *        ed - text editor        Un*x Programmer's Manual
  4357.    *        Advanced editing on Un*x    B. W. Kernighan
  4358. !  *        RegExp routines            Henry Spencer
  4359.    *
  4360.    * Notes:
  4361.    *
  4362.    *    This implementation uses a bit-set representation for character
  4363.    *    classes for speed and compactness. Each character is represented 
  4364. !  *    by one bit in a 128-bit block. Thus, CCL or NCL always takes a 
  4365. !  *    constant 16 bytes in the internal dfa, and re_exec does a single
  4366.    *    bit comparison to locate the character in the set.
  4367.    *
  4368.    * Examples:
  4369. --- 133,146 ----
  4370.    *              Grep [rsx-11 C dist]            David Conroy
  4371.    *        ed - text editor        Un*x Programmer's Manual
  4372.    *        Advanced editing on Un*x    B. W. Kernighan
  4373. !  *        regexp routines            Henry Spencer
  4374.    *
  4375.    * Notes:
  4376.    *
  4377.    *    This implementation uses a bit-set representation for character
  4378.    *    classes for speed and compactness. Each character is represented 
  4379. !  *    by one bit in a 128-bit block. Thus, CCL always takes a 
  4380. !  *    constant 16 bytes in the internal nfa, and re_exec does a single
  4381.    *    bit comparison to locate the character in the set.
  4382.    *
  4383.    * Examples:
  4384. ***************
  4385. *** 172,178 ****
  4386.    *    matches:    fo foo fooo foobar fobar foxx ...
  4387.    *
  4388.    *    pattern:    fo[ob]a[rz]    
  4389. !  *    compile:    CHR f CHR o CCL 2 o b CHR a CCL bitset END
  4390.    *    matches:    fobar fooar fobaz fooaz
  4391.    *
  4392.    *    pattern:    foo\\+
  4393. --- 150,156 ----
  4394.    *    matches:    fo foo fooo foobar fobar foxx ...
  4395.    *
  4396.    *    pattern:    fo[ob]a[rz]    
  4397. !  *    compile:    CHR f CHR o CCL bitset CHR a CCL bitset END
  4398.    *    matches:    fobar fooar fobaz fooaz
  4399.    *
  4400.    *    pattern:    foo\\+
  4401. ***************
  4402. *** 189,195 ****
  4403.    * 
  4404.    */
  4405.   
  4406. ! #define MAXDFA  1024
  4407.   #define MAXTAG  10
  4408.   
  4409.   #define OKP     1
  4410. --- 167,173 ----
  4411.    * 
  4412.    */
  4413.   
  4414. ! #define MAXNFA  1024
  4415.   #define MAXTAG  10
  4416.   
  4417.   #define OKP     1
  4418. ***************
  4419. *** 198,218 ****
  4420.   #define CHR     1
  4421.   #define ANY     2
  4422.   #define CCL     3
  4423. ! #define NCL     4
  4424. ! #define BOL     5
  4425. ! #define EOL     6
  4426. ! #define BOT     7
  4427. ! #define EOT     8
  4428. ! #define BOW    9
  4429. ! #define EOW    10
  4430. ! #define REF     11
  4431. ! #define CLO     12
  4432.   
  4433.   #define END     0
  4434.   
  4435.   /*
  4436.    * The following defines are not meant
  4437. !  * to be changeable. They are for readibility
  4438.    * only.
  4439.    *
  4440.    */
  4441. --- 176,195 ----
  4442.   #define CHR     1
  4443.   #define ANY     2
  4444.   #define CCL     3
  4445. ! #define BOL     4
  4446. ! #define EOL     5
  4447. ! #define BOT     6
  4448. ! #define EOT     7
  4449. ! #define BOW    8
  4450. ! #define EOW    9
  4451. ! #define REF     10
  4452. ! #define CLO     11
  4453.   
  4454.   #define END     0
  4455.   
  4456.   /*
  4457.    * The following defines are not meant
  4458. !  * to be changeable. They are for readability
  4459.    * only.
  4460.    *
  4461.    */
  4462. ***************
  4463. *** 227,243 ****
  4464.   typedef /*unsigned*/ char CHAR;
  4465.   
  4466.   static int  tagstk[MAXTAG];             /* subpat tag stack..*/
  4467. ! static CHAR dfa[MAXDFA];        /* automaton..       */
  4468.   static int  sta = NOP;                   /* status of lastpat */
  4469.   
  4470.   static CHAR bittab[BITBLK];        /* bit table for CCL */
  4471.   
  4472. ! static int  internal_error;
  4473.   
  4474.   static void
  4475. ! chset(c) register CHAR c; { bittab[((c)&BLKIND)>>3] |= 1<<((c)&BITIND); }
  4476.   
  4477. ! #define badpat(x)    return(*dfa = END, x)
  4478.   #define store(x)    *mp++ = x
  4479.    
  4480.   char *     
  4481. --- 204,226 ----
  4482.   typedef /*unsigned*/ char CHAR;
  4483.   
  4484.   static int  tagstk[MAXTAG];             /* subpat tag stack..*/
  4485. ! static CHAR nfa[MAXNFA];        /* automaton..       */
  4486.   static int  sta = NOP;                   /* status of lastpat */
  4487.   
  4488.   static CHAR bittab[BITBLK];        /* bit table for CCL */
  4489. +                     /* pre-set bits...   */
  4490. + static CHAR bitarr[] = {1,2,4,8,16,32,64,128};
  4491.   
  4492. ! static int internal_error;
  4493.   
  4494.   static void
  4495. ! chset(c)
  4496. ! register CHAR c;
  4497. ! {
  4498. !     bittab[((c) & BLKIND) >> 3] |= bitarr[(c) & BITIND];
  4499. ! }
  4500.   
  4501. ! #define badpat(x)    return (*nfa = END, x)
  4502.   #define store(x)    *mp++ = x
  4503.    
  4504.   char *     
  4505. ***************
  4506. *** 245,265 ****
  4507.   char *pat;
  4508.   {
  4509.       register char *p;               /* pattern pointer   */
  4510. !     register CHAR *mp=dfa;          /* dfa pointer       */
  4511.       register CHAR *lp;              /* saved pointer..   */
  4512. !     register CHAR *sp=dfa;          /* another one..     */
  4513.   
  4514.       register int tagi = 0;          /* tag stack index   */
  4515.       register int tagc = 1;          /* actual tag count  */
  4516.   
  4517.       register int n;
  4518.       int c1, c2;
  4519.           
  4520. -     internal_error = 0;
  4521. - 
  4522.       if (!pat || !*pat)
  4523.           if (sta)
  4524. !             return(0);
  4525.           else
  4526.               badpat("No previous regular expression");
  4527.       sta = NOP;
  4528. --- 228,247 ----
  4529.   char *pat;
  4530.   {
  4531.       register char *p;               /* pattern pointer   */
  4532. !     register CHAR *mp = nfa;        /* nfa pointer       */
  4533.       register CHAR *lp;              /* saved pointer..   */
  4534. !     register CHAR *sp = nfa;        /* another one..     */
  4535.   
  4536.       register int tagi = 0;          /* tag stack index   */
  4537.       register int tagc = 1;          /* actual tag count  */
  4538.   
  4539.       register int n;
  4540. +     register CHAR mask;        /* xor mask -CCL/NCL */
  4541.       int c1, c2;
  4542.           
  4543.       if (!pat || !*pat)
  4544.           if (sta)
  4545. !             return 0;
  4546.           else
  4547.               badpat("No previous regular expression");
  4548.       sta = NOP;
  4549. ***************
  4550. *** 291,303 ****
  4551.               break;
  4552.   
  4553.           case '[':               /* match char class..*/
  4554.   
  4555.               if (*++p == '^') {
  4556. !                 store(NCL);
  4557.                   p++;
  4558.               }
  4559.               else
  4560. !                 store(CCL);
  4561.   
  4562.               if (*p == '-')        /* real dash */
  4563.                   chset(*p++);
  4564. --- 273,286 ----
  4565.               break;
  4566.   
  4567.           case '[':               /* match char class..*/
  4568. +             store(CCL);
  4569.   
  4570.               if (*++p == '^') {
  4571. !                 mask = 0377;    
  4572.                   p++;
  4573.               }
  4574.               else
  4575. !                 mask = 0;
  4576.   
  4577.               if (*p == '-')        /* real dash */
  4578.                   chset(*p++);
  4579. ***************
  4580. *** 324,330 ****
  4581.                   badpat("Missing ]");
  4582.   
  4583.               for (n = 0; n < BITBLK; bittab[n++] = (char) 0)
  4584. !                 store(bittab[n]);
  4585.       
  4586.               break;
  4587.   
  4588. --- 307,313 ----
  4589.                   badpat("Missing ]");
  4590.   
  4591.               for (n = 0; n < BITBLK; bittab[n++] = (char) 0)
  4592. !                 store(mask ^ bittab[n]);
  4593.       
  4594.               break;
  4595.   
  4596. ***************
  4597. *** 332,339 ****
  4598.           case '+':               /* match 1 or more.. */
  4599.               if (p == pat)
  4600.                   badpat("Empty closure");
  4601. !             lp = sp;                /* previous opcode */
  4602. !             if (*lp == CLO)         /* equivalence..   */
  4603.                   break;
  4604.               switch(*lp) {
  4605.   
  4606. --- 315,322 ----
  4607.           case '+':               /* match 1 or more.. */
  4608.               if (p == pat)
  4609.                   badpat("Empty closure");
  4610. !             lp = sp;        /* previous opcode */
  4611. !             if (*lp == CLO)        /* equivalence..   */
  4612.                   break;
  4613.               switch(*lp) {
  4614.   
  4615. ***************
  4616. *** 449,455 ****
  4617.           badpat("Unmatched \\(");
  4618.       store(END);
  4619.       sta = OKP;
  4620. !     return(0);
  4621.   }
  4622.   
  4623.   
  4624. --- 432,438 ----
  4625.           badpat("Unmatched \\(");
  4626.       store(END);
  4627.       sta = OKP;
  4628. !     return 0;
  4629.   }
  4630.   
  4631.   
  4632. ***************
  4633. *** 456,469 ****
  4634.   static char *bol;
  4635.   static char *bopat[MAXTAG];
  4636.   static char *eopat[MAXTAG];
  4637. - 
  4638.   char *pmatch();
  4639.   
  4640.   /*
  4641.    * re_exec:
  4642. !  *     execute dfa to find a match.
  4643.    *
  4644. !  *    special cases: (dfa[0])    
  4645.    *        BOL
  4646.    *            Match only once, starting from the
  4647.    *            beginning.
  4648. --- 439,451 ----
  4649.   static char *bol;
  4650.   static char *bopat[MAXTAG];
  4651.   static char *eopat[MAXTAG];
  4652.   char *pmatch();
  4653.   
  4654.   /*
  4655.    * re_exec:
  4656. !  *     execute nfa to find a match.
  4657.    *
  4658. !  *    special cases: (nfa[0])    
  4659.    *        BOL
  4660.    *            Match only once, starting from the
  4661.    *            beginning.
  4662. ***************
  4663. *** 487,493 ****
  4664.   {
  4665.       register char c;
  4666.       register char *ep = 0;
  4667. !     register CHAR *ap = dfa;
  4668.   
  4669.       bol = lp;
  4670.   
  4671. --- 469,475 ----
  4672.   {
  4673.       register char c;
  4674.       register char *ep = 0;
  4675. !     register CHAR *ap = nfa;
  4676.   
  4677.       bol = lp;
  4678.   
  4679. ***************
  4680. *** 512,518 ****
  4681.           while (*lp && *lp != c)
  4682.               lp++;
  4683.           if (!*lp)        /* if EOS, fail, else fall thru. */
  4684. !             return(0);
  4685.       default:            /* regular matching all the way. */
  4686.           while (*lp) {
  4687.               if ((ep = pmatch(lp,ap)))
  4688. --- 494,500 ----
  4689.           while (*lp && *lp != c)
  4690.               lp++;
  4691.           if (!*lp)        /* if EOS, fail, else fall thru. */
  4692. !             return 0;
  4693.       default:            /* regular matching all the way. */
  4694.           while (*lp) {
  4695.               if ((ep = pmatch(lp,ap)))
  4696. ***************
  4697. *** 521,537 ****
  4698.           }
  4699.           break;
  4700.       case END:            /* munged automaton. fail always */
  4701. !         return(0);
  4702.       }
  4703.       if (!ep)
  4704. !         return(0);
  4705.   
  4706. !     if (internal_error) 
  4707. !         return(-1);
  4708.   
  4709.       bopat[0] = lp;
  4710.       eopat[0] = ep;
  4711. !     return(1);
  4712.   }
  4713.   
  4714.   /* 
  4715. --- 503,519 ----
  4716.           }
  4717.           break;
  4718.       case END:            /* munged automaton. fail always */
  4719. !         return 0;
  4720.       }
  4721.       if (!ep)
  4722. !         return 0;
  4723.   
  4724. !     if (internal_error)
  4725. !         return -1;
  4726.   
  4727.       bopat[0] = lp;
  4728.       eopat[0] = ep;
  4729. !     return 1;
  4730.   }
  4731.   
  4732.   /* 
  4733. ***************
  4734. *** 542,548 ****
  4735.    *     grep written by David Conroy. The backref and
  4736.    *     tag stuff, and various other mods are by oZ.
  4737.    *
  4738. !  *    special cases: (dfa[n], dfa[n+1])
  4739.    *        CLO ANY
  4740.    *            We KNOW ".*" will match ANYTHING
  4741.    *            upto the end of line. Thus, go to
  4742. --- 524,530 ----
  4743.    *     grep written by David Conroy. The backref and
  4744.    *     tag stuff, and various other mods are by oZ.
  4745.    *
  4746. !  *    special cases: (nfa[n], nfa[n+1])
  4747.    *        CLO ANY
  4748.    *            We KNOW ".*" will match ANYTHING
  4749.    *            upto the end of line. Thus, go to
  4750. ***************
  4751. *** 559,565 ****
  4752.    *            We can again scan the string forward
  4753.    *            for the single char without recursion, 
  4754.    *            and at the point of failure, we execute 
  4755. !  *            the remaining dfa recursively, as
  4756.    *            described above.
  4757.    *
  4758.    *    At the end of a successful match, bopat[n] and eopat[n]
  4759. --- 541,547 ----
  4760.    *            We can again scan the string forward
  4761.    *            for the single char without recursion, 
  4762.    *            and at the point of failure, we execute 
  4763. !  *            the remaining nfa recursively, as
  4764.    *            described above.
  4765.    *
  4766.    *    At the end of a successful match, bopat[n] and eopat[n]
  4767. ***************
  4768. *** 568,574 ****
  4769.    *
  4770.    */
  4771.   
  4772. - 
  4773.   /*
  4774.    * character classification table for word boundary
  4775.    * operators BOW and EOW. the reason for not using 
  4776. --- 550,555 ----
  4777. ***************
  4778. *** 597,603 ****
  4779.   
  4780.   #define inascii(x)    (0177&(x))
  4781.   #define iswordc(x)     chrtyp[inascii(x)]
  4782. ! #define isinset(x,y)     ((x)[((y)&BLKIND)>>3] & (1<<((y)&BITIND)))
  4783.   
  4784.   /*
  4785.    * skip values for CLO XXX to skip past the closure
  4786. --- 578,584 ----
  4787.   
  4788.   #define inascii(x)    (0177&(x))
  4789.   #define iswordc(x)     chrtyp[inascii(x)]
  4790. ! #define isinset(x,y)     ((x)[((y)&BLKIND)>>3] & bitarr[(y)&BITIND])
  4791.   
  4792.   /*
  4793.    * skip values for CLO XXX to skip past the closure
  4794. ***************
  4795. *** 604,612 ****
  4796.    *
  4797.    */
  4798.   
  4799. ! #define ANYSKIP    2     /* CLO ANY END ...       */
  4800. ! #define CHRSKIP    3    /* CLO CHR chr END ...       */
  4801. ! #define CCLSKIP 18    /* CLO CCL 16bytes END ... */
  4802.   
  4803.   static char *
  4804.   pmatch(lp, ap)
  4805. --- 585,593 ----
  4806.    *
  4807.    */
  4808.   
  4809. ! #define ANYSKIP    2     /* [CLO] ANY END ...         */
  4810. ! #define CHRSKIP    3    /* [CLO] CHR chr END ...     */
  4811. ! #define CCLSKIP 18    /* [CLO] CCL 16bytes END ... */
  4812.   
  4813.   static char *
  4814.   pmatch(lp, ap)
  4815. ***************
  4816. *** 613,622 ****
  4817.   register char *lp;
  4818.   register CHAR *ap;
  4819.   {
  4820.       register char *e;        /* extra pointer for CLO */
  4821.       register char *bp;        /* beginning of subpat.. */
  4822.       register char *ep;        /* ending of subpat..     */
  4823. -     register int op, c, n;
  4824.       char *are;            /* to save the line ptr. */
  4825.   
  4826.       while ((op = *ap++) != END)
  4827. --- 594,603 ----
  4828.   register char *lp;
  4829.   register CHAR *ap;
  4830.   {
  4831. +     register int op, c, n;
  4832.       register char *e;        /* extra pointer for CLO */
  4833.       register char *bp;        /* beginning of subpat.. */
  4834.       register char *ep;        /* ending of subpat..     */
  4835.       char *are;            /* to save the line ptr. */
  4836.   
  4837.       while ((op = *ap++) != END)
  4838. ***************
  4839. *** 624,654 ****
  4840.   
  4841.           case CHR:
  4842.               if (*lp++ != *ap++)
  4843. !                 return(0);
  4844.               break;
  4845.           case ANY:
  4846.               if (!*lp++)
  4847. !                 return(0);
  4848.               break;
  4849.           case CCL:
  4850.               c = *lp++;
  4851.               if (!isinset(ap,c))
  4852. !                 return(0);
  4853.               ap += BITBLK;
  4854.               break;
  4855. -         case NCL:
  4856. -             c = *lp++;
  4857. -             if (isinset(ap,c))
  4858. -                 return(0);
  4859. -             ap += BITBLK;
  4860. -             break;
  4861.           case BOL:
  4862.               if (lp != bol)
  4863. !                 return(0);
  4864.               break;
  4865.           case EOL:
  4866.               if (*lp)
  4867. !                 return(0);
  4868.               break;
  4869.           case BOT:
  4870.               bopat[*ap++] = lp;
  4871. --- 605,629 ----
  4872.   
  4873.           case CHR:
  4874.               if (*lp++ != *ap++)
  4875. !                 return 0;
  4876.               break;
  4877.           case ANY:
  4878.               if (!*lp++)
  4879. !                 return 0;
  4880.               break;
  4881.           case CCL:
  4882.               c = *lp++;
  4883.               if (!isinset(ap,c))
  4884. !                 return 0;
  4885.               ap += BITBLK;
  4886.               break;
  4887.           case BOL:
  4888.               if (lp != bol)
  4889. !                 return 0;
  4890.               break;
  4891.           case EOL:
  4892.               if (*lp)
  4893. !                 return 0;
  4894.               break;
  4895.           case BOT:
  4896.               bopat[*ap++] = lp;
  4897. ***************
  4898. *** 657,669 ****
  4899.               eopat[*ap++] = lp;
  4900.               break;
  4901.            case BOW:
  4902. !             if (!(lp!=bol && iswordc(lp[-1])) && iswordc(*lp))
  4903. !                 break;
  4904. !             return(0);
  4905.           case EOW:
  4906. !             if ((lp!=bol && iswordc(lp[-1])) && !iswordc(*lp))
  4907. !                 break;
  4908. !             return(0);
  4909.           case REF:
  4910.               n = *ap++;
  4911.               bp = bopat[n];
  4912. --- 632,644 ----
  4913.               eopat[*ap++] = lp;
  4914.               break;
  4915.            case BOW:
  4916. !             if (lp!=bol && iswordc(lp[-1]) || !iswordc(*lp))
  4917. !                 return 0;
  4918. !             break;
  4919.           case EOW:
  4920. !             if (lp==bol || !iswordc(lp[-1]) || iswordc(*lp))
  4921. !                 return 0;
  4922. !             break;
  4923.           case REF:
  4924.               n = *ap++;
  4925.               bp = bopat[n];
  4926. ***************
  4927. *** 670,676 ****
  4928.               ep = eopat[n];
  4929.               while (bp < ep)
  4930.                   if (*bp++ != *lp++)
  4931. !                     return(0);
  4932.               break;
  4933.           case CLO:
  4934.               are = lp;
  4935. --- 645,651 ----
  4936.               ep = eopat[n];
  4937.               while (bp < ep)
  4938.                   if (*bp++ != *lp++)
  4939. !                     return 0;
  4940.               break;
  4941.           case CLO:
  4942.               are = lp;
  4943. ***************
  4944. *** 688,701 ****
  4945.                   n = CHRSKIP;
  4946.                   break;
  4947.               case CCL:
  4948. !             case NCL:
  4949. !                 while (*lp && (e = pmatch(lp, ap)))
  4950. !                     lp = e;
  4951.                   n = CCLSKIP;
  4952.                   break;
  4953.               default:
  4954.                   internal_error++;
  4955. !                 return(0);
  4956.               }
  4957.   
  4958.               ap += n;
  4959. --- 663,675 ----
  4960.                   n = CHRSKIP;
  4961.                   break;
  4962.               case CCL:
  4963. !                 while ((c = *lp) && isinset(ap+1,c))
  4964. !                     lp++;
  4965.                   n = CCLSKIP;
  4966.                   break;
  4967.               default:
  4968.                   internal_error++;
  4969. !                 return 0;
  4970.               }
  4971.   
  4972.               ap += n;
  4973. ***************
  4974. *** 702,716 ****
  4975.   
  4976.               while (lp >= are) {
  4977.                   if (e = pmatch(lp, ap))
  4978. !                     return(e);
  4979.                   --lp;
  4980.               }
  4981. !             return(0);
  4982.           default:
  4983.               internal_error++;
  4984. !             return(0);
  4985.           }
  4986. !     return(lp);
  4987.   }
  4988. ! 
  4989. ! 
  4990. --- 676,689 ----
  4991.   
  4992.               while (lp >= are) {
  4993.                   if (e = pmatch(lp, ap))
  4994. !                     return e;
  4995.                   --lp;
  4996.               }
  4997. !             return 0;
  4998.           default:
  4999.               internal_error++;
  5000. !             return 0;
  5001.           }
  5002. !     return lp;
  5003.   }
  5004. ! #endif /* Need regex libraries? Compile to nothing if not.  */
  5005. *** /tmp/release17219/regex.h    Tue Nov 12 16:55:51 1991
  5006. --- regex.h    Mon Oct 21 12:57:03 1991
  5007. ***************
  5008. *** 9,13 ****
  5009. --- 9,20 ----
  5010.    * George Ferguson, ferguson@cs.rochester.edu, 11 Sep 1991.
  5011.    */
  5012.   
  5013. + #ifdef AUX
  5014. + extern char *regcmp();
  5015. + extern char *regex();
  5016. + #define re_comp regcmp
  5017. + #define re_exec regex
  5018. + #else
  5019.   extern char *re_comp();
  5020.   extern int re_exec();
  5021. + #endif
  5022. *** /tmp/release17219/settings.c    Tue Nov 12 16:55:54 1991
  5023. --- settings.c    Tue Oct 22 09:03:25 1991
  5024. ***************
  5025. *** 1,7 ****
  5026.   /*
  5027.    * settings.c : Set program parameters on a popup panel
  5028.    *
  5029. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  5030.    *
  5031.    */
  5032.   #include <stdio.h>
  5033. --- 1,7 ----
  5034.   /*
  5035.    * settings.c : Set program parameters on a popup panel
  5036.    *
  5037. !  * George Ferguson, ferguson@cs.rochester.edu, 22 Oct 1991.
  5038.    *
  5039.    */
  5040.   #include <stdio.h>
  5041. ***************
  5042. *** 17,22 ****
  5043. --- 17,23 ----
  5044.   #include "xarchie.h"
  5045.   #include "types.h"
  5046.   #include "appres.h"
  5047. + #include "rdgram.h"
  5048.   #include "alert.h"
  5049.   #include "confirm.h"
  5050.   
  5051. ***************
  5052. *** 23,29 ****
  5053.   /*
  5054.    * Functions declared in this file
  5055.    */
  5056. ! void settingsAction();
  5057.   void applySettingsAction(),defaultSettingsAction(),doneSettingsAction();
  5058.   void setSearchTypeAction(),setSortTypeAction();
  5059.   void setHostAction(),setNiceLevelAction();
  5060. --- 24,30 ----
  5061.   /*
  5062.    * Functions declared in this file
  5063.    */
  5064. ! void settingsAction(),initSettingsDefaults();
  5065.   void applySettingsAction(),defaultSettingsAction(),doneSettingsAction();
  5066.   void setSearchTypeAction(),setSortTypeAction();
  5067.   void setHostAction(),setNiceLevelAction();
  5068. ***************
  5069. *** 42,48 ****
  5070.   static Widget applyButton;
  5071.   static Widget searchLabel;
  5072.   static Widget sortLabel;
  5073. ! static Widget hostText;
  5074.   static Widget maxHitsText;
  5075.   static Widget timeoutText;
  5076.   static Widget retriesText;
  5077. --- 43,49 ----
  5078.   static Widget applyButton;
  5079.   static Widget searchLabel;
  5080.   static Widget sortLabel;
  5081. ! static Widget setHostText;
  5082.   static Widget maxHitsText;
  5083.   static Widget timeoutText;
  5084.   static Widget retriesText;
  5085. ***************
  5086. *** 49,58 ****
  5087.   static Widget niceText;
  5088.   static Widget ftpDirText,ftpTypeText;
  5089.   
  5090. ! static SearchType currentSearchType;
  5091. ! static SortType currentSortType;
  5092.   static Boolean settingsChanged,isPoppedUp;
  5093.   
  5094.   #define ACTION_PROC(NAME)    void NAME(w,event,params,num_params) \
  5095.                       Widget w; \
  5096.                       XEvent *event; \
  5097. --- 50,62 ----
  5098.   static Widget niceText;
  5099.   static Widget ftpDirText,ftpTypeText;
  5100.   
  5101. ! static SearchType currentSearchType,defSearchType;
  5102. ! static SortType currentSortType,defSortType;
  5103. ! static char *defArchieHost,*defFtpDir,*defFtpType;
  5104. ! static int defMaxHits,defTimeout,defRetries,defNiceLevel;
  5105.   static Boolean settingsChanged,isPoppedUp;
  5106.   
  5107. + 
  5108.   #define ACTION_PROC(NAME)    void NAME(w,event,params,num_params) \
  5109.                       Widget w; \
  5110.                       XEvent *event; \
  5111. ***************
  5112. *** 69,76 ****
  5113.   /*ARGSUSED*/
  5114.   ACTION_PROC(settingsAction)
  5115.   {
  5116. !     if (settingsShell == NULL)
  5117.       initSettingsShell();
  5118.       if (isPoppedUp) {
  5119.       XRaiseWindow(display,XtWindow(settingsShell));
  5120.       } else {
  5121. --- 73,82 ----
  5122.   /*ARGSUSED*/
  5123.   ACTION_PROC(settingsAction)
  5124.   {
  5125. !     if (settingsShell == NULL) {
  5126.       initSettingsShell();
  5127. +     initSettingsDefaults();
  5128. +     }
  5129.       if (isPoppedUp) {
  5130.       XRaiseWindow(display,XtWindow(settingsShell));
  5131.       } else {
  5132. ***************
  5133. *** 97,103 ****
  5134.       applyButton = XtNameToWidget(toplevel,"settingsShell*applyButton");
  5135.       searchLabel = XtNameToWidget(toplevel,"settingsShell*searchLabel");
  5136.       sortLabel = XtNameToWidget(toplevel,"settingsShell*sortLabel");
  5137. !     hostText = XtNameToWidget(toplevel,"settingsShell*hostText");
  5138.       maxHitsText = XtNameToWidget(toplevel,"settingsShell*maxHitsText");
  5139.       timeoutText = XtNameToWidget(toplevel,"settingsShell*timeoutText");
  5140.       retriesText = XtNameToWidget(toplevel,"settingsShell*retriesText");
  5141. --- 103,109 ----
  5142.       applyButton = XtNameToWidget(toplevel,"settingsShell*applyButton");
  5143.       searchLabel = XtNameToWidget(toplevel,"settingsShell*searchLabel");
  5144.       sortLabel = XtNameToWidget(toplevel,"settingsShell*sortLabel");
  5145. !     setHostText = XtNameToWidget(toplevel,"settingsShell*setHostText");
  5146.       maxHitsText = XtNameToWidget(toplevel,"settingsShell*maxHitsText");
  5147.       timeoutText = XtNameToWidget(toplevel,"settingsShell*timeoutText");
  5148.       retriesText = XtNameToWidget(toplevel,"settingsShell*retriesText");
  5149. ***************
  5150. *** 105,111 ****
  5151.       ftpDirText = XtNameToWidget(toplevel,"settingsShell*ftpDirText");
  5152.       ftpTypeText = XtNameToWidget(toplevel,"settingsShell*ftpTypeText");
  5153.       /* add event handler for detecting changes */
  5154. !     addTextEventHandler(hostText);
  5155.       addTextEventHandler(maxHitsText);
  5156.       addTextEventHandler(timeoutText);
  5157.       addTextEventHandler(retriesText);
  5158. --- 111,117 ----
  5159.       ftpDirText = XtNameToWidget(toplevel,"settingsShell*ftpDirText");
  5160.       ftpTypeText = XtNameToWidget(toplevel,"settingsShell*ftpTypeText");
  5161.       /* add event handler for detecting changes */
  5162. !     addTextEventHandler(setHostText);
  5163.       addTextEventHandler(maxHitsText);
  5164.       addTextEventHandler(timeoutText);
  5165.       addTextEventHandler(retriesText);
  5166. ***************
  5167. *** 125,130 ****
  5168. --- 131,155 ----
  5169.   
  5170.   /*    -    -    -    -    -    -    -    -    */
  5171.   /*
  5172. +  * initSettingsDefaults() : Stores away the values of the application
  5173. +  *    resources at startup for use by the default-settings() action.
  5174. +  */
  5175. + void
  5176. + initSettingsDefaults()
  5177. + {
  5178. +     defSearchType = appResources.searchType;
  5179. +     defSortType = appResources.sortType;
  5180. +     defArchieHost = XtNewString(appResources.archieHost);
  5181. +     defMaxHits = appResources.maxHits;
  5182. +     defTimeout = appResources.timeout;
  5183. +     defRetries = appResources.retries;
  5184. +     defNiceLevel = appResources.niceLevel;
  5185. +     defFtpDir = XtNewString(appResources.ftpDir);
  5186. +     defFtpType = XtNewString(appResources.ftpType);
  5187. + }
  5188. + 
  5189. + /*    -    -    -    -    -    -    -    -    */
  5190. + /*
  5191.    * initSettingsItems() : Sets the values in the settings editor from the
  5192.    *    current state of the application resources.
  5193.    */
  5194. ***************
  5195. *** 135,144 ****
  5196.   
  5197.       setCurrentSearchType(appResources.searchType);
  5198.       setCurrentSortType(appResources.sortType);
  5199. !     setText(hostText,appResources.archieHost);
  5200.       sprintf(buf,"%d",appResources.maxHits);
  5201.       setText(maxHitsText,buf);
  5202. -     setText(hostText,appResources.archieHost);
  5203.       sprintf(buf,"%d",appResources.timeout);
  5204.       setText(timeoutText,buf);
  5205.       sprintf(buf,"%d",appResources.retries);
  5206. --- 160,168 ----
  5207.   
  5208.       setCurrentSearchType(appResources.searchType);
  5209.       setCurrentSortType(appResources.sortType);
  5210. !     setText(setHostText,appResources.archieHost);
  5211.       sprintf(buf,"%d",appResources.maxHits);
  5212.       setText(maxHitsText,buf);
  5213.       sprintf(buf,"%d",appResources.timeout);
  5214.       setText(timeoutText,buf);
  5215.       sprintf(buf,"%d",appResources.retries);
  5216. ***************
  5217. *** 166,174 ****
  5218.   
  5219.       appResources.searchType = currentSearchType;
  5220.       appResources.sortType = currentSortType;
  5221. !     if (hostText != NULL) {
  5222.       XtSetArg(args[0],XtNstring,&s);
  5223. !     XtGetValues(hostText,args,ONE);
  5224.       if (strcmp(appResources.archieHost,s) != 0)
  5225.           appResources.archieHost = XtNewString(s); /* memory leak */
  5226.       }
  5227. --- 190,198 ----
  5228.   
  5229.       appResources.searchType = currentSearchType;
  5230.       appResources.sortType = currentSortType;
  5231. !     if (setHostText != NULL) {
  5232.       XtSetArg(args[0],XtNstring,&s);
  5233. !     XtGetValues(setHostText,args,ONE);
  5234.       if (strcmp(appResources.archieHost,s) != 0)
  5235.           appResources.archieHost = XtNewString(s); /* memory leak */
  5236.       }
  5237. ***************
  5238. *** 191,200 ****
  5239.       XtSetArg(args[0],XtNstring,&s);
  5240.       XtGetValues(niceText,args,ONE);
  5241.       n = atoi(s);
  5242. !     if (n < -32765)        /* leave -32766 to -32768 alone */
  5243. !         n = -32765;
  5244. !     else if (n > 32767)
  5245. !         n = 32767;
  5246.       appResources.niceLevel = n;
  5247.       }
  5248.       if (ftpDirText != NULL) {
  5249. --- 215,224 ----
  5250.       XtSetArg(args[0],XtNstring,&s);
  5251.       XtGetValues(niceText,args,ONE);
  5252.       n = atoi(s);
  5253. !     if (n < RDGRAM_MIN_PRI)        /* leave -32766 to -32768 alone */
  5254. !         n = RDGRAM_MIN_PRI;
  5255. !     else if (n > RDGRAM_MAX_SPRI)
  5256. !         n = RDGRAM_MAX_PRI;
  5257.       appResources.niceLevel = n;
  5258.       }
  5259.       if (ftpDirText != NULL) {
  5260. ***************
  5261. *** 219,233 ****
  5262.   /*ARGSUSED*/
  5263.   ACTION_PROC(defaultSettingsAction)
  5264.   {
  5265. !     setCurrentSearchType(GfExact);
  5266. !     setCurrentSortType(GfDefault);
  5267. !     setText(hostText,"archie.mcgill.ca");
  5268. !     setText(maxHitsText,"99");
  5269. !     setText(timeoutText,"4");
  5270. !     setText(retriesText,"3");
  5271. !     setText(niceText,"0");
  5272. !     setText(ftpDirText,".");
  5273. !     setText(ftpTypeText,"binary");
  5274.       setChangedFlag(True);
  5275.   }
  5276.   
  5277. --- 243,263 ----
  5278.   /*ARGSUSED*/
  5279.   ACTION_PROC(defaultSettingsAction)
  5280.   {
  5281. !     char buf[8];
  5282. ! 
  5283. !     setCurrentSearchType(defSearchType);
  5284. !     setCurrentSortType(defSortType);
  5285. !     setText(setHostText,defArchieHost);
  5286. !     sprintf(buf,"%d",defMaxHits);
  5287. !     setText(maxHitsText,buf);
  5288. !     sprintf(buf,"%d",defTimeout);
  5289. !     setText(timeoutText,buf);
  5290. !     sprintf(buf,"%d",defRetries);
  5291. !     setText(retriesText,buf);
  5292. !     sprintf(buf,"%d",defNiceLevel);
  5293. !     setText(niceText,buf);
  5294. !     setText(ftpDirText,defFtpDir);
  5295. !     setText(ftpTypeText,defFtpType);
  5296.       setChangedFlag(True);
  5297.   }
  5298.   
  5299. ***************
  5300. *** 295,305 ****
  5301.       alert0("Incorrect number of arguments to set-host()");
  5302.       return;
  5303.       }
  5304. !     if (hostText == NULL) {
  5305. !     alert0("set-host() has no effect since hostText was not created");
  5306.       return;
  5307.       }
  5308. !     setText(hostText,*params);
  5309.       setChangedFlag(True);
  5310.   }
  5311.   
  5312. --- 325,335 ----
  5313.       alert0("Incorrect number of arguments to set-host()");
  5314.       return;
  5315.       }
  5316. !     if (setHostText == NULL) {
  5317. !     alert0("set-host() has no effect since setHostText was not created");
  5318.       return;
  5319.       }
  5320. !     setText(setHostText,*params);
  5321.       setChangedFlag(True);
  5322.   }
  5323.   
  5324. ***************
  5325. *** 309,314 ****
  5326. --- 339,345 ----
  5327.   /*ARGSUSED*/
  5328.   ACTION_PROC(setNiceLevelAction)
  5329.   {
  5330. +     char buf[8];
  5331.       int n;
  5332.   
  5333.       if (*num_params != ONE) {
  5334. ***************
  5335. *** 320,331 ****
  5336.       return;
  5337.       }
  5338.       n = atoi(*params);
  5339. !     if (n < -32765) {
  5340.       alert1("Nice level too negative: %d",n);
  5341. !     setText(niceText,"-32765");
  5342. !     } else if (n > 32767) {
  5343.       alert1("Nice level too positive: %d",n);
  5344. !     setText(niceText,"32767");
  5345.       } else {
  5346.       setText(niceText,*params);
  5347.       }
  5348. --- 351,364 ----
  5349.       return;
  5350.       }
  5351.       n = atoi(*params);
  5352. !     if (n < RDGRAM_MIN_PRI) {
  5353.       alert1("Nice level too negative: %d",n);
  5354. !     sprintf(buf,"%d",RDGRAM_MIN_PRI);
  5355. !     setText(niceText,buf);
  5356. !     } else if (n > RDGRAM_MAX_PRI) {
  5357.       alert1("Nice level too positive: %d",n);
  5358. !     sprintf(buf,"%d",RDGRAM_MAX_PRI);
  5359. !     setText(niceText,buf);
  5360.       } else {
  5361.       setText(niceText,*params);
  5362.       }
  5363. ***************
  5364. *** 396,402 ****
  5365.       /* Memory leak */
  5366.       appResources.archieHost = XtNewString(*params);
  5367.       status1("Set host to %s",*params);
  5368. !     setText(hostText,*params);
  5369.   }
  5370.   
  5371.   /*ARGSUSED*/
  5372. --- 429,435 ----
  5373.       /* Memory leak */
  5374.       appResources.archieHost = XtNewString(*params);
  5375.       status1("Set host to %s",*params);
  5376. !     setText(setHostText,*params);
  5377.   }
  5378.   
  5379.   /*ARGSUSED*/
  5380. ***************
  5381. *** 409,417 ****
  5382.       return;
  5383.       }
  5384.       n = atoi(*params);
  5385. !     if (n < -32765) {
  5386.       alert1("Nice level too negative: %d -- not set",n);
  5387. !     } else if (n > 32767) {
  5388.       alert1("Nice level too positive: %d -- not set",n);
  5389.       } else {
  5390.       appResources.niceLevel = n;
  5391. --- 442,450 ----
  5392.       return;
  5393.       }
  5394.       n = atoi(*params);
  5395. !     if (n < RDGRAM_MIN_PRI) {
  5396.       alert1("Nice level too negative: %d -- not set",n);
  5397. !     } else if (n > RDGRAM_MAX_PRI) {
  5398.       alert1("Nice level too positive: %d -- not set",n);
  5399.       } else {
  5400.       appResources.niceLevel = n;
  5401. *** /tmp/release17219/settings.h    Tue Nov 12 16:55:59 1991
  5402. --- settings.h    Tue Oct 22 08:17:11 1991
  5403. ***************
  5404. *** 1,7 ****
  5405.   /*
  5406.    * settings.h : External defs for the settings panel
  5407.    *
  5408. !  * George Ferguson, ferguson@cs.rochester.edu, 4 Sep 1991.
  5409.    *
  5410.    */
  5411.   
  5412. --- 1,7 ----
  5413.   /*
  5414.    * settings.h : External defs for the settings panel
  5415.    *
  5416. !  * George Ferguson, ferguson@cs.rochester.edu, 22 Oct 1991.
  5417.    *
  5418.    */
  5419.   
  5420. ***************
  5421. *** 8,14 ****
  5422.   #ifndef SETTINGS_H
  5423.   #define SETTINGS_H
  5424.   
  5425. ! extern void settingsAction();
  5426.   extern void applySettingsAction();
  5427.   extern void defaultSettingsAction();
  5428.   extern void doneSettingsAction();
  5429. --- 8,14 ----
  5430.   #ifndef SETTINGS_H
  5431.   #define SETTINGS_H
  5432.   
  5433. ! extern void settingsAction(),initSettingsDefaults();
  5434.   extern void applySettingsAction();
  5435.   extern void defaultSettingsAction();
  5436.   extern void doneSettingsAction();
  5437. *** /tmp/release17219/stcopy.c    Tue Nov 12 16:56:02 1991
  5438. --- stcopy.c    Sat Nov  2 16:49:08 1991
  5439. ***************
  5440. *** 3,13 ****
  5441.    *
  5442.    * For copying and distribution information, please see the file
  5443.    * <copyright.h>.
  5444.    */
  5445.   
  5446.   #include <copyright.h>
  5447.   #include <stdio.h>
  5448. ! #include <strings.h>
  5449.   
  5450.   char    *stcopyr();
  5451.   
  5452. --- 3,19 ----
  5453.    *
  5454.    * For copying and distribution information, please see the file
  5455.    * <copyright.h>.
  5456. +  *
  5457. +  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  5458.    */
  5459.   
  5460.   #include <copyright.h>
  5461.   #include <stdio.h>
  5462. ! #if defined(USG) || defined(UTS) || defined(_AIX)
  5463. ! # include <string.h>
  5464. ! #else
  5465. ! # include <strings.h>
  5466. ! #endif
  5467.   
  5468.   char    *stcopyr();
  5469.   
  5470. ***************
  5471. *** 29,35 ****
  5472.         if (!st) return(NULL);
  5473.         if (string_max < ++string_count) string_max = string_count;
  5474.   
  5475. !       return strcpy(malloc(strlen(st) + 1), st);
  5476.       }
  5477.   
  5478.   /*
  5479. --- 35,41 ----
  5480.         if (!st) return(NULL);
  5481.         if (string_max < ++string_count) string_max = string_count;
  5482.   
  5483. !       return strcpy((char *)malloc(strlen(st) + 1), st);
  5484.       }
  5485.   
  5486.   /*
  5487. ***************
  5488. *** 81,86 ****
  5489. --- 87,93 ----
  5490.    *     STFREE takes a string that was returned by stcopy or stalloc 
  5491.    *     and frees the space that was allocated for the string.
  5492.    */
  5493. + void
  5494.   stfree(st)
  5495.       char *st;
  5496.       {
  5497. *** /tmp/release17219/support.c    Tue Nov 12 16:56:06 1991
  5498. --- support.c    Sat Nov  2 16:49:17 1991
  5499. ***************
  5500. *** 4,10 ****
  5501.    * For copying and distribution information, please see the file
  5502.    * <copyright.h>.
  5503.    *
  5504. !  * gf: 12 Sep 1991: Changed in include regex.h rather than regex.c
  5505.    */
  5506.   
  5507.   /*
  5508. --- 4,12 ----
  5509.    * For copying and distribution information, please see the file
  5510.    * <copyright.h>.
  5511.    *
  5512. !  * v1.2.1 - 09/23/91 (gf)  - made it use regex.h---much nicer
  5513. !  * v1.2.0 - 09/17/91 (bpk) - added BULL & USG stuff, thanks to Jim Sillas
  5514. !  * v1.1.1 - 08/30/91 (bpk) - added VMS support; cast index()
  5515.    */
  5516.   
  5517.   /*
  5518. ***************
  5519. *** 13,27 ****
  5520.   
  5521.   #include <copyright.h>
  5522.   #include <stdio.h>
  5523. ! #include <strings.h>
  5524.   #include <errno.h>
  5525. - #include <netdb.h>
  5526.   
  5527. ! #ifdef AUX
  5528. ! #include <sys/types.h>
  5529. ! #endif
  5530. ! #include <sys/file.h>
  5531. ! #include <sys/param.h>
  5532.   
  5533.   #include <pfs.h>
  5534.   #include <pprot.h>
  5535. --- 15,41 ----
  5536.   
  5537.   #include <copyright.h>
  5538.   #include <stdio.h>
  5539. ! #if defined(USG) || defined(UTS) || defined(_AIX)
  5540. ! # include <string.h>
  5541. ! #else
  5542. ! # include <strings.h>
  5543. ! #endif
  5544. ! 
  5545.   #include <errno.h>
  5546.   
  5547. ! #ifdef VMS
  5548. ! # ifdef WALLONGONG
  5549. ! #  include "twg$tcp:[netdist.include]netdb.h"
  5550. ! # else /* Multinet */
  5551. ! #  include "multinet_root:[multinet.include]netdb.h"
  5552. ! # endif
  5553. ! # include <vms.h>
  5554. ! #else /* not VMS */
  5555. ! # include <netdb.h>
  5556. ! # include <sys/types.h>
  5557. ! # include <sys/file.h>
  5558. ! # include <sys/param.h>
  5559. ! #endif /* VMS */
  5560.   
  5561.   #include <pfs.h>
  5562.   #include <pprot.h>
  5563. ***************
  5564. *** 30,45 ****
  5565.   #include <pauthent.h>
  5566.   #include <pmachine.h>
  5567.   
  5568.   int    pfs_enable = PMAP_ATSIGN;
  5569. - char    p_err_string[P_ERR_STRING_SZ];
  5570.   
  5571.   #ifndef FALSE
  5572. ! #define TRUE     1
  5573. ! #define FALSE   0
  5574.   #endif
  5575.   
  5576. - #include "regex.h"
  5577. - 
  5578.   /* 
  5579.    * wcmatch - Match string s against template containing widlcards
  5580.    *
  5581. --- 44,58 ----
  5582.   #include <pauthent.h>
  5583.   #include <pmachine.h>
  5584.   
  5585. + #include "regex.h"
  5586. + 
  5587.   int    pfs_enable = PMAP_ATSIGN;
  5588.   
  5589.   #ifndef FALSE
  5590. ! # define TRUE     1
  5591. ! # define FALSE   0
  5592.   #endif
  5593.   
  5594.   /* 
  5595.    * wcmatch - Match string s against template containing widlcards
  5596.    *
  5597. ***************
  5598. *** 55,60 ****
  5599. --- 68,74 ----
  5600.    *    NOTE:  If template is NULL, will return TRUE.
  5601.    *
  5602.    */
  5603. + int
  5604.   wcmatch(s,template)
  5605.       char    *s;
  5606.       char    *template;
  5607. ***************
  5608. *** 81,87 ****
  5609. --- 95,107 ----
  5610.   
  5611.       if(re_comp(temp)) return(FALSE);
  5612.   
  5613. + #ifdef AUX
  5614. +     if (re_exec(s) == (char *)NULL)
  5615. +       return 0;
  5616. +     return 1;
  5617. + #else
  5618.       return(re_exec(s));
  5619. + #endif
  5620.       }
  5621.   
  5622.   /*
  5623. ***************
  5624. *** 105,110 ****
  5625. --- 125,131 ----
  5626.    *
  5627.    * RETURNS:    Success, or UL_INSERT_ALREADY_THERE or UL_INSERT_SUPERSEDING
  5628.    */
  5629. + int
  5630.   ul_insert(ul,vd,p)
  5631.       VLINK    ul;        /* Link to be inserted                   */
  5632.       VDIR    vd;        /* Directory to receive link             */
  5633. ***************
  5634. *** 204,209 ****
  5635. --- 225,231 ----
  5636.    *
  5637.    * RETURNS:    Success, or VL_INSERT_ALREADY_THERE
  5638.    */
  5639. + int
  5640.   vl_insert(vl,vd,allow_conflict)
  5641.       VLINK    vl;        /* Link to be inserted               */
  5642.       VDIR    vd;        /* Directory to receive link         */
  5643. ***************
  5644. *** 331,337 ****
  5645.           return(curline);
  5646.   
  5647.       /* Check remaining lines of s1 */
  5648. !     while((curline = index(curline,'\n')) != NULL) {
  5649.           curline++;
  5650.           if(strncmp(curline,s2,s2len) == 0)
  5651.           return(curline);
  5652. --- 353,359 ----
  5653.           return(curline);
  5654.   
  5655.       /* Check remaining lines of s1 */
  5656. !     while((curline = (char *) index(curline,'\n')) != NULL) {
  5657.           curline++;
  5658.           if(strncmp(curline,s2,s2len) == 0)
  5659.           return(curline);
  5660. ***************
  5661. *** 384,390 ****
  5662.       char    *s = s1;    /* Temp pointer to string  */
  5663.   
  5664.       /* Check for first character of s2 */
  5665. !     while((s = index(s,*s2)) != NULL) {
  5666.           if(strncmp(s,s2,s2len) == 0)
  5667.           return(s);
  5668.           s++;
  5669. --- 406,412 ----
  5670.       char    *s = s1;    /* Temp pointer to string  */
  5671.   
  5672.       /* Check for first character of s2 */
  5673. !     while((s = (char *) index(s,*s2)) != NULL) {
  5674.           if(strncmp(s,s2,s2len) == 0)
  5675.           return(s);
  5676.           s++;
  5677. ***************
  5678. *** 394,399 ****
  5679. --- 416,422 ----
  5680.       return(NULL);
  5681.       }
  5682.   
  5683. + int
  5684.   scan_error(erst)
  5685.       char    *erst;
  5686.       {
  5687. ***************
  5688. *** 402,444 ****
  5689.       if(strncmp(erst,"NOT-A-DIRECTORY",15) == 0) 
  5690.           return(DIRSRV_NOT_DIRECTORY);
  5691.   
  5692.       /* The rest start with "FAILURE" */
  5693.   
  5694. !     if(strncmp(erst,"FAILURE",7) != 0) 
  5695. !         return(DIRSRV_BAD_FORMAT);
  5696. ! 
  5697. !     if(strncmp(erst,"FAILURE ",8) != 0) 
  5698. !         return(PFAILURE);
  5699. ! 
  5700.       erst += 8;
  5701. - 
  5702. -     sscanf(erst, "%*s %[^\n]", p_err_string);
  5703.       
  5704.       /* Still to add               */
  5705.       /* DIRSRV_AUTHENT_REQ     242 */
  5706.       /* DIRSRV_BAD_VERS        245 */
  5707.   
  5708.       if(strncmp(erst,"NOT-FOUND",9) == 0) 
  5709. !         return(DIRSRV_NOT_FOUND);
  5710.   
  5711. !     if(strncmp(erst,"NOT-AUTHORIZED",13) == 0) 
  5712. !         return(DIRSRV_NOT_AUTHORIZED);
  5713. ! 
  5714. !     if(strncmp(erst,"ALREADY-EXISTS",14) == 0) 
  5715. !         return(DIRSRV_ALREADY_EXISTS);
  5716. ! 
  5717. !     if(strncmp(erst,"NAME-CONFLICT",13) == 0) 
  5718. !         return(DIRSRV_NAME_CONFLICT);
  5719. ! 
  5720. !     if(strncmp(erst,"SERVER-FAILED",13) == 0) 
  5721. !         return(DIRSRV_SERVER_FAILED);
  5722. ! 
  5723. !  
  5724. !     /* Use it whether it starts with FAILURE or not */
  5725. !     if(strncmp(erst,"NOT-A-DIRECTORY",15) == 0) 
  5726. !         return(DIRSRV_NOT_DIRECTORY);
  5727. ! 
  5728. !     return(PFAILURE);
  5729.       }
  5730.   
  5731.   PATTRIB 
  5732. --- 425,497 ----
  5733.       if(strncmp(erst,"NOT-A-DIRECTORY",15) == 0) 
  5734.           return(DIRSRV_NOT_DIRECTORY);
  5735.   
  5736. +     if(strncmp(erst,"UNIMPLEMENTED",13) == 0) {
  5737. +         perrno = DIRSRV_UNIMPLEMENTED;
  5738. +         sscanf(erst+13,"%*[^\n \t\r]%*[ \t]%[^\n]",p_err_string);
  5739. +         return(perrno);
  5740. +     }
  5741. + 
  5742. +     if(strncmp(erst,"WARNING ",8) == 0) {
  5743. +         erst += 8;
  5744. +         *p_warn_string = '\0';
  5745. +         sscanf(erst,"%*[^\n \t\r]%*[ \t]%[^\n]",p_warn_string);
  5746. +         /* Return values for warnings are negative */
  5747. +         if(strncmp(erst,"OUT-OF-DATE",11) == 0) {
  5748. +         pwarn = PWARN_OUT_OF_DATE;
  5749. +         return(PSUCCESS);
  5750. +         }
  5751. +         if(strncmp(erst,"MESSAGE",7) == 0) {
  5752. +         pwarn = PWARN_MSG_FROM_SERVER;
  5753. +         return(PSUCCESS);
  5754. +         }
  5755. +         pwarn = PWARNING;
  5756. +         sscanf(erst,"%[^\n]",p_warn_string);
  5757. +         return(PSUCCESS);
  5758. +     }
  5759. +     else if(strncmp(erst,"ERROR",5) == 0) {
  5760. +         if(*(erst+5)) sscanf(erst+6,"%[^\n]",p_err_string);
  5761. +         perrno = DIRSRV_ERROR;
  5762. +         return(perrno);
  5763. +     }
  5764.       /* The rest start with "FAILURE" */
  5765. +     else if(strncmp(erst,"FAILURE",7) != 0) {
  5766. +         /* Unrecognized - Give warning, but return PSUCCESS */
  5767. +         if(pwarn == 0) {
  5768. +         *p_warn_string = '\0';
  5769. +         pwarn = PWARN_UNRECOGNIZED_RESP;
  5770. +         sscanf(erst,"%[^\n]",p_warn_string);
  5771. +         }
  5772. +         return(PSUCCESS);
  5773. +     }
  5774.   
  5775. !     if(strncmp(erst,"FAILURE ",8) != 0) {
  5776. !         perrno = PFAILURE;
  5777. !         return(perrno);
  5778. !     }    
  5779.       erst += 8;
  5780.       
  5781. +     sscanf(erst,"%*[^\n \t\r]%*[ \t]%[^\n]",p_err_string);
  5782. + 
  5783.       /* Still to add               */
  5784.       /* DIRSRV_AUTHENT_REQ     242 */
  5785.       /* DIRSRV_BAD_VERS        245 */
  5786.   
  5787.       if(strncmp(erst,"NOT-FOUND",9) == 0) 
  5788. !         perrno = DIRSRV_NOT_FOUND;
  5789. !     else if(strncmp(erst,"NOT-AUTHORIZED",13) == 0) 
  5790. !         perrno = DIRSRV_NOT_AUTHORIZED;
  5791. !     else if(strncmp(erst,"ALREADY-EXISTS",14) == 0) 
  5792. !         perrno = DIRSRV_ALREADY_EXISTS;
  5793. !     else if(strncmp(erst,"NAME-CONFLICT",13) == 0) 
  5794. !         perrno = DIRSRV_NAME_CONFLICT;
  5795. !     else if(strncmp(erst,"SERVER-FAILED",13) == 0) 
  5796. !         perrno = DIRSRV_SERVER_FAILED;
  5797. !      /* Use it whether it starts with FAILURE or not */
  5798. !     else if(strncmp(erst,"NOT-A-DIRECTORY",15) == 0) 
  5799. !         perrno = DIRSRV_NOT_DIRECTORY;
  5800. !     else perrno = PFAILURE;
  5801.   
  5802. !     return(perrno);
  5803.       }
  5804.   
  5805.   PATTRIB 
  5806. ***************
  5807. *** 529,535 ****
  5808.   nxtline(s)
  5809.       char    *s;        /* String to be searched */
  5810.    {
  5811. !     s = index(s,'\n');
  5812.       if(s) return(++s);
  5813.       else return(NULL);
  5814.       }
  5815. --- 582,588 ----
  5816.   nxtline(s)
  5817.       char    *s;        /* String to be searched */
  5818.    {
  5819. !     s = (char *) index(s,'\n');
  5820.       if(s) return(++s);
  5821.       else return(NULL);
  5822.       }
  5823. *** /dev/null    Tue Nov 12 16:30:11 1991
  5824. --- udp.c    Sat Nov  2 13:54:45 1991
  5825. ***************
  5826. *** 0 ****
  5827. --- 1,81 ----
  5828. + /*
  5829. +  * udp - Check if UDP traffic is allowed on this host; we open port 1527 on
  5830. +  *       a system (default of cs.widener.edu), which is expecting it; the
  5831. +  *       date is output (e.g. very similar to the daytime service).  This
  5832. +  *       will conclusively tell us if UDP traffic on ports > 1000 is allowed.
  5833. +  *
  5834. +  *    It should print out the date if UDP traffic's not blocked on your
  5835. +  *    system.  If it just hangs, try these tests too:
  5836. +  *      a. run it with -d  (e.g. "udp -d"); that goes to the normal UDP port
  5837. +  *         to print the date.  If it works, then you can be sure that any
  5838. +  *         UDP traffic > port 1000 is blocked on your system.
  5839. +  *      b. if it hangs too, try "telnet 147.31.254.130 13" and see if
  5840. +  *         _that_ prints the date; if it doesn't, it's another problem (your
  5841. +  *         network can't get to me, e.g.).
  5842. +  *
  5843. +  * Compile by: cc -o udp udp.c
  5844. +  *
  5845. +  * Brendan Kehoe, brendan@cs.widener.edu, Oct 1991.
  5846. +  */
  5847. + 
  5848. + #include <stdio.h>
  5849. + #include <sys/types.h>
  5850. + #include <sys/socket.h>
  5851. + #include <netinet/in.h>
  5852. + #include <arpa/inet.h>
  5853. + 
  5854. + #define    SIZE    2048
  5855. + #define    HOST    "147.31.254.130"    /* cs.widener.edu */
  5856. + #define PORT    1527
  5857. + 
  5858. + main (argc, argv)
  5859. +      int argc;
  5860. +      char **argv;
  5861. + {
  5862. +   int s, len;
  5863. +   struct sockaddr_in server, sa;
  5864. +   char buf[SIZE];
  5865. + 
  5866. +   if ((s = socket (AF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0)
  5867. +     {
  5868. +       perror ("socket()");
  5869. +       exit (1);
  5870. +     }
  5871. + 
  5872. +   bzero ((char *) &sa, sizeof (sa));
  5873. +   sa.sin_family = AF_INET;
  5874. +   sa.sin_addr.s_addr = htonl (INADDR_ANY);
  5875. +   sa.sin_port = htons (0);
  5876. + 
  5877. +   if (bind (s, (struct sockaddr *) &sa, sizeof (sa)) < 0)
  5878. +     {
  5879. +       perror ("bind()");
  5880. +       exit (1);
  5881. +     }
  5882. + 
  5883. +   bzero ((char *) &server, sizeof (server));
  5884. +   server.sin_family = AF_INET;
  5885. +   server.sin_addr.s_addr = inet_addr (HOST);
  5886. +   if (argc > 1 && strcmp(*(argv + 1), "-d") == 0)
  5887. +     server.sin_port = htons ((unsigned short) 13);
  5888. +   else
  5889. +     server.sin_port = htons ((unsigned short) PORT);
  5890. + 
  5891. +   /* yoo hoo, we're here .. */
  5892. +   if (sendto (s, "\n", 1, 0, &server, sizeof (server)) < 0)
  5893. +     {
  5894. +       perror ("sendto()");
  5895. +       exit (1);
  5896. +     }
  5897. + 
  5898. +   /* slurp */
  5899. +   len = sizeof (server);
  5900. +   if (recvfrom (s, buf, sizeof (buf), 0, &server, &len) < 0)
  5901. +     {
  5902. +       perror ("recvfrom");
  5903. +       exit (1);
  5904. +     }
  5905. + 
  5906. +   printf ("%s", buf);
  5907. +   close (s);
  5908. + }
  5909. *** /tmp/release17219/vl_comp.c    Tue Nov 12 16:56:18 1991
  5910. --- vl_comp.c    Mon Oct 21 12:57:51 1991
  5911. ***************
  5912. *** 24,29 ****
  5913. --- 24,30 ----
  5914.    *           native filenametype, native filename.  The only time
  5915.    *           the name will not exist if if the link is a union link.
  5916.    */
  5917. + int
  5918.   vl_comp(vl1,vl2)
  5919.       VLINK    vl1;
  5920.       VLINK    vl2;
  5921. ***************
  5922. *** 53,58 ****
  5923. --- 54,60 ----
  5924.    * RETURNS:  1 if equal, 0 if not equal
  5925.    *
  5926.    */
  5927. + int
  5928.   vl_equal(vl1,vl2)
  5929.       VLINK    vl1;
  5930.       VLINK    vl2;
  5931. *** /tmp/release17219/vlalloc.c    Tue Nov 12 16:56:21 1991
  5932. --- vlalloc.c    Mon Oct 21 12:58:05 1991
  5933. ***************
  5934. *** 57,62 ****
  5935. --- 57,63 ----
  5936.    *    VLFREE takes a pointer to a VLINK structure and adds it to
  5937.    *    the free list for later reuse.
  5938.    */
  5939. + void
  5940.   vlfree(vl)
  5941.       VLINK    vl;
  5942.       {
  5943. ***************
  5944. *** 92,97 ****
  5945. --- 93,99 ----
  5946.    *    VLINK structures.  It is used to free an entrie list of VLINK
  5947.    *    structures.
  5948.    */
  5949. + void
  5950.   vllfree(vl)
  5951.       VLINK    vl;
  5952.       {
  5953. *** /tmp/release17219/xarchie.c    Tue Nov 12 16:56:25 1991
  5954. --- xarchie.c    Tue Nov 12 12:50:32 1991
  5955. ***************
  5956. *** 10,16 ****
  5957.    * Finally, it provides the generic setText(), setLabel(), and status*()
  5958.    * routines which could go just about anywhere.
  5959.    *
  5960. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  5961.    *
  5962.    */
  5963.   #include <stdio.h>
  5964. --- 10,16 ----
  5965.    * Finally, it provides the generic setText(), setLabel(), and status*()
  5966.    * routines which could go just about anywhere.
  5967.    *
  5968. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  5969.    *
  5970.    */
  5971.   #include <stdio.h>
  5972. ***************
  5973. *** 33,38 ****
  5974. --- 33,39 ----
  5975.   #include "classnames.h"
  5976.   #include "db.h"
  5977.   #include "actions.h"
  5978. + #include "settings.h"
  5979.   #include "patchlevel.h"
  5980.   
  5981.   /*    -    -    -    -    -    -    -    -    */
  5982. ***************
  5983. *** 40,46 ****
  5984.    * Functions defined in this file:
  5985.    */
  5986.   int main();
  5987. - void doPendingEvents();
  5988.   void initWidgetsFromString();
  5989.   void displayHostInfo(), clearHostInfo();
  5990.   void displayLocationInfo(), clearLocationInfo();
  5991. --- 41,46 ----
  5992. ***************
  5993. *** 49,55 ****
  5994.   void status0(), status1(), status2();
  5995.   void fail0(), fail1();
  5996.   
  5997. ! static void initGraphics(), initWidgets();
  5998.   static void selectItem();
  5999.   static void syntax();
  6000.   
  6001. --- 49,55 ----
  6002.   void status0(), status1(), status2();
  6003.   void fail0(), fail1();
  6004.   
  6005. ! static void initGraphics(), initWidgets(), initErrorHandlers();
  6006.   static void selectItem();
  6007.   static void syntax();
  6008.   
  6009. ***************
  6010. *** 67,72 ****
  6011. --- 67,73 ----
  6012.   Widget toplevel;
  6013.   Widget hostList,locationList,fileList;
  6014.   Widget searchText;
  6015. + Widget queryButton,abortButton;        /* global since changes sensitivity */
  6016.   
  6017.   static Widget statusText;
  6018.   static Widget hostText,locationText,fileText,sizeText,modesText,dateText;
  6019. ***************
  6020. *** 88,99 ****
  6021.   static XtResource resources[] = {
  6022.       { "widgets", "Widgets", XtRString, sizeof(String),
  6023.         XtOffset(AppResources *,widgets), XtRImmediate, "" },
  6024.       { "searchType", "SearchType", GfRSearchType, sizeof(SearchType),
  6025.         XtOffset(AppResources *,searchType), XtRImmediate, (XtPointer)GfExact },
  6026.       { "sortType", "SortType", GfRSortType, sizeof(SortType),
  6027.         XtOffset(AppResources *,sortType), XtRImmediate, (XtPointer)GfDefault },
  6028.       { "archieHost", "ArchieHost", XtRString, sizeof(String),
  6029. !       XtOffset(AppResources *,archieHost), XtRImmediate, "archie.mcgill.ca" },
  6030.       { "maxHits", "MaxHits", XtRInt, sizeof(int),
  6031.         XtOffset(AppResources *,maxHits), XtRImmediate, (XtPointer)99 },
  6032.       { "offset", "Offset", XtRInt, sizeof(int),
  6033. --- 89,102 ----
  6034.   static XtResource resources[] = {
  6035.       { "widgets", "Widgets", XtRString, sizeof(String),
  6036.         XtOffset(AppResources *,widgets), XtRImmediate, "" },
  6037. +     { "menus", "Menus", XtRString, sizeof(String),
  6038. +       XtOffset(AppResources *,menus), XtRImmediate, "" },
  6039.       { "searchType", "SearchType", GfRSearchType, sizeof(SearchType),
  6040.         XtOffset(AppResources *,searchType), XtRImmediate, (XtPointer)GfExact },
  6041.       { "sortType", "SortType", GfRSortType, sizeof(SortType),
  6042.         XtOffset(AppResources *,sortType), XtRImmediate, (XtPointer)GfDefault },
  6043.       { "archieHost", "ArchieHost", XtRString, sizeof(String),
  6044. !       XtOffset(AppResources *,archieHost), XtRImmediate, "archie.sura.net" },
  6045.       { "maxHits", "MaxHits", XtRInt, sizeof(int),
  6046.         XtOffset(AppResources *,maxHits), XtRImmediate, (XtPointer)99 },
  6047.       { "offset", "Offset", XtRInt, sizeof(int),
  6048. ***************
  6049. *** 112,117 ****
  6050. --- 115,125 ----
  6051.         XtOffset(AppResources *,debugLevel), XtRImmediate, (XtPointer)0 },
  6052.       { "settingsWidgets", "SettingsWidgets", XtRString, sizeof(String),
  6053.         XtOffset(AppResources *,settingsWidgets), XtRImmediate, "" },
  6054. +     { "saveFormatOneLine", "SaveFormatOneLine", XtRBoolean, sizeof(Boolean),
  6055. +       XtOffset(AppResources *,saveFormatOneLine), XtRImmediate,
  6056. +                             (XtPointer)False },
  6057. +     { "expert", "Expert", XtRBoolean, sizeof(Boolean),
  6058. +       XtOffset(AppResources *,expert), XtRImmediate, (XtPointer)False },
  6059.   };
  6060.   
  6061.   /*
  6062. ***************
  6063. *** 129,141 ****
  6064.       { "-sort",    ".sortType",     XrmoptionSepArg, (XtPointer)"default" },
  6065.       { "-t",      ".sortType",     XrmoptionNoArg,  (XtPointer)"invdate" },
  6066.       { "-host",      ".archieHost", XrmoptionSepArg,
  6067. !                     (XtPointer)"archie.mcgill.ca" },
  6068.       { "-maxhits", ".maxHits",     XrmoptionSepArg, (XtPointer)"99" },
  6069.       { "-offset",  ".offset",     XrmoptionSepArg, (XtPointer)"0" },
  6070.       { "-nice",    ".niceLevel",     XrmoptionSepArg, (XtPointer)"0" },
  6071.       { "-N",       ".niceLevel",     XrmoptionSepArg, (XtPointer)"0" },
  6072. !     { "-debug",      ".debugLevel", XrmoptionNoArg,  (XtPointer)"1" },
  6073.       { "-D",      ".debugLevel", XrmoptionSepArg, (XtPointer)"1" },
  6074.   };
  6075.   
  6076.   /*
  6077. --- 137,150 ----
  6078.       { "-sort",    ".sortType",     XrmoptionSepArg, (XtPointer)"default" },
  6079.       { "-t",      ".sortType",     XrmoptionNoArg,  (XtPointer)"invdate" },
  6080.       { "-host",      ".archieHost", XrmoptionSepArg,
  6081. !                     (XtPointer)"archie.sura.net" },
  6082.       { "-maxhits", ".maxHits",     XrmoptionSepArg, (XtPointer)"99" },
  6083.       { "-offset",  ".offset",     XrmoptionSepArg, (XtPointer)"0" },
  6084.       { "-nice",    ".niceLevel",     XrmoptionSepArg, (XtPointer)"0" },
  6085.       { "-N",       ".niceLevel",     XrmoptionSepArg, (XtPointer)"0" },
  6086. !     { "-debug",      ".debugLevel", XrmoptionSepArg, (XtPointer)"1" },
  6087.       { "-D",      ".debugLevel", XrmoptionSepArg, (XtPointer)"1" },
  6088. +     { "-expert",  ".expert",     XrmoptionNoArg,  (XtPointer)"True" },
  6089.   };
  6090.   
  6091.   /*
  6092. ***************
  6093. *** 156,162 ****
  6094.   int argc;
  6095.   char **argv;
  6096.   {
  6097. !     char buf[32];
  6098.   
  6099.       progname = argv[0];
  6100.       initGraphics(&argc,argv);
  6101. --- 165,171 ----
  6102.   int argc;
  6103.   char **argv;
  6104.   {
  6105. !     char buf[64];
  6106.   
  6107.       progname = argv[0];
  6108.       initGraphics(&argc,argv);
  6109. ***************
  6110. *** 165,177 ****
  6111.       XtDestroyApplicationContext(appContext);
  6112.       exit(1);
  6113.       }
  6114.       initWidgets();
  6115.       XtRealizeWidget(toplevel);
  6116.       /* Set window title to indicate version */
  6117. !     sprintf(buf,"xarchie %d.%d",xarchieMajorVersion,xarchieMinorVersion);
  6118.       XStoreName(display,XtWindow(toplevel),buf);
  6119. !     sprintf(buf,"Welcome to xarchie %d.%d",xarchieMajorVersion,
  6120. !                             xarchieMinorVersion);
  6121.       status0(buf);
  6122.       /* get the data structure for responses */
  6123.       db = newDb();
  6124. --- 174,191 ----
  6125.       XtDestroyApplicationContext(appContext);
  6126.       exit(1);
  6127.       }
  6128. +     initErrorHandlers();
  6129. +     initSettingsDefaults();
  6130.       initWidgets();
  6131.       XtRealizeWidget(toplevel);
  6132.       /* Set window title to indicate version */
  6133. !     sprintf(buf,"xarchie %d.%d%s",xarchieMajorVersion,
  6134. !                   xarchieMinorVersion,
  6135. !                   xarchieExtraVersion);
  6136.       XStoreName(display,XtWindow(toplevel),buf);
  6137. !     sprintf(buf,"Welcome to xarchie %d.%d%s",xarchieMajorVersion,
  6138. !                          xarchieMinorVersion,
  6139. !                          xarchieExtraVersion);
  6140.       status0(buf);
  6141.       /* get the data structure for responses */
  6142.       db = newDb();
  6143. ***************
  6144. *** 180,191 ****
  6145.       /*NOTREACHED*/
  6146.   }
  6147.   
  6148. ! void
  6149. ! doPendingEvents()
  6150. ! {
  6151. !     while (XtAppPending(appContext))
  6152. !     XtAppProcessEvent(appContext,XtIMAll);
  6153. ! }
  6154.   
  6155.   static void
  6156.   initGraphics(argcp,argv)
  6157. --- 194,201 ----
  6158.       /*NOTREACHED*/
  6159.   }
  6160.   
  6161. ! /*    -    -    -    -    -    -    -    -    */
  6162. ! /* Initialization routines */
  6163.   
  6164.   static void
  6165.   initGraphics(argcp,argv)
  6166. ***************
  6167. *** 230,235 ****
  6168. --- 240,249 ----
  6169.       sizeText = XtNameToWidget(toplevel,"*sizeText");
  6170.       modesText = XtNameToWidget(toplevel,"*modesText");
  6171.       dateText = XtNameToWidget(toplevel,"*dateText");
  6172. +     queryButton = XtNameToWidget(toplevel,"*queryButton");
  6173. +     abortButton = XtNameToWidget(toplevel,"*abortButton");
  6174. +     if (abortButton != NULL)
  6175. +     XtSetSensitive(abortButton,False);
  6176.       /* make the lists behave like a browser should */
  6177.       XtAddCallback(hostList,XtNcallback,selectItem,(XtPointer)1);
  6178.       XtAddCallback(locationList,XtNcallback,selectItem,(XtPointer)2);
  6179. ***************
  6180. *** 238,243 ****
  6181. --- 252,259 ----
  6182.       clearList(hostList);
  6183.       clearList(locationList);
  6184.       clearList(fileList);
  6185. +     /* Some people crash when the EzMenu's are created earlier (puke-ola) */
  6186. +     initWidgetsFromString(appResources.menus,".menus");
  6187.   }
  6188.   
  6189.   #define ISSPACE(c)    ((c) == ' ' || (c) == '\t' || (c) == '\n')
  6190. ***************
  6191. *** 308,313 ****
  6192. --- 324,376 ----
  6193.   }
  6194.   
  6195.   /*    -    -    -    -    -    -    -    -    */
  6196. + /* The following functions attempt to provide information in the event of
  6197. +  * a crash. If you have trouble compiling them because of UNIX-isms in
  6198. +  * the signal handlers, then add -DDONT_CATCH_ERRORS to the definition
  6199. +  * of DEFINES in the Imakefile and re-make (or just #define it here).
  6200. +  */
  6201. + #ifndef DONT_CATCH_ERRORS
  6202. + static void crashHandler();
  6203. + #endif /* DONT_CATCH_ERRORS */
  6204. + 
  6205. + static void
  6206. + initErrorHandlers()
  6207. + {
  6208. + #ifndef DONT_CATCH_ERRORS
  6209. +     signal(SIGBUS,crashHandler);
  6210. +     signal(SIGSEGV,crashHandler);
  6211. + #endif /* DONT_CATCH_ERRORS */
  6212. + }
  6213. + 
  6214. + #ifndef DONT_CATCH_ERRORS
  6215. + static void
  6216. + crashHandler(sig)
  6217. + int sig;
  6218. + {
  6219. +     char *s;
  6220. + 
  6221. +     switch (sig) {
  6222. +     case SIGBUS: s = "SIGBUS"; break;
  6223. +     case SIGSEGV: s = "SIGSEGV"; break;
  6224. +     default: s = "UNKNOWN";
  6225. +     }
  6226. +     fprintf(stderr,"%s: caught a %s signal!\n",progname,s);
  6227. +     fprintf(stderr,"If a backtrace (using dbx or gdb or something) shows that the crash is\n");
  6228. +     fprintf(stderr,"is occurring in XtNameToWidget() or something similar, then before\n");
  6229. +     fprintf(stderr,"reporting an error, please check that your X distribution is up to date.\n");
  6230. +     fprintf(stderr,"Xarchie may not run under versions of X that are not at least X11R4\n");
  6231. +     fprintf(stderr,"with all fixes applied. Your copy of \".../include/X11/Intrinsic.h\"\n");
  6232. +     fprintf(stderr,"should have XConsortium revision number at least 1.139.\n");
  6233. +     fprintf(stderr,"If you still want to report an error, please indicate your hardware type,\n");
  6234. +     fprintf(stderr,"operating system, compiler, and your version of X and include a\n");
  6235. +     fprintf(stderr,"backtrace. Thanks.\n");
  6236. +     abort();
  6237. + }
  6238. + 
  6239. + #endif /* DONT_CATCH_ERRORS */
  6240. + 
  6241. + /*    -    -    -    -    -    -    -    -    */
  6242. + 
  6243.   /* Callback procedures */
  6244.   
  6245.   /*ARGSUSED*/
  6246. ***************
  6247. *** 412,418 ****
  6248.       }
  6249.       if (modesText != NULL)
  6250.       setText(modesText,filep->modes);
  6251. !     if (sizeText != NULL)
  6252.       setText(dateText,filep->date);
  6253.   }
  6254.   
  6255. --- 475,481 ----
  6256.       }
  6257.       if (modesText != NULL)
  6258.       setText(modesText,filep->modes);
  6259. !     if (dateText != NULL)
  6260.       setText(dateText,filep->date);
  6261.   }
  6262.   
  6263. ***************
  6264. *** 470,476 ****
  6265.   {
  6266.       if (statusText != NULL)
  6267.       setText(statusText,str);
  6268. -     doPendingEvents();
  6269.   }
  6270.   
  6271.   void
  6272. --- 533,538 ----
  6273. *** /tmp/release17219/xarchie.h    Tue Nov 12 16:56:29 1991
  6274. --- xarchie.h    Tue Nov 12 12:50:45 1991
  6275. ***************
  6276. *** 1,7 ****
  6277.   /*
  6278.    * xarchie.h : Definitions of the X globals and misc. functions
  6279.    *
  6280. !  * George Ferguson, ferguson@cs.rochester.edu, 4 Sep 1991.
  6281.    *
  6282.    */
  6283.   
  6284. --- 1,7 ----
  6285.   /*
  6286.    * xarchie.h : Definitions of the X globals and misc. functions
  6287.    *
  6288. !  * George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  6289.    *
  6290.    */
  6291.   
  6292. ***************
  6293. *** 16,23 ****
  6294.   extern Widget toplevel;
  6295.   extern Widget hostList,locationList,fileList;
  6296.   extern Widget searchText;
  6297.   
  6298. - extern void doPendingEvents();
  6299.   extern void initWidgetsFromString();
  6300.   extern void displayHostInfo(), clearHostInfo();
  6301.   extern void displayLocationInfo(), clearLocationInfo();
  6302. --- 16,23 ----
  6303.   extern Widget toplevel;
  6304.   extern Widget hostList,locationList,fileList;
  6305.   extern Widget searchText;
  6306. + extern Widget queryButton,abortButton;
  6307.   
  6308.   extern void initWidgetsFromString();
  6309.   extern void displayHostInfo(), clearHostInfo();
  6310.   extern void displayLocationInfo(), clearLocationInfo();
  6311. *** /tmp/release17219/xarchie.man    Tue Nov 12 16:56:33 1991
  6312. --- xarchie.man    Tue Nov 12 12:51:08 1991
  6313. ***************
  6314. *** 1,9 ****
  6315.   .\"
  6316.   .\" xarchie : X11 browser interface to archie
  6317.   .\"
  6318. ! .\" George Ferguson, ferguson@cs.rochester.edu, 12 Sep 1991.
  6319.   .\"
  6320. ! .TH XARCHIE 1 "12 Sep 1991"
  6321.   .ds ]W U of Rochester
  6322.   .SH NAME
  6323.   xarchie \- X11 browser interface to archie
  6324. --- 1,9 ----
  6325.   .\"
  6326.   .\" xarchie : X11 browser interface to archie
  6327.   .\"
  6328. ! .\" George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  6329.   .\"
  6330. ! .TH XARCHIE 1 "12 Nov 1991"
  6331.   .ds ]W U of Rochester
  6332.   .SH NAME
  6333.   xarchie \- X11 browser interface to archie
  6334. ***************
  6335. *** 20,25 ****
  6336. --- 20,26 ----
  6337.   [\-offset\ num]
  6338.   [\-nice lev\ |\ \-N\ lev]
  6339.   [\-debug\ num\ |\ \-D\ num]
  6340. + [\-expert ]
  6341.   [\-help\ |\ -?]
  6342.   .in -8n
  6343.   .ad
  6344. ***************
  6345. *** 60,65 ****
  6346. --- 61,77 ----
  6347.   itself, write to archie-l@cs.mcgill.ca. If you have questions about
  6348.   .IR Prospero ,
  6349.   write to info-prospero@isi.edu.
  6350. + .PP
  6351. + When reporting bugs, problems, suggestions or contributions, please
  6352. + be sure to send them to the right place. Issues dealing with the X
  6353. + interface should be sent to George Ferguson (ferguson@cs.rochester.edu).
  6354. + Brendan Kehoe (brendan@cs.widener.edu) is charge of the archie clients
  6355. + and the network stuff underlying
  6356. + .IR xarchie ,
  6357. + Cliff Neuman (bcn@isi.edu) is in charge of Prospero, and Alan Emtage
  6358. + (bajan@cs.mcgill.edu) and the others are in charge of the
  6359. + .I Archie
  6360. + service itself.
  6361.   .SH USAGE
  6362.   .PP
  6363.   This section describes how to use
  6364. ***************
  6365. *** 72,80 ****
  6366.   .IR Xarchie 's
  6367.   display is divided into three horizontal areas. The top pane is a
  6368.   control panel. The "Quit" button exits
  6369. ! .IR xarchie ,
  6370.   the "Query" button sends your search term (see below) to
  6371.   .IR Archie ,
  6372.   and the "Settings" button pops up a panel from which you can change
  6373.   various parameters of your queries. The buttons labelled "Search
  6374.   Type", "Sort Type", and "Nice Level" allow you to modify aspects of
  6375. --- 84,96 ----
  6376.   .IR Xarchie 's
  6377.   display is divided into three horizontal areas. The top pane is a
  6378.   control panel. The "Quit" button exits
  6379. ! .IR xarchie
  6380. ! after prompting for confirmation (but see the
  6381. ! .B \-expert
  6382. ! option, below, or use Shift while clicking),
  6383.   the "Query" button sends your search term (see below) to
  6384.   .IR Archie ,
  6385. + the "Abort" button allows to you to abort a long-running query,
  6386.   and the "Settings" button pops up a panel from which you can change
  6387.   various parameters of your queries. The buttons labelled "Search
  6388.   Type", "Sort Type", and "Nice Level" allow you to modify aspects of
  6389. ***************
  6390. *** 81,87 ****
  6391.   your search without using the Settings panel. Their use is described
  6392.   below under "The Settings Panel".  The area labelled "Status" is
  6393.   updated to reflect the progress of your query when one is progress.
  6394. ! The "Ftp" button is described below under "Retrieving Files".
  6395.   .SH "Querying"
  6396.   .PP
  6397.   You enter your "search term" (the string or expression you want to
  6398. --- 97,104 ----
  6399.   your search without using the Settings panel. Their use is described
  6400.   below under "The Settings Panel".  The area labelled "Status" is
  6401.   updated to reflect the progress of your query when one is progress.
  6402. ! The "Save" and "Ftp" buttons are described below under "Retrieving
  6403. ! Files".
  6404.   .SH "Querying"
  6405.   .PP
  6406.   You enter your "search term" (the string or expression you want to
  6407. ***************
  6408. *** 94,99 ****
  6409. --- 111,124 ----
  6410.   Entries matching your search term will be displayed in middle pane of
  6411.   .IR xarchie 's
  6412.   display, which functions as a host-location-file browser.
  6413. + .PP
  6414. + If you find that your query is taking too long, you can abort it by
  6415. + clicking on the "Abort" button when it is sensitive. Your query will
  6416. + be aborted as soon as possible. You should note that while aborting a
  6417. + query will allow you to enter a new query, it does not currently
  6418. + remove the query from the server's queue. Thus aborting queries does
  6419. + not reduce the load on the server -- just the opposite probably. Use
  6420. + with discretion, like the rest of the service.
  6421.   .SH "The Browser"
  6422.   .PP
  6423.   The left-hand pane of the browser contains the names of hosts that have a
  6424. ***************
  6425. *** 122,130 ****
  6426.   pane lets you retrieve the file currently selected in the browser by
  6427.   anonymous ftp. This service is presently quite rudimentary. You must
  6428.   have selected a host, location, and file in the browser, and the
  6429. ! selection must not be a directory. The file is retrieved to the
  6430. ! current directory using binary mode. This functionality will be
  6431. ! improved in the near future.
  6432.   .SH "The Settings Panel"
  6433.   .PP
  6434.   The panel popped up by clicking on the "Settings" button in the top
  6435. --- 147,171 ----
  6436.   pane lets you retrieve the file currently selected in the browser by
  6437.   anonymous ftp. This service is presently quite rudimentary. You must
  6438.   have selected a host, location, and file in the browser, and the
  6439. ! selection must not be a directory. The destination directory and mode
  6440. ! of the file transfer can be set on the Settings panel, described below.
  6441. ! This functionality will be improved in the near future.
  6442. ! .PP
  6443. ! To allow you to save the results of a query for later use, the button
  6444. ! labelled "Save" in the top pane causes
  6445. ! .I xarchie
  6446. ! to write a file containing the information currently displayed in the
  6447. ! browser. Clicking on this button prompts for the filename to save to,
  6448. ! then writes the file.  When clicked on with "Shift" held down, it uses
  6449. ! the current search term with ".lst" appended.  The format of the
  6450. ! output file is controlled by the
  6451. ! .B saveFormatOneLine
  6452. ! resource, and the operation is actually performed by the
  6453. ! .B save-to-file()
  6454. ! action. Both of these are described below. Judicious use of "Save"
  6455. ! will obviously help reduce the load on the
  6456. ! .I Archie
  6457. ! servers.
  6458.   .SH "The Settings Panel"
  6459.   .PP
  6460.   The panel popped up by clicking on the "Settings" button in the top
  6461. ***************
  6462. *** 171,182 ****
  6463.   .PP
  6464.   Clicking on the "Apply" button will apply the settings on the panel to
  6465.   .IR xarchie .
  6466. ! Clicking on "Default" will reset the settings to their default values
  6467. ! (but note that you will still have to apply them to have them take
  6468. ! effect). Clicking on "Done" closes the Settings panel. A popup
  6469. ! confirmer will appear if you did not apply your changes, allowing you
  6470. ! to discard the changes or go back and apply them. Note that the
  6471. ! "Apply" button is inactive until a change is made.
  6472.   .PP
  6473.   The menus available from the "Search Type", "Sort Type", and "Nice
  6474.   Level" buttons on the
  6475. --- 212,225 ----
  6476.   .PP
  6477.   Clicking on the "Apply" button will apply the settings on the panel to
  6478.   .IR xarchie .
  6479. ! Clicking on "Default" will reset the settings to the values they had
  6480. ! when
  6481. ! .I xarchie
  6482. ! started (but note that you will still have to apply them to have
  6483. ! them take effect). Clicking on "Done" closes the Settings panel. A
  6484. ! popup confirmer will appear if you did not apply your changes,
  6485. ! allowing you to discard the changes or go back and apply them. Note
  6486. ! that the "Apply" button is inactive until a change is made.
  6487.   .PP
  6488.   The menus available from the "Search Type", "Sort Type", and "Nice
  6489.   Level" buttons on the
  6490. ***************
  6491. *** 298,303 ****
  6492. --- 341,353 ----
  6493.   flag. This option corresponds to the
  6494.   .B debugLevel
  6495.   resource.
  6496. + .IP "\fB-expert\fP"
  6497. + Tells
  6498. + .I xarchie
  6499. + not to confirm operations like quitting. This option corresponds to
  6500. + the
  6501. + .B expert
  6502. + resource.
  6503.   .IP "\fB-help\fP or \fB-?\fP"
  6504.   Prints the usage message summarizing
  6505.   .I xarchie
  6506. ***************
  6507. *** 389,394 ****
  6508. --- 439,451 ----
  6509.   or
  6510.   .B \-D
  6511.   options.
  6512. + .IP "\fBexpert\fP"
  6513. + Tells
  6514. + .I xarchie
  6515. + not to confirm operations like quitting. This resource can be set with
  6516. + the
  6517. + .B \-expert
  6518. + option.
  6519.   .IP "\fBtimeout\fP"
  6520.   Sets the initial timeout value, in seconds. The default is 4. This
  6521.   resource can be set on the Settings panel.
  6522. ***************
  6523. *** 407,412 ****
  6524. --- 464,480 ----
  6525.   action will use the "type" command to set the transfer type before
  6526.   retrieving the file.
  6527.   This resource can be set on the Settings panel.
  6528. + .IP "\fBsaveFormatOneLine\fP"
  6529. + If True, then the file written by the
  6530. + .B save-to-file()
  6531. + action will have one line per entry, in the format
  6532. + .ce
  6533. + mode size date host:location/file
  6534. + If False (the default), then the file format has hostnames starting at
  6535. + the start of the line, location names indented one tab, and file
  6536. + entries indented two tabs, all on separate lines. Hostnames and
  6537. + locations are only printed once.  The latter is more readable, the
  6538. + former may be more useful if the output is to be used by a program.
  6539.   .IP "\fBwidgets\fP"
  6540.   Specifies the widget hierarchy, as described below. This should be a
  6541.   whitespace-separated list of
  6542. ***************
  6543. *** 416,421 ****
  6544. --- 484,498 ----
  6545.   .I xarchie
  6546.   will fail with an error message if they are not. These are described
  6547.   in the next section.
  6548. + .IP "\fBmenus\fP"
  6549. + Due to problems with some versions of X, widgets of class EzMenu
  6550. + must be created separately from the others. Thus any entries that
  6551. + would normally go in the
  6552. + .B widgets
  6553. + resource with class EzMenu must instead be listed here. The format is
  6554. + the same as for the
  6555. + .B widgets
  6556. + resource.
  6557.   .IP "\fBsettingsWidgets\fP"
  6558.   Specifies the widget hierarchy for the popup settings pane. These
  6559.   widgets are not created until they are needed. The format is the same
  6560. ***************
  6561. *** 441,449 ****
  6562.           Paned outerPaned
  6563.               Form buttonForm
  6564.                   Command quitButton,queryButton
  6565. !                 Command ftpButton,searchButton
  6566. !                 Command sortButton,niceButton
  6567. !                 Command settingsButton
  6568.                   Label,AsciiText status{Label,Text}
  6569.               Paned innerPaned
  6570.                   Viewport hostView
  6571. --- 518,527 ----
  6572.           Paned outerPaned
  6573.               Form buttonForm
  6574.                   Command quitButton,queryButton
  6575. !                 Command abortButton
  6576. !                 Command saveButton,ftpButton
  6577. !                 Command searchButton,sortButton
  6578. !                 Command niceButton,settingButton
  6579.                   Label,AsciiText status{Label,Text}
  6580.               Paned innerPaned
  6581.                   Viewport hostView
  6582. ***************
  6583. *** 491,496 ****
  6584. --- 569,589 ----
  6585.   off to
  6586.   .I archie .
  6587.   The
  6588. + .I abortButton
  6589. + invokes the
  6590. + .B abort()
  6591. + action to interrupt the current query. (Note that
  6592. + .I xarchie
  6593. + looks for a widget with this name to sensitize and desensitize, so if
  6594. + you want the button be active only during queries, be sure to create it
  6595. + with this name.)
  6596. + The
  6597. + .I saveButton
  6598. + widget invokes the
  6599. + .B save-to-file()
  6600. + action which writes the currently displayed results to a file.
  6601. + Without "Shift", it prompts for the filename. With "Shift" it uses the
  6602. + current search term with ".lst" appended.  The
  6603.   .I ftpButton
  6604.   invokes the
  6605.   .B ftp()
  6606. ***************
  6607. *** 633,641 ****
  6608.   "-now" forms of these actions (see below), thereby removing the need
  6609.   to "Apply" the changes.
  6610.   .PP
  6611. ! Finally, two types of popup windows can appear. An Alert box signals
  6612. ! an error and blocks until clicked in; a Confirm box allows the user to
  6613. ! make a Yes/No decision. These have widget hierarchies
  6614.   
  6615.   .na
  6616.   .nf
  6617. --- 726,735 ----
  6618.   "-now" forms of these actions (see below), thereby removing the need
  6619.   to "Apply" the changes.
  6620.   .PP
  6621. ! Finally, three types of popup windows can appear. An Alert box signals
  6622. ! an error and blocks until clicked in, a Confirm box allows the user to
  6623. ! make a Yes/No decision, and a Dialog box allows the user to enter a
  6624. ! string. These have widget hierarchies:
  6625.   
  6626.   .na
  6627.   .nf
  6628. ***************
  6629. *** 642,655 ****
  6630.       TransientShell alertShell
  6631.           Dialog alertDialog
  6632.               Command okButton
  6633. ! .fi
  6634. ! .ad
  6635. ! and
  6636. ! .na
  6637. ! .nf
  6638.       TransientShell confirmShell
  6639.           Dialog confirmDialog
  6640.               Command yesButton,noButton
  6641.   .fi
  6642.   .ad
  6643.   respectively.
  6644. --- 736,749 ----
  6645.       TransientShell alertShell
  6646.           Dialog alertDialog
  6647.               Command okButton
  6648. ! 
  6649.       TransientShell confirmShell
  6650.           Dialog confirmDialog
  6651.               Command yesButton,noButton
  6652. + 
  6653. +     TransientShell dialogShell
  6654. +         Dialog dialogDialog
  6655. +             Command okButton,cancelButton
  6656.   .fi
  6657.   .ad
  6658.   respectively.
  6659. ***************
  6660. *** 667,674 ****
  6661.   .IP \fBquit()\fP
  6662.   Exit
  6663.   .IR xarchie .
  6664. ! By default this is performed by clicking on the "Quit" button
  6665. ! (\fIquitButton\fP).
  6666.   .IP \fBquery()\fP
  6667.   Send the current contents of the "Search Term" text widget
  6668.   (\fIsearchText\fP) to
  6669. --- 761,772 ----
  6670.   .IP \fBquit()\fP
  6671.   Exit
  6672.   .IR xarchie .
  6673. ! Prompts for confirmation unless either an argument is passed to the
  6674. ! action procedure or the
  6675. ! .B expert
  6676. ! resource is True. By default this is called without arguments by
  6677. ! clicking on the "Quit" button (\fIquitButton\fP), and is called with
  6678. ! an argument to force exit if Shift-"Quit" is used.
  6679.   .IP \fBquery()\fP
  6680.   Send the current contents of the "Search Term" text widget
  6681.   (\fIsearchText\fP) to
  6682. ***************
  6683. *** 675,680 ****
  6684. --- 773,791 ----
  6685.   .IR xarchie .
  6686.   By default this is performed by clicking on the "Query" button
  6687.   (\fIqueryButton\fP).
  6688. + .IP \fBabort()\fP
  6689. + Aborts the current query at the soonest possible time. Has no effect
  6690. + is a query is not currently being processed. By default, this is
  6691. + performed by clicking on the "Abort" button (\fIabortButton\fP).
  6692. + .IP \fBsave-to-file()\fP
  6693. + Writes a file containing the information displayed in the browser.
  6694. + With no arguments, this action prompts for the filename to write to.
  6695. + With one argument, the argument is passed to
  6696. + .IR sprintf (3)
  6697. + together with the current search term to form the filename. By
  6698. + default, the "Save" button invokes \fBsave-to-file()\fP to prompt for
  6699. + the filename and Shift-"Save" invokes
  6700. + \fBsave-to-file(\fP"%s.lst"\fB)\fP.
  6701.   .IP \fBftp()\fP
  6702.   Attempts to fetch the currently selected file by anonymous ftp. It is
  6703.   currently an error if a file is not selected, and the selected file
  6704. ***************
  6705. *** 728,733 ****
  6706. --- 839,862 ----
  6707.   .IP \fBset-nice-level-now()\fP
  6708.   Sets the niceLevel immediately without waiting for
  6709.   .BR apply\-settings() .
  6710. + .PP
  6711. + \fBalert-ok()\fP
  6712. + .br
  6713. + \fBconfirm-yes()\fP
  6714. + .br
  6715. + \fBconfirm-no()\fP
  6716. + .br
  6717. + \fBdialog-ok()\fP
  6718. + .br
  6719. + \fBdialog-cancel()\fP
  6720. + .in +\n(INu
  6721. + These actions are registered for use with the Alert, Confirm, and
  6722. + Dialog popups.  Registering them for widgets that are not popups will
  6723. + at best have no effect.  These actions are invoked by default by the
  6724. + buttons on the popups.  As well, by default pressing Return in a
  6725. + Dialog popup's "value" sub-widget (where the value is entered) invokes
  6726. + \fBdialog-ok()\fP.
  6727. + .in
  6728.   .SH ENVIRONMENT
  6729.   .PP
  6730.   XAPPLRESDIR    - Directory containing
  6731. ***************
  6732. *** 791,794 ****
  6733.   The
  6734.   .I archie
  6735.   service was conceived of and implemented by Alan Emtage
  6736. ! (bajan@cs.mcgill.ca) and Peter Deutsch (peterd@expresso.cc.mcgill.ca).
  6737. --- 920,925 ----
  6738.   The
  6739.   .I archie
  6740.   service was conceived of and implemented by Alan Emtage
  6741. ! (bajan@cs.mcgill.ca), Peter Deutsch (peterd@expresso.cc.mcgill.ca),
  6742. ! and Bill Heelan (wheelan@cs.mcgill.ca).
  6743. ! 
  6744.