home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume18 / bibview / part10 < prev    next >
Text File  |  1992-08-27  |  51KB  |  1,562 lines
  1. Path: uunet!decwrl!elroy.jpl.nasa.gov!swrinde!mips!msi!dcmartin
  2. From: liebla@informatik.tu-muenchen.de (Armin Liebl)
  3. Newsgroups: comp.sources.x
  4. Subject: v18i108: bibview - BibTeX GUI, Part10/20
  5. Message-ID: <1992Aug27.161554.25644@msi.com>
  6. Date: 27 Aug 92 16:15:54 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: 1548
  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 108
  16. Archive-name: bibview/part10
  17.  
  18. #!/bin/sh
  19. # this is part.10 (part 10 of a multipart archive)
  20. # do not concatenate these parts, unpack them in order with /bin/sh
  21. # file ctl_open.c 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" != 10; 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 ctl_open.c'
  37. else
  38. echo 'x - continuing file ctl_open.c'
  39. sed 's/^X//' << 'SHAR_EOF' >> 'ctl_open.c' &&
  40. X        XtNx, x, XtNy, y, NULL);
  41. X   conDialog = XtVaCreateManagedWidget("confirmLoadBox",
  42. X             dialogWidgetClass, conShell, 
  43. X         XtNicon, questPixmap, NULL);
  44. X   conOKButton = XtVaCreateManagedWidget("ok",
  45. X               commandWidgetClass, conDialog, NULL);
  46. X   conQuitButton = XtVaCreateManagedWidget("cancel",
  47. X               commandWidgetClass, conDialog, NULL);
  48. X   XtAddCallback(conQuitButton, XtNcallback, cancelLoadCmd, conShell);
  49. X   XtAddCallback(conOKButton, XtNcallback, loadCmdOk, conShell);
  50. X
  51. X   XtSetSensitive(mainMenu, FALSE);
  52. X   gubSetSensitive(NULL, FALSE);
  53. X   gbp = bp;
  54. X   XtPopup(conShell, XtGrabNonexclusive);
  55. }
  56. X
  57. X
  58. /*********************************************************************/
  59. /* cancelLoadCmd:                                                    */
  60. /*    Callback function for CANCEL button in confirm box             */
  61. /*********************************************************************/
  62. static void
  63. cancelLoadCmd (Widget w, XtPointer clientData, XtPointer callData)
  64. {
  65. Widget shell = (Widget)clientData;
  66. X
  67. X   XtSetSensitive(mainMenu, TRUE);
  68. X   gubSetSensitive(NULL, TRUE);
  69. X   XtPopdown(shell);
  70. X   gbp = NULL;
  71. }
  72. X
  73. X
  74. /*********************************************************************/
  75. /* loadCmdOK:                                                        */
  76. /*    Callback function for OK button in confirm box                 */
  77. /*********************************************************************/
  78. static void
  79. loadCmdOk (Widget w, XtPointer clientData, XtPointer callData)
  80. {
  81. Widget shell = (Widget) clientData;
  82. BibPtr bp;
  83. int status;
  84. X
  85. X   /* make new global data struct for bib file */
  86. X   if ((status = glbNewBibListEl(&bp)) != OK) {
  87. X      guwError(status);
  88. X      return;
  89. X   }
  90. X   strcpy(bp->filepath, gbp->filepath);
  91. X   strcpy(bp->filename, gbp->filename);
  92. X
  93. X   /* delete file in memory */
  94. X   if ((status = dbtDeleteTree(gbp->treeIdx)) != DBT_OK) {
  95. X      guwError(status);
  96. X   }
  97. X   if ((status = gubCloseBibWin(gbp)) != OK) {
  98. X      guwError(status);
  99. X   }
  100. X   gbp = NULL;
  101. X
  102. X   /* remove confirm box */
  103. X   XtPopdown(shell);
  104. X   XtSetSensitive(mainMenu, TRUE);
  105. X   gubSetSensitive(NULL, TRUE);
  106. X
  107. X   /* read file and reopen window */
  108. X   if ((status = bifFileRead(bp)) != BIF_OK) {
  109. X      gueOpenBibErrWin(bp, (int)status);   
  110. /*     glbDelBibListEl(bp); */
  111. X      return;
  112. X   }
  113. X   if ((status = gubOpenBibWin(bp)) != OK) {
  114. /*      glbDelBibListEl(bp);  */
  115. X      guwError(status);
  116. X      return;
  117. X   }
  118. X
  119. X   /* check cards, if option is on */
  120. X   if (cotAutoCheckBib()) 
  121. X      cseCheckBib(bp, False);      
  122. }
  123. X
  124. X
  125. SHAR_EOF
  126. echo 'File ctl_open.c is complete' &&
  127. chmod 0644 ctl_open.c ||
  128. echo 'restore of ctl_open.c failed'
  129. Wc_c="`wc -c < 'ctl_open.c'`"
  130. test 11442 -eq "$Wc_c" ||
  131.     echo 'ctl_open.c: original size 11442, current size' "$Wc_c"
  132. rm -f _shar_wnt_.tmp
  133. fi
  134. # ============= ctl_opt.c ==============
  135. if test -f 'ctl_opt.c' -a X"$1" != X"-c"; then
  136.     echo 'x - skipping ctl_opt.c (File already exists)'
  137.     rm -f _shar_wnt_.tmp
  138. else
  139. > _shar_wnt_.tmp
  140. echo 'x - extracting ctl_opt.c (Text)'
  141. sed 's/^X//' << 'SHAR_EOF' > 'ctl_opt.c' &&
  142. /*********************************************************************/
  143. /*  bibView: Administration of bibTex-Databases                      */
  144. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  145. /*                                                                   */
  146. /*  Module:  ctl_opt.c                                               */
  147. /*                                                                   */
  148. /*             Options Control                                       */
  149. /*             -                                                     */
  150. /*                                                                   */
  151. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  152. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  153. /*                                                                   */
  154. /*  History:                                                         */
  155. /*    12.08.91  PMU  created                                         */
  156. /*    05.26.92       Version 1.0 released                            */
  157. /*                                                                   */
  158. /*  Copyright 1992 TU MUENCHEN                                       */
  159. /*    See ./Copyright for complete rights and liability information. */
  160. /*                                                                   */
  161. /*********************************************************************/
  162. X
  163. #define COT_OPT
  164. X
  165. #include <stdio.h>
  166. #include <X11/Intrinsic.h>
  167. #include <X11/StringDefs.h>
  168. #include <X11/Xaw/Paned.h>
  169. #include <X11/Xaw/Form.h>
  170. #include <X11/Xaw/Box.h>
  171. #include <X11/Xaw/Command.h>
  172. #include <X11/Xaw/MenuButton.h>
  173. #include <X11/Xaw/SimpleMenu.h>
  174. #include <X11/Xaw/SmeBSB.h>
  175. #include <X11/Xaw/SmeLine.h>
  176. #include "bibview.h"
  177. X
  178. X
  179. /* imported global variables */
  180. /* ------------------------- */
  181. extern Widget topLevel;
  182. extern Pixmap chkmarkPixmap;
  183. X
  184. X
  185. /* macros and definitions */
  186. /* ---------------------- */
  187. X
  188. X
  189. /* local function prototypes */
  190. /* ------------------------- */
  191. X
  192. X
  193. /* exported variables */
  194. /* ------------------ */
  195. Boolean optionsStatus[OPT_MAX_OPTION] = {
  196. X   TRUE, TRUE, FALSE, TRUE 
  197. };
  198. X
  199. X
  200. /* local global variables */
  201. /* ---------------------- */
  202. X
  203. X
  204. /*********************************************************************/
  205. /* cotOptionIconOnDeskCmd:                                           */
  206. /*    Callback function for menu entry "icon on desktop"             */
  207. /*********************************************************************/
  208. void 
  209. cotOptionIconOnDeskCmd (Widget w, XtPointer clientData, XtPointer callData)
  210. {
  211. BibPtr bp;
  212. X 
  213. X   if (optionsStatus[OPT_ICON_ON_DESKTOP]) { 
  214. X      /* reset: icons under wm control */
  215. X      XtVaSetValues(w, XtNleftBitmap, None, NULL);
  216. X      gubUnsetIconCoords(FALSE);
  217. X      bp = glbFirstBibListEl();
  218. X      while (bp != NULL) {
  219. X     gulUnsetIconCoords(bp, FALSE);
  220. X     gueUnsetIconCoords(bp, FALSE);
  221. X     bp = glbNextBibListEl(bp);
  222. X      }  /* endwhile */
  223. X   }
  224. X   else { 
  225. X      /* set: icons under bibview control */
  226. X      XtVaSetValues(w, XtNleftBitmap, chkmarkPixmap, NULL);
  227. X      gubSetWindowCoords(TRUE);
  228. X      gubSetIconCoords(FALSE);
  229. X      bp = glbFirstBibListEl();
  230. X      while (bp != NULL) {
  231. X     gulSetIconCoords(bp, FALSE);
  232. X     gueSetIconCoords(bp, FALSE);
  233. X     bp = glbNextBibListEl(bp);
  234. X      }  /* endwhile */
  235. X   }
  236. X   optionsStatus[OPT_ICON_ON_DESKTOP] = !optionsStatus[OPT_ICON_ON_DESKTOP];
  237. }
  238. X
  239. X
  240. /*********************************************************************/
  241. /* cotOptionsControl:                                                */
  242. /*    Callback function for all option menu entries                  */
  243. /*********************************************************************/
  244. void 
  245. cotOptionsControl (Widget w, XtPointer client_data, XtPointer call_data)
  246. {
  247. int pane_num = (int) client_data;
  248. X
  249. X   if (optionsStatus[pane_num]) 
  250. X      XtVaSetValues(w, 
  251. X                XtNleftBitmap, None,
  252. X                NULL);
  253. X    else 
  254. X        XtVaSetValues(w, 
  255. X                XtNleftBitmap, chkmarkPixmap,
  256. X                NULL);
  257. X    optionsStatus[pane_num] = !optionsStatus[pane_num];
  258. }
  259. X
  260. X
  261. SHAR_EOF
  262. chmod 0644 ctl_opt.c ||
  263. echo 'restore of ctl_opt.c failed'
  264. Wc_c="`wc -c < 'ctl_opt.c'`"
  265. test 4078 -eq "$Wc_c" ||
  266.     echo 'ctl_opt.c: original size 4078, current size' "$Wc_c"
  267. rm -f _shar_wnt_.tmp
  268. fi
  269. # ============= ctl_prt.c ==============
  270. if test -f 'ctl_prt.c' -a X"$1" != X"-c"; then
  271.     echo 'x - skipping ctl_prt.c (File already exists)'
  272.     rm -f _shar_wnt_.tmp
  273. else
  274. > _shar_wnt_.tmp
  275. echo 'x - extracting ctl_prt.c (Text)'
  276. sed 's/^X//' << 'SHAR_EOF' > 'ctl_prt.c' &&
  277. /*********************************************************************/
  278. /*  bibView: Administration of bibTex-Databases                      */
  279. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  280. /*                                                                   */
  281. /*  Module:  ctl_prt.c                                               */
  282. /*                                                                   */
  283. /*             Print Control                                         */
  284. /*             - Print bibTeX File                                   */
  285. /*             - Print list                                          */
  286. /*                                                                   */
  287. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  288. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  289. /*                                                                   */
  290. /*  History:                                                         */
  291. /*    18.02.92  HM   created                                         */
  292. /*    05.26.92       Version 1.0 released                            */
  293. /*                                                                   */
  294. /*  Copyright 1992 TU MUENCHEN                                       */
  295. /*    See ./Copyright for complete rights and liability information. */
  296. /*                                                                   */
  297. /*********************************************************************/
  298. X
  299. #include <stdio.h>
  300. #include <X11/Intrinsic.h>
  301. #include <X11/StringDefs.h>
  302. #include <X11/Shell.h>
  303. #include <X11/Xaw/Cardinals.h>
  304. #include <X11/Xaw/Command.h>
  305. #include <X11/Xaw/Dialog.h>
  306. #include <X11/Xaw/Box.h>
  307. #include "FileNom.h"
  308. #include "bibview.h"
  309. X
  310. X
  311. /* macros and definitions */
  312. /* ---------------------- */
  313. #define MAXTEX  5000
  314. X
  315. /* imported global variables */
  316. /* ------------------------- */
  317. extern XtAppContext app_context;
  318. extern Widget topLevel, mainMenu, desktop;
  319. extern Pixmap questPixmap;
  320. extern char *latexHeader, *latexFooter;
  321. X
  322. /* exported global variables */
  323. /* ------------------------- */
  324. X
  325. X
  326. /* local function prototypes */
  327. /* ------------------------- */
  328. static void getFilename (CardListNode *lp);
  329. static void cancelGetFname (Widget w, XtPointer clientData, XtPointer callData);
  330. static void getFnameOk (Widget w, XtPointer clientData, XtPointer callData);
  331. static void getListFilename (BibPtr bp);
  332. static void cancelListGetFname (Widget w, XtPointer clientData, XtPointer callData);
  333. static void getListFnameOk (Widget w, XtPointer clientData, XtPointer callData);
  334. X
  335. X
  336. static Errcode printBegDoc (FILE *fp, String fname);
  337. static Errcode printEndDoc (FILE *fp);
  338. static Errcode printList   (FILE *fp, CardListNode *cl);
  339. static Errcode printCard   (FILE *fp, CardDataPtr cd);
  340. static void WriteLineToArray(char *inh);
  341. X
  342. X
  343. /* local global variables */
  344. /* ---------------------- */
  345. static char texline[MAXTEX];
  346. X
  347. X
  348. /*********************************************************************/
  349. /* cprPrintBibCmd:                                                   */
  350. /*    Callback function for command print in main menu               */
  351. /*********************************************************************/
  352. void 
  353. cprPrintBibCmd (Widget widget, XtPointer clientData, XtPointer callData)
  354. {
  355. Errcode status;
  356. X
  357. X   if ((status = guwSelectBib("printHead", cprPrintBib)) != OK)
  358. X      guwWarning(status);
  359. }
  360. X
  361. X
  362. /*********************************************************************/
  363. /* cprPrintCmd:                                                      */
  364. /*    Callback function for command print in main menu               */
  365. /*********************************************************************/
  366. void 
  367. cprPrintCmd (Widget widget, XtPointer clientData, XtPointer callData)
  368. {
  369. BibPtr bp = (BibPtr)clientData;
  370. Errcode status;
  371. X
  372. X   if ((status = cprPrintBib(bp)) != OK)
  373. X      guwError(status);
  374. }
  375. X
  376. X
  377. /*********************************************************************/
  378. /* cprPrintBib:                                                      */
  379. /*    Callback function for command print in main menu               */
  380. /*********************************************************************/
  381. Errcode
  382. cprPrintBib (BibPtr bp)
  383. {
  384. CardListNode *cl = NULL;
  385. char wcKey[] = ".";
  386. CardData *wcCard;
  387. Errcode status;
  388. X
  389. X   /* make list of all cards in src bib */
  390. X   if ((status = dbtMakeCard(&wcCard)) != DBT_OK) {
  391. X      return(status);
  392. X   }
  393. X   wcCard->mainkey = glbNewString(".");
  394. X   if ((status = dbtSearchList(bp->treeIdx, wcCard, &cl)) != DBT_OK) {
  395. X      return(status);
  396. X   }
  397. X
  398. X   getFilename(cl);
  399. X   return(OK);
  400. }
  401. X
  402. X
  403. /*********************************************************************/
  404. /* cprPrintListCmd:                                                  */
  405. /*    Callback function for command print in list window             */
  406. /*********************************************************************/
  407. void 
  408. cprPrintListCmd(Widget widget, XtPointer clientData, XtPointer callData)
  409. {
  410. CardListNode *cl = (CardListNode *)clientData;
  411. X
  412. X   getFilename(cl);
  413. }
  414. X
  415. X
  416. /*********************************************************************/
  417. /* cprPrintList:                                                     */
  418. /*    Print a list of cards to file in LaTeX format                  */
  419. /*********************************************************************/
  420. Errcode
  421. cprPrintList (CardListNode *lp, String fname)
  422. {
  423. FILE *fp;
  424. Errcode status;
  425. char sysStr[2*MAX_FILEPATHLEN];
  426. X
  427. X   /* make .bak file of original */
  428. X   if (cotBackupBeforeSave()) {
  429. X      sprintf(sysStr, "rm -f %s.bak 2> /dev/null", fname);
  430. X      system(sysStr);
  431. X      sprintf(sysStr, "mv -f %s %s.bak 2> /dev/null", fname, fname);
  432. X      system(sysStr);
  433. X   }
  434. X
  435. X   if ((fp = fopen(fname, "w")) == NULL) 
  436. X      return(ERR_NO_OPEN_FILE);
  437. X   if (latexHeader != NULL) {
  438. X      fprintf(fp,"%s\n", latexHeader);
  439. X   }
  440. X   else {
  441. X     if ((status = printBegDoc(fp, fname)) != OK) {
  442. X    fclose(fp);
  443. X    return(status);
  444. X     }
  445. X   }
  446. X   if ((status = printList(fp, lp)) != OK) {
  447. X      fclose(fp);
  448. X      return(status);
  449. X   }
  450. X
  451. X   if (latexFooter != NULL) {
  452. X      fprintf(fp,"%s\n", latexFooter);
  453. X   }
  454. X   else {
  455. X     if ((status = printEndDoc(fp)) != OK) {
  456. X    fclose(fp);
  457. X    return(status);
  458. X     }
  459. X   }
  460. X
  461. X   fclose(fp);
  462. X   return(OK);
  463. }
  464. X
  465. X
  466. /*********************************************************************/
  467. /* cprSaveListCmd:                                                   */
  468. /*    Callback function for command save in list window              */
  469. /*********************************************************************/
  470. void 
  471. cprSaveListCmd(Widget widget, XtPointer clientData, XtPointer callData)
  472. {
  473. BibPtr bp = (BibPtr)clientData;
  474. X
  475. X   getListFilename(bp);
  476. }
  477. X
  478. /*********************************************************************/
  479. /* LOCAL FUNCTIONS                                                   */
  480. /*********************************************************************/
  481. X
  482. /*********************************************************************/
  483. /* getFilename:                                                      */
  484. /*    Opens dialogbox for user to enter name of file                 */
  485. /*********************************************************************/
  486. static void
  487. getFilename (CardListNode *lp)
  488. {
  489. static Widget fsbShell, fsbBox, fsbLabel, fsbDialog;
  490. char fname[MAX_FILEPATHLEN];
  491. Position dx, dy, x, y;
  492. int status;
  493. X
  494. X   XtVaGetValues(desktop,
  495. X                 XtNx, &dx,
  496. X                 XtNy, &dy, NULL);
  497. X   XtTranslateCoords(desktop,
  498. X                     (Position)dx + SUBWIN_MARGIN,
  499. X                     (Position)dy + SUBWIN_MARGIN,
  500. X                     &x, &y);
  501. X
  502. X   fsbShell  = XtVaCreatePopupShell("fileSelectBoxShell",
  503. X                 topLevelShellWidgetClass, desktop,
  504. X                 XtNx, x, XtNy, y, NULL);
  505. X   fsbBox    = XtVaCreateManagedWidget("fileSelectBox",
  506. X         boxWidgetClass, fsbShell, NULL);
  507. X   fsbLabel  = XtVaCreateManagedWidget("filePrintHead",
  508. X         labelWidgetClass, fsbBox, 
  509. X         XtNborderWidth, 0, NULL);
  510. X   fsbDialog = XtVaCreateManagedWidget("fileSelectBox",
  511. X                 fileNominatorWidgetClass, fsbBox, 
  512. X         XtNborderWidth, 0, NULL);
  513. X
  514. X   XtAddCallback(fsbDialog, XtNcancelCallback, cancelGetFname, fsbShell);
  515. X   XtAddCallback(fsbDialog, XtNselectCallback, getFnameOk, lp);
  516. X
  517. X   XtSetSensitive(mainMenu, FALSE);
  518. X   gubSetSensitive(NULL, FALSE);
  519. X   XtPopup(fsbShell, XtGrabNonexclusive);
  520. }
  521. X
  522. X
  523. /*********************************************************************/
  524. /* getListFilename:                                                  */
  525. /*    Opens dialogbox for user to enter name of file                 */
  526. /*********************************************************************/
  527. static void
  528. getListFilename (BibPtr bp)
  529. {
  530. static Widget fsbShell, fsbBox, fsbLabel, fsbDialog;
  531. char fname[MAX_FILEPATHLEN];
  532. Position dx, dy, x, y;
  533. int status;
  534. X
  535. X   XtVaGetValues(desktop,
  536. X                 XtNx, &dx,
  537. X                 XtNy, &dy, NULL);
  538. X   XtTranslateCoords(desktop,
  539. X                     (Position)dx + SUBWIN_MARGIN,
  540. X                     (Position)dy + SUBWIN_MARGIN,
  541. X                     &x, &y);
  542. X
  543. X   fsbShell  = XtVaCreatePopupShell("fileSelectBoxShell",
  544. X                 topLevelShellWidgetClass, desktop,
  545. X                 XtNx, x, XtNy, y, NULL);
  546. X   fsbBox    = XtVaCreateManagedWidget("fileSelectBox",
  547. X         boxWidgetClass, fsbShell, NULL);
  548. X   fsbLabel  = XtVaCreateManagedWidget("fileListSaveHead",
  549. X         labelWidgetClass, fsbBox, 
  550. X         XtNborderWidth, 0, NULL);
  551. X   fsbDialog = XtVaCreateManagedWidget("fileSelectBox",
  552. X                 fileNominatorWidgetClass, fsbBox, 
  553. X         XtNborderWidth, 0, NULL);
  554. X
  555. X
  556. X   XtAddCallback(fsbDialog, XtNcancelCallback, cancelListGetFname, fsbShell);
  557. X   XtAddCallback(fsbDialog, XtNselectCallback, getListFnameOk, (XtPointer)bp);
  558. X
  559. X   XtSetSensitive(mainMenu, FALSE);
  560. X   gubSetSensitive(NULL, FALSE);
  561. X   XtPopup(fsbShell, XtGrabNonexclusive);
  562. }
  563. X
  564. X
  565. /*********************************************************************/
  566. /* cancelGetFname:                                                   */
  567. /*    Callback function for CANCEL button in filename box            */
  568. /*********************************************************************/
  569. static void
  570. cancelGetFname (Widget w, XtPointer clientData, XtPointer callData)
  571. {
  572. Widget shell = (Widget)clientData;
  573. X
  574. X   XtSetSensitive(mainMenu, TRUE);
  575. X   gubSetSensitive(NULL, TRUE);
  576. X   XtPopdown(shell);
  577. }
  578. X
  579. X
  580. /*********************************************************************/
  581. /* cancelListGetFname:                                               */
  582. /*    Callback function for CANCEL button in filename box            */
  583. /*********************************************************************/
  584. static void
  585. cancelListGetFname (Widget w, XtPointer clientData, XtPointer callData)
  586. {
  587. Widget shell = (Widget)clientData;
  588. X
  589. X   XtSetSensitive(mainMenu, TRUE);
  590. X   gubSetSensitive(NULL, TRUE);
  591. X   XtPopdown(shell);
  592. }
  593. X
  594. X
  595. /*********************************************************************/
  596. /* getFnameOk:                                                       */
  597. /*    Callback function for OK button in filename box                */
  598. /*********************************************************************/
  599. static void
  600. getFnameOk (Widget w, XtPointer clientData, XtPointer callData)
  601. {
  602. CardListNode *lp = (CardListNode *) clientData;
  603. char sysStr[2*MAX_FILEPATHLEN];
  604. String prtName;
  605. int status;
  606. X
  607. X   /* get filename and rename windows */
  608. X   prtName = (String)FileNominatorGetFileName(w);
  609. X
  610. X   /* remove file select box */
  611. X   XtPopdown(XtParent(XtParent(w)));
  612. X   XtSetSensitive(mainMenu, TRUE);
  613. X   gubSetSensitive(NULL, TRUE);
  614. X
  615. X   /* write out printfile to disk */
  616. X   if ((status = cprPrintList(lp, prtName)) != OK)
  617. X      guwError(status);
  618. X
  619. /* if ((status = dbtCardListDelete(&lp)) != OK)
  620. X      guwError(status);
  621. */
  622. }
  623. X
  624. X
  625. X
  626. /*********************************************************************/
  627. /* getListFnameOk:                                                   */
  628. /*    Callback function for OK button in filename box                */
  629. /*********************************************************************/
  630. static void
  631. getListFnameOk (Widget w, XtPointer clientData, XtPointer callData)
  632. {
  633. BibPtr bp = (BibPtr)clientData;
  634. char sysStr[2*MAX_FILEPATHLEN];
  635. String prtName;
  636. int status;
  637. X
  638. X   /* get filename and rename windows */
  639. X   prtName = (String)FileNominatorGetFileName(w);
  640. X
  641. X   /* remove file select box */
  642. X   XtPopdown(XtParent(XtParent(w)));
  643. X   XtSetSensitive(mainMenu, TRUE);
  644. X   gubSetSensitive(NULL, TRUE);
  645. X
  646. X   /* make .bak file of original */
  647. X   if (cotBackupBeforeSave()) {
  648. X      sprintf(sysStr, "rm -f %s.bak 2> /dev/null", prtName);
  649. X      system(sysStr);
  650. X      sprintf(sysStr, "mv -f %s %s.bak 2> /dev/null", prtName, prtName);
  651. X      system(sysStr);
  652. X   }
  653. X
  654. X   /* write out printfile to disk */
  655. X   if ((status = bifFileListWrite(bp, bp->lw->cardLst, prtName)) != OK)
  656. X      guwError(status);
  657. }
  658. X
  659. /*********************************************************************/
  660. /* printBegDoc:                                                      */
  661. /*    Print begin of LaTeX file                                      */
  662. /*********************************************************************/
  663. static Errcode
  664. printBegDoc (FILE *fp, String fname)
  665. {
  666. #ifdef GERMAN
  667. X   fprintf(fp, "\\documentstyle[german]{article}\n");
  668. X   fprintf(fp, "\\begin{document}\n");
  669. X   fprintf(fp, "{\\large \\bf Inhalt der Datei %s -- \\today}\n", fname);
  670. #else
  671. X   fprintf(fp, "\\documentstyle{article}\n");
  672. X   fprintf(fp, "\\begin{document}\n");
  673. X   fprintf(fp, "{\\large \\bf Content of file %s -- \\today}\n", fname);
  674. #endif
  675. X   fprintf(fp, "\\begin{enumerate}\n"); 
  676. X   return(OK);
  677. }
  678. X
  679. X
  680. /*********************************************************************/
  681. /* printEndDoc:                                                      */
  682. /*    Print end   of LaTeX file                                      */
  683. /*********************************************************************/
  684. static Errcode
  685. printEndDoc (FILE *fp)
  686. {
  687. X   fprintf(fp, "\\end{enumerate}\n"); 
  688. X   fprintf(fp, "\\end{document}\n");
  689. X   return(OK);
  690. }
  691. X
  692. X
  693. /*********************************************************************/
  694. /* printList:                                                        */
  695. /*    Print list of cards to file                                    */
  696. /*********************************************************************/
  697. static Errcode
  698. printList (FILE *fp, CardListNode *list)
  699. {
  700. Errcode status;
  701. X
  702. X   while (list != NULL) {                 
  703. X      if ((status = printCard(fp, list->data)) != OK)
  704. X     return(status);
  705. X      list = list->next; 
  706. X   }
  707. X   return(OK);
  708. }
  709. X
  710. X
  711. /*********************************************************************/
  712. /* printCard:                                                        */
  713. /*    Print list of cards to file                                    */
  714. /*********************************************************************/
  715. static Errcode
  716. printCard (FILE *fp, CardData *cd)
  717. {
  718. UserFld *hufield;
  719. X
  720. X   fprintf(fp, "\\item %s  %s\n", glbNewString(glbTypeToName(cd->cardtype)),
  721. X                                 cd->mainkey); 
  722. X   fprintf(fp, "\\begin{tabbing}\n");
  723. X   fprintf(fp, "AAAAAAAAAAAAAAAAAAAA\\= \\kill\n");
  724. X
  725. X   if (!glbIsStringEmpty(cd->category)) {
  726. X      WriteLineToArray(cd->category);
  727. X      fprintf(fp, "\\bf ADDRESS \\> \\parbox[t]{25em}{%s} \\\\ \n",
  728. X          texline);
  729. X   }
  730. X   if (!glbIsStringEmpty(cd->address)) {
  731. X      WriteLineToArray(cd->address);
  732. X      fprintf(fp, "\\bf ADDRESS \\> \\parbox[t]{25em}{%s} \\\\ \n",
  733. X          texline);
  734. X   }
  735. X   if (!glbIsStringEmpty(cd->annote)) {
  736. X      WriteLineToArray(cd->annote);
  737. X      fprintf(fp, "\\bf ANNOTE \\>  \\parbox[t]{25em}{%s} \\\\ \n",
  738. X          texline);
  739. X   }
  740. X   if (!glbIsStringEmpty(cd->author)) {
  741. X      WriteLineToArray(cd->author);
  742. X      fprintf(fp, "\\bf AUTHOR \\>  \\parbox[t]{25em}{%s} \\\\ \n",
  743. X          texline);
  744. X   }
  745. X   if (!glbIsStringEmpty(cd->booktitle)) {
  746. X      WriteLineToArray(cd->booktitle);
  747. X      fprintf(fp, "\\bf BOOKTITLE \\> \\parbox[t]{25em}{%s} \\\\ \n",
  748. X          texline);
  749. X   }
  750. X   if (!glbIsStringEmpty(cd->chapter)) {
  751. X      WriteLineToArray(cd->chapter);
  752. X      fprintf(fp, "\\bf CHAPTER \\> \\parbox[t]{25em}{%s} \\\\ \n",
  753. X          texline);
  754. X   }
  755. X   if (!glbIsStringEmpty(cd->edition)) {
  756. X      WriteLineToArray(cd->edition);
  757. X      fprintf(fp, "\\bf EDITION \\> \\parbox[t]{25em}{%s} \\\\ \n",
  758. X          texline);
  759. X   }
  760. X   if (!glbIsStringEmpty(cd->editor)) {
  761. X      WriteLineToArray(cd->editor);
  762. X      fprintf(fp, "\\bf EDITON \\> \\parbox[t]{25em}{%s} \\\\ \n",
  763. X          texline);
  764. X   }
  765. X   if (!glbIsStringEmpty(cd->howpublished)) {
  766. X      WriteLineToArray(cd->howpublished);
  767. X      fprintf(fp, "\\bf HOWPUBLISHED \\> \\parbox[t]{25em}{%s} \\\\ \n",
  768. X          texline);
  769. X   }
  770. X   if (!glbIsStringEmpty(cd->institution)) {
  771. X      WriteLineToArray(cd->institution);
  772. X      fprintf(fp, "\\bf INSTITUTION \\> \\parbox[t]{25em}{%s} \\\\ \n",
  773. X          texline);
  774. X   }
  775. X   if (!glbIsStringEmpty(cd->journal)) {
  776. X      WriteLineToArray(cd->journal);
  777. X      fprintf(fp, "\\bf JOURNAL \\> \\parbox[t]{25em}{%s} \\\\ \n",
  778. X          texline);
  779. X   }
  780. X   if (!glbIsStringEmpty(cd->key)) {
  781. X      WriteLineToArray(cd->key);
  782. X      fprintf(fp, "\\bf KEY \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  783. X          texline);
  784. X   }
  785. X   if (!glbIsStringEmpty(cd->month)) {
  786. X      WriteLineToArray(cd->month);
  787. X      fprintf(fp, "\\bf MONTH \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  788. X          texline);
  789. X   }
  790. X   if (!glbIsStringEmpty(cd->note)) {
  791. X      WriteLineToArray(cd->note);
  792. X      fprintf(fp, "\\bf NOTE \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  793. X          texline);
  794. X   }
  795. X   if (!glbIsStringEmpty(cd->number)) {
  796. X      WriteLineToArray(cd->number);
  797. X      fprintf(fp, "\\bf NUMBER \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  798. X          texline);
  799. X   }
  800. X   if (!glbIsStringEmpty(cd->organization)) {
  801. X      WriteLineToArray(cd->organization);
  802. X      fprintf(fp, "\\bf ORGANIZATION \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  803. X          texline);
  804. X   }
  805. X   if (!glbIsStringEmpty(cd->pages)) {
  806. X      WriteLineToArray(cd->pages);
  807. X      fprintf(fp, "\\bf PAGES \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  808. X          texline);
  809. X   }
  810. X   if (!glbIsStringEmpty(cd->publisher)) {
  811. X      WriteLineToArray(cd->publisher);
  812. X      fprintf(fp, "\\bf PUBLISHER \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  813. X          texline);
  814. X   }
  815. X   if (!glbIsStringEmpty(cd->school)) {
  816. X      WriteLineToArray(cd->school);
  817. X      fprintf(fp, "\\bf SCHOOL \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  818. X          texline);
  819. X   }
  820. X   if (!glbIsStringEmpty(cd->series)) {
  821. X      WriteLineToArray(cd->series);
  822. X      fprintf(fp, "\\bf SERIES \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  823. X          texline);
  824. X   }
  825. X   if (!glbIsStringEmpty(cd->title)) {
  826. X      WriteLineToArray(cd->title);
  827. X      fprintf(fp, "\\bf TITLE \\>   \\parbox[t]{25em}{%s}  \\\\ \n",
  828. X          texline);
  829. X   }
  830. X   if (!glbIsStringEmpty(cd->type)) {
  831. X      WriteLineToArray(cd->type);
  832. X      fprintf(fp, "\\bf TYPE \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  833. X          texline);
  834. X   }
  835. X   if (!glbIsStringEmpty(cd->volume)) {
  836. X      WriteLineToArray(cd->volume);
  837. X      fprintf(fp, "\\bf VOLUME \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  838. X          texline);
  839. X   }
  840. X   if (!glbIsStringEmpty(cd->year)) {
  841. X      WriteLineToArray(cd->year);
  842. X      fprintf(fp, "\\bf YEAR \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  843. X          texline);
  844. X   }
  845. X   if (!glbIsStringEmpty(cd->crossref)) {
  846. X      WriteLineToArray(cd->crossref);
  847. X      fprintf(fp, "\\bf YEAR \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  848. X          texline);
  849. X   }
  850. X
  851. X   /* print userdefined fields */
  852. X   hufield = cd->ufield;
  853. X   while (hufield != NULL) {
  854. X      WriteLineToArray(hufield->fldData);
  855. X      fprintf(fp, "\\bf %s \\>  \\parbox[t]{25em}{%s}  \\\\ \n",
  856. X           hufield->fldName, texline);
  857. X      hufield = hufield->next;
  858. X   } 
  859. X   fprintf(fp, "\\end{tabbing}\n");
  860. X   return(OK);
  861. }
  862. X
  863. X
  864. /*********************************************************************/
  865. /* writeLineToArray:                                                 */
  866. /*                                                                   */
  867. /*********************************************************************/
  868. static void 
  869. WriteLineToArray (char *inh)
  870. {
  871. int idx;
  872. int makro = 2;    /* weder Makro, noch String */
  873. char *tmp;
  874. X
  875. X  idx = 0;
  876. X  while (*inh == ' ' || *inh == '\t' || *inh == '\n') {
  877. X    texline[idx] = *inh; 
  878. X    inh++;
  879. X    idx++;
  880. X  }
  881. X  if (*inh == '@') {
  882. X    texline[idx] = ' '; 
  883. X    makro = 1;
  884. X  }
  885. X  else {
  886. X    texline[idx] = '{'; 
  887. X    idx++;
  888. X    texline[idx] = *inh; 
  889. X    makro = 0;
  890. X  }
  891. X  idx++;
  892. X  inh++;
  893. X  while (*inh != '\0') {
  894. X    if (*inh == '@') {
  895. X      tmp = inh;
  896. X      tmp++;
  897. X      if (*tmp == '#') {                  /* KONKATENATION */
  898. X        if (makro == 1) {
  899. X                                          /* letzter Teil war ein MAKRO */ 
  900. X          texline[idx] = ' '; idx++; 
  901. X          texline[idx] = '\\'; idx++; 
  902. X          texline[idx] = '#'; idx++; 
  903. X          texline[idx] = ' '; idx++; 
  904. X          tmp++;
  905. X          while (*tmp == ' ' || *tmp == '\t' || *tmp == '\n') {
  906. X            texline[idx] = *tmp; 
  907. X            idx++;
  908. X            tmp++;
  909. X          }
  910. X          if (*tmp == '@') {              /* naechster Teil ist ein MAKRO */
  911. X            texline[idx] = ' '; idx++; 
  912. X            makro = 1;
  913. X          }
  914. X          else {
  915. X            texline[idx] = '{'; idx++; 
  916. X            texline[idx] = *tmp; 
  917. X            idx++;
  918. X                                          /* naechster Teil ist ein STRING */
  919. X            makro = 0;
  920. X          }
  921. X        }
  922. X        else if (makro == 0) {
  923. X                                          /* letzter Teil war ein STRING */ 
  924. X          texline[idx] = '}'; idx++; 
  925. X          texline[idx] = ' '; idx++; 
  926. X          texline[idx] = '\\'; idx++; 
  927. X          texline[idx] = '#'; idx++; 
  928. X          texline[idx] = ' '; idx++; 
  929. X          tmp++;
  930. X          while (*tmp == ' ' || *tmp == '\t' || *tmp == '\n') {
  931. X            texline[idx] = *tmp; 
  932. X            idx++;
  933. X            tmp++;
  934. X          }
  935. X          if (*tmp == '@') {              /* naechster Teil ist ein MAKRO */
  936. X            texline[idx] = ' '; idx++; 
  937. X            makro = 1;
  938. X          }
  939. X          else {
  940. X            texline[idx] = '{'; idx++; 
  941. X            texline[idx] = *tmp; 
  942. X            idx++;
  943. X            makro = 0;
  944. X          }
  945. X        }  /* else if makro == 0 */
  946. X        inh = tmp;
  947. X      }
  948. X      else {                              /* AFFE nicht schreiben */
  949. X        texline[idx] = ' '; idx++; 
  950. X        makro = 1;
  951. X      }
  952. X    }      /* if @ */
  953. X    else {
  954. X      texline[idx] = *inh; 
  955. X      idx++;
  956. X    }
  957. X    inh++;
  958. X  }  /* while */
  959. X  if (makro == 0) {
  960. X    texline[idx] = '}'; idx++; 
  961. X  }
  962. X  texline[idx] = ','; idx++; 
  963. X  texline[idx] = ' '; idx++; 
  964. X  texline[idx] = '\0'; idx++; 
  965. }
  966. X
  967. X
  968. SHAR_EOF
  969. chmod 0644 ctl_prt.c ||
  970. echo 'restore of ctl_prt.c failed'
  971. Wc_c="`wc -c < 'ctl_prt.c'`"
  972. test 22375 -eq "$Wc_c" ||
  973.     echo 'ctl_prt.c: original size 22375, current size' "$Wc_c"
  974. rm -f _shar_wnt_.tmp
  975. fi
  976. # ============= ctl_save.c ==============
  977. if test -f 'ctl_save.c' -a X"$1" != X"-c"; then
  978.     echo 'x - skipping ctl_save.c (File already exists)'
  979.     rm -f _shar_wnt_.tmp
  980. else
  981. > _shar_wnt_.tmp
  982. echo 'x - extracting ctl_save.c (Text)'
  983. sed 's/^X//' << 'SHAR_EOF' > 'ctl_save.c' &&
  984. /*********************************************************************/
  985. /*  bibView: Administration of bibTex-Databases                      */
  986. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  987. /*                                                                   */
  988. /*  Module:  ctl_save.c                                              */
  989. /*                                                                   */
  990. /*             Close / Save Control                                  */
  991. /*             - Menu function Save                                  */
  992. /*             - Menu function Save as                               */
  993. /*                                                                   */
  994. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  995. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  996. /*                                                                   */
  997. /*  History:                                                         */
  998. /*    18.02.92  PMU  created                                         */
  999. /*    05.26.92       Version 1.0 released                            */
  1000. /*                                                                   */
  1001. /*  Copyright 1992 TU MUENCHEN                                       */
  1002. /*    See ./Copyright for complete rights and liability information. */
  1003. /*                                                                   */
  1004. /*********************************************************************/
  1005. X
  1006. #include <stdio.h>
  1007. /* #include <stdlib.h> */
  1008. #include <X11/Intrinsic.h>
  1009. #include <X11/StringDefs.h>
  1010. #include <X11/Shell.h>
  1011. #include <X11/Xaw/Cardinals.h>
  1012. #include <X11/Xaw/Command.h>
  1013. #include <X11/Xaw/Dialog.h>
  1014. #include <X11/Xaw/Box.h>
  1015. #include "FileNom.h"
  1016. #include "bibview.h"
  1017. X
  1018. X
  1019. /* macros and definitions */
  1020. /* ---------------------- */
  1021. X
  1022. X
  1023. /* imported global variables */
  1024. /* ------------------------- */
  1025. extern XtAppContext app_context;
  1026. extern Widget topLevel, mainMenu, desktop;
  1027. extern Pixmap questPixmap;
  1028. X
  1029. X
  1030. /* exported global variables */
  1031. /* ------------------------- */
  1032. X
  1033. X
  1034. /* local function prototypes */
  1035. /* ------------------------- */
  1036. static void confirmClose (BibPtr bp);
  1037. static void closeCmdOk (Widget w, XtPointer clientData, XtPointer callData);
  1038. static void cancelCloseCmd (Widget w, XtPointer clientData, XtPointer callData);
  1039. static void getFilename (BibPtr bp);
  1040. static void getFnameOk (Widget w, XtPointer clientData, XtPointer callData);
  1041. static void cancelGetFname (Widget w, XtPointer clientData, XtPointer callData);
  1042. static Errcode renameWindowTitles (BibPtr bp, String newName);
  1043. X
  1044. X
  1045. /* local global variables */
  1046. /* ---------------------- */
  1047. static BibPtr gbp = NULL;
  1048. X
  1049. X
  1050. X
  1051. /*********************************************************************/
  1052. /* csaQuitBibviewCmd:                                                */
  1053. /*    Callback function for command quit in main file menu           */
  1054. /*********************************************************************/
  1055. void
  1056. csaQuitBibviewCmd (Widget w, XtPointer clientData, XtPointer callData)
  1057. {
  1058. BibPtr bpold, bp;
  1059. CardPtr cp;
  1060. Boolean unsaved = FALSE;
  1061. X
  1062. X   /* close bibs first (checks for unsaved changes) */
  1063. X   bp = glbFirstBibListEl();
  1064. X   while (bp != NULL) {
  1065. X      /* check for unsaved changes to cards and macros */
  1066. X      cp = glbFirstCardListEl(bp);
  1067. X      while (cp != NULL) {
  1068. X     if (cp->changed || gucStdFldsChanged(cp)) {
  1069. X        unsaved = TRUE;
  1070. X        break;
  1071. X     }
  1072. X     cp = glbNextCardListEl(bp, cp);
  1073. X      }
  1074. X      if (bp->mw && bp->mw->changed)
  1075. X     unsaved = TRUE;
  1076. X      if (bp->changed)
  1077. X     unsaved = TRUE;
  1078. X
  1079. X      if (unsaved) {
  1080. X         csaCloseBib(bp);
  1081. X     return;
  1082. X      } 
  1083. X      bpold = bp;
  1084. X      bp = glbNextBibListEl(bp);
  1085. X      glbDelBibListEl(bpold); 
  1086. X   }
  1087. X  
  1088. X   exit(0);
  1089. }
  1090. X
  1091. X
  1092. /*********************************************************************/
  1093. /* csaCloseBibCmd:                                                   */
  1094. /*    Callback function for command close bib  in main menu          */
  1095. /*********************************************************************/
  1096. void
  1097. csaCloseBibCmd (Widget w, XtPointer clientData, XtPointer callData)
  1098. {
  1099. Errcode status;
  1100. X
  1101. X   if ((status = guwSelectBib("closeHead", csaCloseBib)) != OK)
  1102. X      guwWarning(status);
  1103. }
  1104. X
  1105. X
  1106. /*********************************************************************/
  1107. /* csaCloseCmd:                                                      */
  1108. /*    Callback function for command close/quit in bib win menu       */
  1109. /*********************************************************************/
  1110. void
  1111. csaCloseCmd (Widget w, XtPointer clientData, XtPointer callData)
  1112. {
  1113. BibPtr bp = (BibPtr)clientData;
  1114. X
  1115. X   csaCloseBib(bp);
  1116. }
  1117. X
  1118. X
  1119. /*********************************************************************/
  1120. /* csaCloseBib:                                                      */
  1121. /*    Close bibliography file (ask if not saved)                     */
  1122. /*********************************************************************/
  1123. Errcode
  1124. csaCloseBib (BibPtr bp)
  1125. {
  1126. CardPtr cp;
  1127. char sysStr[2*MAX_FILEPATHLEN];
  1128. Boolean unsaved = FALSE;
  1129. Errcode status;
  1130. X   
  1131. X
  1132. X   /* check for unsaved changes to cards and macros */
  1133. X   cp = glbFirstCardListEl(bp);
  1134. X   while (cp != NULL) {
  1135. X      if (!cp->changed && !gucStdFldsChanged(cp)) {
  1136. X     gucCloseCardWin(cp);
  1137. X     cp = glbFirstCardListEl(bp);
  1138. X      }
  1139. X      else
  1140. X     unsaved = TRUE;
  1141. X      cp = glbNextCardListEl(bp, cp);
  1142. X   }
  1143. X   if (bp->mw && bp->mw->changed)
  1144. X      unsaved = TRUE;
  1145. X
  1146. X   /* if opened and unsaved cards found, reorder them */
  1147. X   if (unsaved)
  1148. X      gucCascade(bp);
  1149. X
  1150. X   /* confirm trashing unsaved cards or previous changes to bib */
  1151. X   if (unsaved || bp->changed) {
  1152. X      confirmClose(bp);
  1153. X      return(OK);
  1154. X   }
  1155. X
  1156. X   /* delete database tree */
  1157. X   if ((status = dbtDeleteTree(bp->treeIdx)) != DBT_OK) {
  1158. X      guwError(status);
  1159. X      return(status);
  1160. X   }
  1161. X   if ((status = gubCloseBibWin(bp)) != OK) {
  1162. X      guwError(status);
  1163. X      return(status);
  1164. X   }
  1165. X
  1166. X   return(OK);
  1167. }
  1168. X
  1169. X
  1170. /*********************************************************************/
  1171. /* csaSaveBibCmd:                                                    */
  1172. /*    Callback function for command save in file menu                */
  1173. /*********************************************************************/
  1174. void
  1175. csaSaveBibCmd (Widget w, XtPointer clientData, XtPointer callData)
  1176. {
  1177. Errcode status;
  1178. X
  1179. X   if ((status = guwSelectBib("saveHead", csaSaveBib)) != OK)
  1180. X      guwWarning(status);
  1181. }
  1182. X
  1183. X
  1184. /*********************************************************************/
  1185. /* csaSaveCmd:                                                       */
  1186. /*    Callback function for command save in bib window menu          */
  1187. /*********************************************************************/
  1188. void
  1189. csaSaveCmd (Widget w, XtPointer clientData, XtPointer callData)
  1190. {
  1191. BibPtr bp = (BibPtr)clientData;
  1192. X
  1193. X   csaSaveBib(bp);
  1194. }
  1195. X
  1196. X
  1197. /*********************************************************************/
  1198. /* csaSaveBib:                                                       */
  1199. /*    Save bibliography to disk                                      */
  1200. /*********************************************************************/
  1201. Errcode
  1202. csaSaveBib (BibPtr bp)
  1203. {
  1204. char sysStr[2*MAX_FILEPATHLEN];
  1205. int status;
  1206. X
  1207. X   /* check whether bib has a real name */
  1208. X   if (strncmp(bp->filename, "noname", 6) == 0) {
  1209. X      getFilename(bp);
  1210. X      return(OK);
  1211. X   }
  1212. X
  1213. X   /* make .bak file of original */
  1214. X   if (cotBackupBeforeSave()) {
  1215. X      sprintf(sysStr, "rm -f %s.bak 2> /dev/null", bp->filename);
  1216. X      system(sysStr);
  1217. X      sprintf(sysStr, "mv -f %s %s.bak 2> /dev/null", bp->filename, bp->filename);
  1218. X      system(sysStr);
  1219. X   }
  1220. X
  1221. X   /* write out file to disk */
  1222. X   if ((status = bifFileWrite(bp)) != DBT_OK) {
  1223. X      guwError(status);
  1224. X      return(status);
  1225. X   }
  1226. X   bp->changed = FALSE;
  1227. X   
  1228. X   return(OK);
  1229. }
  1230. X
  1231. X
  1232. /*********************************************************************/
  1233. /* csaSaveAsBibCmd:                                                  */
  1234. /*    Callback function for command save as in file menu             */
  1235. /*********************************************************************/
  1236. void
  1237. csaSaveAsBibCmd (Widget w, XtPointer clientData, XtPointer callData)
  1238. {
  1239. Errcode status;
  1240. X
  1241. X   if ((status = guwSelectBib("saveAsHead", csaSaveAsBib)) != OK)
  1242. X      guwWarning(status);
  1243. }
  1244. X
  1245. X
  1246. /*********************************************************************/
  1247. /* csaSaveAsBib:                                                     */
  1248. /*    Save bibliography under new name to disk                       */
  1249. /*********************************************************************/
  1250. Errcode
  1251. csaSaveAsBib (BibPtr bp)
  1252. {
  1253. X   getFilename(bp);
  1254. X   return(OK);
  1255. }
  1256. X
  1257. X
  1258. X
  1259. /*********************************************************************/
  1260. /* LOCAL FUNCTIONS                                                   */
  1261. /*********************************************************************/
  1262. X
  1263. /*********************************************************************/
  1264. /* confirmClose:                                                     */
  1265. /*    Opens dialogbox for user to confirm closing without saving     */
  1266. /*********************************************************************/
  1267. static void
  1268. confirmClose (BibPtr bp)
  1269. {
  1270. static Widget conShell, conDialog, conOKButton, conQuitButton;
  1271. Position dx, dy, x, y;
  1272. int status;
  1273. X
  1274. X   XtVaGetValues(bp->bw->bibdesk,
  1275. X                 XtNx, &dx,
  1276. X                 XtNy, &dy, NULL);
  1277. X   XtTranslateCoords(desktop,
  1278. X                     (Position)dx + SUBWIN_MARGIN,
  1279. X                     (Position)dy + SUBWIN_MARGIN,
  1280. X                     &x, &y);
  1281. X   conShell = XtVaCreatePopupShell("confirmBibQuitShell",
  1282. X            transientShellWidgetClass, topLevel, 
  1283. X        XtNx, x, XtNy, y, NULL);
  1284. X   conDialog = XtVaCreateManagedWidget("confirmBibQuitBox",
  1285. X             dialogWidgetClass, conShell, 
  1286. X         XtNicon, questPixmap, NULL);
  1287. X   conOKButton = XtVaCreateManagedWidget("ok",
  1288. X               commandWidgetClass, conDialog, NULL);
  1289. X   conQuitButton = XtVaCreateManagedWidget("cancel",
  1290. X               commandWidgetClass, conDialog, NULL);
  1291. X   XtAddCallback(conQuitButton, XtNcallback, cancelCloseCmd, conDialog);
  1292. X   XtAddCallback(conOKButton, XtNcallback, closeCmdOk, conDialog);
  1293. X
  1294. X   XtSetSensitive(mainMenu, FALSE);
  1295. X   gubSetSensitive(NULL, FALSE);
  1296. X   gbp = bp;
  1297. X   XtPopup(conShell, XtGrabNonexclusive);
  1298. }
  1299. X
  1300. X
  1301. /*********************************************************************/
  1302. /* cancelCloseCmd:                                                   */
  1303. /*    Callback function for CANCEL button in confirm box             */
  1304. /*********************************************************************/
  1305. static void
  1306. cancelCloseCmd (Widget w, XtPointer clientData, XtPointer callData)
  1307. {
  1308. Widget dialog = XtParent((Widget)clientData);
  1309. X
  1310. X   XtSetSensitive(mainMenu, TRUE);
  1311. X   gubSetSensitive(NULL, TRUE);
  1312. X   XtPopdown(dialog);
  1313. X   gbp = NULL;
  1314. }
  1315. X
  1316. X
  1317. /*********************************************************************/
  1318. /* closeCmdOk:                                                       */
  1319. /*    Callback function for OK button in confirm box                 */
  1320. /*********************************************************************/
  1321. static void
  1322. closeCmdOk (Widget w, XtPointer clientData, XtPointer callData)
  1323. {
  1324. Widget dialog = (Widget) clientData;
  1325. char sysStr[2*MAX_FILEPATHLEN];
  1326. int status;
  1327. X
  1328. X   /* remove file select box */
  1329. X   XtPopdown(XtParent(dialog));
  1330. X   XtSetSensitive(mainMenu, TRUE);
  1331. X   gubSetSensitive(NULL, TRUE);
  1332. X
  1333. X   if ((status = dbtDeleteTree(gbp->treeIdx)) != DBT_OK) {
  1334. X      guwError(status);
  1335. X   }
  1336. X   if ((status = gubCloseBibWin(gbp)) != OK) {
  1337. X      guwError(status);
  1338. X   }
  1339. X   sprintf(sysStr, "rm -f %s %s 2> /dev/null", gbp->tempfile, gbp->macrofile);
  1340. X   system(sysStr);
  1341. X
  1342. X   gbp = NULL;
  1343. }
  1344. X
  1345. X
  1346. /*********************************************************************/
  1347. /* getFilename:                                                      */
  1348. /*    Opens dialogbox for user to enter name of file                 */
  1349. /*********************************************************************/
  1350. static void
  1351. getFilename (BibPtr bp)
  1352. {
  1353. static Widget fsbShell, fsbBox, fsbLabel, fsbDialog;
  1354. char fname[MAX_FILEPATHLEN];
  1355. Position dx, dy, x, y;
  1356. int status;
  1357. X
  1358. X   XtVaGetValues(desktop,
  1359. X                 XtNx, &dx,
  1360. X                 XtNy, &dy, NULL);
  1361. X   XtTranslateCoords(desktop,
  1362. X                     (Position)dx + SUBWIN_MARGIN,
  1363. X                     (Position)dy + SUBWIN_MARGIN,
  1364. X                     &x, &y);
  1365. X
  1366. X   fsbShell  = XtVaCreatePopupShell("fileSelectBoxShell",
  1367. X                 topLevelShellWidgetClass, desktop,
  1368. X                 XtNx, x, XtNy, y, NULL);
  1369. X   fsbBox    = XtVaCreateManagedWidget("fileSelectBox",
  1370. X         boxWidgetClass, fsbShell, NULL);
  1371. X   fsbLabel  = XtVaCreateManagedWidget("fileRenameHead",
  1372. X         labelWidgetClass, fsbBox, 
  1373. X         XtNborderWidth, 0, NULL);
  1374. X   fsbDialog = XtVaCreateManagedWidget("fileSelectBox",
  1375. X                 fileNominatorWidgetClass, fsbBox, 
  1376. X         XtNborderWidth, 0, NULL);
  1377. X
  1378. X   XtAddCallback(fsbDialog, XtNcancelCallback, cancelGetFname, fsbShell);
  1379. X   XtAddCallback(fsbDialog, XtNselectCallback, getFnameOk, fsbDialog);
  1380. X
  1381. X   XtSetSensitive(mainMenu, FALSE);
  1382. X   gubSetSensitive(NULL, FALSE);
  1383. X   gbp = bp;
  1384. X   XtPopup(fsbShell, XtGrabNonexclusive);
  1385. }
  1386. X
  1387. X
  1388. /*********************************************************************/
  1389. /* cancelGetFname:                                                   */
  1390. /*    Callback function for CANCEL button in filename box            */
  1391. /*********************************************************************/
  1392. static void
  1393. cancelGetFname (Widget w, XtPointer clientData, XtPointer callData)
  1394. {
  1395. Widget shell = (Widget)clientData;
  1396. X
  1397. X   XtSetSensitive(mainMenu, TRUE);
  1398. X   gubSetSensitive(NULL, TRUE);
  1399. X   XtPopdown(shell);
  1400. X   gbp = NULL;
  1401. }
  1402. X
  1403. X
  1404. /*********************************************************************/
  1405. /* getFnameOk:                                                       */
  1406. /*    Callback function for OK button in filename box                */
  1407. /*********************************************************************/
  1408. static void
  1409. getFnameOk (Widget w, XtPointer clientData, XtPointer callData)
  1410. {
  1411. Widget dialog = (Widget) clientData;
  1412. char sysStr[2*MAX_FILEPATHLEN];
  1413. String newName;
  1414. int status;
  1415. X
  1416. X   /* get filename and rename windows */
  1417. X   newName = (String)FileNominatorGetFileName(dialog);
  1418. X   strcpy(gbp->filename, newName);
  1419. X   strcpy(gbp->filepath, (String)FileNominatorGetFullFileName(dialog));
  1420. X   if ((status = renameWindowTitles(gbp, newName)) != OK)
  1421. X      guwError(status);
  1422. X
  1423. X   /* remove file select box */
  1424. X   XtPopdown(XtParent(XtParent(dialog)));
  1425. X   XtSetSensitive(mainMenu, TRUE);
  1426. X   gubSetSensitive(NULL, TRUE);
  1427. X
  1428. X   /* make .bak file of original */
  1429. X   if (cotBackupBeforeSave()) {
  1430. X      sprintf(sysStr, "rm -f %s.bak 2> /dev/null", gbp->filename);
  1431. X      system(sysStr);
  1432. X      sprintf(sysStr, "mv -f %s %s.bak 2> /dev/null", gbp->filename, gbp->filename);
  1433. X      system(sysStr);
  1434. X   }
  1435. X
  1436. X   /* write out file to disk */
  1437. X   if ((status = bifFileWrite(gbp)) != DBT_OK) {
  1438. X      guwError(status);
  1439. X      return;
  1440. X   }
  1441. X   gbp->changed = FALSE;
  1442. X   gbp = NULL;
  1443. }
  1444. X
  1445. X
  1446. /*********************************************************************/
  1447. /* renameWindowTitles:                                               */
  1448. /*    Rename titles of all open windows of a bib                     */
  1449. /*********************************************************************/
  1450. static Errcode
  1451. renameWindowTitles (BibPtr bp, String newName)
  1452. {
  1453. CardPtr cp;
  1454. X
  1455. X   strcpy(bp->filename, newName);
  1456. X
  1457. X   /* rename bib window */
  1458. X   if (bp->bw->shellName)
  1459. X      free(bp->bw->shellName);
  1460. X   if ((bp->bw->shellName =
  1461. X          (String) calloc(strlen(PROGNAME)+strlen(bp->filename)+4,
  1462. X                          sizeof(char))) != NULL) {
  1463. X      sprintf(bp->bw->shellName, "%s: %s", PROGNAME, bp->filename);
  1464. X      XtVaSetValues(bp->bw->bibShell,
  1465. X            XtNtitle, bp->bw->shellName, 
  1466. X            XtNiconName, bp->filename, NULL);
  1467. X   }
  1468. X   else
  1469. X      bp->bw->shellName = NULL;
  1470. X
  1471. X   /* rename card windows */
  1472. X   cp = glbFirstCardListEl(bp);
  1473. X   while (cp != NULL) {
  1474. X      if (cp->cw->shellName)
  1475. X          free(cp->cw->shellName);
  1476. X      if ((cp->cw->shellName = (String)calloc(strlen(bp->filename) +
  1477. X                    strlen(glbTypeToName(cp->cd->cardtype))+4,
  1478. X                    sizeof(char))) != NULL) {
  1479. X         sprintf(cp->cw->shellName, "%s: %s", bp->filename, glbTypeToName(cp->cd->cardtype));
  1480. X         XtVaSetValues(cp->cw->cardShell,
  1481. X               XtNtitle, cp->cw->shellName, NULL);
  1482. X      } /* endif */
  1483. X      else
  1484. X     cp->cw->shellName = NULL;
  1485. X      cp = glbNextCardListEl(gbp, cp);
  1486. X   } /* endwhile */
  1487. X
  1488. X   /* rename list window */
  1489. X   if (gulListWinExists(bp)) {
  1490. X      if (bp->lw->shellName)
  1491. X        free(bp->lw->shellName);
  1492. X      if ((bp->lw->shellName = (String)calloc(strlen(PROGNAME) +
  1493. X                                              strlen(bp->filename)+10,
  1494. X                                              sizeof(char))) != NULL) {
  1495. X     sprintf(bp->lw->shellName, "%s: List %s", PROGNAME, bp->filename);
  1496. X         XtVaSetValues(bp->lw->lstShell,
  1497. X               XtNtitle, bp->lw->shellName, 
  1498. X               XtNiconName, bp->filename, NULL);
  1499. X      } /* endif */
  1500. X      else
  1501. X     bp->lw->shellName = NULL;
  1502. X   } /* endif */
  1503. X
  1504. X   /* rename macro window */
  1505. X   if (gueMacroWinExists(bp)) {
  1506. X      if (bp->mw->shellName)
  1507. X        free(bp->mw->shellName);
  1508. X
  1509. X      if ((bp->mw->shellName = (String)calloc(strlen(PROGNAME) +
  1510. X                                              strlen(bp->filename)+12,
  1511. X                                              sizeof(char))) != NULL) {
  1512. X     sprintf(bp->mw->shellName, "%s: Macros %s", PROGNAME, bp->filename);
  1513. X         XtVaSetValues(bp->mw->macShell,
  1514. X               XtNtitle, bp->mw->shellName, 
  1515. X               XtNiconName, bp->filename, NULL);
  1516. X      } /* endif */
  1517. X      else
  1518. X     bp->mw->shellName = NULL;
  1519. X   } /* endif */
  1520. X
  1521. X   return(OK);
  1522. }
  1523. X
  1524. X
  1525. X
  1526. SHAR_EOF
  1527. chmod 0644 ctl_save.c ||
  1528. echo 'restore of ctl_save.c failed'
  1529. Wc_c="`wc -c < 'ctl_save.c'`"
  1530. test 17577 -eq "$Wc_c" ||
  1531.     echo 'ctl_save.c: original size 17577, current size' "$Wc_c"
  1532. rm -f _shar_wnt_.tmp
  1533. fi
  1534. # ============= ctl_serv.c ==============
  1535. if test -f 'ctl_serv.c' -a X"$1" != X"-c"; then
  1536.     echo 'x - skipping ctl_serv.c (File already exists)'
  1537.     rm -f _shar_wnt_.tmp
  1538. else
  1539. > _shar_wnt_.tmp
  1540. echo 'x - extracting ctl_serv.c (Text)'
  1541. sed 's/^X//' << 'SHAR_EOF' > 'ctl_serv.c' &&
  1542. /*********************************************************************/
  1543. /*  bibView: Administration of bibTex-Databases                      */
  1544. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  1545. /*                                                                   */
  1546. /*  Module:  ctl_serv.c                                              */
  1547. /*                                                                   */
  1548. /*             Services Control                                      */
  1549. /*             - Menu function Check                                 */
  1550. SHAR_EOF
  1551. true || echo 'restore of ctl_serv.c failed'
  1552. fi
  1553. echo 'End of  part 10'
  1554. echo 'File ctl_serv.c is continued in part 11'
  1555. echo 11 > _shar_seq_.tmp
  1556. exit 0
  1557. -- 
  1558. Senior Systems Scientist        mail: dcmartin@msi.com
  1559. Molecular Simulations, Inc.        uucp: uunet!dcmartin
  1560. 796 North Pastoria Avenue        at&t: 408/522-9236
  1561. Sunnyvale, California 94086        fax: 408/732-0831
  1562.