home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume18 / bibview / part02 < prev    next >
Encoding:
Text File  |  1992-08-26  |  50.2 KB  |  1,654 lines
  1. Path: uunet!dtix!darwin.sura.net!mips!msi!dcmartin
  2. From: liebla@informatik.tu-muenchen.de (Armin Liebl)
  3. Newsgroups: comp.sources.x
  4. Subject: v18i100: bibview - BibTeX GUI, Part02/20
  5. Message-ID: <1992Aug27.161348.25167@msi.com>
  6. Date: 27 Aug 92 16:13:48 GMT
  7. References: <csx-18i099-bibview@uunet.UU.NET>
  8. Sender: dcmartin@msi.com (David C. Martin - Moderator)
  9. Organization: Molecular Simulations, Inc.
  10. Lines: 1640
  11. Approved: dcmartin@msi.com
  12. Originator: dcmartin@fascet
  13.  
  14. Submitted-by: Armin Liebl <liebla@informatik.tu-muenchen.de>
  15. Posting-number: Volume 18, Issue 100
  16. Archive-name: bibview/part02
  17.  
  18. #!/bin/sh
  19. # this is part.02 (part 2 of a multipart archive)
  20. # do not concatenate these parts, unpack them in order with /bin/sh
  21. # file ComboBoP.h continued
  22. #
  23. if test ! -r _shar_seq_.tmp; then
  24.     echo 'Please unpack part 1 first!'
  25.     exit 1
  26. fi
  27. (read Scheck
  28.  if test "$Scheck" != 2; then
  29.     echo Please unpack part "$Scheck" next!
  30.     exit 1
  31.  else
  32.     exit 0
  33.  fi
  34. ) < _shar_seq_.tmp || exit 1
  35. if test ! -f _shar_wnt_.tmp; then
  36.     echo 'x - still skipping ComboBoP.h'
  37. else
  38. echo 'x - continuing file ComboBoP.h'
  39. sed 's/^X//' << 'SHAR_EOF' >> 'ComboBoP.h' &&
  40. /*  bibView: Administration of bibTex-Databases                      */
  41. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  42. /*                                                                   */
  43. /*  Module:  ComboBoP.h                                              */
  44. /*                                                                   */
  45. /*             - Combo Box Widget                                    */
  46. /*               Text widget with selection list                     */
  47. /*                                                                   */
  48. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  49. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  50. /*                                                                   */
  51. /*  History:                                                         */
  52. /*    11.22.91  HM   created                                         */
  53. /*                                                                   */
  54. /*  Copyright 1991 Martin, Urban                                     */
  55. /*    See ./Copyright for complete rights and liability information. */
  56. /*                                                                   */
  57. /*********************************************************************/
  58. X
  59. X
  60. #ifndef ComboBoxP_h
  61. #define ComboBoxP_h
  62. X
  63. #include "ComboBo.h"
  64. X
  65. #define XtCSelectMenu "SelectMenu"
  66. #define XtCShowDotFiles "ShowDotFiles"
  67. #define XtCBellLevel "BellLevel"
  68. #define XtCName "Name"           /* NEU: Label fuer Eingabefeld */
  69. #define XtCRcList "RcList"       /* NEU: LISTE */
  70. X
  71. X
  72. typedef struct {
  73. X    /* resources */
  74. X    XtCallbackList      select_callback;
  75. X    String              select_menu;
  76. X    XtCallbackList      cancel_callback;
  77. X    Dimension           margin;
  78. X    int                 number_rows;
  79. X    Boolean             show_dot_files;
  80. X    int                 bell_level;
  81. X    String              name;        /* NEU */
  82. X    RcListNode          *rclist;     /* NEU */
  83. X 
  84. X    /* private data */
  85. X    Widget              viewport_widget;
  86. X    Widget              list_widget;
  87. X    Widget        filename_widget;
  88. X    Widget              select_widget;
  89. X    Widget              path_widget;
  90. X    Widget        cancel_widget;    
  91. X    Widget              name_widget;    /* NEU */
  92. X    Widget              shell_widget;
  93. X    String              *listList;
  94. X    char                currentDir[MAXPATHLEN];
  95. X    Boolean             watchingChanges;
  96. X    ComboBoxStruct nomination;
  97. } ComboBoxPart;
  98. X
  99. typedef struct _ComboBoxRec {
  100. X    CorePart        core;
  101. X    ComboBoxPart    comboBox;
  102. } ComboBoxRec;
  103. X
  104. typedef struct {
  105. X    XtPointer        extension;
  106. } ComboBoxClassPart;
  107. X
  108. typedef struct _ComboBoxClassRec {
  109. X    CoreClassPart            core_class;
  110. X    ComboBoxClassPart    comboBox_class;
  111. } ComboBoxClassRec, *ComboBoxClass;
  112. X
  113. extern ComboBoxClassRec comboBoxClassRec;
  114. X
  115. #endif /* ComboBoxP_h */
  116. X
  117. SHAR_EOF
  118. echo 'File ComboBoP.h is complete' &&
  119. chmod 0644 ComboBoP.h ||
  120. echo 'restore of ComboBoP.h failed'
  121. Wc_c="`wc -c < 'ComboBoP.h'`"
  122. test 2925 -eq "$Wc_c" ||
  123.     echo 'ComboBoP.h: original size 2925, current size' "$Wc_c"
  124. rm -f _shar_wnt_.tmp
  125. fi
  126. # ============= FileNom.c ==============
  127. if test -f 'FileNom.c' -a X"$1" != X"-c"; then
  128.     echo 'x - skipping FileNom.c (File already exists)'
  129.     rm -f _shar_wnt_.tmp
  130. else
  131. > _shar_wnt_.tmp
  132. echo 'x - extracting FileNom.c (Text)'
  133. sed 's/^X//' << 'SHAR_EOF' > 'FileNom.c' &&
  134. /*********************************************************************/
  135. /*  bibView: Administration of bibTex-Databases                      */
  136. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  137. /*                                                                   */
  138. /*  Module:  FileNom.c                                               */
  139. /*                                                                   */
  140. /*             - File Selection Box                                  */
  141. /*               Adapted and modified Widget from aXe editor         */
  142. /*                                                                   */
  143. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  144. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  145. /*                                                                   */
  146. /*  History:                                                         */
  147. /*    11.22.91  HM   created                                         */
  148. /*    05.26.92       Version 1.0 released                            */
  149. /*                                                                   */
  150. /*  Copyright 1992 TU MUENCHEN                                         */
  151. /*    See ./Copyright for complete rights and liability information. */
  152. /*                                                                   */
  153. /*********************************************************************/
  154. X
  155. /*
  156. X * Copyright 1991 The University of Newcastle upon Tyne
  157. X * 
  158. X * Permission to use, copy, modify and distribute this software and its
  159. X * documentation for any purpose other than its commercial exploitation
  160. X * is hereby granted without fee, provided that the above copyright
  161. X * notice appear in all copies and that both that copyright notice and
  162. X * this permission notice appear in supporting documentation, and that
  163. X * the name of The University of Newcastle upon Tyne not be used in
  164. X * advertising or publicity pertaining to distribution of the software
  165. X * without specific, written prior permission. The University of
  166. X * Newcastle upon Tyne makes no representations about the suitability of
  167. X * this software for any purpose. It is provided "as is" without express
  168. X * or implied warranty.
  169. X * 
  170. X * THE UNIVERSITY OF NEWCASTLE UPON TYNE DISCLAIMS ALL WARRANTIES WITH
  171. X * REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  172. X * MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF
  173. X * NEWCASTLE UPON TYNE BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  174. X * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
  175. X * USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
  176. X * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  177. X * PERFORMANCE OF THIS SOFTWARE.
  178. X * 
  179. X * Author:  Jim Wight (j.k.wight@newcastle.ac.uk)
  180. X *          Computing Laboratory, University of Newcastle upon Tyne, UK
  181. X */
  182. X
  183. #include <X11/IntrinsicP.h>    
  184. #include <X11/StringDefs.h>    
  185. #include <X11/Xaw/MenuButton.h>
  186. #include <X11/Xaw/SimpleMenu.h>
  187. #include <X11/Xaw/SmeBSB.h>
  188. #include <X11/Xaw/Viewport.h>
  189. #include <X11/Xaw/List.h>
  190. #include <X11/Xaw/Scrollbar.h>
  191. #include <X11/Xaw/AsciiText.h>
  192. #include <X11/Xaw/Command.h>
  193. #include <X11/Xos.h>
  194. X
  195. #include <sys/param.h>
  196. #include <sys/stat.h>
  197. #include <errno.h>
  198. #ifndef HAVE_DIR
  199. #include <dirent.h>
  200. #else
  201. #include <sys/dir.h>
  202. #define dirent direct
  203. #endif
  204. #include <stdio.h>
  205. X
  206. extern char *getenv();
  207. X
  208. #include "FileNomP.h"
  209. X
  210. #define Offset(field) XtOffsetOf(FileNominatorRec, fileNominator.field)
  211. X
  212. static XtResource resources[] = {
  213. X    {XtNselectCallback, XtCCallback, XtRCallback, sizeof(XtCallbackList),
  214. X     Offset(select_callback), XtRCallback, (XtPointer) NULL},
  215. X    {XtNselectMenu, XtCSelectMenu, XtRString, sizeof(String),
  216. X     Offset(select_menu), XtRString, (XtPointer) NULL},
  217. X    {XtNcancelCallback, XtCCallback, XtRCallback, sizeof(XtCallbackList),
  218. X     Offset(cancel_callback), XtRCallback, (XtPointer) NULL},
  219. X    {XtNmargin, XtCMargin, XtRDimension, sizeof(Dimension),
  220. X     Offset(margin), XtRImmediate, (XtPointer) 10},
  221. X    {XtNnumberRows, XtCNumberStrings, XtRInt, sizeof(int),
  222. X     Offset(number_rows), XtRImmediate, (XtPointer) 12},
  223. X    {XtNshowDotFiles, XtCShowDotFiles, XtRBoolean, sizeof(Boolean),
  224. X     Offset(show_dot_files), XtRImmediate, (XtPointer) True},
  225. X    {XtNbellLevel, XtCBellLevel, XtRInt, sizeof(int),
  226. X     Offset(bell_level), XtRImmediate, (XtPointer) 100},
  227. };
  228. X
  229. #undef Offset
  230. X
  231. #define Child(w,child) (((FileNominatorWidget) w)->fileNominator.child)
  232. #define List(w) (((FileNominatorWidget) w)->fileNominator.listList)
  233. #define Rows(w) (((FileNominatorWidget) w)->fileNominator.number_rows)
  234. #define CurrentDir(w) (((FileNominatorWidget) w)->fileNominator.currentDir)
  235. #define WatchingChanges(w) (((FileNominatorWidget) w)->fileNominator.watchingChanges)
  236. #define Nomination(w) (((FileNominatorWidget) w)->fileNominator.nomination)
  237. #define ShowDotFiles(w) (((FileNominatorWidget) w)->fileNominator.show_dot_files)
  238. #define BellLevel(w) (((FileNominatorWidget) w)->fileNominator.bell_level)
  239. X
  240. static char pathTranslations[] =
  241. X    "<BtnDown>:reset() MakeMenu() XawPositionSimpleMenu(menu) MenuPopup(menu)";
  242. X
  243. static char listTranslations[] =
  244. X    "<Btn1Up>(2):         Set() Nominate() Unset()\n\
  245. X     <Btn1Down>,<Btn1Up>: Set() Notify() \n\
  246. X     <Btn2Up>:            Set() Notify() Nominate() Unset()";
  247. X
  248. static char filenameTranslations[] =
  249. X     "<Key>Return: Nominate() \n\
  250. X      <Key>Escape: ToggleDotFiles()";
  251. X
  252. static char selectTranslations[] =
  253. X    "<Btn1Up>: Nominate() unset()";
  254. X
  255. static char selectMenuTranslations[] =
  256. X    "<Btn3Down>: XawPositionSimpleMenu(selectMenu) MenuPopup(selectMenu)";
  257. X
  258. static void MakeMenu(), Nominate(), ToggleDotFiles();
  259. X
  260. static XtActionsRec pathActions[] = {
  261. X    "MakeMenu", MakeMenu,
  262. X    "Nominate", Nominate,
  263. X    "ToggleDotFiles", ToggleDotFiles,
  264. };
  265. X
  266. static void                     CancelCallback();
  267. static void                     ChangeDir();
  268. static void                     SelectDir();
  269. static void                     FillWindow();
  270. static void                     ReplaceFilename();
  271. static void                     AsciiSourceChanged();
  272. static void                     WatchForChanges();
  273. static void                     DontWatchForChanges();
  274. static void                     CollapsePath();
  275. X
  276. static void Initialize(), PositionChildren(), Realize(), Destroy();
  277. X
  278. FileNominatorClassRec fileNominatorClassRec = {
  279. X    /* Core class part */
  280. X  {
  281. X    /* superclass         */    (WidgetClass) &widgetClassRec,
  282. X    /* class_name         */ "FileNominator",
  283. X    /* widget_size         */ sizeof(FileNominatorRec),
  284. X    /* class_initialize      */ NULL,
  285. X    /* class_part_initialize */ NULL,
  286. X    /* class_inited          */    FALSE,
  287. X    /* initialize         */    Initialize,
  288. X    /* initialize_hook       */    NULL,
  289. X    /* realize             */    Realize,
  290. X    /* actions             */    NULL,
  291. X    /* num_actions         */    0,
  292. X    /* resources         */    resources,
  293. X    /* num_resources         */    XtNumber(resources),
  294. X    /* xrm_class         */    NULLQUARK,
  295. X    /* compress_motion         */    TRUE,
  296. X    /* compress_exposure     */    XtExposeCompressMultiple,
  297. X    /* compress_enterleave   */    TRUE,
  298. X    /* visible_interest         */    FALSE,
  299. X    /* destroy             */    Destroy,
  300. X    /* resize             */    PositionChildren,
  301. X    /* expose             */    NULL,
  302. X    /* set_values         */    NULL,
  303. X    /* set_values_hook       */    NULL,            
  304. X    /* set_values_almost     */    XtInheritSetValuesAlmost,  
  305. X    /* get_values_hook       */    NULL,
  306. X    /* accept_focus         */    NULL,
  307. X    /* version             */    XtVersion,
  308. X    /* callback offsets      */    NULL,
  309. X    /* tm_table              */    NULL,
  310. X    /* query_geometry         */    XtInheritQueryGeometry,
  311. X    /* display_accelerator   */    NULL,
  312. X    /* extension         */    NULL,
  313. X  },
  314. X   /* FileNominator class part */
  315. X  {
  316. X    /* extension         */    NULL,
  317. X  }
  318. };
  319. X
  320. WidgetClass fileNominatorWidgetClass = (WidgetClass) &fileNominatorClassRec;
  321. X
  322. static void
  323. CalculateSize(fnw, width, height)
  324. X    FileNominatorWidget fnw;
  325. X    Dimension *width, *height;
  326. {
  327. X    int file_width = Child(fnw,filename_widget)->core.width +
  328. X    2 * Child(fnw,filename_widget)->core.border_width;
  329. X    int select_width = Child(fnw,select_widget)->core.width + 
  330. X    2 * Child(fnw,select_widget)->core.border_width + fnw->fileNominator.margin +
  331. X        Child(fnw,cancel_widget)->core.width +
  332. X        2 * Child(fnw,cancel_widget)->core.border_width +
  333. X            Child(fnw,path_widget)->core.width +
  334. X    2 * Child(fnw,path_widget)->core.border_width + fnw->fileNominator.margin;
  335. X
  336. X    int max;
  337. X
  338. X    if (fnw->fileNominator.margin == 0)
  339. X    {
  340. X    max = select_width - 4 * (Child(fnw,select_widget)->core.border_width) >
  341. X        file_width - 2 * Child(fnw,filename_widget)->core.border_width ?
  342. X        select_width - 4 * (Child(fnw,select_widget)->core.border_width) :
  343. X            file_width - 2 * Child(fnw,filename_widget)->core.border_width;
  344. X    }
  345. X    else
  346. X    {
  347. X    max = select_width > file_width ? select_width : file_width;
  348. X    }
  349. X
  350. X    *width = max + 2 * fnw->fileNominator.margin;
  351. X    *height = Child(fnw,viewport_widget)->core.height +
  352. X        Child(fnw,filename_widget)->core.height +
  353. X        Child(fnw,select_widget)->core.height +
  354. X            4 * fnw->fileNominator.margin;
  355. X
  356. X    if (fnw->fileNominator.margin == 0)
  357. X    {
  358. X    *height += 2 * (Child(fnw,filename_widget)->core.border_width);
  359. X    }
  360. X    else
  361. X    {
  362. X    *height += 2 * (Child(fnw,filename_widget)->core.border_width +
  363. X               Child(fnw,viewport_widget)->core.border_width +
  364. X               Child(fnw,select_widget)->core.border_width);
  365. X    }
  366. }
  367. X
  368. static void
  369. PositionChildren(fnw)
  370. X    FileNominatorWidget fnw;
  371. {
  372. X    if (fnw->fileNominator.margin == 0)
  373. X    {
  374. X    XtConfigureWidget(Child(fnw,filename_widget),
  375. X              0, 0,
  376. X              fnw->core.width,
  377. X              fnw->core.height -
  378. X              Child(fnw,viewport_widget)->core.height -
  379. X              2 * Child(fnw,viewport_widget)->core.border_width -
  380. X              Child(fnw,select_widget)->core.height,
  381. X              0);
  382. X    }
  383. X    else
  384. X    {
  385. X          XtConfigureWidget(Child(fnw,filename_widget),
  386. X              fnw->fileNominator.margin,
  387. X              fnw->fileNominator.margin,
  388. X                  fnw->core.width -
  389. X                      2 * fnw->fileNominator.margin -
  390. X                      2 * Child(fnw,filename_widget)->core.border_width,
  391. X              fnw->core.height -
  392. X              2 * Child(fnw,filename_widget)->core.border_width -
  393. X              Child(fnw,viewport_widget)->core.height -
  394. X              2 * Child(fnw,viewport_widget)->core.border_width -
  395. X              Child(fnw,select_widget)->core.height -
  396. X              2 * Child(fnw,select_widget)->core.border_width -
  397. X              4 * fnw->fileNominator.margin,
  398. X              Child(fnw,filename_widget)->core.border_width);
  399. X      }
  400. X
  401. X    if (fnw->fileNominator.margin == 0)
  402. X    {
  403. X    XtConfigureWidget(Child(fnw,viewport_widget),
  404. X              -(Child(fnw,viewport_widget)->core.border_width),
  405. X              Child(fnw,filename_widget)->core.height,
  406. X              fnw->core.width,
  407. X              Child(fnw,viewport_widget)->core.height,
  408. X              Child(fnw,viewport_widget)->core.border_width);
  409. X    }
  410. X    else
  411. X    {
  412. X    XtConfigureWidget(Child(fnw,viewport_widget),
  413. X                          fnw->fileNominator.margin,
  414. X              fnw->core.height -
  415. X              Child(fnw,select_widget)->core.height -
  416. X              2 * Child(fnw,select_widget)->core.border_width -
  417. X              Child(fnw,viewport_widget)->core.height -
  418. X              2 * Child(fnw,viewport_widget)->core.border_width -
  419. X              2 * fnw->fileNominator.margin,
  420. X              fnw->core.width -
  421. X              2 * fnw->fileNominator.margin -
  422. X              2 * Child(fnw,viewport_widget)->core.border_width,
  423. X              Child(fnw,viewport_widget)->core.height,
  424. X              Child(fnw,viewport_widget)->core.border_width);
  425. X    }
  426. X
  427. X    if (fnw->fileNominator.margin == 0)
  428. X    {
  429. X    XtMoveWidget(Child(fnw,select_widget), -1,
  430. X             fnw->core.height -
  431. X             Child(fnw,select_widget)->core.height - 1);
  432. X    }
  433. X    else
  434. X    {
  435. X    XtMoveWidget(Child(fnw,select_widget), fnw->fileNominator.margin,
  436. X             fnw->core.height -
  437. X             fnw->fileNominator.margin -
  438. X             2 * Child(fnw,select_widget)->core.border_width -
  439. X             Child(fnw,select_widget)->core.height);
  440. X    }
  441. X    
  442. X
  443. X    if (fnw->fileNominator.margin == 0)
  444. X    {
  445. X    XtMoveWidget(Child(fnw,path_widget),
  446. X             Child(fnw,select_widget)->core.width,
  447. X             fnw->core.height -
  448. X             Child(fnw,select_widget)->core.height - 1);
  449. X    }
  450. X    else
  451. X    {
  452. X    XtMoveWidget(Child(fnw,path_widget),
  453. X             Child(fnw,select_widget)->core.width +
  454. X             2 * Child(fnw,select_widget)->core.border_width +
  455. X             2 * fnw->fileNominator.margin,
  456. X             fnw->core.height -
  457. X             fnw->fileNominator.margin -
  458. X             2 * Child(fnw,select_widget)->core.border_width -
  459. X             Child(fnw,select_widget)->core.height);
  460. X    }
  461. X    
  462. X    if (fnw->fileNominator.margin == 0)
  463. X    {
  464. X    XtMoveWidget(Child(fnw,cancel_widget), 
  465. X             Child(fnw,select_widget)->core.width +
  466. X             Child(fnw,path_widget)->core.width +
  467. X             Child(fnw,select_widget)->core.border_width,
  468. X             fnw->core.height -
  469. X             Child(fnw,select_widget)->core.height - 1);
  470. X    }
  471. X    else
  472. X    {
  473. X    XtMoveWidget(Child(fnw,cancel_widget), 
  474. X             Child(fnw,path_widget)->core.width +
  475. X             2 * Child(fnw,path_widget)->core.border_width +
  476. X             Child(fnw,select_widget)->core.width +
  477. X             2 * Child(fnw,select_widget)->core.border_width +
  478. X             3 * fnw->fileNominator.margin,
  479. X             fnw->core.height -
  480. X             fnw->fileNominator.margin -
  481. X             2 * Child(fnw,select_widget)->core.border_width -
  482. X             Child(fnw,select_widget)->core.height);
  483. X    }
  484. }
  485. X
  486. /* ARGSUSED */
  487. static void
  488. Initialize(req, new, args, num_args)
  489. X    Widget req, new;
  490. X    ArgList args;
  491. X    Cardinal *num_args;
  492. {
  493. X    FileNominatorWidget fnw = (FileNominatorWidget) new;
  494. X    Widget sMenu, menuEntry;
  495. X    String menuList, p, q;
  496. X
  497. X    List(new) = NULL;
  498. X    Nomination(new).directoryPart = NULL;
  499. X    Nomination(new).filenamePart = NULL;
  500. #ifdef SYSV
  501. X    (void) getcwd(CurrentDir(new), MAXPATHLEN);
  502. #else    
  503. X    (void) getwd(CurrentDir(new));
  504. #endif
  505. X    if (CurrentDir(new)[strlen(CurrentDir(new)) - 1] != '/')
  506. X    {
  507. X    strcat(CurrentDir(new), "/");
  508. X    }
  509. X    WatchingChanges(new) = False;
  510. X
  511. X    Child(fnw,viewport_widget)
  512. X    = XtVaCreateWidget("viewport", viewportWidgetClass, new,
  513. X               XtNallowVert, True,
  514. X               NULL);
  515. X
  516. X    Child(fnw,list_widget) =
  517. X    XtVaCreateManagedWidget("list", listWidgetClass, Child(fnw,viewport_widget),
  518. X                XtNdefaultColumns, 1,
  519. X                XtNforceColumns, True,
  520. X                NULL);
  521. X    XtOverrideTranslations(Child(fnw,list_widget),
  522. X               XtParseTranslationTable(listTranslations));
  523. X    XtAddCallback(Child(fnw,list_widget), XtNcallback, ReplaceFilename, NULL); 
  524. X    FillWindow(fnw);
  525. X
  526. X    Child(fnw,filename_widget)
  527. X    = XtVaCreateWidget("filename", asciiTextWidgetClass, new,
  528. X               XtNeditType, XawtextEdit,
  529. X               NULL);
  530. X    XtOverrideTranslations(Child(fnw,filename_widget),
  531. X               XtParseTranslationTable(filenameTranslations));
  532. X    
  533. X    XtSetKeyboardFocus(new, Child(fnw,filename_widget));
  534. X    WatchForChanges(fnw);
  535. X
  536. X    Child(fnw,select_widget)
  537. X    = XtVaCreateWidget("select", commandWidgetClass, new,
  538. X                           XtNlabel,  "OK",
  539. X               NULL);
  540. X    XtOverrideTranslations(Child(fnw,select_widget),
  541. X               XtParseTranslationTable(selectTranslations));
  542. X    if (fnw->fileNominator.select_menu)
  543. X    {
  544. X    sMenu = XtVaCreatePopupShell("selectMenu",
  545. X                     simpleMenuWidgetClass, Child(fnw,select_widget),
  546. X                     NULL);
  547. X    menuList = XtNewString(fnw->fileNominator.select_menu);
  548. X    p = menuList;
  549. X    for (p = menuList;  (q = (char *)index(p, ':'));  p = q + 1)
  550. X    {
  551. X        *q = '\0';
  552. X        menuEntry = XtVaCreateManagedWidget(p,
  553. X                        smeBSBObjectClass, sMenu,
  554. X                        NULL);
  555. X        XtAddCallback(menuEntry, XtNcallback, SelectDir, NULL);
  556. X    }
  557. X    menuEntry = XtVaCreateManagedWidget(p,
  558. X                        smeBSBObjectClass, sMenu,
  559. X                        NULL);
  560. X    XtAddCallback(menuEntry, XtNcallback, SelectDir, NULL);
  561. X    XtVaSetValues(sMenu,
  562. X              XtNpopupOnEntry, menuEntry,
  563. X              NULL);
  564. X    
  565. X    XtOverrideTranslations(Child(fnw,select_widget),
  566. X                  XtParseTranslationTable(selectMenuTranslations));
  567. X    
  568. X    XtFree(menuList);
  569. X    }
  570. X
  571. #ifdef GERMAN
  572. X    Child(fnw,path_widget)
  573. X    = XtVaCreateWidget("path", menuButtonWidgetClass, new,
  574. X                           XtNlabel,  "Pfad",
  575. X               NULL);
  576. #else    
  577. X    Child(fnw,path_widget)
  578. X    = XtVaCreateWidget("path", menuButtonWidgetClass, new,
  579. X                           XtNlabel,  "Path",
  580. X               NULL);
  581. #endif    
  582. X    XtOverrideTranslations(Child(fnw,path_widget),
  583. X               XtParseTranslationTable(pathTranslations));
  584. X    XtAppAddActions(XtWidgetToApplicationContext(new),
  585. X            pathActions, XtNumber(pathActions));
  586. X    XawSimpleMenuAddGlobalActions(XtWidgetToApplicationContext(new));
  587. X
  588. #ifdef GERMAN
  589. X    Child(fnw,cancel_widget)
  590. X    = XtVaCreateWidget("cancel", commandWidgetClass, new,
  591. X                             XtNlabel,  "Abbruch",
  592. X                             NULL);
  593. #else    
  594. X    Child(fnw,cancel_widget)
  595. X    = XtVaCreateWidget("cancel", commandWidgetClass, new,
  596. X                             XtNlabel,  "Cancel",
  597. X                             NULL);
  598. #endif    
  599. X    XtAddCallback(Child(fnw,cancel_widget), XtNcallback, CancelCallback, NULL); 
  600. X
  601. X    CalculateSize(fnw, &fnw->core.width, &fnw->core.height);
  602. X    PositionChildren(fnw);
  603. }
  604. X
  605. static void 
  606. Realize(w, valueMask, attributes)
  607. X    Widget w;
  608. X    XtValueMask *valueMask;
  609. X    XSetWindowAttributes *attributes;
  610. {
  611. X    (*fileNominatorWidgetClass->core_class.superclass->core_class.realize)
  612. X    (w, valueMask, attributes);
  613. X
  614. X    XtRealizeWidget(Child(w,viewport_widget));
  615. X    XtRealizeWidget(Child(w,list_widget));
  616. X    XtRealizeWidget(Child(w,filename_widget));
  617. X    XtRealizeWidget(Child(w,select_widget));
  618. X    XtRealizeWidget(Child(w,path_widget));
  619. X    XtRealizeWidget(Child(w,cancel_widget));
  620. X
  621. X    XMapSubwindows(XtDisplay(w), XtWindow(w));
  622. }
  623. X
  624. static void Destroy(w)
  625. X    Widget w;
  626. {
  627. X    int idx;
  628. X    FileNominatorWidget fnw = (FileNominatorWidget) w;
  629. X    XtDestroyWidget(Child(fnw,list_widget));
  630. X    XtDestroyWidget(Child(fnw,viewport_widget));
  631. X    XtDestroyWidget(Child(fnw,filename_widget));
  632. X    XtDestroyWidget(Child(fnw,select_widget));
  633. X    XtDestroyWidget(Child(fnw,path_widget));
  634. X    XtDestroyWidget(Child(fnw,cancel_widget));
  635. X
  636. X    idx = 0;
  637. X    while (List(fnw)[idx])
  638. X    {
  639. X    XtFree(List(fnw)[idx++]);
  640. X    }
  641. X    XtFree(List(fnw)[idx]);
  642. X    XtFree((char *)List(fnw));
  643. X
  644. X    XtFree(Nomination(fnw).directoryPart);
  645. X    XtFree(Nomination(fnw).filenamePart);
  646. }
  647. X
  648. /* ARGSUSED */
  649. static void 
  650. CancelCallback(w, client_data, call_data)
  651. X     Widget w;
  652. X     XtPointer client_data, call_data;
  653. {
  654. X    XtCallCallbacks(XtParent(w), XtNcancelCallback, NULL);
  655. }
  656. X
  657. /* ARGSUSED */
  658. static void
  659. DestroyMenu(w, client_data, call_data)
  660. X     Widget w;
  661. X     XtPointer client_data, call_data;
  662. {
  663. X    XtDestroyWidget(w);
  664. }
  665. X
  666. /* ARGSUSED */
  667. static void
  668. MakeMenu(w, event, params, num_params)
  669. X     Widget w;
  670. X     XEvent *event;
  671. X     String *params;
  672. X     Cardinal *num_params;
  673. {
  674. X    FileNominatorWidget fnw = (FileNominatorWidget) XtParent(w);
  675. X    String menuName;
  676. X    Widget menu, menuEntry;
  677. X    char *where, *p1, *p2;
  678. X    int menuItem = 1, len;
  679. X
  680. X    XtVaGetValues(w,
  681. X          XtNmenuName, &menuName,
  682. X          NULL);
  683. X    
  684. X    menu = XtVaCreatePopupShell(menuName,
  685. X                simpleMenuWidgetClass, w,
  686. X                NULL);
  687. X    XtAddCallback(menu, XtNpopdownCallback, DestroyMenu, NULL);
  688. X
  689. X    where = XtNewString(CurrentDir(fnw));
  690. X    menuEntry = XtVaCreateManagedWidget("/",
  691. X                    smeBSBObjectClass, menu, NULL);
  692. X    XtAddCallback(menuEntry, XtNcallback, ChangeDir, (XtPointer) menuItem++);
  693. X    p1 = where + 1;
  694. X    len = strlen(where);
  695. X    while (p1 < &where[len])
  696. X    {
  697. X    if (!(p2 = (char *)index(p1, '/')))
  698. X    {
  699. X        p2 = &where[len];
  700. X    }
  701. X    *p2 = '\0';
  702. X    menuEntry = XtVaCreateManagedWidget(p1,
  703. X                        smeBSBObjectClass, menu, NULL);
  704. X    XtAddCallback(menuEntry, XtNcallback, ChangeDir,
  705. X              (XtPointer) menuItem++);
  706. X    p1 = p2 + 1;
  707. X    }
  708. X    
  709. X    XtVaSetValues(menu,
  710. X          XtNpopupOnEntry, menuEntry,
  711. X          NULL);
  712. X    
  713. X    XtFree(where);
  714. }
  715. X
  716. static void
  717. ChangeDirectory(fnw, position)
  718. X     FileNominatorWidget fnw;
  719. X     int position;
  720. {
  721. X    String p;
  722. X    int m;
  723. X
  724. X    if (position > 0)
  725. X    {
  726. X    p = CurrentDir(fnw);
  727. X    for (m = 0;  m < position;  ++m)
  728. X    {
  729. X        while(*p++ != '/')
  730. X        ;
  731. X    }
  732. X    *p = '\0';
  733. X    }
  734. X
  735. X    XtVaSetValues(Child(fnw, filename_widget),
  736. X          XtNstring, "",
  737. X          NULL);
  738. X
  739. X    FillWindow(fnw);
  740. X
  741. X    PositionChildren(fnw);
  742. }
  743. X     
  744. /* ARGSUSED */
  745. static void
  746. ChangeDir(w, client_data, call_data)
  747. X     Widget w;
  748. X     XtPointer client_data, call_data;
  749. {
  750. X    FileNominatorWidget fnw
  751. X        = (FileNominatorWidget) XtParent(XtParent(XtParent(w)));
  752. X
  753. X    ChangeDirectory(fnw, (int) client_data);
  754. }
  755. X
  756. /* ARGSUSED */
  757. static void
  758. SelectDir(w, client_data, call_data)
  759. X     Widget w;
  760. X     XtPointer client_data, call_data;
  761. {
  762. X    FileNominatorWidget fnw
  763. X        = (FileNominatorWidget) XtParent(XtParent(XtParent(w)));
  764. X    String label;
  765. X
  766. X    XtVaGetValues(w,
  767. X          XtNlabel, &label,
  768. X          NULL);
  769. X
  770. X    XtVaSetValues(Child(fnw,filename_widget),
  771. X          XtNstring, label,
  772. X          NULL);
  773. X
  774. X    Nominate(Child(fnw,select_widget), NULL, NULL, NULL);
  775. }
  776. X
  777. /* ARGSUSED */
  778. static void
  779. Nominate(w, event, params, num_params)
  780. X     Widget w;
  781. X     XEvent *event;
  782. X     String *params;
  783. X     Cardinal *num_params;
  784. {
  785. X    FileNominatorWidget fnw;
  786. X    char *nomination, *home, selection[MAXPATHLEN], *newPath, *r;
  787. X    struct stat fstats;
  788. X    int status, len;
  789. X
  790. X    if (XtIsSubclass(w, listWidgetClass))
  791. X    {
  792. X    fnw = (FileNominatorWidget) XtParent(XtParent(w));
  793. X    }
  794. X    else
  795. X    {
  796. X    fnw = (FileNominatorWidget) XtParent(w);
  797. X    }
  798. X    
  799. X    XtVaGetValues(Child(fnw,filename_widget),
  800. X          XtNstring, &nomination,
  801. X          NULL);
  802. X
  803. X    selection[0] = '\0';
  804. X    if (*nomination == '/')
  805. X    {
  806. X    strcpy(selection, nomination);
  807. X    }
  808. X    else if (*nomination == '~' && (home = getenv("HOME")))
  809. X    {
  810. X    strcpy(selection, home);
  811. X    strcat(selection, &nomination[1]);
  812. X    }
  813. X    else
  814. X    {
  815. X    if (strlen(CurrentDir(fnw)) > 1)
  816. X    {
  817. X        strcpy(selection, CurrentDir(fnw));
  818. X    }
  819. X    strcat(selection, "/");
  820. X    strcat(selection, nomination);
  821. X    }
  822. X
  823. X    len = strlen(selection);
  824. X    if (len != 0)
  825. X    {
  826. X    newPath = (char *) XtMalloc(len + 2);
  827. X    CollapsePath(selection, newPath);
  828. X    status = stat(newPath, &fstats);
  829. X    if (status != -1 && fstats.st_mode & S_IFDIR)
  830. X    {
  831. X        if (access(newPath, R_OK) == 0)
  832. X        {
  833. X        if (newPath[strlen(newPath) - 1] != '/')
  834. X        {
  835. X            strcat(newPath, "/");
  836. X        }
  837. X        strcpy(CurrentDir(fnw), newPath);
  838. X        ChangeDirectory(fnw, 0);
  839. X        }
  840. X        else
  841. X        {
  842. X        XBell(XtDisplay(fnw), BellLevel(fnw));
  843. X        }
  844. X    }
  845. X    else if (status == 0 || (status == -1 && errno == ENOENT))
  846. X    {
  847. X        status = access(newPath, R_OK | W_OK);
  848. X        r = (char *)rindex(newPath, '/');
  849. X        XtFree(Nomination(fnw).filenamePart);
  850. X        Nomination(fnw).filenamePart = XtNewString(r + 1);
  851. X        Nomination(fnw).filenameStatus = (status == 0) ? status : errno;
  852. X        *(r + 1) = '\0';
  853. X        XtFree(Nomination(fnw).directoryPart);
  854. X        status = access(newPath, R_OK);
  855. X        if (strcmp(newPath, CurrentDir(fnw)) != 0 && status == 0)
  856. X        {
  857. X        strcpy(CurrentDir(fnw), newPath);
  858. X        ChangeDirectory(fnw, 0);
  859. X        Nomination(fnw).directoryPart = XtNewString(CurrentDir(fnw));
  860. X        }
  861. X        else
  862. X        {
  863. X        Nomination(fnw).directoryPart = XtNewString(newPath);
  864. X        }
  865. X        Nomination(fnw).directoryStatus = (status == 0) ? status : errno;
  866. X        XtCallCallbacks((Widget) fnw, XtNselectCallback,
  867. X                                    (XtPointer) &Nomination(fnw));
  868. X    }
  869. X    else
  870. X    {
  871. X            XBell(XtDisplay(fnw), BellLevel(fnw));
  872. X    }
  873. X    XtFree(newPath);
  874. X    }
  875. }
  876. X
  877. static void
  878. FillWindow(fnw)
  879. X     Widget fnw;
  880. {
  881. X    XFontStruct *font;
  882. X    Dimension height, internalHeight, rowSpacing;
  883. X    int num, newNum, idx;
  884. X    struct dirent **namelist;
  885. X    extern int alphasort();
  886. X    char buf[MAXPATHLEN], *bp;
  887. X    String name;
  888. X    struct stat fstats;
  889. X
  890. X    num = scandir(CurrentDir(fnw), &namelist, (int(*)())0, alphasort);
  891. X    if (num <= 0)
  892. X    {
  893. X    return;
  894. X    }
  895. X
  896. X    if (List(fnw))
  897. X    {
  898. X        idx = 0;
  899. X        while (List(fnw)[idx])
  900. X        {
  901. X            XtFree(List(fnw)[idx++]);
  902. X        }
  903. X    XtFree(List(fnw)[idx]);
  904. X    XtFree((char *)List(fnw));
  905. X    }
  906. X    List(fnw) = (String *) XtMalloc((num + 1) * sizeof(String));
  907. X
  908. X    strcpy(buf, CurrentDir(fnw));
  909. X    strcat(buf, "/");
  910. X    bp = buf + strlen(buf);
  911. X    for(idx = 0, newNum = 0; idx < num;  idx++)
  912. X    {
  913. X    name = namelist[idx]->d_name;
  914. X    if (ShowDotFiles(fnw) || (!ShowDotFiles(fnw) &&
  915. X                  (*name != '.' 
  916. X                  || ((strcmp(name, ".") == 0) ||
  917. X                      (strcmp(name, "..") == 0)))))
  918. X    {
  919. X        List(fnw)[newNum] = XtMalloc(strlen(name) + 2);
  920. X        strcpy(List(fnw)[newNum], name);
  921. X        strcpy(bp, name);
  922. X        (void) stat(buf, &fstats);
  923. X        if (fstats.st_mode & S_IFDIR)
  924. X        {
  925. X        strcat(List(fnw)[newNum], "/");
  926. X        }
  927. X        ++newNum;
  928. X    }
  929. X    }
  930. X
  931. X    for(idx = 0; idx < num;  idx++)
  932. X    {
  933. X    XtFree((char *)namelist[idx]);
  934. X    }
  935. X    XtFree((char *)namelist);
  936. X
  937. X    List(fnw)[newNum] = NULL;
  938. X
  939. X    XtVaGetValues(Child(fnw,list_widget),
  940. X                  XtNfont, &font,
  941. X                  XtNinternalHeight, &internalHeight,
  942. X          XtNrowSpacing, &rowSpacing,
  943. X                  NULL);
  944. X
  945. X    height = Rows(fnw) * (font->max_bounds.ascent +
  946. X             font->max_bounds.descent + rowSpacing) -
  947. X             rowSpacing + 2 * internalHeight; 
  948. X
  949. X    XtVaSetValues(Child(fnw,viewport_widget),
  950. X                  XtNheight, height,
  951. X                  NULL);
  952. X
  953. X    XawListChange(Child(fnw,list_widget), List(fnw), newNum, -1, True);
  954. }
  955. X
  956. /* ARGSUSED */
  957. static void
  958. ToggleDotFiles(w, event, params, num_params)
  959. X     Widget w;
  960. X     XEvent *event;
  961. X     String *params;
  962. X     Cardinal *num_params;
  963. {
  964. X    Widget fnw = XtParent(w);
  965. X    Boolean showDotFiles;
  966. X
  967. X    XtVaGetValues(fnw,
  968. X          XtNshowDotFiles, &showDotFiles,
  969. X          NULL);
  970. X
  971. X    XtVaSetValues(fnw,
  972. X          XtNshowDotFiles, !showDotFiles,
  973. X          NULL);
  974. X
  975. X    XtVaSetValues(w,
  976. X          XtNstring, "./",
  977. X          NULL);
  978. X
  979. X    Nominate(Child(fnw,select_widget), NULL, NULL, NULL);
  980. }
  981. X
  982. /* ARGSUSED */
  983. static void
  984. ReplaceFilename(w, client_data, call_data)
  985. X     Widget w;
  986. X     XtPointer client_data, call_data;
  987. {
  988. X    FileNominatorWidget fnw
  989. X    = (FileNominatorWidget) XtParent(XtParent(w));
  990. X
  991. X    XawListReturnStruct *list = XawListShowCurrent(Child(fnw,list_widget));
  992. X
  993. X    XtVaSetValues(Child(fnw,filename_widget),
  994. X          XtNstring, list->string,
  995. X          NULL);
  996. X
  997. X    XawTextSetInsertionPoint(Child(fnw,filename_widget),
  998. X                 (XawTextPosition) strlen(list->string));
  999. X
  1000. X    WatchForChanges(fnw);
  1001. }
  1002. X
  1003. /* ARGSUSED */
  1004. static void
  1005. AsciiSourceChanged(w, client_data, call_data)
  1006. Widget w;
  1007. XXtPointer client_data, call_data;
  1008. {
  1009. X    FileNominatorWidget fnw = (FileNominatorWidget) client_data;
  1010. X
  1011. X    DontWatchForChanges(fnw);
  1012. X
  1013. X    XawListUnhighlight(Child(fnw,list_widget));
  1014. }
  1015. X
  1016. static void
  1017. WatchForChanges(fnw)
  1018. X     Widget fnw;
  1019. {
  1020. X    if (!WatchingChanges(fnw))
  1021. X    {
  1022. X    XtAddCallback(XawTextGetSource(Child(fnw,filename_widget)), XtNcallback,
  1023. X              AsciiSourceChanged, (XtPointer) fnw);
  1024. X
  1025. X    WatchingChanges(fnw) = True;
  1026. X    }
  1027. }
  1028. X
  1029. static void
  1030. DontWatchForChanges(fnw)
  1031. X     Widget fnw;
  1032. {
  1033. X    XtRemoveCallback(XawTextGetSource(Child(fnw,filename_widget)), XtNcallback,
  1034. X             AsciiSourceChanged, (XtPointer) fnw);
  1035. X
  1036. X    WatchingChanges(fnw) = False;
  1037. }
  1038. X
  1039. static void 
  1040. CollapsePath(in, out)
  1041. X     char *in, *out;
  1042. {
  1043. X    char *p = in, *q = out, *pend = p + strlen(p);
  1044. X    
  1045. X    while (p < pend)
  1046. X    {
  1047. X    if (*p != '/')
  1048. X    {
  1049. X        *q++ = *p++;
  1050. X    }
  1051. X    else if (p + 1 < pend && *(p + 1) == '/')
  1052. X    {
  1053. X        ++p;
  1054. X    }
  1055. X    else if ( (p + 2 == pend && *(p + 1) == '.') || 
  1056. X          (p + 2 < pend && *(p + 1) == '.' && *(p + 2) == '/') )
  1057. X    {
  1058. X        p += 2;
  1059. X    }
  1060. X    else if ( (p + 3 == pend && *(p + 1) == '.' && *(p + 2) == '.') ||
  1061. X         (p + 3 < pend && *(p + 1) == '.'
  1062. X                              && *(p + 2) == '.' && *(p + 3) == '/') )
  1063. X    {
  1064. X        while (q > out && *--q != '/')
  1065. X        ;
  1066. X        p += 3;
  1067. X    }
  1068. X    else
  1069. X    {
  1070. X        *q++ = *p++;
  1071. X    }
  1072. X    }
  1073. X    if (q == out)
  1074. X    {
  1075. X    *q++ = '/';
  1076. X    }
  1077. X
  1078. X    while (q > out)
  1079. X    {
  1080. X    if (*--q != '/')
  1081. X        break;
  1082. X    }
  1083. X    *++q = '\0';
  1084. }
  1085. X
  1086. String
  1087. FileNominatorGetDirectory(fnw)
  1088. X     Widget fnw;
  1089. {
  1090. X    if (XtIsSubclass(fnw, fileNominatorWidgetClass))
  1091. X    {
  1092. X    return CurrentDir(fnw);
  1093. X    }
  1094. X    else
  1095. X    {
  1096. X    return NULL;
  1097. X    }
  1098. }
  1099. X
  1100. String
  1101. FileNominatorGetFileName(fnw)
  1102. Widget fnw;
  1103. {
  1104. X    String newName;
  1105. X
  1106. X    if (XtIsSubclass(fnw, fileNominatorWidgetClass))
  1107. X    {
  1108. X    
  1109. X      FileNominatorStruct data =  Nomination(fnw);
  1110. X
  1111. X      if (data.directoryStatus == 0)
  1112. X      {
  1113. X    newName = XtMalloc(strlen(data.filenamePart) + 1);
  1114. X    strcpy(newName, data.filenamePart);
  1115. X        return newName;
  1116. X      }
  1117. X    }
  1118. X    else
  1119. X    {
  1120. X    return NULL;
  1121. X    }
  1122. }
  1123. X
  1124. String
  1125. FileNominatorGetFullFileName(fnw)
  1126. X     Widget fnw;
  1127. {
  1128. X    String newName;
  1129. X
  1130. X    if (XtIsSubclass(fnw, fileNominatorWidgetClass))
  1131. X    {
  1132. X    
  1133. X      FileNominatorStruct data =  Nomination(fnw);
  1134. X
  1135. X      if (data.directoryStatus == 0)
  1136. X      {
  1137. X    newName = XtMalloc(strlen(data.directoryPart)
  1138. X               + strlen(data.filenamePart) + 1);
  1139. X    strcpy(newName, data.directoryPart);
  1140. X    strcat(newName, data.filenamePart);
  1141. X        return newName;
  1142. X      }
  1143. X    }
  1144. X    else
  1145. X    {
  1146. X    return NULL;
  1147. X    }
  1148. }
  1149. X
  1150. X
  1151. void
  1152. FileNominatorSetDirectory(fnw, dir)
  1153. X     Widget fnw;
  1154. X     String dir;
  1155. {
  1156. X    if (!XtIsSubclass(fnw, fileNominatorWidgetClass))
  1157. X    {
  1158. X    return;
  1159. X    }
  1160. X
  1161. X    /* Should do more checks */
  1162. X    strcpy(CurrentDir(fnw), dir);
  1163. X    if (dir[strlen(dir) - 1] != '/')
  1164. X    {
  1165. X    strcat(CurrentDir(fnw), "/");
  1166. X    }
  1167. X
  1168. X    ChangeDirectory(fnw, 0);
  1169. }
  1170. SHAR_EOF
  1171. chmod 0644 FileNom.c ||
  1172. echo 'restore of FileNom.c failed'
  1173. Wc_c="`wc -c < 'FileNom.c'`"
  1174. test 28730 -eq "$Wc_c" ||
  1175.     echo 'FileNom.c: original size 28730, current size' "$Wc_c"
  1176. rm -f _shar_wnt_.tmp
  1177. fi
  1178. # ============= FileNom.h ==============
  1179. if test -f 'FileNom.h' -a X"$1" != X"-c"; then
  1180.     echo 'x - skipping FileNom.h (File already exists)'
  1181.     rm -f _shar_wnt_.tmp
  1182. else
  1183. > _shar_wnt_.tmp
  1184. echo 'x - extracting FileNom.h (Text)'
  1185. sed 's/^X//' << 'SHAR_EOF' > 'FileNom.h' &&
  1186. /*********************************************************************/
  1187. /*  bibView: Administration of bibTex-Databases                      */
  1188. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  1189. /*                                                                   */
  1190. /*  Module:  FileNom.h                                               */
  1191. /*                                                                   */
  1192. /*             - File Selection Box                                  */
  1193. /*               Adapted and modified Widget from aXe editor         */
  1194. /*                                                                   */
  1195. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  1196. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  1197. /*                                                                   */
  1198. /*  History:                                                         */
  1199. /*    11.22.91  HM   created                                         */
  1200. /*                                                                   */
  1201. /*  Copyright 1991 Martin, Urban                                     */
  1202. /*    See ./Copyright for complete rights and liability information. */
  1203. /*                                                                   */
  1204. /*********************************************************************/
  1205. X
  1206. /*
  1207. X * Copyright 1991 The University of Newcastle upon Tyne
  1208. X * 
  1209. X * Permission to use, copy, modify and distribute this software and its
  1210. X * documentation for any purpose other than its commercial exploitation
  1211. X * is hereby granted without fee, provided that the above copyright
  1212. X * notice appear in all copies and that both that copyright notice and
  1213. X * this permission notice appear in supporting documentation, and that
  1214. X * the name of The University of Newcastle upon Tyne not be used in
  1215. X * advertising or publicity pertaining to distribution of the software
  1216. X * without specific, written prior permission. The University of
  1217. X * Newcastle upon Tyne makes no representations about the suitability of
  1218. X * this software for any purpose. It is provided "as is" without express
  1219. X * or implied warranty.
  1220. X * 
  1221. X * THE UNIVERSITY OF NEWCASTLE UPON TYNE DISCLAIMS ALL WARRANTIES WITH
  1222. X * REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  1223. X * MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF
  1224. X * NEWCASTLE UPON TYNE BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  1225. X * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
  1226. X * USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
  1227. X * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  1228. X * PERFORMANCE OF THIS SOFTWARE.
  1229. X * 
  1230. X * Author:  Jim Wight (j.k.wight@newcastle.ac.uk)
  1231. X *          Computing Laboratory, University of Newcastle upon Tyne, UK
  1232. X */
  1233. X
  1234. X
  1235. #ifndef FileNominator_h
  1236. #define FileNominator_h
  1237. X
  1238. #define XtNselectCallback "selectCallback"
  1239. #define XtNselectMenu "selectMenu"
  1240. #define XtNcancelCallback "cancelCallback"
  1241. #define XtNmargin "margin"
  1242. #define XtNnumberRows "numberRows"
  1243. #define XtNshowDotFiles "showDotFiles"
  1244. #define XtNbellLevel "bellLevel"
  1245. X
  1246. extern WidgetClass fileNominatorWidgetClass;
  1247. X
  1248. typedef struct _FileNominatorRec *FileNominatorWidget;
  1249. typedef struct {
  1250. X    String  directoryPart;
  1251. X    int     directoryStatus;
  1252. X    String  filenamePart;
  1253. X    int     filenameStatus;
  1254. } FileNominatorStruct;
  1255. X
  1256. String FileNominatorGetDirectory();
  1257. String FileNominatorGetFileName();
  1258. String FileNominatorGetFullFileName();
  1259. void   FileNominatorSetDirectory();
  1260. X
  1261. #endif /* FileNominator_h */
  1262. SHAR_EOF
  1263. chmod 0644 FileNom.h ||
  1264. echo 'restore of FileNom.h failed'
  1265. Wc_c="`wc -c < 'FileNom.h'`"
  1266. test 3548 -eq "$Wc_c" ||
  1267.     echo 'FileNom.h: original size 3548, current size' "$Wc_c"
  1268. rm -f _shar_wnt_.tmp
  1269. fi
  1270. # ============= FileNomP.h ==============
  1271. if test -f 'FileNomP.h' -a X"$1" != X"-c"; then
  1272.     echo 'x - skipping FileNomP.h (File already exists)'
  1273.     rm -f _shar_wnt_.tmp
  1274. else
  1275. > _shar_wnt_.tmp
  1276. echo 'x - extracting FileNomP.h (Text)'
  1277. sed 's/^X//' << 'SHAR_EOF' > 'FileNomP.h' &&
  1278. /*********************************************************************/
  1279. /*  bibView: Administration of bibTex-Databases                      */
  1280. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  1281. /*                                                                   */
  1282. /*  Module:  FileNomP.c                                              */
  1283. /*                                                                   */
  1284. /*             - File Selection Box                                  */
  1285. /*               Adapted and modified Widget from aXe editor         */
  1286. /*                                                                   */
  1287. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  1288. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  1289. /*                                                                   */
  1290. /*  History:                                                         */
  1291. /*    11.22.91  HM   created                                         */
  1292. /*                                                                   */
  1293. /*  Copyright 1991 Martin, Urban                                     */
  1294. /*    See ./Copyright for complete rights and liability information. */
  1295. /*                                                                   */
  1296. /*********************************************************************/
  1297. X
  1298. /*
  1299. X * Copyright 1991 The University of Newcastle upon Tyne
  1300. X * 
  1301. X * Permission to use, copy, modify and distribute this software and its
  1302. X * documentation for any purpose other than its commercial exploitation
  1303. X * is hereby granted without fee, provided that the above copyright
  1304. X * notice appear in all copies and that both that copyright notice and
  1305. X * this permission notice appear in supporting documentation, and that
  1306. X * the name of The University of Newcastle upon Tyne not be used in
  1307. X * advertising or publicity pertaining to distribution of the software
  1308. X * without specific, written prior permission. The University of
  1309. X * Newcastle upon Tyne makes no representations about the suitability of
  1310. X * this software for any purpose. It is provided "as is" without express
  1311. X * or implied warranty.
  1312. X * 
  1313. X * THE UNIVERSITY OF NEWCASTLE UPON TYNE DISCLAIMS ALL WARRANTIES WITH
  1314. X * REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  1315. X * MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF
  1316. X * NEWCASTLE UPON TYNE BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  1317. X * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
  1318. X * USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
  1319. X * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  1320. X * PERFORMANCE OF THIS SOFTWARE.
  1321. X * 
  1322. X * Author:  Jim Wight (j.k.wight@newcastle.ac.uk)
  1323. X *          Computing Laboratory, University of Newcastle upon Tyne, UK
  1324. X */
  1325. X
  1326. X
  1327. #ifndef FileNominatorP_h
  1328. #define FileNominatorP_h
  1329. X
  1330. #include "FileNom.h"
  1331. X
  1332. #define XtCSelectMenu "SelectMenu"
  1333. #define XtCShowDotFiles "ShowDotFiles"
  1334. #define XtCBellLevel "BellLevel"
  1335. X
  1336. typedef struct {
  1337. X    /* resources */
  1338. X    XtCallbackList      select_callback;
  1339. X    String              select_menu;
  1340. X    XtCallbackList      cancel_callback;
  1341. X    Dimension           margin;
  1342. X    int                 number_rows;
  1343. X    Boolean             show_dot_files;
  1344. X    int                 bell_level;
  1345. X    
  1346. X    /* private data */
  1347. X    Widget              viewport_widget;
  1348. X    Widget              list_widget;
  1349. X    Widget        filename_widget;
  1350. X    Widget              select_widget;
  1351. X    Widget              path_widget;
  1352. X    Widget        cancel_widget;    
  1353. X    String              *listList;
  1354. X    char                currentDir[MAXPATHLEN];
  1355. X    Boolean             watchingChanges;
  1356. X    FileNominatorStruct nomination;
  1357. } FileNominatorPart;
  1358. X
  1359. typedef struct _FileNominatorRec {
  1360. X    CorePart        core;
  1361. X    FileNominatorPart    fileNominator;
  1362. } FileNominatorRec;
  1363. X
  1364. typedef struct {
  1365. X    XtPointer        extension;
  1366. } FileNominatorClassPart;
  1367. X
  1368. typedef struct _FileNominatorClassRec {
  1369. X    CoreClassPart            core_class;
  1370. X    FileNominatorClassPart    fileNominator_class;
  1371. } FileNominatorClassRec, *FileNominatorClass;
  1372. X
  1373. extern FileNominatorClassRec fileNominatorClassRec;
  1374. X
  1375. #endif /* FileNominatorP_h */
  1376. X
  1377. SHAR_EOF
  1378. chmod 0644 FileNomP.h ||
  1379. echo 'restore of FileNomP.h failed'
  1380. Wc_c="`wc -c < 'FileNomP.h'`"
  1381. test 4158 -eq "$Wc_c" ||
  1382.     echo 'FileNomP.h: original size 4158, current size' "$Wc_c"
  1383. rm -f _shar_wnt_.tmp
  1384. fi
  1385. # ============= Imakefile ==============
  1386. if test -f 'Imakefile' -a X"$1" != X"-c"; then
  1387.     echo 'x - skipping Imakefile (File already exists)'
  1388.     rm -f _shar_wnt_.tmp
  1389. else
  1390. > _shar_wnt_.tmp
  1391. echo 'x - extracting Imakefile (Text)'
  1392. sed 's/^X//' << 'SHAR_EOF' > 'Imakefile' &&
  1393. #
  1394. # bibView
  1395. #
  1396. #
  1397. X
  1398. SYS_LIBRARIES = -lm
  1399. CDEBUGFLAGS = 
  1400. X
  1401. #ifdef HPArchitecture
  1402. DEFINES = -D_HPUX_SOURCE
  1403. SYS_LIBRARIES = -lm
  1404. CDEBUGFLAGS = 
  1405. CC = cc -Aa 
  1406. #else
  1407. CCOPTIONS =
  1408. CFLAGS = 
  1409. CC = gcc -fstrength-reduce -fpcc-struct-return
  1410. #endif /* HPArchitecture */
  1411. X
  1412. LOCAL_LIBRARIES = -lc $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB)
  1413. DEPLIBS = $(DEPXLIB)
  1414. X
  1415. SRCS=    bibview.c FileNom.c gui_main.c ctl_open.c ctl_opt.c\
  1416. X    gui_bibl.c gui_help.c ctl_srch.c gui_widg.c ctl_save.c\
  1417. X    gui_list.c gui_card.c ctl_card.c ctl_serv.c\
  1418. X    db_tree.c bib_file.c globdata.c bib_flex.c\
  1419. X    ComboBo.c rc_file.c ctl_prt.c gui_edit.c
  1420. OBJS=    bibview.o FileNom.o gui_main.o ctl_open.o ctl_opt.o\
  1421. X    gui_bibl.o gui_help.o ctl_srch.o gui_widg.o ctl_save.o\
  1422. X    gui_list.o gui_card.o ctl_card.o ctl_serv.o\
  1423. X    db_tree.o bib_file.o globdata.o bib_flex.o\
  1424. X    ComboBo.o rc_file.o ctl_prt.o gui_edit.o
  1425. X
  1426. PROGRAMS = bibview
  1427. all::  $(PROGRAMS)
  1428. X
  1429. ComplexProgramTarget(bibview)
  1430. X
  1431. SHAR_EOF
  1432. chmod 0640 Imakefile ||
  1433. echo 'restore of Imakefile failed'
  1434. Wc_c="`wc -c < 'Imakefile'`"
  1435. test 905 -eq "$Wc_c" ||
  1436.     echo 'Imakefile: original size 905, current size' "$Wc_c"
  1437. rm -f _shar_wnt_.tmp
  1438. fi
  1439. # ============= Makefile ==============
  1440. if test -f 'Makefile' -a X"$1" != X"-c"; then
  1441.     echo 'x - skipping Makefile (File already exists)'
  1442.     rm -f _shar_wnt_.tmp
  1443. else
  1444. > _shar_wnt_.tmp
  1445. echo 'x - extracting Makefile (Text)'
  1446. sed 's/^X//' << 'SHAR_EOF' > 'Makefile' &&
  1447. # Makefile generated by imake - do not edit!
  1448. # $XConsortium: imake.c,v 1.65 91/07/25 17:50:17 rws Exp $
  1449. #
  1450. # The cpp used on this machine replaces all newlines and multiple tabs and
  1451. # spaces in a macro expansion with a single space.  Imake tries to compensate
  1452. # for this, but is not always successful.
  1453. #
  1454. X
  1455. # -------------------------------------------------------------------------
  1456. # Makefile generated from "Imake.tmpl" and </tmp/IIf.a02095>
  1457. # $XConsortium: Imake.tmpl,v 1.139 91/09/16 08:52:48 rws Exp $
  1458. #
  1459. # Platform-specific parameters may be set in the appropriate <vendor>.cf
  1460. # configuration files.  Site-specific parameters should be set in the file
  1461. # site.def.  Full rebuilds are recommended if any parameters are changed.
  1462. #
  1463. # If your C preprocessor does not define any unique symbols, you will need
  1464. # to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing
  1465. # "make World" the first time).
  1466. #
  1467. X
  1468. # -------------------------------------------------------------------------
  1469. # site-specific configuration parameters that need to come before
  1470. # the platform-specific parameters - edit site.def to change
  1471. X
  1472. # site:  $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $
  1473. X
  1474. # -------------------------------------------------------------------------
  1475. # platform-specific configuration parameters - edit hp.cf to change
  1476. X
  1477. # platform:  $XConsortium: hp.cf,v 1.47 91/07/28 22:39:35 rws Exp $
  1478. X
  1479. # operating system:  HP-UX 8.05
  1480. X
  1481. # we have shared libs
  1482. X
  1483. # -------------------------------------------------------------------------
  1484. # site-specific configuration parameters that go after
  1485. # the platform-specific parameters - edit site.def to change
  1486. X
  1487. # site:  $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $
  1488. X
  1489. X            SHELL = /bin/sh
  1490. X
  1491. X              TOP = .
  1492. X      CURRENT_DIR = .
  1493. X
  1494. X               AR = ar clq
  1495. X  BOOTSTRAPCFLAGS =
  1496. X               CC = cc
  1497. X               AS = as
  1498. X
  1499. X         COMPRESS = compress
  1500. X              CPP = /lib/cpp $(STD_CPP_DEFINES)
  1501. X    PREPROCESSCMD = cc -E $(STD_CPP_DEFINES)
  1502. X          INSTALL = $(BINDIR)/bsdinst
  1503. X               LD = ld
  1504. X             LINT = lint
  1505. X      LINTLIBFLAG = -o
  1506. X         LINTOPTS = -ax
  1507. X               LN = ln -s
  1508. X             MAKE = make
  1509. X               MV = mv -f
  1510. X               CP = cp
  1511. X
  1512. X               RM = rm -f
  1513. X            TROFF = psroff
  1514. X         MSMACROS = -ms
  1515. X              TBL = tbl
  1516. X              EQN = eqn
  1517. X     STD_INCLUDES =
  1518. X  STD_CPP_DEFINES = -DSYSV
  1519. X      STD_DEFINES = -DSYSV
  1520. X EXTRA_LOAD_FLAGS =
  1521. X  EXTRA_LIBRARIES =
  1522. X             TAGS = ctags
  1523. X
  1524. X           MFLAGS = -$(MAKEFLAGS)
  1525. X
  1526. X    SHAREDCODEDEF = -DSHAREDCODE
  1527. X         SHLIBDEF =
  1528. X
  1529. X
  1530. X    PROTO_DEFINES =
  1531. X
  1532. X     INSTPGMFLAGS =
  1533. X
  1534. X     INSTBINFLAGS = -m 0755
  1535. X     INSTUIDFLAGS = -m 4755
  1536. X     INSTLIBFLAGS = -m 0644
  1537. X     INSTINCFLAGS = -m 0444
  1538. X     INSTMANFLAGS = -m 0444
  1539. X     INSTDATFLAGS = -m 0444
  1540. X    INSTKMEMFLAGS = -m 4755
  1541. X
  1542. X      CDEBUGFLAGS = +O1 -Wp,-H200000
  1543. X        CCOPTIONS =
  1544. X
  1545. X      ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES)
  1546. X       ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(DEFINES)
  1547. X           CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(ALLDEFINES)
  1548. X        LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES)
  1549. X
  1550. X           LDLIBS = $(SYS_LIBRARIES) $(EXTRA_LIBRARIES)
  1551. X
  1552. X        LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(LOCAL_LDFLAGS)
  1553. X
  1554. X   LDCOMBINEFLAGS = -X -r
  1555. X      DEPENDFLAGS =
  1556. X
  1557. X        MACROFILE = hp.cf
  1558. X           RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut
  1559. X
  1560. X    IMAKE_DEFINES =
  1561. X
  1562. X         IRULESRC = $(CONFIGDIR)
  1563. X        IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES)
  1564. X
  1565. X     ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/Imake.rules \
  1566. X            $(IRULESRC)/Project.tmpl $(IRULESRC)/site.def \
  1567. X            $(IRULESRC)/$(MACROFILE) $(EXTRA_ICONFIGFILES)
  1568. X
  1569. # -------------------------------------------------------------------------
  1570. # X Window System Build Parameters
  1571. # $XConsortium: Project.tmpl,v 1.138 91/09/10 09:02:12 rws Exp $
  1572. X
  1573. X          PATHSEP = /
  1574. X        USRLIBDIR = /usr/lib
  1575. X           BINDIR = /usr/bin/X11
  1576. X          INCROOT = /usr/include
  1577. X     BUILDINCROOT = $(TOP)
  1578. X      BUILDINCDIR = $(BUILDINCROOT)/X11
  1579. X      BUILDINCTOP = ..
  1580. X           INCDIR = $(INCROOT)/X11
  1581. X           ADMDIR = /usr/adm
  1582. X           LIBDIR = $(USRLIBDIR)/X11
  1583. X        CONFIGDIR = $(LIBDIR)/config
  1584. X       LINTLIBDIR = $(USRLIBDIR)/lint
  1585. X
  1586. X          FONTDIR = $(LIBDIR)/fonts
  1587. X         XINITDIR = $(LIBDIR)/xinit
  1588. X           XDMDIR = $(LIBDIR)/xdm
  1589. X           TWMDIR = $(LIBDIR)/twm
  1590. X          MANPATH = /usr/man
  1591. X    MANSOURCEPATH = $(MANPATH)/man
  1592. X        MANSUFFIX = n
  1593. X     LIBMANSUFFIX = 3
  1594. X           MANDIR = $(MANSOURCEPATH)$(MANSUFFIX)
  1595. X        LIBMANDIR = $(MANSOURCEPATH)$(LIBMANSUFFIX)
  1596. X           NLSDIR = $(LIBDIR)/nls
  1597. X        PEXAPIDIR = $(LIBDIR)/PEX
  1598. X      XAPPLOADDIR = $(LIBDIR)/app-defaults
  1599. X       FONTCFLAGS = -t
  1600. X
  1601. X     INSTAPPFLAGS = $(INSTDATFLAGS)
  1602. X
  1603. X            IMAKE = imake
  1604. X           DEPEND = makedepend
  1605. X              RGB = rgb
  1606. X
  1607. X            FONTC = bdftopcf
  1608. X
  1609. X        MKFONTDIR = mkfontdir
  1610. X        MKDIRHIER = /bin/sh $(BINDIR)/mkdirhier
  1611. X
  1612. X        CONFIGSRC = $(TOP)/config
  1613. X       DOCUTILSRC = $(TOP)/doc/util
  1614. X        CLIENTSRC = $(TOP)/clients
  1615. X          DEMOSRC = $(TOP)/demos
  1616. X           LIBSRC = $(TOP)/lib
  1617. X          FONTSRC = $(TOP)/fonts
  1618. X       INCLUDESRC = $(TOP)/X11
  1619. X        SERVERSRC = $(TOP)/server
  1620. X          UTILSRC = $(TOP)/util
  1621. X        SCRIPTSRC = $(UTILSRC)/scripts
  1622. X       EXAMPLESRC = $(TOP)/examples
  1623. X       CONTRIBSRC = $(TOP)/../contrib
  1624. X           DOCSRC = $(TOP)/doc
  1625. X           RGBSRC = $(TOP)/rgb
  1626. X        DEPENDSRC = $(UTILSRC)/makedepend
  1627. X         IMAKESRC = $(CONFIGSRC)
  1628. X         XAUTHSRC = $(LIBSRC)/Xau
  1629. X          XLIBSRC = $(LIBSRC)/X
  1630. X           XMUSRC = $(LIBSRC)/Xmu
  1631. X       TOOLKITSRC = $(LIBSRC)/Xt
  1632. X       AWIDGETSRC = $(LIBSRC)/Xaw
  1633. X       OLDXLIBSRC = $(LIBSRC)/oldX
  1634. X      XDMCPLIBSRC = $(LIBSRC)/Xdmcp
  1635. X      BDFTOSNFSRC = $(FONTSRC)/bdftosnf
  1636. X      BDFTOSNFSRC = $(FONTSRC)/clients/bdftosnf
  1637. X      BDFTOPCFSRC = $(FONTSRC)/clients/bdftopcf
  1638. X     MKFONTDIRSRC = $(FONTSRC)/clients/mkfontdir
  1639. X         FSLIBSRC = $(FONTSRC)/lib/fs
  1640. X    FONTSERVERSRC = $(FONTSRC)/server
  1641. X     EXTENSIONSRC = $(TOP)/extensions
  1642. SHAR_EOF
  1643. true || echo 'restore of Makefile failed'
  1644. fi
  1645. echo 'End of  part 2'
  1646. echo 'File Makefile is continued in part 3'
  1647. echo 3 > _shar_seq_.tmp
  1648. exit 0
  1649. -- 
  1650. Senior Systems Scientist        mail: dcmartin@msi.com
  1651. Molecular Simulations, Inc.        uucp: uunet!dcmartin
  1652. 796 North Pastoria Avenue        at&t: 408/522-9236
  1653. Sunnyvale, California 94086        fax: 408/732-0831
  1654.