home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume20 / xarchie / part05 < prev    next >
Encoding:
Text File  |  1993-06-14  |  50.4 KB  |  1,862 lines
  1. Newsgroups: comp.sources.x
  2. From: ferguson@cs.rochester.edu (George Ferguson)
  3. Subject: v20i033:  xarchie - An X browser interface to Archie, v2.0.6, Part05/24
  4. Message-ID: <1993Jun15.223210.29837@sparky.imd.sterling.com>
  5. X-Md4-Signature: 03efa96246e74383a54d6b5f22c443e7
  6. Sender: chris@sparky.imd.sterling.com (Chris Olson)
  7. Organization: Sterling Software
  8. Date: Tue, 15 Jun 1993 22:32:10 GMT
  9. Approved: chris@sparky.imd.sterling.com
  10.  
  11. Submitted-by: ferguson@cs.rochester.edu (George Ferguson)
  12. Posting-number: Volume 20, Issue 33
  13. Archive-name: xarchie/part05
  14. Environment: X11
  15. Supersedes: xarchie: Volume 14, Issue 82-90
  16.  
  17. Submitted-by: ferguson@cs.rochester.edu
  18. Archive-name: xarchie-2.0.6/part05
  19.  
  20. #!/bin/sh
  21. # this is Part.05 (part 5 of xarchie-2.0.6)
  22. # do not concatenate these parts, unpack them in order with /bin/sh
  23. # file xarchie-2.0.6/Xarchie.ad.h continued
  24. #
  25. if test ! -r _shar_seq_.tmp; then
  26.     echo 'Please unpack part 1 first!'
  27.     exit 1
  28. fi
  29. (read Scheck
  30.  if test "$Scheck" != 5; then
  31.     echo Please unpack part "$Scheck" next!
  32.     exit 1
  33.  else
  34.     exit 0
  35.  fi
  36. ) < _shar_seq_.tmp || exit 1
  37. if test ! -f _shar_wnt_.tmp; then
  38.     echo 'x - still skipping xarchie-2.0.6/Xarchie.ad.h'
  39. else
  40. echo 'x - continuing file xarchie-2.0.6/Xarchie.ad.h'
  41. sed 's/^X//' << 'SHAR_EOF' >> 'xarchie-2.0.6/Xarchie.ad.h' &&
  42. "Xarchie.gray*Dialog*background:            gray90",
  43. "Xarchie.gray*Dialog*Command.background:        gray50",
  44. "Xarchie.gray*statusText*background:        gray55",
  45. "Xarchie.gray*viewSaveLabelText*background:    gray55",
  46. "Xarchie.gray*browserForm.background:        gray90",
  47. "Xarchie.gray*browserForm*Command.background:    gray90",
  48. "Xarchie.gray*browserForm*Paned*background:    gray90",
  49. "Xarchie.gray*List*background:            gray90",
  50. "Xarchie.gray*XfwfMultiList*highlightBackground:    gray20",
  51. "Xarchie.gray*XfwfMultiList*highlightForeground:    white",
  52. "Xarchie.gray*stringForm*Text*background:    gray80",
  53. "Xarchie.gray*stringForm*searchText*background:    gray80",
  54. "Xarchie.gray*helpForm*List.background:        gray90",
  55. "Xarchie.gray*helpForm*Text*background:        gray90",
  56. "Xarchie.gray*ftpTraceText*background:        gray55",
  57. SHAR_EOF
  58. echo 'File xarchie-2.0.6/Xarchie.ad.h is complete' &&
  59. chmod 0644 xarchie-2.0.6/Xarchie.ad.h ||
  60. echo 'restore of xarchie-2.0.6/Xarchie.ad.h failed'
  61. Wc_c="`wc -c < 'xarchie-2.0.6/Xarchie.ad.h'`"
  62. test 32017 -eq "$Wc_c" ||
  63.     echo 'xarchie-2.0.6/Xarchie.ad.h: original size 32017, current size' "$Wc_c"
  64. rm -f _shar_wnt_.tmp
  65. fi
  66. # ============= xarchie-2.0.6/about.c ==============
  67. if test -f 'xarchie-2.0.6/about.c' -a X"$1" != X"-c"; then
  68.     echo 'x - skipping xarchie-2.0.6/about.c (File already exists)'
  69.     rm -f _shar_wnt_.tmp
  70. else
  71. > _shar_wnt_.tmp
  72. echo 'x - extracting xarchie-2.0.6/about.c (Text)'
  73. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/about.c' &&
  74. /*
  75. X * about.c : The "About xarchie" panel, with goofy display
  76. X *
  77. X * George Ferguson, ferguson@cs.rochester.edu, 23 Apr 1993.
  78. X *
  79. X * If either HAVE_RANDOM or HAVE_RAND are defined (config.h), the display
  80. X * is animated randomly, otherwise it just sits there.
  81. X * 13 May 1993: Fixed array bound error in popupAboutPanel().
  82. X *        Changed the way the version info is printed.
  83. X *        Changed style of animation (spare time killer).
  84. X */
  85. #include <stdio.h>
  86. #include <X11/Intrinsic.h>
  87. #include <X11/Shell.h>
  88. #include <X11/StringDefs.h>
  89. #include <X11/Xaw/Form.h>
  90. #include <X11/Xaw/Label.h>
  91. #include <X11/Xaw/Command.h>
  92. #include "xarchie.h"
  93. #include "patchlevel.h"
  94. #include "about.xbm"
  95. #include "config.h"
  96. X
  97. #define TIMER_LENGTH 250    /* msec */
  98. X
  99. /*
  100. X * Functions defined here
  101. X */
  102. void initAboutActions();
  103. void popupAboutPanel();
  104. void setAboutShellState();
  105. X
  106. static void initAboutWidgets();
  107. static void aboutAction(),aboutDoneAction();
  108. static void drawFrame(),timeoutProc();
  109. X
  110. /*
  111. X * Data defined here:
  112. X */
  113. static Widget aboutShell;
  114. static Widget picture;
  115. static Window window;
  116. static XtIntervalId timer;
  117. static Boolean isPoppedUp;
  118. X
  119. static XtActionsRec actionTable[] = {
  120. X    { "about",        aboutAction },
  121. X    { "about-done",    aboutDoneAction },
  122. };
  123. X
  124. #define PTS_PER_LINE    3        /* maximum pts per line */
  125. #define LINES_PER_WAVE    6        /* total lines per wave */
  126. #define NUM_WAVES    4        /* number of different waves */
  127. #define NUM_FRAMES    4        /* number of anim frames per wave */
  128. X
  129. static XPoint points[NUM_WAVES][LINES_PER_WAVE][PTS_PER_LINE] = {
  130. X    { { {24,33}, { 4,0}, {0, 4} },
  131. X      { {22,30}, { 9,0}, {0, 8} },
  132. X      { {20,27}, {14,0}, {0,12} },
  133. X      { {18,24}, {19,0}, {0,16} },
  134. X      { {16,21}, {24,0}, {0,20} },
  135. X      { {14,18}, {29,0}, {0,24} } },
  136. X    { { {16,18}, { 1,0} },
  137. X      { {15,21}, { 3,0} },
  138. X      { {14,24}, { 5,0} },
  139. X      { {13,28}, { 7,0} },
  140. X      { {12,31}, { 9,0} },
  141. X      { {11,34}, {11,0} } },
  142. X    { { {42,22}, { 1, 1} },
  143. X      { {38,23}, { 3, 3} },
  144. X      { {34,24}, { 5, 5} },
  145. X      { {30,25}, { 7, 7} },
  146. X      { {26,26}, { 9, 9} },
  147. X      { {22,27}, {11,11} } },
  148. X    { { {43,46}, {0, 1} },
  149. X      { {40,45}, {0, 3} },
  150. X      { {37,44}, {0, 5} },
  151. X      { {34,43}, {0, 7} },
  152. X      { {31,42}, {0, 9} },
  153. X      { {28,41}, {0,11} } }
  154. };
  155. static int num[NUM_WAVES] = { 3, 2, 2, 2 };
  156. X
  157. static GC clearGC,setGC;
  158. static int wave,frame;
  159. X
  160. /*    -    -    -    -    -    -    -    -    */
  161. X
  162. void
  163. initAboutActions()
  164. {
  165. X    XtAppAddActions(appContext,actionTable,XtNumber(actionTable));
  166. X    wave = 0;
  167. X    frame = -1;        /* so we start with frame 0 of wave 0 */
  168. }
  169. X
  170. /*ARGSUSED*/
  171. static void
  172. aboutAction(w,event,params,num_params)
  173. Widget w;
  174. XXEvent *event;
  175. String *params;
  176. Cardinal *num_params;
  177. {
  178. X    popupAboutPanel();
  179. }
  180. X
  181. /*ARGSUSED*/
  182. static void
  183. aboutDoneAction(w,event,params,num_params)
  184. Widget w;
  185. XXEvent *event;
  186. String *params;
  187. Cardinal *num_params;
  188. {
  189. X    XtRemoveTimeOut(timer);
  190. X    isPoppedUp = False;
  191. X    XtPopdown(aboutShell);
  192. }
  193. X
  194. /*    -    -    -    -    -    -    -    -    */
  195. X
  196. void
  197. popupAboutPanel()
  198. {
  199. X    XGCValues values;
  200. X    Arg args[2];
  201. X    Pixel fg,bg;
  202. X
  203. X    if (isPoppedUp) {
  204. X    XRaiseWindow(display,XtWindow(aboutShell));
  205. X    return;
  206. X    }
  207. X    if (aboutShell == NULL) {
  208. X    initAboutWidgets();
  209. X    window = XtWindow(picture);
  210. X    XtSetArg(args[0],XtNforeground,&fg);
  211. X    XtSetArg(args[1],XtNbackground,&bg);
  212. X    XtGetValues(picture,args,2);
  213. X    values.function = GXcopy;
  214. X    values.foreground = fg;
  215. X    setGC = XCreateGC(display,root,GCFunction|GCForeground,&values);
  216. X    values.foreground = bg;
  217. X    clearGC = XCreateGC(display,root,GCFunction|GCForeground,&values);
  218. X    }
  219. X    isPoppedUp = True;
  220. X    XtPopup(aboutShell,XtGrabNone);
  221. #if defined(HAVE_RANDOM) || defined(HAVE_RAND)
  222. X    timer = XtAppAddTimeOut(appContext,(unsigned long)TIMER_LENGTH,
  223. X                timeoutProc,NULL);
  224. #endif
  225. }
  226. X
  227. static void
  228. initAboutWidgets()
  229. {
  230. X    Pixmap bitmap;
  231. X    Widget form;
  232. X    Arg args[1];
  233. X    char buf[64];
  234. X
  235. X    bitmap = XCreateBitmapFromData(display,root,(char *)about_bits,
  236. X                   about_width,about_height);
  237. X    aboutShell = XtCreatePopupShell("aboutShell",topLevelShellWidgetClass,
  238. X                    toplevel,NULL,0);
  239. X    form = XtCreateManagedWidget("aboutForm",formWidgetClass,
  240. X                 aboutShell,NULL,0);
  241. #ifdef BETA
  242. X    sprintf(buf,"Xarchie %.1fb%d",VERSION,PATCHLEVEL);
  243. #else
  244. X    sprintf(buf,"Xarchie %.1f.%d",VERSION,PATCHLEVEL);
  245. #endif
  246. X    XtSetArg(args[0],XtNlabel,buf);
  247. X    (void)XtCreateManagedWidget("aboutLabel0",labelWidgetClass,form,args,1);
  248. X    (void)XtCreateManagedWidget("aboutLabel1",labelWidgetClass,form,NULL,0);
  249. X    (void)XtCreateManagedWidget("aboutLabel2",labelWidgetClass,form,NULL,0);
  250. X    XtSetArg(args[0],XtNbitmap,bitmap);
  251. X    picture = XtCreateManagedWidget("aboutLabel3",labelWidgetClass,
  252. X                    form,args,1);
  253. X    (void)XtCreateManagedWidget("aboutLabel4",labelWidgetClass,form,NULL,0);
  254. X    (void)XtCreateManagedWidget("aboutLabel5",labelWidgetClass,form,NULL,0);
  255. X    (void)XtCreateManagedWidget("aboutDoneButton",commandWidgetClass,
  256. X                form,NULL,0);
  257. X    XtRealizeWidget(aboutShell);
  258. X    (void)XSetWMProtocols(XtDisplay(aboutShell),XtWindow(aboutShell),
  259. X              &WM_DELETE_WINDOW,1);
  260. }
  261. X
  262. /* This will never get called unless HAVE_RANDOM or HAVE_RAND is defined. */
  263. /*ARGSUSED*/
  264. static void
  265. timeoutProc(client_data,id)
  266. XXtPointer client_data;
  267. XXtIntervalId *id;
  268. {
  269. X    /* Clear old lines (after first call) */
  270. X    if (frame >= 0)
  271. X    drawFrame(clearGC);
  272. X    /* Compute next frame and/or wave */
  273. X    if (frame < NUM_FRAMES-1) {
  274. X    frame += 1;
  275. X    } else {
  276. #ifdef HAVE_RANDOM
  277. X    wave = random() % NUM_WAVES;
  278. #else
  279. #ifdef HAVE_RAND
  280. X    wave = rand() % NUM_WAVES;
  281. #endif
  282. #endif
  283. X    frame = 0;
  284. X    }
  285. X    /* Draw new lines */
  286. X    drawFrame(setGC);
  287. X    /* Reset timer */
  288. X    timer = XtAppAddTimeOut(appContext,(unsigned long)TIMER_LENGTH,
  289. X                timeoutProc,NULL);
  290. }
  291. X
  292. /*
  293. X * Draw or clear the current frame of the current wave by drawing some of
  294. X * the lines.
  295. X */
  296. static
  297. void drawFrame(gc)
  298. GC gc;
  299. {
  300. X    int i,first,last;
  301. X
  302. X    switch (frame) {
  303. X      case 0:
  304. X    first = 0; last = 1; break;
  305. X      case 1:
  306. X    first = 0; last = 3; break;
  307. X      case 2:
  308. X    first = 2; last = 5; break;
  309. X      case 3:
  310. X    first = 4; last = 5; break;
  311. X    }
  312. X    for (i=first; i <= last; i++) {
  313. X    XDrawLines(display,window,gc,
  314. X           points[wave][i],num[wave],CoordModePrevious);
  315. X    }
  316. }
  317. X
  318. void
  319. setAboutShellState(state)
  320. int state;
  321. {
  322. X    if (!isPoppedUp)
  323. X    return;
  324. X    switch (state) {
  325. X    case NormalState:
  326. X        XtMapWidget(aboutShell);
  327. X        timer = XtAppAddTimeOut(appContext,(unsigned long)TIMER_LENGTH,
  328. X                    timeoutProc,NULL);
  329. X        break;
  330. X    case IconicState:
  331. X        XtRemoveTimeOut(timer);
  332. X        XtUnmapWidget(aboutShell);
  333. X        break;
  334. X    }
  335. }
  336. SHAR_EOF
  337. chmod 0644 xarchie-2.0.6/about.c ||
  338. echo 'restore of xarchie-2.0.6/about.c failed'
  339. Wc_c="`wc -c < 'xarchie-2.0.6/about.c'`"
  340. test 6460 -eq "$Wc_c" ||
  341.     echo 'xarchie-2.0.6/about.c: original size 6460, current size' "$Wc_c"
  342. rm -f _shar_wnt_.tmp
  343. fi
  344. # ============= xarchie-2.0.6/about.h ==============
  345. if test -f 'xarchie-2.0.6/about.h' -a X"$1" != X"-c"; then
  346.     echo 'x - skipping xarchie-2.0.6/about.h (File already exists)'
  347.     rm -f _shar_wnt_.tmp
  348. else
  349. > _shar_wnt_.tmp
  350. echo 'x - extracting xarchie-2.0.6/about.h (Text)'
  351. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/about.h' &&
  352. /*
  353. X * about.c : The "About xarchie" panel
  354. X *
  355. X * George Ferguson, ferguson@cs.rochester.edu, 23 Apr 1993.
  356. X */
  357. X
  358. extern void initAboutActions();
  359. extern void popupAboutPanel();
  360. extern void setAboutShellState();
  361. X
  362. SHAR_EOF
  363. chmod 0644 xarchie-2.0.6/about.h ||
  364. echo 'restore of xarchie-2.0.6/about.h failed'
  365. Wc_c="`wc -c < 'xarchie-2.0.6/about.h'`"
  366. test 208 -eq "$Wc_c" ||
  367.     echo 'xarchie-2.0.6/about.h: original size 208, current size' "$Wc_c"
  368. rm -f _shar_wnt_.tmp
  369. fi
  370. # ============= xarchie-2.0.6/about.xbm ==============
  371. if test -f 'xarchie-2.0.6/about.xbm' -a X"$1" != X"-c"; then
  372.     echo 'x - skipping xarchie-2.0.6/about.xbm (File already exists)'
  373.     rm -f _shar_wnt_.tmp
  374. else
  375. > _shar_wnt_.tmp
  376. echo 'x - extracting xarchie-2.0.6/about.xbm (Text)'
  377. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/about.xbm' &&
  378. #define about_width 64
  379. #define about_height 64
  380. static char about_bits[] = {
  381. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x3f, 0x00,
  382. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00,
  383. X   0x00, 0x90, 0x27, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x50, 0x28, 0x00,
  384. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x50, 0x28, 0x00, 0x00, 0x00, 0x00, 0x00,
  385. X   0x00, 0x50, 0x28, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x90, 0x27, 0x00,
  386. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00,
  387. X   0x00, 0xf0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  388. X   0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x3f, 0x00, 0x00, 0xc0, 0xff, 0x00,
  389. X   0x00, 0x08, 0x40, 0x00, 0x00, 0x40, 0x80, 0x00, 0x00, 0xf8, 0x7f, 0x00,
  390. X   0x00, 0x40, 0x9e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0xa1, 0x00,
  391. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0xa1, 0x00, 0x00, 0x00, 0x00, 0x00,
  392. X   0x00, 0x40, 0xa1, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x9e, 0x00,
  393. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00,
  394. X   0x00, 0xc0, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  395. X   0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00,
  396. X   0x00, 0x20, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0x01,
  397. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  398. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  399. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  400. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  401. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  402. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  403. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  404. X   0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00,
  405. X   0x20, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0xa0, 0xff, 0x7f, 0x01,
  406. X   0x00, 0x00, 0x00, 0x00, 0xa0, 0x55, 0x55, 0x01, 0x00, 0x00, 0x00, 0x00,
  407. X   0xa0, 0xaa, 0x6a, 0x01, 0x00, 0x00, 0x00, 0x00, 0xa0, 0xfd, 0x5f, 0x01,
  408. X   0x00, 0x00, 0x00, 0x00, 0xa0, 0x06, 0x68, 0x01, 0x00, 0xc0, 0xff, 0x00,
  409. X   0xa0, 0xfd, 0x5f, 0x01, 0x00, 0x40, 0x80, 0x00, 0xa0, 0x26, 0x69, 0x01,
  410. X   0x00, 0x40, 0x9e, 0x00, 0xa0, 0x25, 0x59, 0x01, 0x00, 0x40, 0xa1, 0x00,
  411. X   0xa0, 0xfe, 0x6f, 0x01, 0x00, 0x40, 0xa1, 0x00, 0xa0, 0x05, 0x58, 0x01,
  412. X   0x00, 0x40, 0xa1, 0x00, 0xa0, 0xfe, 0x6f, 0x01, 0x00, 0x40, 0x9e, 0x00,
  413. X   0xa0, 0x55, 0x55, 0x01, 0x00, 0x40, 0x80, 0x00, 0xa0, 0xaa, 0x6a, 0x01,
  414. X   0x00, 0xc0, 0xff, 0x00, 0xa0, 0xff, 0x7f, 0x01, 0x00, 0x00, 0x00, 0x00,
  415. X   0x20, 0x00, 0x00, 0x01, 0x00, 0xc0, 0xff, 0x00, 0xe0, 0xff, 0xff, 0x01,
  416. X   0x00, 0x20, 0x00, 0x01, 0x00, 0xff, 0x3f, 0x00, 0x00, 0xe0, 0xff, 0x01,
  417. X   0xe0, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x02,
  418. X   0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00,
  419. X   0xf0, 0xff, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  420. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  421. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  422. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  423. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  424. SHAR_EOF
  425. chmod 0644 xarchie-2.0.6/about.xbm ||
  426. echo 'restore of xarchie-2.0.6/about.xbm failed'
  427. Wc_c="`wc -c < 'xarchie-2.0.6/about.xbm'`"
  428. test 3278 -eq "$Wc_c" ||
  429.     echo 'xarchie-2.0.6/about.xbm: original size 3278, current size' "$Wc_c"
  430. rm -f _shar_wnt_.tmp
  431. fi
  432. # ============= xarchie-2.0.6/actions.c ==============
  433. if test -f 'xarchie-2.0.6/actions.c' -a X"$1" != X"-c"; then
  434.     echo 'x - skipping xarchie-2.0.6/actions.c (File already exists)'
  435.     rm -f _shar_wnt_.tmp
  436. else
  437. > _shar_wnt_.tmp
  438. echo 'x - extracting xarchie-2.0.6/actions.c (Text)'
  439. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/actions.c' &&
  440. /*
  441. X * actions.c : Widget action procedures
  442. X *
  443. X * Other modules also define actions, and call XtAppAddActions() when
  444. X * they are initialized.
  445. X *
  446. X * George Ferguson, ferguson@cs.rochester.edu, 2 Nov 1991.
  447. X * Version 2.0: 23 Apr 1993.
  448. X */
  449. X
  450. #include <stdio.h>
  451. #include <X11/Intrinsic.h>
  452. #include "xarchie.h"
  453. #include "browser.h"
  454. #include "types.h"
  455. #include "appres.h"
  456. #include "actions.h"
  457. #include "file-panel.h"
  458. #include "ftp-actions.h"
  459. #include "about.h"
  460. #ifdef HELP
  461. # include "help.h"
  462. #endif
  463. #include "query.h"
  464. #include "regex.h"
  465. #include "xutil.h"
  466. #include "stringdefs.h"
  467. #include "alert.h"
  468. #include "confirm.h"
  469. #include "debug.h"
  470. extern void abortDirsend();        /* dirsend.c */
  471. extern void ftpAbortTransfer();        /* ftp-actions.c */
  472. X
  473. /*
  474. X * Functions defined here
  475. X */
  476. void initActions();
  477. X
  478. static void quitAction();
  479. static void queryAction(),abortAction(),queryOrAbortAction();
  480. static void queryHostAction(),queryLocationAction();
  481. static void shiftDownAction(),shiftUpAction(),shiftTopAction();
  482. static void openAllAction(),openFilesAction(),openDirectoriesAction();
  483. static void getAction();
  484. X
  485. /*
  486. X * Data defined here:
  487. X */
  488. static XtActionsRec actionTable[] = {
  489. X    { "quit",            quitAction },
  490. X    { "query",            queryAction },
  491. X    { "abort",            abortAction },
  492. X    { "query-or-abort",        queryOrAbortAction },
  493. X    { "query-host",        queryHostAction },
  494. X    { "query-location",        queryLocationAction },
  495. X    { "browser-down",        shiftDownAction },
  496. X    { "browser-up",        shiftUpAction },
  497. X    { "browser-top",        shiftTopAction },
  498. X    { "browser-open-files",    openFilesAction },
  499. X    { "browser-open-directories",    openDirectoriesAction },
  500. X    { "browser-open-all",    openAllAction },
  501. X    { "ftp-get",        getAction },
  502. };
  503. X
  504. /*    -    -    -    -    -    -    -    -    */
  505. X
  506. void
  507. initActions()
  508. {
  509. X    XtAppAddActions(appContext,actionTable,XtNumber(actionTable));
  510. X    initFtpActions();
  511. X    initFilePanelActions();
  512. X    initAboutActions();
  513. #ifdef HELP
  514. X    initHelpActions();
  515. #endif
  516. }
  517. X
  518. /*    -    -    -    -    -    -    -    -    */
  519. X
  520. #define ACTION_PROC(NAME)    void NAME(w,event,params,num_params) \
  521. X                    Widget w; \
  522. X                    XEvent *event; \
  523. X                    String *params; \
  524. X                    Cardinal *num_params;
  525. X
  526. /*ARGSUSED*/
  527. static
  528. ACTION_PROC(quitAction)
  529. {
  530. X    bye(0);
  531. }
  532. X
  533. /*ARGSUSED*/
  534. static
  535. ACTION_PROC(queryAction)
  536. {
  537. X    char *s;
  538. X    int len;
  539. X    Boolean gif;
  540. X
  541. X    if (getBrowserState() != BROWSER_READY) {
  542. X    /* Don't do anything using popups since we could be in dirsend()
  543. X       by now. */
  544. X    XBell(display,0);
  545. X    return;
  546. X    }
  547. X    if ((s=getWidgetString(searchText)) == NULL || *s == '\0') {
  548. X    alert0("No search term specified.");
  549. X    return;
  550. X    }
  551. #ifndef DONT_CATCH_GIFS
  552. X    len = strlen(s);
  553. X    gif = False;
  554. X    switch (appResources.searchType) {
  555. X    case GfExact:
  556. X        gif = ((len > 4 &&
  557. X            (!strcmp(s+len-4,".gif") || !strcmp(s+len-4,".GIF"))) ||
  558. X           (len > 6 &&
  559. X            (!strcmp(s+len-6,".gif.Z") || !strcmp(s+len-6,".GIF.Z"))));
  560. X        break;
  561. X    case GfSubstr:
  562. X    case GfExactSubstr:
  563. X    case GfSubcase:
  564. X    case GfExactSubcase:
  565. X        gif = (strstr(s,"gif") || strstr(s,"GIF"));
  566. X        break;
  567. X    case GfRegexp:
  568. X    case GfExactRegexp:
  569. X        gif = (re_comp(s) == NULL &&
  570. X           (re_exec("@PrObAbLyNoTaFiLe@.gif") ||
  571. X            re_exec("@PrObAbLyNoTaFiLe@.gif.Z")));
  572. X        break;
  573. X    }
  574. X    if (gif) {
  575. X    if (!confirm0("Your search term will match GIFs. Do it anyway?"))
  576. X        return;
  577. X    else if (appResources.niceLevel <= 0 &&
  578. X         !confirm0("Really do it without increasing niceness?"))
  579. X        return;
  580. X    }
  581. #endif /* DONT_CATCH_GIFS */
  582. X    /* We're about to do the query, so disable querying */
  583. X    setBrowserState(BROWSER_DIRSEND);
  584. X    queryItemAndParse(s);
  585. X    /* Re-enable querying */
  586. X    setBrowserState(BROWSER_READY);
  587. }
  588. X
  589. /*ARGSUSED*/
  590. static
  591. ACTION_PROC(abortAction)
  592. {
  593. X    DEBUG0("abortAction...\n");
  594. X    XtSetSensitive(abortButton,False);
  595. X    switch (getBrowserState()) {
  596. X    case BROWSER_DIRSEND:
  597. X        abortDirsend();
  598. X        break;
  599. X    case BROWSER_FTP:
  600. X        ftpAbortTransfer();
  601. X        break;
  602. X    }
  603. X    DEBUG0("abortAction: done\n");
  604. }
  605. X
  606. /*ARGSUSED*/
  607. static
  608. ACTION_PROC(queryOrAbortAction)
  609. {
  610. X    DEBUG0("queryOrAbortAction...\n");
  611. X    if (getBrowserState() == BROWSER_READY)
  612. X    XtCallActionProc(toplevel,"query",NULL,NULL,0);
  613. X    else
  614. X    XtCallActionProc(toplevel,"abort",NULL,NULL,0);
  615. X    DEBUG0("queryOrAbortAction: done\n");
  616. }
  617. X
  618. /*ARGSUSED*/
  619. static
  620. ACTION_PROC(queryHostAction)
  621. {
  622. X    char *host;
  623. X
  624. X    if (getBrowserState() != BROWSER_READY) {
  625. X    XBell(display,0);
  626. X    return;
  627. X    }
  628. X    if ((host=getWidgetString(hostText)) == NULL || *host == '\0') {
  629. X    alert0("No host specified.");
  630. X    return;
  631. X    }
  632. X    /* We're about to do the query, so disable querying */
  633. X    setBrowserState(BROWSER_DIRSEND);
  634. X    queryHostAndParse(host);
  635. X    /* Re-enable querying */
  636. X    setBrowserState(BROWSER_READY);
  637. }
  638. X
  639. /*ARGSUSED*/
  640. static
  641. ACTION_PROC(queryLocationAction)
  642. {
  643. X    char *host,*loc;
  644. X
  645. X    if (getBrowserState() != BROWSER_READY) {
  646. X    XBell(display,0);
  647. X    return;
  648. X    }
  649. X    if ((host=getWidgetString(hostText)) == NULL || *host == '\0') {
  650. X    alert0("No host specified.");
  651. X    return;
  652. X    }
  653. X    if ((loc=getWidgetString(locationText)) == NULL || *loc == '\0') {
  654. X    alert0("No host specified.");
  655. X    return;
  656. X    }
  657. X    /* We're about to do the query, so disable querying */
  658. X    setBrowserState(BROWSER_DIRSEND);
  659. X    queryLocationAndParse(host,loc);
  660. X    /* Re-enable querying */
  661. X    setBrowserState(BROWSER_READY);
  662. }
  663. X
  664. /*    -    -    -    -    -    -    -    -    */
  665. X
  666. /*ARGSUSED*/
  667. static
  668. ACTION_PROC(shiftDownAction)
  669. {
  670. X    shiftBrowserDown();
  671. }
  672. X
  673. /*ARGSUSED*/
  674. static
  675. ACTION_PROC(shiftUpAction)
  676. {
  677. X    shiftBrowserUp();
  678. }
  679. X
  680. /*ARGSUSED*/
  681. static
  682. ACTION_PROC(shiftTopAction)
  683. {
  684. X    shiftBrowserTop();
  685. }
  686. X
  687. /*ARGSUSED*/
  688. static
  689. ACTION_PROC(openAllAction)
  690. {
  691. X    if (getBrowserState() != BROWSER_READY) {
  692. X    XBell(display,0);
  693. X    return;
  694. X    }
  695. X    if (openBrowserAll() == 1)
  696. X    shiftBrowserDown();
  697. }
  698. X
  699. /*ARGSUSED*/
  700. static
  701. ACTION_PROC(openDirectoriesAction)
  702. {
  703. X    if (getBrowserState() != BROWSER_READY) {
  704. X    XBell(display,0);
  705. X    return;
  706. X    }
  707. X    if (openBrowserDirectories() == 1)
  708. X    shiftBrowserDown();
  709. }
  710. X
  711. /*ARGSUSED*/
  712. static
  713. ACTION_PROC(openFilesAction)
  714. {
  715. X    if (getBrowserState() != BROWSER_READY) {
  716. X    XBell(display,0);
  717. X    return;
  718. X    }
  719. X    openBrowserFiles();
  720. }
  721. X
  722. /*    -    -    -    -    -    -    -    -    */
  723. X
  724. /*ARGSUSED*/
  725. static
  726. ACTION_PROC(getAction)
  727. {
  728. X    if (getBrowserState() != BROWSER_READY) {
  729. X    XBell(display,0);
  730. X    return;
  731. X    }
  732. X    DEBUG0("getAction...\n");
  733. X    ftpGetSelectedItems();
  734. X    DEBUG0("getAction: done\n");
  735. }
  736. SHAR_EOF
  737. chmod 0644 xarchie-2.0.6/actions.c ||
  738. echo 'restore of xarchie-2.0.6/actions.c failed'
  739. Wc_c="`wc -c < 'xarchie-2.0.6/actions.c'`"
  740. test 6248 -eq "$Wc_c" ||
  741.     echo 'xarchie-2.0.6/actions.c: original size 6248, current size' "$Wc_c"
  742. rm -f _shar_wnt_.tmp
  743. fi
  744. # ============= xarchie-2.0.6/actions.h ==============
  745. if test -f 'xarchie-2.0.6/actions.h' -a X"$1" != X"-c"; then
  746.     echo 'x - skipping xarchie-2.0.6/actions.h (File already exists)'
  747.     rm -f _shar_wnt_.tmp
  748. else
  749. > _shar_wnt_.tmp
  750. echo 'x - extracting xarchie-2.0.6/actions.h (Text)'
  751. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/actions.h' &&
  752. /*
  753. X * actions.h : Definition of global action procedures
  754. X *
  755. X * George Ferguson, ferguson@cs.rochester.edu, 20 Oct 1991.
  756. X * Version 2.0: 23 Apr 1993.
  757. X */
  758. X
  759. #ifndef _ACTIONS_H
  760. #define _ACTIONS_H
  761. X
  762. extern void initActions();
  763. X
  764. #endif /* _ACTIONS_H */
  765. SHAR_EOF
  766. chmod 0644 xarchie-2.0.6/actions.h ||
  767. echo 'restore of xarchie-2.0.6/actions.h failed'
  768. Wc_c="`wc -c < 'xarchie-2.0.6/actions.h'`"
  769. test 245 -eq "$Wc_c" ||
  770.     echo 'xarchie-2.0.6/actions.h: original size 245, current size' "$Wc_c"
  771. rm -f _shar_wnt_.tmp
  772. fi
  773. # ============= xarchie-2.0.6/alert.c ==============
  774. if test -f 'xarchie-2.0.6/alert.c' -a X"$1" != X"-c"; then
  775.     echo 'x - skipping xarchie-2.0.6/alert.c (File already exists)'
  776.     rm -f _shar_wnt_.tmp
  777. else
  778. > _shar_wnt_.tmp
  779. echo 'x - extracting xarchie-2.0.6/alert.c (Text)'
  780. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/alert.c' &&
  781. /*
  782. X * alert.c : Alert popup
  783. X *
  784. X * George Ferguson, ferguson@cs.rochester.edu, 23 Apr 1993.
  785. X */
  786. X
  787. #include <X11/Intrinsic.h>
  788. #include "popups.h"
  789. X
  790. /*
  791. X * Functions defined here:
  792. X */
  793. void alert0(),alert1(),alert2();
  794. static void alertCallback();
  795. X
  796. /*
  797. X * Data defined here:
  798. X */
  799. static Widget alertShell;
  800. X
  801. /*    -    -    -    -    -    -    -    -    */
  802. X
  803. void
  804. alert0(str)
  805. char *str;
  806. {
  807. X    if (alertShell == NULL)
  808. X    alertShell = createPopup("alert",1,alertCallback);
  809. X    setPopupLabel(alertShell,"alert",str);
  810. X    popupMainLoop(alertShell);
  811. }
  812. X 
  813. void
  814. alert1(fmt,arg)
  815. char *fmt,*arg;
  816. {
  817. X    char buf[256];
  818. X
  819. X    sprintf(buf,fmt,arg);
  820. X    alert0(buf);
  821. }
  822. X
  823. void
  824. alert2(fmt,arg1,arg2)
  825. char *fmt,*arg1,*arg2;
  826. {
  827. X    char buf[256];
  828. X
  829. X    sprintf(buf,fmt,arg1,arg2);
  830. X    alert0(buf);
  831. }
  832. X
  833. /*ARGSUSED*/
  834. static void
  835. alertCallback(w,client_data,call_data)
  836. Widget w;
  837. XXtPointer client_data;        /* button number */
  838. XXtPointer call_data;
  839. {
  840. X    popupDone();
  841. }
  842. SHAR_EOF
  843. chmod 0644 xarchie-2.0.6/alert.c ||
  844. echo 'restore of xarchie-2.0.6/alert.c failed'
  845. Wc_c="`wc -c < 'xarchie-2.0.6/alert.c'`"
  846. test 897 -eq "$Wc_c" ||
  847.     echo 'xarchie-2.0.6/alert.c: original size 897, current size' "$Wc_c"
  848. rm -f _shar_wnt_.tmp
  849. fi
  850. # ============= xarchie-2.0.6/alert.h ==============
  851. if test -f 'xarchie-2.0.6/alert.h' -a X"$1" != X"-c"; then
  852.     echo 'x - skipping xarchie-2.0.6/alert.h (File already exists)'
  853.     rm -f _shar_wnt_.tmp
  854. else
  855. > _shar_wnt_.tmp
  856. echo 'x - extracting xarchie-2.0.6/alert.h (Text)'
  857. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/alert.h' &&
  858. /*
  859. X * alert.h : External defs for alert functions
  860. X *
  861. X * George Ferguson, ferguson@cs.rochester.edu, 23 Apr 1993.
  862. X */
  863. X
  864. #ifndef _ALERT_H
  865. #define _ALERT_H
  866. X
  867. extern void alert0(),alert1(),alert2();
  868. X
  869. #endif
  870. SHAR_EOF
  871. chmod 0644 xarchie-2.0.6/alert.h ||
  872. echo 'restore of xarchie-2.0.6/alert.h failed'
  873. Wc_c="`wc -c < 'xarchie-2.0.6/alert.h'`"
  874. test 201 -eq "$Wc_c" ||
  875.     echo 'xarchie-2.0.6/alert.h: original size 201, current size' "$Wc_c"
  876. rm -f _shar_wnt_.tmp
  877. fi
  878. # ============= xarchie-2.0.6/appres.h ==============
  879. if test -f 'xarchie-2.0.6/appres.h' -a X"$1" != X"-c"; then
  880.     echo 'x - skipping xarchie-2.0.6/appres.h (File already exists)'
  881.     rm -f _shar_wnt_.tmp
  882. else
  883. > _shar_wnt_.tmp
  884. echo 'x - extracting xarchie-2.0.6/appres.h (Text)'
  885. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/appres.h' &&
  886. /*
  887. X * appres.h : External defs for files needing the application
  888. X *    resources.
  889. X *
  890. X * George Ferguson, ferguson@cs.rochester.edu, 12 Nov 1991.
  891. X * Version 2.0: 23 Apr 1993.
  892. X */
  893. X
  894. #ifndef APP_RESOURCES_H
  895. #define APP_RESOURCES_H
  896. X
  897. #include "types.h"        /* for SearchType and SortType */
  898. X
  899. typedef struct _AppResources {
  900. X    SearchType    searchType;
  901. X    SortType    sortType;
  902. X    String    archieHost;
  903. X    int        numHosts;
  904. X    int        maxHits;
  905. X    int        offset;
  906. X    int        timeout;
  907. X    int        retries;
  908. X    int        niceLevel;
  909. X    String    ftpLocalDir;
  910. X    String    ftpType;
  911. X    Boolean    ftpPrompt;
  912. X    Boolean    ftpTrace;
  913. X    Boolean    ftpStrip;
  914. X    String    ftpMailAddress;
  915. X    int        debugLevel;
  916. X    Boolean    fileWriteOnePerLine;
  917. X    XFontStruct    *xarchieFont;
  918. X    XFontStruct    *xarchieBoldFont;
  919. X    String    hostWeights;
  920. X    Boolean    autoScroll;
  921. X    Boolean    pasteBuffer;
  922. X    String    visualType;
  923. X    Pixmap    defaultIcon;
  924. X    Pixmap    busyIcon;
  925. } AppResources;
  926. X
  927. extern AppResources appResources;
  928. X
  929. #endif /* APP_RESOURCES_H */
  930. SHAR_EOF
  931. chmod 0644 xarchie-2.0.6/appres.h ||
  932. echo 'restore of xarchie-2.0.6/appres.h failed'
  933. Wc_c="`wc -c < 'xarchie-2.0.6/appres.h'`"
  934. test 972 -eq "$Wc_c" ||
  935.     echo 'xarchie-2.0.6/appres.h: original size 972, current size' "$Wc_c"
  936. rm -f _shar_wnt_.tmp
  937. fi
  938. # ============= xarchie-2.0.6/archie.h ==============
  939. if test -f 'xarchie-2.0.6/archie.h' -a X"$1" != X"-c"; then
  940.     echo 'x - skipping xarchie-2.0.6/archie.h (File already exists)'
  941.     rm -f _shar_wnt_.tmp
  942. else
  943. > _shar_wnt_.tmp
  944. echo 'x - extracting xarchie-2.0.6/archie.h (Text)'
  945. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/archie.h' &&
  946. /*
  947. X * archie.h : Definitions for the programmatic Prospero interface to Archie
  948. X *
  949. X *     Written by Brendan Kehoe (brendan@cs.widener.edu), 
  950. X *                George Ferguson (ferguson@cs.rochester.edu), and
  951. X *                Clifford Neuman (bcn@isi.edu).
  952. X */
  953. X
  954. /*
  955. X * Archie server (one of):   archie.sura.net
  956. X *                 archie.mcgill.ca
  957. X *                           archie.funet.fi
  958. X *                           archie.au
  959. X */
  960. #define ARCHIE_HOST "ARCHIE.SURA.NET"
  961. X
  962. /*
  963. X * Default value for max hits.  Note that this is normally different
  964. X * for different client implementations.  Doing so makes it easier to
  965. X * collect statistics on the use of the various clients.
  966. X */
  967. #ifdef VMS
  968. # define    MAX_HITS    98    /* VMS Client */
  969. #else
  970. # ifdef XARCHIE
  971. #  define    MAX_HITS    99    /* X Client */
  972. # else
  973. #  define    MAX_HITS    95    /* Normal client */
  974. # endif
  975. #endif
  976. X
  977. /*
  978. X * CLIENT_VERSION may be used to identify the version of the client if 
  979. X * distributed separately from the Prospero distribution.  The version
  980. X * command should then identify both the client version and the Prospero
  981. X * version identifiers.   
  982. X */
  983. #ifdef XARCHIE
  984. # define CLIENT_VERSION    "1.3-X"
  985. #else
  986. # define CLIENT_VERSION "1.2"
  987. #endif
  988. X
  989. /* Procedures from user/aquery.c */
  990. X
  991. /* archie_query(host,string,max_hits,offset,query_type,cmp_proc,flags) */
  992. extern VLINK archie_query(); 
  993. X
  994. /* defcmplink(p,q) and invdatecmplink(p,q)                             */
  995. extern int defcmplink();    /* Compare by host then by filename    */
  996. extern int invdatecmplink();    /* Compare links inverted by date      */
  997. X
  998. /* Definitions for the comparison procedures                           */
  999. #define AQ_DEFCMP    defcmplink
  1000. #define AQ_INVDATECMP    invdatecmplink
  1001. X
  1002. /* Flags                                                               */
  1003. #define AQ_NOSORT    0x01    /* Don't sort                          */
  1004. #define AQ_NOTRANS    0x02    /* Don't translate Archie responses    */
  1005. SHAR_EOF
  1006. chmod 0644 xarchie-2.0.6/archie.h ||
  1007. echo 'restore of xarchie-2.0.6/archie.h failed'
  1008. Wc_c="`wc -c < 'xarchie-2.0.6/archie.h'`"
  1009. test 1882 -eq "$Wc_c" ||
  1010.     echo 'xarchie-2.0.6/archie.h: original size 1882, current size' "$Wc_c"
  1011. rm -f _shar_wnt_.tmp
  1012. fi
  1013. # ============= xarchie-2.0.6/atalloc.c ==============
  1014. if test -f 'xarchie-2.0.6/atalloc.c' -a X"$1" != X"-c"; then
  1015.     echo 'x - skipping xarchie-2.0.6/atalloc.c (File already exists)'
  1016.     rm -f _shar_wnt_.tmp
  1017. else
  1018. > _shar_wnt_.tmp
  1019. echo 'x - extracting xarchie-2.0.6/atalloc.c (Text)'
  1020. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/atalloc.c' &&
  1021. /*
  1022. X * Copyright (c) 1989, 1990 by the University of Washington
  1023. X *
  1024. X * For copying and distribution information, please see the file
  1025. X * <copyright.h>.
  1026. X *
  1027. X * v1.1.2 - gf  11/02/91 - renamed ZERO() to BZERO() for X
  1028. X */
  1029. X
  1030. #include <copyright.h>
  1031. #include <stdio.h>
  1032. X
  1033. #include <pfs.h>
  1034. #include "config.h"    /* gf */
  1035. #include "stringdefs.h"    /* for correct definition of bzero, used by BZERO */
  1036. X
  1037. static PATTRIB    lfree = NULL;
  1038. int        pattrib_count = 0;
  1039. int        pattrib_max = 0;
  1040. X
  1041. /*
  1042. X * atalloc - allocate and initialize vlink structure
  1043. X *
  1044. X *    ATALLOC returns a pointer to an initialized structure of type
  1045. X *    PATTRIB.  If it is unable to allocate such a structure, it
  1046. X *    returns NULL.
  1047. X */
  1048. PATTRIB
  1049. atalloc()
  1050. X    {
  1051. X    PATTRIB    at;
  1052. X    if(lfree) {
  1053. X        at = lfree;
  1054. X        lfree = lfree->next;
  1055. X    }
  1056. X    else {
  1057. X        at = (PATTRIB) malloc(sizeof(PATTRIB_ST));
  1058. X        if (!at) return(NULL);
  1059. X        pattrib_max++;
  1060. X    }
  1061. X
  1062. X    pattrib_count++;
  1063. X
  1064. X    BZERO(at);
  1065. X    /* Initialize and fill in default values; all items are
  1066. X       0 [or NULL] save precedence */
  1067. X    at->precedence = ATR_PREC_OBJECT;
  1068. X
  1069. X    return(at);
  1070. X    }
  1071. X
  1072. /*
  1073. X * atfree - free a PATTRIB structure
  1074. X *
  1075. X *    ATFREE takes a pointer to a PATTRRIB structure and adds it to
  1076. X *    the free list for later reuse.
  1077. X */
  1078. void
  1079. atfree(at)
  1080. X    PATTRIB    at;
  1081. X    {
  1082. X    if(at->aname) stfree(at->aname);
  1083. X
  1084. X    if((strcmp(at->avtype,"ASCII") == 0) && at->value.ascii) 
  1085. X        stfree(at->value.ascii);
  1086. X    if((strcmp(at->avtype,"LINK") == 0) && at->value.link) 
  1087. X        vlfree(at->value.link);
  1088. X    
  1089. X    if(at->avtype) stfree(at->avtype);
  1090. X
  1091. X    at->next = lfree;
  1092. X    at->previous = NULL;
  1093. X    lfree = at;
  1094. X    pattrib_count--;
  1095. X    }
  1096. X
  1097. /*
  1098. X * atlfree - free a PATTRIB structure
  1099. X *
  1100. X *    ATLFREE takes a pointer to a PATTRIB structure frees it and any linked
  1101. X *    PATTRIB structures.  It is used to free an entrie list of PATTRIB
  1102. X *    structures.
  1103. X */
  1104. void
  1105. atlfree(at)
  1106. X    PATTRIB    at;
  1107. X    {
  1108. X    PATTRIB    nxt;
  1109. X
  1110. X    while(at != NULL) {
  1111. X        nxt = at->next;
  1112. X        atfree(at);
  1113. X        at = nxt;
  1114. X    }
  1115. X    }
  1116. X
  1117. SHAR_EOF
  1118. chmod 0644 xarchie-2.0.6/atalloc.c ||
  1119. echo 'restore of xarchie-2.0.6/atalloc.c failed'
  1120. Wc_c="`wc -c < 'xarchie-2.0.6/atalloc.c'`"
  1121. test 1929 -eq "$Wc_c" ||
  1122.     echo 'xarchie-2.0.6/atalloc.c: original size 1929, current size' "$Wc_c"
  1123. rm -f _shar_wnt_.tmp
  1124. fi
  1125. # ============= xarchie-2.0.6/browser.c ==============
  1126. if test -f 'xarchie-2.0.6/browser.c' -a X"$1" != X"-c"; then
  1127.     echo 'x - skipping xarchie-2.0.6/browser.c (File already exists)'
  1128.     rm -f _shar_wnt_.tmp
  1129. else
  1130. > _shar_wnt_.tmp
  1131. echo 'x - extracting xarchie-2.0.6/browser.c (Text)'
  1132. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/browser.c' &&
  1133. /*
  1134. X * browser.c : Device-independent browser routines
  1135. X *
  1136. X * George Ferguson, ferguson@cs.rochester.edu, 23 Apr 1993.
  1137. X * 28 Apr 1993: Remove some bogus status0("Ready") calls.
  1138. X */
  1139. X
  1140. #include <stdio.h>
  1141. #include "stringdefs.h"
  1142. #include "pfs.h"
  1143. #include "db.h"
  1144. #include "xtypes.h"
  1145. #include "appres.h"
  1146. #include "query.h"
  1147. #include "actions.h"
  1148. #include "browser.h"
  1149. #include "selection.h"
  1150. #include "display.h"
  1151. #include "ftp-actions.h"
  1152. #include "alert.h"
  1153. #include "status.h"
  1154. #include "debug.h"
  1155. extern DbEntry *db;
  1156. X
  1157. /*
  1158. X * Functions defined here:
  1159. X */
  1160. void resetBrowser();
  1161. int paneDepth();
  1162. void selectBrowserItem(),unselectBrowserItem();
  1163. void displayEntries();
  1164. void resortBrowser();
  1165. int openBrowserAll(),openBrowserDirectories(),openBrowserFiles();
  1166. void shiftBrowserDown(), shiftBrowserUp(), shiftBrowserTop();
  1167. void setBrowserState();
  1168. int getBrowserState();
  1169. X
  1170. static void clearInfoForDepth(),displayInfoForDepth();
  1171. static void updateButtons(),resetParentEntries();
  1172. static void openBrowserDirectory();
  1173. X
  1174. /*
  1175. X * Data defined here:
  1176. X */
  1177. /*
  1178. X * These are the parents of the heads of the lists being displayed in
  1179. X * the browser panes.
  1180. X */
  1181. static DbEntry *parentEntries[MAX_DEPTH];
  1182. X
  1183. /*
  1184. X * This is the index of the leftmost pane's contents in the previous arrays.
  1185. X */
  1186. static int currentRootDepth;
  1187. X
  1188. static int browserState;
  1189. X
  1190. /*    -    -    -    -    -    -    -    -    */
  1191. X
  1192. void
  1193. resetBrowser()
  1194. {
  1195. X    clearBrowser();
  1196. X    currentRootDepth = 0;
  1197. X    resetSelections(0);
  1198. X    resetParentEntries(0);
  1199. X    setUpSensitive(0);
  1200. X    setDownSensitive(0);
  1201. }
  1202. X
  1203. int
  1204. paneDepth(pane)
  1205. int pane;
  1206. {
  1207. X    return(currentRootDepth+pane);
  1208. }
  1209. X
  1210. #ifdef DEBUG
  1211. /*ARGSUSED*/
  1212. static void
  1213. doPrint(dbp,list_index)
  1214. DbEntry dbp;
  1215. int list_index;
  1216. {
  1217. X    printf("%d ",list_index);
  1218. }
  1219. #endif
  1220. X
  1221. void
  1222. selectBrowserItem(pane,item)
  1223. int pane,item;
  1224. {
  1225. X    DbEntry *dbp;
  1226. X    int depth;
  1227. X    
  1228. X    /* Adjust for shifted browser */
  1229. X    depth = paneDepth(pane);
  1230. #ifdef DEBUG
  1231. X    fprintf(stderr,"selecting item %d, pane=%d, depth=%d\n",item,pane,depth);
  1232. X    fprintf(stderr,"  before: selections[] = ");
  1233. X    if (hasSelection(depth))
  1234. X    forEachSelectedItemAtDepth(depth,doPrint);
  1235. X    else
  1236. X    fprintf(stderr,"None");
  1237. X    fprintf(stderr,"\n");
  1238. #endif
  1239. X    if (isSelected(depth,item)) {
  1240. X    DEBUG1("item %d already selected\n",item);
  1241. X    return;
  1242. X    }
  1243. X    dbp = findEntryFromIndex(parentEntries[depth],item);
  1244. X    DEBUG2("selected item is \"%s\"(%lx)\n",dbp->name,dbp);
  1245. X    DEBUG1("clearing parents depth >= %d\n",depth+1);
  1246. X    resetParentEntries(depth+1);
  1247. X    DEBUG1("resetting selections for depth >= %d\n",depth+1);
  1248. X    resetSelections(depth+1);
  1249. X    DEBUG3("adding selection at depth %d = \"%s\"(%lx)\n",depth,dbp->name,dbp);
  1250. X    addSelection(depth,dbp,item);
  1251. X    DEBUG3("setting parentEntries[%d] = \"%s\"(%lx)\n",depth+1,dbp->name,dbp);
  1252. X    parentEntries[depth+1] = dbp;
  1253. X    DEBUG3("displaying entry \"%s\"(%lx) in pane %d\n",dbp->name,dbp,pane);
  1254. X    /* Highlight the selected item */
  1255. X    redrawSelectionsForPane(pane);
  1256. X    /* Show selected info */
  1257. X    displayInfoForDepth(depth);
  1258. X    /* If we're not at the rightmost pane, then show the choices. */
  1259. X    if (pane < NUM_BROWSER_PANES-1) {
  1260. X    displayEntries(dbp,pane+1);
  1261. X    }
  1262. #ifdef DEBUG
  1263. X    fprintf(stderr,"  after: selections[] = ");
  1264. X    if (hasSelection(depth))
  1265. X    forEachSelectedItemAtDepth(depth,doPrint);
  1266. X    else
  1267. X    fprintf(stderr,"None");
  1268. X    fprintf(stderr,"\n");
  1269. X    fprintf(stderr,"done selecting item\n");
  1270. #endif
  1271. }
  1272. X
  1273. void
  1274. unselectBrowserItem(pane,item)
  1275. int pane,item;
  1276. {
  1277. X     int depth,i;
  1278. X    
  1279. X    /* Adjust for shifted browser */
  1280. X    depth = paneDepth(pane);
  1281. #ifdef DEBUG
  1282. X    fprintf(stderr,"unselecting item %d, pane=%d, depth=%d\n",item,pane,depth);
  1283. X    fprintf(stderr,"  before: selections[] = ");
  1284. X    if (hasSelection(depth))
  1285. X    forEachSelectedItemAtDepth(depth,doPrint);
  1286. X    else
  1287. X    fprintf(stderr,"None");
  1288. X    fprintf(stderr,"\n");
  1289. #endif
  1290. X    unhighlightBrowserItem(pane,item);
  1291. X    /* Clear all panes below this one */
  1292. X    for (i=NUM_BROWSER_PANES-1; i > pane; i--)
  1293. X    clearBrowserPane(i);
  1294. X    /* Clear all info including this one since de-selected */
  1295. X    clearInfoForDepth(depth);
  1296. X    DEBUG2("removing selection at depth %d = item %d\n",depth,item);
  1297. X    removeSelection(depth,NULL,item);
  1298. X    DEBUG1("clearing parents depth >= %d\n",depth+1);
  1299. X    resetParentEntries(depth+1);
  1300. #ifdef DEBUG
  1301. X    printf("  after: selections[] = ");
  1302. X    if (hasSelection(depth))
  1303. X    forEachSelectedItemAtDepth(depth,doPrint);
  1304. X    else
  1305. X    printf("None");
  1306. X    printf("\n");
  1307. X    fprintf(stderr,"done deselecting item\n");
  1308. #endif
  1309. }
  1310. X
  1311. static void
  1312. clearInfoForDepth(depth)
  1313. int depth;
  1314. {
  1315. X    switch (depth) {
  1316. X    case 0:    setHostText("");
  1317. X        /* fall through */
  1318. X    case 1:    setLocationText("");
  1319. X        /* fall through */
  1320. X    case 2:    setFileText("");
  1321. X        setSizeText("");
  1322. X        setModesText("");
  1323. X        setDateText("");
  1324. X        break;
  1325. X    }
  1326. X    DEBUG1("cleared info for depth %d\n",depth);
  1327. }
  1328. X
  1329. static void
  1330. displayInfoForDepth(depth)
  1331. int depth;
  1332. {
  1333. X    SelectedItem *item;
  1334. X    char buf[MAX_VPATH];
  1335. X    int i;
  1336. X
  1337. X    DEBUG1("  display info for depth %d:\n",depth);
  1338. X    if ((item=getSelection(0)) != NULL) {
  1339. X    setHostText(item->entry->name);
  1340. X    DEBUG1("    host: \"%s\"\n",item->entry->name);
  1341. X    }
  1342. X    /* Special case if location was selected */
  1343. X    if (depth == 1) {
  1344. X    if ((item=getSelection(1)) != NULL) {
  1345. X        setLocationText(item->entry->name);
  1346. X        DEBUG1("    loc: \"%s\"\n",item->entry->name);
  1347. X    }
  1348. X    } else {    /* Otherwise normal case, get location and file */
  1349. X    strcpy(buf,"");
  1350. X    for (i=1; i < depth; i++)
  1351. X        if ((item=getSelection(i)) != NULL) {
  1352. X        (void)strcat(buf,item->entry->name);
  1353. X        if (i < depth-1 &&
  1354. X            buf[strlen(buf)-1] != '/')
  1355. X            strcat(buf,"/");
  1356. X        }
  1357. X    setLocationText(buf);
  1358. X    DEBUG1("    loc: \"%s\"\n",buf);
  1359. X    if ((item=getSelection(depth)) != NULL) {
  1360. X        setFileText(item->entry->name);
  1361. #ifdef MSDOS
  1362. X        sprintf(buf,"%lu",item->entry->size);
  1363. #else
  1364. X        sprintf(buf,"%d",item->entry->size);
  1365. #endif
  1366. X        setSizeText(buf);
  1367. X        setModesText(item->entry->modes);
  1368. X        setDateText(item->entry->date);
  1369. X        DEBUG1("    file: \"%s\"\n",item->entry->name);
  1370. X    }
  1371. X    }
  1372. }
  1373. X
  1374. void
  1375. displayEntries(parent,pane)
  1376. DbEntry *parent;
  1377. int pane;
  1378. {
  1379. X    DbEntry *dbp;
  1380. X    SelectedItem *sel;
  1381. X    int i,depth;
  1382. X
  1383. X    depth = paneDepth(pane);
  1384. X    if (parent == NULL) {
  1385. X    fprintf(stderr,"DB error: attempt to display entries from NULL list");
  1386. X    return;
  1387. X    }
  1388. X    DEBUG3("displaying parent \"%s\" in pane %d (depth %d)\n",
  1389. X       (parent?parent->name:"<NIL>"),pane,depth);
  1390. X    /* Clear this and all subordinate panes */
  1391. X    for (i=pane; i < NUM_BROWSER_PANES; i++) {
  1392. X    DEBUG1("  clearing pane %d\n",i);
  1393. X    clearBrowserPane(i);
  1394. X    }
  1395. X    /* Set the strings to be displayed in this pane */
  1396. X    for (i=0, dbp=parent->entries; dbp != NULL; dbp=dbp->next) {
  1397. X    DEBUG2("  item %d: \"%s\"\n",i,dbp->name);
  1398. X    setBrowserItem(pane,i++,dbp->name);
  1399. X    }
  1400. X    /* If there's anything to display, display it */
  1401. X    if (i > 0)
  1402. X    redrawBrowserPane(pane);
  1403. X    /* If there's only one thing then select it */
  1404. X    if (i == 1) {
  1405. X    DEBUG0("  solo -> select\n");
  1406. X    addSelection(depth,parent->entries,0);
  1407. X    }
  1408. X    /* If there's something selected (either because we just selected the
  1409. X       only thing or because we're scrolling left), then redo the
  1410. X       highlighting and display the correct info. If we're not at the
  1411. X       rightmost pane, then recusively draw the next pane. */
  1412. X    if ((sel=getSelection(depth)) != NULL) {
  1413. X    redrawSelectionsForPane(pane);
  1414. X    displayInfoForDepth(depth);
  1415. X    if (pane < NUM_BROWSER_PANES - 1)
  1416. X        displayEntries(sel->entry,pane+1);
  1417. X    } else {
  1418. X    /* Otherwise there's nothing selected here */
  1419. X    clearInfoForDepth(depth);
  1420. X    }
  1421. X    /* Save which list is being displayed in the pane */
  1422. X    parentEntries[paneDepth(pane)] = parent;
  1423. X    /* Get the shift buttons right */
  1424. X    updateButtons();
  1425. }
  1426. X
  1427. static void
  1428. updateButtons()
  1429. {
  1430. X    SelectedItem *sel;
  1431. X
  1432. X    setUpSensitive(currentRootDepth > 0);
  1433. X    if ((sel=getSelection(currentRootDepth+NUM_BROWSER_PANES-1)) != NULL &&
  1434. X    sel->entry->entries != NULL)
  1435. X    setDownSensitive(1);
  1436. X    else
  1437. X    setDownSensitive(0);
  1438. }
  1439. X
  1440. static void
  1441. resetParentEntries(first)
  1442. int first;
  1443. {
  1444. X    int i;
  1445. X
  1446. X    for (i=first; i < MAX_DEPTH; i++)
  1447. X    parentEntries[i] = NULL;
  1448. }
  1449. X
  1450. /*    -    -    -    -    -    -    -    -    */
  1451. /* Resort the browser based on the appResources */
  1452. X
  1453. void
  1454. resortBrowser()
  1455. {
  1456. X    /* Reset browser to leftmost position */
  1457. X    DEBUG0("resortBrowser: resetting browser\n");
  1458. X    resetBrowser();
  1459. X    DEBUG0("resortBrowser: sorting entries\n");
  1460. X    switch(appResources.sortType) {
  1461. X    case GfName:
  1462. X        sortEntriesRecursively(db,cmpEntryNames);
  1463. X        break;
  1464. X    case GfDate:
  1465. X        sortEntriesRecursively(db,cmpEntryDates);
  1466. X        break;
  1467. X    case GfWeight:
  1468. X        sortEntriesRecursively(db,cmpEntryWeights);
  1469. X        break;
  1470. X    }
  1471. X    /* Display results in browser */
  1472. X    DEBUG0("resortBrowser: displaying entries\n");
  1473. X    displayEntries(db,0);
  1474. X    DEBUG0("resortBrowser: done\n");
  1475. }
  1476. X
  1477. /*    -    -    -    -    -    -    -    -    */
  1478. /* Routines to open (ie. expand) the browser */
  1479. X
  1480. static int numOpened;
  1481. X
  1482. /*
  1483. X * Open any selected items in the browser. Return the number of items
  1484. X * that were successfully opened.
  1485. X */
  1486. int
  1487. openBrowserAll()
  1488. {
  1489. X    DEBUG1("openBrowserAll: depth = %d\n",currentRootDepth);
  1490. X    if (!hasSelection(NUM_BROWSER_PANES-1)) {
  1491. X    alert0("You must select something to open.");
  1492. X    return(0);
  1493. X    }
  1494. X    numOpened = 0;
  1495. X    /* Do the directories */
  1496. X    forEachSelectedItem(openBrowserDirectory);
  1497. X    /* Do the files */
  1498. X    ftpOpenSelectedItems();
  1499. X    DEBUG1("done openBrowserAll, returning %d\n",numOpened);
  1500. X    return(numOpened);
  1501. }
  1502. X
  1503. int
  1504. openBrowserDirectories()
  1505. {
  1506. X    DEBUG1("openBrowserDirectories: depth = %d\n",currentRootDepth);
  1507. X    if (!hasSelection(2)) {
  1508. X    alert0("You must select a directory to open.");
  1509. X    return(0);
  1510. X    }
  1511. X    numOpened = 0;
  1512. X    forEachSelectedItem(openBrowserDirectory);
  1513. X    status0("Ready");
  1514. X    DEBUG1("done openBrowserDirectories, returning %d\n",numOpened);
  1515. X    return(numOpened);
  1516. }
  1517. X
  1518. int
  1519. openBrowserFiles()
  1520. {
  1521. X    DEBUG1("openBrowserFiles: depth = %d\n",currentRootDepth);
  1522. X    if (!hasSelection(2)) {
  1523. X    alert0("You must select a file to open.");
  1524. X    return(0);
  1525. X    }
  1526. X    numOpened = 0;
  1527. X    ftpOpenSelectedItems();
  1528. X    DEBUG1("done openBrowserFiles, returning %d\n",numOpened);
  1529. X    return(numOpened);
  1530. }
  1531. X
  1532. /*
  1533. X * Open a selected item. Ignore any selections that aren't directories.
  1534. X */
  1535. /*ARGSUSED*/
  1536. static void
  1537. openBrowserDirectory(dbp,list_index)
  1538. DbEntry *dbp;
  1539. int list_index;
  1540. {
  1541. X    VLINK vl,links;
  1542. X
  1543. X    DEBUG1("openBrowserDirectory: \"%s\"\n",dbp->name);
  1544. X    if (dbp->type != DB_DIRECTORY)
  1545. X    return;
  1546. X    if (dbp->entries == NULL) {
  1547. X    /* It's not been expanded already... */
  1548. X    if ((vl=dbp->vlink) == NULL) {
  1549. X        alert0("ERROR: NULL vlink to openBrowserDirectory!");
  1550. X        return;
  1551. X    }
  1552. X    /* Disable querying */
  1553. X    setBrowserState(BROWSER_DIRSEND);
  1554. X    DEBUG1("getting entries for \"%s\"\n",dbp->name);
  1555. X    links = stringQuery(vl->host,vl->filename);
  1556. X    DEBUG0("calling handleProsperoErrors\n");
  1557. X    (void)handleProsperoErrors();
  1558. X    if (links != NULL)
  1559. X        numOpened += 1;
  1560. #ifdef DEBUG
  1561. X    fprintf(stderr,"unprocessed results of stringQuery:\n");
  1562. X    for (vl=links; vl != NULL; vl=vl->next)
  1563. X        fprintf(stderr,"  \"%s\"\n",vl->filename);
  1564. X    fprintf(stderr,"calling parseStringQueryResults\n");
  1565. #endif
  1566. X    /* Process the results into the database */
  1567. X    switch(appResources.sortType) {
  1568. X        case GfName:
  1569. X        (void)parseStringQueryResults(dbp,links,cmpEntryNames);
  1570. X        break;
  1571. X        case GfDate:
  1572. X        (void)parseStringQueryResults(dbp,links,cmpEntryDates);
  1573. X        break;
  1574. X        case GfWeight:
  1575. X        (void)parseStringQueryResults(dbp,links,cmpEntryWeights);
  1576. X        break;
  1577. X    }
  1578. X    /* Re-enable querying */
  1579. X    setBrowserState(BROWSER_READY);
  1580. X    }
  1581. X    DEBUG0("done openBrowserDirectory\n");
  1582. }
  1583. X
  1584. /*    -    -    -    -    -    -    -    -    */
  1585. /* Routines for shifting the browser up, down, top. */
  1586. X
  1587. void
  1588. shiftBrowserDown()
  1589. {
  1590. X    DEBUG1("doing shiftDown, depth = %d\n",currentRootDepth);
  1591. X    if (currentRootDepth >= MAX_DEPTH-1) {
  1592. X    alert1("Browser only goes %d levels deep!",(char *)MAX_DEPTH);
  1593. X    return;
  1594. X    }
  1595. X    if (parentEntries[currentRootDepth+1] == NULL) {
  1596. X    alert0("Nothing to display below!");
  1597. X    return;
  1598. X    }
  1599. X    currentRootDepth += 1;
  1600. X    DEBUG1("currentRootDepth is now %d\n",currentRootDepth);
  1601. X    displayEntries(parentEntries[currentRootDepth],0);
  1602. X    DEBUG0("done shiftDown\n");
  1603. }
  1604. X
  1605. void
  1606. shiftBrowserUp()
  1607. {
  1608. X    DEBUG1("doing shiftUp, depth = %d\n",currentRootDepth);
  1609. X    if (currentRootDepth == 0) {
  1610. X    beep();
  1611. X    return;
  1612. X    }
  1613. X    currentRootDepth -= 1;
  1614. X    DEBUG1("currentRootDepth is now %d\n",currentRootDepth);
  1615. X    displayEntries(parentEntries[currentRootDepth],0);
  1616. X    DEBUG0("done shiftUp\n");
  1617. }
  1618. X
  1619. void
  1620. shiftBrowserTop()
  1621. {
  1622. X    DEBUG1("doing shiftTop, depth = %d\n",currentRootDepth);
  1623. X    currentRootDepth = 0;
  1624. X    DEBUG1("currentRootDepth is now %d\n",currentRootDepth);
  1625. X    displayEntries(db,0);
  1626. X    DEBUG0("done shiftTop\n");
  1627. }
  1628. X
  1629. /*    -    -    -    -    -    -    -    -    */
  1630. /* Routines for getting/setting the state of the browser */
  1631. /*
  1632. X * Non-zero state => busy
  1633. X */
  1634. X
  1635. void
  1636. setBrowserState(state)
  1637. int state;
  1638. {
  1639. X    setQuerySensitive(state == BROWSER_READY);
  1640. X    setAbortSensitive(state != BROWSER_READY);
  1641. X    browserState = state;
  1642. }
  1643. X
  1644. int
  1645. getBrowserState()
  1646. {
  1647. X    return(browserState);
  1648. }
  1649. X
  1650. SHAR_EOF
  1651. chmod 0644 xarchie-2.0.6/browser.c ||
  1652. echo 'restore of xarchie-2.0.6/browser.c failed'
  1653. Wc_c="`wc -c < 'xarchie-2.0.6/browser.c'`"
  1654. test 12889 -eq "$Wc_c" ||
  1655.     echo 'xarchie-2.0.6/browser.c: original size 12889, current size' "$Wc_c"
  1656. rm -f _shar_wnt_.tmp
  1657. fi
  1658. # ============= xarchie-2.0.6/browser.h ==============
  1659. if test -f 'xarchie-2.0.6/browser.h' -a X"$1" != X"-c"; then
  1660.     echo 'x - skipping xarchie-2.0.6/browser.h (File already exists)'
  1661.     rm -f _shar_wnt_.tmp
  1662. else
  1663. > _shar_wnt_.tmp
  1664. echo 'x - extracting xarchie-2.0.6/browser.h (Text)'
  1665. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/browser.h' &&
  1666. /*
  1667. X * browser.h : Device-independent browser defs
  1668. X *
  1669. X * George Ferguson, ferguson@cs.rochester.edu, 23 Apr 1993.
  1670. X */
  1671. X
  1672. #ifndef _BROWSER_H
  1673. #define _BROWSER_H
  1674. X
  1675. #define NUM_BROWSER_PANES    3
  1676. #define MAX_DEPTH        20
  1677. X
  1678. extern void initBrowser();
  1679. extern void resetBrowser();
  1680. extern int paneDepth();
  1681. extern void selectBrowserItem(),unselectBrowserItem();
  1682. extern void displayEntries();
  1683. extern void resortBrowser();
  1684. extern int openBrowserAll(),openBrowserDirectories(),openBrowserFiles();
  1685. extern void shiftBrowserDown(),shiftBrowserUp(),shiftBrowserTop();
  1686. X
  1687. #define BROWSER_READY    0
  1688. #define BROWSER_DIRSEND    1
  1689. #define BROWSER_FTP    2
  1690. X
  1691. extern void setBrowserState();
  1692. extern int getBrowserState();
  1693. X
  1694. #endif /* _BROWSER_H */
  1695. SHAR_EOF
  1696. chmod 0644 xarchie-2.0.6/browser.h ||
  1697. echo 'restore of xarchie-2.0.6/browser.h failed'
  1698. Wc_c="`wc -c < 'xarchie-2.0.6/browser.h'`"
  1699. test 701 -eq "$Wc_c" ||
  1700.     echo 'xarchie-2.0.6/browser.h: original size 701, current size' "$Wc_c"
  1701. rm -f _shar_wnt_.tmp
  1702. fi
  1703. # ============= xarchie-2.0.6/busy.xbm ==============
  1704. if test -f 'xarchie-2.0.6/busy.xbm' -a X"$1" != X"-c"; then
  1705.     echo 'x - skipping xarchie-2.0.6/busy.xbm (File already exists)'
  1706.     rm -f _shar_wnt_.tmp
  1707. else
  1708. > _shar_wnt_.tmp
  1709. echo 'x - extracting xarchie-2.0.6/busy.xbm (Text)'
  1710. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/busy.xbm' &&
  1711. #define busy_width 32
  1712. #define busy_height 32
  1713. static unsigned char busy_bits[] = {
  1714. X   0xff, 0xff, 0xff, 0xff, 0x01, 0x00, 0x00, 0x80, 0x29, 0x19, 0xab, 0x8e,
  1715. X   0xa9, 0xaa, 0xa8, 0x82, 0x91, 0x9b, 0xb8, 0x86, 0xa9, 0xaa, 0xa8, 0x82,
  1716. X   0xa9, 0x2a, 0xab, 0x8e, 0x01, 0x00, 0x00, 0x80, 0xff, 0xff, 0xff, 0xff,
  1717. X   0x01, 0x04, 0x20, 0x80, 0x03, 0x0c, 0x60, 0x80, 0x01, 0x04, 0x20, 0x80,
  1718. X   0x03, 0x0c, 0x60, 0x80, 0x01, 0x04, 0x20, 0x80, 0x03, 0x0c, 0x60, 0x80,
  1719. X   0x01, 0x04, 0x20, 0x80, 0x03, 0x0c, 0x60, 0x80, 0x01, 0x04, 0x20, 0x80,
  1720. X   0x03, 0x0c, 0x60, 0x80, 0x01, 0x04, 0x20, 0x80, 0x03, 0x0c, 0x60, 0x80,
  1721. X   0xff, 0xff, 0xff, 0xff, 0x01, 0x00, 0x00, 0x80, 0x1d, 0x00, 0x00, 0x80,
  1722. X   0x01, 0x00, 0x00, 0x80, 0x3d, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x80,
  1723. X   0x1d, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x80, 0x1d, 0x70, 0x80, 0x87,
  1724. X   0x01, 0x00, 0x00, 0x80, 0xff, 0xff, 0xff, 0xff};
  1725. SHAR_EOF
  1726. chmod 0644 xarchie-2.0.6/busy.xbm ||
  1727. echo 'restore of xarchie-2.0.6/busy.xbm failed'
  1728. Wc_c="`wc -c < 'xarchie-2.0.6/busy.xbm'`"
  1729. test 884 -eq "$Wc_c" ||
  1730.     echo 'xarchie-2.0.6/busy.xbm: original size 884, current size' "$Wc_c"
  1731. rm -f _shar_wnt_.tmp
  1732. fi
  1733. # ============= xarchie-2.0.6/config.h ==============
  1734. if test -f 'xarchie-2.0.6/config.h' -a X"$1" != X"-c"; then
  1735.     echo 'x - skipping xarchie-2.0.6/config.h (File already exists)'
  1736.     rm -f _shar_wnt_.tmp
  1737. else
  1738. > _shar_wnt_.tmp
  1739. echo 'x - extracting xarchie-2.0.6/config.h (Text)'
  1740. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/config.h' &&
  1741. /* config.h.  Generated automatically by configure.  */
  1742. X
  1743. #ifndef _CONFIG_H
  1744. #define _CONFIG_H
  1745. X
  1746. /* Define if you have the ANSI C header files.  */
  1747. #undef STDC_HEADERS
  1748. X
  1749. /* Define if you have <string.h>, otherwise assumes <strings.h> */
  1750. #define HAVE_STRING_H 1
  1751. X
  1752. /* Define if you have memory.h, and string.h doesn't declare the
  1753. X   mem* functions.  */
  1754. #define HAVE_MEMORY_H 1
  1755. X
  1756. /* Adjust of your sys/param.h doesn't define MAXPATHLEN */
  1757. #define HAVE_SYS_PARAM_H 1
  1758. #ifndef HAVE_SYS_PARAM_H
  1759. # define MAXPATHLEN 1024
  1760. #endif
  1761. X
  1762. /* Define if your sys/time.h declares struct tm.  */
  1763. #undef TM_IN_SYS_TIME
  1764. X
  1765. /* Define if your sys/types.h declares FD_SET.  */
  1766. #define FD_SET_IN_SYS_TYPES_H 1
  1767. /* Define if your sys/select.h declares FD_SET.  */
  1768. #undef FD_SET_IN_SYS_SELECT_H
  1769. /* Define if your sys/inet.h declares FD_SET.  */
  1770. #undef FD_SET_IN_SYS_INET_H
  1771. X
  1772. /* Define if you have re_comp() and re_exec() */
  1773. #define HAVE_RE_COMP 1
  1774. /* Some systems use regcmp() and regex() instead (like AIX) */
  1775. #undef HAVE_REGCMP
  1776. X
  1777. /* Define if you have strcasecmp() */
  1778. #define HAVE_STRCASECMP 1
  1779. X
  1780. /* Define if you have random() */
  1781. #define HAVE_RANDOM 1
  1782. /* Some systems use rand() instead (like HPUX) */
  1783. #define HAVE_RAND 1
  1784. X
  1785. /* Define if you have the ANSI function strerror() */
  1786. #define HAVE_STRERROR 1
  1787. X
  1788. /* Define if you have errno (who doesn't)? */
  1789. #define HAVE_ERRNO 1
  1790. X
  1791. /* Define if you have sys_errlist (not needed if you have strerror) */
  1792. #define HAVE_SYS_ERRLIST 1
  1793. X
  1794. /* Define if you have getlogin() (who doesn't?) */
  1795. #define HAVE_GETLOGIN 1
  1796. X
  1797. /* Define if you have getpwuid() defined in <pwd.h> */
  1798. #define HAVE_GETPWUID 1
  1799. X
  1800. /* Define if you have strspn() */
  1801. #define HAVE_STRSPN 1
  1802. X
  1803. /* Define this if you need -lresolv in your link line (used by imake) */
  1804. #undef NEED_LRESOLV
  1805. X
  1806. #endif /*!_CONFIG_H*/
  1807. SHAR_EOF
  1808. chmod 0644 xarchie-2.0.6/config.h ||
  1809. echo 'restore of xarchie-2.0.6/config.h failed'
  1810. Wc_c="`wc -c < 'xarchie-2.0.6/config.h'`"
  1811. test 1757 -eq "$Wc_c" ||
  1812.     echo 'xarchie-2.0.6/config.h: original size 1757, current size' "$Wc_c"
  1813. rm -f _shar_wnt_.tmp
  1814. fi
  1815. # ============= xarchie-2.0.6/config.h.in ==============
  1816. if test -f 'xarchie-2.0.6/config.h.in' -a X"$1" != X"-c"; then
  1817.     echo 'x - skipping xarchie-2.0.6/config.h.in (File already exists)'
  1818.     rm -f _shar_wnt_.tmp
  1819. else
  1820. > _shar_wnt_.tmp
  1821. echo 'x - extracting xarchie-2.0.6/config.h.in (Text)'
  1822. sed 's/^X//' << 'SHAR_EOF' > 'xarchie-2.0.6/config.h.in' &&
  1823. X
  1824. #ifndef _CONFIG_H
  1825. #define _CONFIG_H
  1826. X
  1827. /* Define if you have the ANSI C header files.  */
  1828. #undef STDC_HEADERS
  1829. X
  1830. /* Define if you have <string.h>, otherwise assumes <strings.h> */
  1831. #undef HAVE_STRING_H
  1832. X
  1833. /* Define if you have memory.h, and string.h doesn't declare the
  1834. X   mem* functions.  */
  1835. #undef HAVE_MEMORY_H
  1836. X
  1837. /* Adjust of your sys/param.h doesn't define MAXPATHLEN */
  1838. #undef HAVE_SYS_PARAM_H
  1839. #ifndef HAVE_SYS_PARAM_H
  1840. # define MAXPATHLEN 1024
  1841. #endif
  1842. X
  1843. /* Define if your sys/time.h declares struct tm.  */
  1844. #undef TM_IN_SYS_TIME
  1845. X
  1846. /* Define if your sys/types.h declares FD_SET.  */
  1847. #undef FD_SET_IN_SYS_TYPES_H
  1848. SHAR_EOF
  1849. true || echo 'restore of xarchie-2.0.6/config.h.in failed'
  1850. fi
  1851. echo 'End of xarchie-2.0.6 part 5'
  1852. echo 'File xarchie-2.0.6/config.h.in is continued in part 6'
  1853. echo 6 > _shar_seq_.tmp
  1854. exit 0
  1855.  
  1856. exit 0 # Just in case...
  1857. -- 
  1858.   // chris@IMD.Sterling.COM       | Send comp.sources.x submissions to:
  1859. \X/  Amiga - The only way to fly! |    sources-x@imd.sterling.com
  1860.  "It's intuitively obvious to the |
  1861.   most casual observer..."        | GCS d+/-- p+ c++ l+ m+ s++/+ g+ w+ t+ r+ x+
  1862.