home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume18 / bibview / part14 < prev    next >
Encoding:
Text File  |  1992-08-26  |  50.2 KB  |  1,649 lines
  1. Path: uunet!paladin.american.edu!gatech!swrinde!mips!msi!dcmartin
  2. From: liebla@informatik.tu-muenchen.de (Armin Liebl)
  3. Newsgroups: comp.sources.x
  4. Subject: v18i112: bibview - BibTeX GUI, Part14/20
  5. Message-ID: <1992Aug27.161729.25905@msi.com>
  6. Date: 27 Aug 92 16:17:29 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: 1635
  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 112
  16. Archive-name: bibview/part14
  17.  
  18. #!/bin/sh
  19. # this is part.14 (part 14 of a multipart archive)
  20. # do not concatenate these parts, unpack them in order with /bin/sh
  21. # file flexsrc/b.y 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" != 14; 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 flexsrc/b.y'
  37. else
  38. echo 'x - continuing file flexsrc/b.y'
  39. sed 's/^X//' << 'SHAR_EOF' >> 'flexsrc/b.y' &&
  40. {
  41. X UserFld *h;
  42. X String newType;
  43. X long pos;
  44. X
  45. X fseek(datei, 0L, SEEK_END); 
  46. X fprintf(datei,"\n");
  47. X pos = ftell(datei);
  48. X newType = glbNewString(glbTypeToName(card->cardtype));
  49. X fprintf(datei,"@%s{%s",newType, card->mainkey);
  50. X pos = ftell(datei);
  51. X fprintf(datei,",\n");
  52. X 
  53. X if (!StringIsPeteEmpty(card->address)) {
  54. X   pos = WriteLineToFile(datei,"ADDRESS",card->address);    
  55. X } 
  56. X if (!StringIsPeteEmpty(card->annote)) {
  57. X   pos = WriteLineToFile(datei,"ANNOTE",card->annote);    
  58. X } 
  59. X if (!StringIsPeteEmpty(card->author)) {
  60. X   pos = WriteLineToFile(datei,"AUTHOR",card->author);    
  61. X } 
  62. X if (!StringIsPeteEmpty(card->booktitle)) {
  63. X   pos = WriteLineToFile(datei,"BOOKTITLE",card->booktitle);    
  64. X } 
  65. X if (!StringIsPeteEmpty(card->chapter)) {
  66. X   pos = WriteLineToFile(datei,"CHAPTER",card->chapter);    
  67. X } 
  68. X if (!StringIsPeteEmpty(card->crossref)) {
  69. X   pos = WriteLineToFile(datei,"CROSSREF",card->crossref);    
  70. X } 
  71. X if (!StringIsPeteEmpty(card->edition)) {
  72. X   pos = WriteLineToFile(datei,"EDITION",card->edition);    
  73. X } 
  74. X if (!StringIsPeteEmpty(card->editor)) {
  75. X   pos = WriteLineToFile(datei,"EDITOR",card->editor);    
  76. X } 
  77. X if (!StringIsPeteEmpty(card->howpublished)) {
  78. X   pos = WriteLineToFile(datei,"HOWPUBLISHED",card->howpublished);    
  79. X } 
  80. X if (!StringIsPeteEmpty(card->institution)) {
  81. X   pos = WriteLineToFile(datei,"INSTITUTION",card->institution);    
  82. X } 
  83. X if (!StringIsPeteEmpty(card->journal)) {
  84. X   pos = WriteLineToFile(datei,"JOURNAL",card->journal);    
  85. X } 
  86. X if (!StringIsPeteEmpty(card->key)) {
  87. X   pos = WriteLineToFile(datei,"KEY",card->key);    
  88. X } 
  89. X if (!StringIsPeteEmpty(card->month)) {
  90. X   pos = WriteLineToFile(datei,"MONTH",card->month);    
  91. X } 
  92. X if (!StringIsPeteEmpty(card->note)) {
  93. X   pos = WriteLineToFile(datei,"NOTE",card->note);    
  94. X } 
  95. X if (!StringIsPeteEmpty(card->number)) {
  96. X   pos = WriteLineToFile(datei,"NUMBER",card->number);    
  97. X } 
  98. X if (!StringIsPeteEmpty(card->organization)) {
  99. X   pos = WriteLineToFile(datei,"ORGANIZATION",card->organization);    
  100. X } 
  101. X if (!StringIsPeteEmpty(card->pages)) {
  102. X   pos = WriteLineToFile(datei,"PAGES",card->pages);    
  103. X } 
  104. X if (!StringIsPeteEmpty(card->publisher)) {
  105. X   pos = WriteLineToFile(datei,"PUBLISHER",card->publisher);    
  106. X } 
  107. X if (!StringIsPeteEmpty(card->school)) {
  108. X   pos = WriteLineToFile(datei,"SCHOOL",card->school);    
  109. X } 
  110. X if (!StringIsPeteEmpty(card->series)) {
  111. X   pos = WriteLineToFile(datei,"SERIES",card->series);    
  112. X } 
  113. X if (!StringIsPeteEmpty(card->title)) {
  114. X   pos = WriteLineToFile(datei,"TITLE",card->title);    
  115. X } 
  116. X if (!StringIsPeteEmpty(card->type)) {
  117. X   pos = WriteLineToFile(datei,"TYPE",card->type);    
  118. X } 
  119. X if (!StringIsPeteEmpty(card->volume)) {
  120. X   pos = WriteLineToFile(datei,"VOLUME",card->volume);    
  121. X } 
  122. X if (!StringIsPeteEmpty(card->year)) {
  123. X   pos = WriteLineToFile(datei,"YEAR",card->year);    
  124. X } 
  125. X if (!StringIsPeteEmpty(card->category)) {
  126. X   pos = WriteLineToFile(datei,"CATEGORY",card->category);    
  127. X } 
  128. X h = card->ufield; 
  129. X while (h) {
  130. X   pos = WriteLineToFile(datei,h->fldName,h->fldData);    
  131. X   h = h->next;
  132. X }   
  133. X fseek(datei, pos, SEEK_SET);
  134. X fprintf(datei,"\n}\n\n");
  135. }
  136. X
  137. X
  138. X
  139. static int StringIsPeteEmpty(char *text)
  140. {
  141. X if (text == NULL || *text == '\0') return 1;
  142. X return 0;
  143. }
  144. X
  145. X
  146. X
  147. yyerror(char *s)
  148. {
  149. X
  150. X fputs(s, stderr);
  151. X putc('\n', stderr);
  152. }
  153. X
  154. #ifdef BIFMAIN
  155. X
  156. int main(int argc, char *argv[])
  157. {
  158. X Bib bp;
  159. X int erg, b1, i;
  160. X Errcode err;
  161. X
  162. #ifdef YYDEBUG
  163. X       extern int yydebug;
  164. X
  165. X       yydebug = 1;
  166. #endif
  167. X
  168. X strcpy(bp.filepath, argv[1]);
  169. X dbtGetFreeTreeIdx(&b1);
  170. X bp.treeIdx = b1;
  171. X err = bifFileRead(&bp);
  172. X err = bifFileWrite(&bp);
  173. }
  174. X
  175. #endif
  176. SHAR_EOF
  177. echo 'File flexsrc/b.y is complete' &&
  178. chmod 0640 flexsrc/b.y ||
  179. echo 'restore of flexsrc/b.y failed'
  180. Wc_c="`wc -c < 'flexsrc/b.y'`"
  181. test 29693 -eq "$Wc_c" ||
  182.     echo 'flexsrc/b.y: original size 29693, current size' "$Wc_c"
  183. rm -f _shar_wnt_.tmp
  184. fi
  185. # ============= flexsrc/cm ==============
  186. if test -f 'flexsrc/cm' -a X"$1" != X"-c"; then
  187.     echo 'x - skipping flexsrc/cm (File already exists)'
  188.     rm -f _shar_wnt_.tmp
  189. else
  190. > _shar_wnt_.tmp
  191. echo 'x - extracting flexsrc/cm (Text)'
  192. sed 's/^X//' << 'SHAR_EOF' > 'flexsrc/cm' &&
  193. yacc -dlv b.y
  194. mv y.tab.h b.tab.h
  195. mv y.tab.c bib_file.c
  196. flex -iv b.l
  197. mv lex.yy.c bib_flex.c
  198. SHAR_EOF
  199. chmod 0740 flexsrc/cm ||
  200. echo 'restore of flexsrc/cm failed'
  201. Wc_c="`wc -c < 'flexsrc/cm'`"
  202. test 91 -eq "$Wc_c" ||
  203.     echo 'flexsrc/cm: original size 91, current size' "$Wc_c"
  204. rm -f _shar_wnt_.tmp
  205. fi
  206. # ============= globdata.c ==============
  207. if test -f 'globdata.c' -a X"$1" != X"-c"; then
  208.     echo 'x - skipping globdata.c (File already exists)'
  209.     rm -f _shar_wnt_.tmp
  210. else
  211. > _shar_wnt_.tmp
  212. echo 'x - extracting globdata.c (Text)'
  213. sed 's/^X//' << 'SHAR_EOF' > 'globdata.c' &&
  214. /*********************************************************************/
  215. /*  bibView: Administration of bibTex-Databases                      */
  216. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  217. /*                                                                   */
  218. /*  Module:  globdata.c                                              */
  219. /*                                                                   */
  220. /*             Handling of global data                               */
  221. /*             - List of bibdata                                     */
  222. /*                                                                   */
  223. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  224. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  225. /*                                                                   */
  226. /*  History:                                                         */
  227. /*    12.05.91  PMU  created                                         */
  228. /*    05.26.92       Version 1.0 released                            */
  229. /*                                                                   */
  230. /*  Copyright 1992 TU MUENCHEN                                       */
  231. /*    See ./Copyright for complete rights and liability information. */
  232. /*                                                                   */
  233. /*********************************************************************/
  234. X
  235. #include <stdio.h>
  236. #include <X11/Intrinsic.h>
  237. #include <X11/StringDefs.h>
  238. #include "bibview.h"
  239. X
  240. X
  241. /* macros and definitions */
  242. /* ---------------------- */
  243. X
  244. /* list type for opened bibliographies */
  245. typedef struct bl {
  246. X   Bib bib;
  247. X   struct bl *prev,
  248. X         *next;
  249. } BibEl, *BibList;
  250. X
  251. /* CardEl and CardList are part of Bib in bibview.h */
  252. X
  253. X
  254. /* local function prototypes */
  255. /* ------------------------- */
  256. static BibList FindBibListEl (BibPtr bp);
  257. static CardList FindCardListEl (BibPtr bp, CardPtr cp);
  258. X
  259. X
  260. /* external global variables */
  261. /* ------------------------- */
  262. X
  263. X
  264. /* exported global variables */
  265. /* ---------------------- */
  266. X
  267. X
  268. /* local global variables */
  269. /* ------------------------- */
  270. X
  271. /* names for card types */
  272. static String cardNames[] = {
  273. X   "article",
  274. X   "book",
  275. X   "booklet",
  276. X   "conference",
  277. X   "inbook",
  278. X   "incollection",
  279. X   "inproceedings",
  280. X   "manual",
  281. X   "mastersthesis",
  282. X   "misc",
  283. X   "phdthesis",
  284. X   "proceedings",
  285. X   "techreport",
  286. X   "unpublished",
  287. X   "userdefined"
  288. };
  289. X
  290. /* list of opened bibliographies */
  291. static BibList bibList = NULL;
  292. X
  293. X
  294. X
  295. /*********************************************************************/
  296. /* strupr:                                                           */
  297. /*    Convert characters 'a'..'z' to 'A'..'Z'                        */
  298. /*********************************************************************/
  299. char *
  300. strupr (char *s)
  301. {
  302. char *p = s;
  303. X
  304. X   while (*p) {
  305. X      if (*p >= 'a' && *p <= 'z')
  306. X     *p = *p - 32;
  307. X      p++;
  308. X   }
  309. X
  310. X   return(s);
  311. }
  312. X
  313. X
  314. /*********************************************************************/
  315. /* glbNewString:                                                     */
  316. /*    Copy an instance of a String                                   */
  317. /*********************************************************************/
  318. String
  319. glbNewString (String s)
  320. {
  321. String str;
  322. X
  323. X   if (s == NULL)
  324. X      return(NULL);
  325. X
  326. X   if ((str = (char *)malloc(strlen(s)+1)) == NULL)
  327. X      return(NULL);
  328. X
  329. X   strcpy(str, s);
  330. X   return(str);
  331. }
  332. X
  333. X
  334. /*********************************************************************/
  335. /* glbTrimString:                                                    */
  336. /*    Remove whitespace before and after string                      */
  337. /*********************************************************************/
  338. String
  339. glbTrimString (String s)
  340. {
  341. String p;
  342. X
  343. X   while (*s == ' ' || *s == '\t') {
  344. X      p = s;
  345. X      while (*p) {
  346. X     *p = *(p+1);
  347. X     p++;
  348. X      }
  349. X   }
  350. X
  351. X   p = s+strlen(s)-1;
  352. X   while (*p == ' ' || *p == '\t')
  353. X      *p-- = '\0';
  354. X   return(s);
  355. }
  356. X
  357. X
  358. /*********************************************************************/
  359. /* glbIsStringEmpty:                                                 */
  360. /*    Check for empty string                                         */
  361. /*********************************************************************/
  362. Boolean
  363. glbIsStringEmpty (String s)
  364. {
  365. X   if (s == NULL || *s == '\0') 
  366. X      return(TRUE);
  367. X
  368. X   while (*s) {
  369. X      if (*s != ' ' || *s != '\t') 
  370. X          return(FALSE);
  371. X      s++;
  372. X   }
  373. X
  374. X   return(TRUE);
  375. }
  376. X
  377. X
  378. /*********************************************************************/
  379. /* glbTypeToName:                                                    */
  380. /*    Return String name of card type                                */
  381. /*********************************************************************/
  382. String
  383. glbTypeToName (CardType type)
  384. {
  385. X   return(cardNames[type]);
  386. }
  387. X
  388. X
  389. /*********************************************************************/
  390. /* glbNameToType:                                                    */
  391. /*    Return card type corresponding to name                         */
  392. /*********************************************************************/
  393. CardType
  394. glbNameToType (String name)
  395. {
  396. int i = 0;
  397. X
  398. X   for (i = 0; i < MAX_BIBTEX_TYPES; i++) {
  399. X      if (strcmp(name, cardNames[i]) == 0)
  400. X         return((CardType)i);
  401. X   }
  402. X   return(illegal);
  403. }
  404. X
  405. X
  406. /*********************************************************************/
  407. /* glbNewBibListEl:                                                  */
  408. /*    Create new bliography list element                             */
  409. /*********************************************************************/
  410. Errcode
  411. glbNewBibListEl (BibPtr *bp)
  412. {
  413. BibList bl, p;
  414. Errcode status;
  415. X   /* malloc new list entry */
  416. X   if ((bl = (BibList)XtMalloc(sizeof(BibEl))) == NULL) {
  417. X      *bp = NULL;
  418. X      return(ERR_NOMALLOC);
  419. X   }
  420. X
  421. X
  422. X   /* initialize required data */
  423. X   if ((status = dbtGetFreeTreeIdx(&bl->bib.treeIdx)) != OK) {
  424. X
  425. X      free(bl);
  426. X      return(status);
  427. X   }
  428. X   bl->bib.changed = FALSE;
  429. X   bl->bib.filename[0] = '\0';
  430. X   bl->bib.filepath[0] = '\0';
  431. X   bl->bib.tempfile = NULL;
  432. X   bl->bib.macrofile = NULL;
  433. X   bl->bib.bw = NULL;
  434. X   bl->bib.lw = NULL;
  435. X   bl->bib.mw = NULL;
  436. X   bl->bib.cl = NULL;
  437. X   bl->bib.noOfCardWins = 0;
  438. X   bl->bib.nextCardPos = 0;
  439. X
  440. X   /* if list is empty, start new list */
  441. X   if (bibList == NULL) {
  442. X      bl->next = bl->prev = NULL;
  443. X      bibList = bl;
  444. X      *bp = &bl->bib;
  445. X      return(OK);
  446. X   }
  447. X
  448. X   p = bibList;
  449. X   while (p->next != NULL)    /* find last element in list */
  450. X      p = p->next;
  451. X
  452. X   bl->prev = p;        /* append new win to list */
  453. X   bl->next = NULL;
  454. X   p->next = bl;
  455. X
  456. X   *bp = &bl->bib;
  457. X   return(OK);
  458. }
  459. X
  460. X
  461. /*********************************************************************/
  462. /* glbDelBibListEl:                                                  */
  463. /*    Delete bibliography list element                               */
  464. /*********************************************************************/
  465. Errcode
  466. glbDelBibListEl (BibPtr bp)
  467. {
  468. BibList bn;    /* node of card to delete */
  469. X
  470. X   /* check if card is really in list */
  471. X   if ((bn = FindBibListEl(bp)) == NULL)
  472. X      return(ERR_NOBIB);
  473. X   if (bp->tempfile != NULL)
  474. X      {unlink(bp->tempfile);
  475. X       free(bp->tempfile);
  476. X       }
  477. X   if (bp->macrofile != NULL)
  478. X      {unlink(bp->macrofile);
  479. X       free(bp->macrofile);
  480. X       }
  481. X   /* is it root of list? */
  482. X   if (bn == bibList) {
  483. X      bibList->prev = NULL;
  484. X      bibList = bn->next;
  485. X   }
  486. X   else {
  487. X      bn->prev->next = bn->next;
  488. X      if (bn->next != NULL)
  489. X         bn->next->prev = bn->prev;
  490. X   }
  491. X   free(bn); /* all other frees must be done before */
  492. X   return(OK);
  493. }
  494. X
  495. X
  496. /*********************************************************************/
  497. /* glbFirstBibListEl:                                                */
  498. /*    Get element in root of list                                    */
  499. /*********************************************************************/
  500. BibPtr
  501. glbFirstBibListEl (void)
  502. {
  503. X   if (bibList != NULL)
  504. X      return(&bibList->bib);
  505. X   return(NULL);
  506. }
  507. X
  508. X
  509. /*********************************************************************/
  510. /* glbPrevBibListEl:                                                 */
  511. /*    Get element previous to bp in list of bibs                     */
  512. /*********************************************************************/
  513. BibPtr
  514. glbPrevBibListEl (BibPtr bp)
  515. {
  516. BibList bl;
  517. X
  518. X   if ((bl = FindBibListEl(bp)) == NULL)
  519. X      return(NULL);
  520. X   return(&bl->prev->bib);
  521. }
  522. X
  523. X
  524. /*********************************************************************/
  525. /* glbNextBibListEl:                                                 */
  526. /*    Get element after to bp in list of bibs                        */
  527. /*********************************************************************/
  528. BibPtr
  529. glbNextBibListEl (BibPtr bp)
  530. {
  531. BibList bl;
  532. X
  533. X   if ((bl = FindBibListEl(bp)) == NULL)
  534. X      return(NULL);
  535. X   return(&bl->next->bib);
  536. }
  537. X
  538. X
  539. /*********************************************************************/
  540. /* glbLastBibListEl:                                                 */
  541. /*    Get last element in list of bibs                               */
  542. /*********************************************************************/
  543. BibPtr
  544. glbLastBibListEl (void)
  545. {
  546. BibList bl = bibList;
  547. X
  548. X   if (bibList != NULL) {
  549. X      while (bl->next != NULL)
  550. X     bl = bl->next;
  551. X      return(&bl->bib);
  552. X   }
  553. X   else
  554. X      return(NULL);
  555. }
  556. X
  557. X
  558. /*********************************************************************/
  559. /* glbIsBibListEl:                                                   */
  560. /*    Test whether bib is really an element of bib list              */
  561. /*********************************************************************/
  562. Boolean
  563. glbIsBibListEl (BibPtr bp)
  564. {
  565. X   if (FindBibListEl(bp) != NULL)
  566. X      return(TRUE);
  567. X   return(FALSE);
  568. }
  569. X
  570. X
  571. /*********************************************************************/
  572. /* FindBibListEl:                                                    */
  573. /*    Find bib bp in list of bibs                                    */
  574. /*********************************************************************/
  575. static BibList
  576. FindBibListEl (BibPtr bp)
  577. {
  578. BibList p;
  579. X
  580. X   p = bibList;
  581. X   while (p != NULL) {
  582. X      if (&p->bib == bp)
  583. X     return(p);
  584. X      p = p->next;
  585. X   }
  586. X   return(NULL);
  587. }
  588. X
  589. X
  590. /*********************************************************************/
  591. /* glbNewCardListEl:                                                 */
  592. /*    Create new bibliography card list element                      */
  593. /*********************************************************************/
  594. Errcode
  595. glbNewCardListEl (BibPtr bp, CardPtr *cp, CardDataPtr cd)
  596. {
  597. CardList cl, p;
  598. Errcode status;
  599. X
  600. X   /* malloc new list entry */
  601. X   if ((cl = (CardList)malloc(sizeof(CardEl))) == NULL) {
  602. X      *cp = NULL;
  603. X      return(ERR_NOMALLOC);
  604. X   }
  605. X
  606. X   /* initialize required data */
  607. X   cl->card.bp = bp;
  608. X   cl->card.cd = NULL;
  609. X   if ((status = CopyCard(&cl->card.cd, cd)) != DBT_OK) {
  610. X      free(cl);
  611. X      return(status);
  612. X   }
  613. X   cl->card.cw = NULL;
  614. X   cl->card.changed = FALSE;
  615. X   cl->card.extended = FALSE;
  616. X
  617. X   /* if list is empty, start new list */
  618. X   if (bp->cl == NULL) {
  619. X      cl->next = cl->prev = NULL;
  620. X      bp->cl = cl;
  621. X      *cp = &cl->card;
  622. X      return(OK);
  623. X   }
  624. X
  625. X   p = bp->cl;
  626. X   while (p->next != NULL)    /* find last element in list */
  627. X      p = p->next;
  628. X
  629. X   cl->prev = p;        /* append new win to list */
  630. X   cl->next = NULL;
  631. X   p->next = cl;
  632. X
  633. X   *cp = &cl->card;
  634. X   return(OK);
  635. }
  636. X
  637. X
  638. /*********************************************************************/
  639. /* glbDelCardListEl:                                                 */
  640. /*    Delete bibliography card list element                          */
  641. /*********************************************************************/
  642. Errcode
  643. glbDelCardListEl (BibPtr bp, CardPtr cp)
  644. {
  645. CardList cn;    /* node of card to delete */
  646. X
  647. X   /* check if card is really in list */
  648. X   if ((cn = FindCardListEl(bp, cp)) == NULL)
  649. X      return(ERR_NOCARD);
  650. X
  651. X   /* is it root of list? */
  652. X   if (cn == bp->cl) {
  653. X      bp->cl->prev = NULL;
  654. X      bp->cl = cn->next;
  655. X   }
  656. X   else {
  657. X      cn->prev->next = cn->next;
  658. X      if (cn->next != NULL)
  659. X         cn->next->prev = cn->prev;
  660. X   }
  661. X   free(cn); /* all other frees must be done before */
  662. X   return(OK);
  663. }
  664. X
  665. X
  666. /*********************************************************************/
  667. /* glbFirstCardListEl:                                               */
  668. /*    Get element in root of list                                    */
  669. /*********************************************************************/
  670. CardPtr
  671. glbFirstCardListEl (BibPtr bp)
  672. {
  673. X   if (bp->cl != NULL)
  674. X      return(&bp->cl->card);
  675. X   return(NULL);
  676. }
  677. X
  678. X
  679. /*********************************************************************/
  680. /* glbPrevCardListEl:                                                */
  681. /*    Get element previous to cp in list of cards                    */
  682. /*********************************************************************/
  683. CardPtr
  684. glbPrevCardListEl (BibPtr bp, CardPtr cp)
  685. {
  686. CardList cl;
  687. X
  688. X   if ((cl = FindCardListEl(bp, cp)) == NULL)
  689. X      return(NULL);
  690. X   return(&cl->prev->card);
  691. }
  692. X
  693. X
  694. /*********************************************************************/
  695. /* glbNextCardListEl:                                                */
  696. /*    Get element after to cp in list of cards                       */
  697. /*********************************************************************/
  698. CardPtr
  699. glbNextCardListEl (BibPtr bp, CardPtr cp)
  700. {
  701. CardList cl;
  702. X
  703. X   if ((cl = FindCardListEl(bp, cp)) == NULL)
  704. X      return(NULL);
  705. X   return(&cl->next->card);
  706. }
  707. X
  708. X
  709. /*********************************************************************/
  710. /* glbLastCardListEl:                                                */
  711. /*    Get last element in list of cards                              */
  712. /*********************************************************************/
  713. CardPtr
  714. glbLastCardListEl (BibPtr bp)
  715. {
  716. CardList cl = bp->cl;
  717. X
  718. X   if (cl != NULL) {
  719. X      while (cl->next != NULL)
  720. X     cl = cl->next;
  721. X      return(&cl->card);
  722. X   }
  723. X   else
  724. X      return(NULL);
  725. }
  726. X
  727. X
  728. /*********************************************************************/
  729. /* glbIsCardListEl:                                                  */
  730. /*    Test whether card is really an element of card list            */
  731. /*********************************************************************/
  732. Boolean
  733. glbIsCardListEl (BibPtr bp, CardPtr cp)
  734. {
  735. X   if (FindCardListEl(bp, cp) != NULL)
  736. X      return(TRUE);
  737. X   return(FALSE);
  738. }
  739. X
  740. X
  741. /*********************************************************************/
  742. /* glbFindCard:                                                      */
  743. /*    Search for card in list of opened card windows                 */
  744. /*********************************************************************/
  745. CardPtr
  746. glbFindCard (BibPtr bp, CardDataPtr cd)
  747. {
  748. CardPtr cp = NULL;
  749. X
  750. X   if ((cp = glbFirstCardListEl(bp)) == NULL)
  751. X      return(NULL);
  752. X
  753. X   while (cp != NULL) {
  754. X      if (strcmp(cd->mainkey, cp->cd->mainkey) == 0)
  755. X     return(cp);
  756. X      cp = glbNextCardListEl(bp, cp);
  757. X   }
  758. X   return(NULL);
  759. }
  760. X
  761. X
  762. /*********************************************************************/
  763. /* FindCardListEl:                                                   */
  764. /*    Find card cp in list of cards of bp                            */
  765. /*********************************************************************/
  766. static CardList
  767. FindCardListEl (BibPtr bp, CardPtr cp)
  768. {
  769. CardList p;
  770. X
  771. X   p = bp->cl;
  772. X   while (p != NULL) {
  773. X      if (&p->card == cp)
  774. X     return(p);
  775. X      p = p->next;
  776. X   }
  777. X   return(NULL);
  778. }
  779. X
  780. X
  781. X
  782. X
  783. SHAR_EOF
  784. chmod 0644 globdata.c ||
  785. echo 'restore of globdata.c failed'
  786. Wc_c="`wc -c < 'globdata.c'`"
  787. test 15414 -eq "$Wc_c" ||
  788.     echo 'globdata.c: original size 15414, current size' "$Wc_c"
  789. rm -f _shar_wnt_.tmp
  790. fi
  791. # ============= gui_bibl.c ==============
  792. if test -f 'gui_bibl.c' -a X"$1" != X"-c"; then
  793.     echo 'x - skipping gui_bibl.c (File already exists)'
  794.     rm -f _shar_wnt_.tmp
  795. else
  796. > _shar_wnt_.tmp
  797. echo 'x - extracting gui_bibl.c (Text)'
  798. sed 's/^X//' << 'SHAR_EOF' > 'gui_bibl.c' &&
  799. /*********************************************************************/
  800. /*  bibView: Administration of bibTex-Databases                      */
  801. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  802. /*                                                                   */
  803. /*  Module:  gui_bibl.c                                              */
  804. /*                                                                   */
  805. /*             GUI: Bibliography Window                              */
  806. /*             - Menu functions New                                  */
  807. /*                                                                   */
  808. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  809. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  810. /*                                                                   */
  811. /*  History:                                                         */
  812. /*    12.05.91  PMU  created                                         */
  813. /*    05.26.92       Version 1.0 released                            */
  814. /*                                                                   */
  815. /*  Copyright 1992 TU MUENCHEN                                       */
  816. /*    See ./Copyright for complete rights and liability information. */
  817. /*                                                                   */
  818. /*********************************************************************/
  819. X
  820. #include <stdio.h>
  821. #include <X11/Intrinsic.h>
  822. #include <X11/Shell.h>
  823. #include <X11/StringDefs.h>
  824. #include <X11/Xaw/Form.h>
  825. #include <X11/Xaw/Paned.h>
  826. #include <X11/Xaw/Box.h>
  827. #include <X11/Xaw/Command.h>
  828. #include <X11/Xaw/MenuButton.h>
  829. #include <X11/Xaw/SimpleMenu.h>
  830. #include <X11/Xaw/SmeBSB.h>
  831. #include <X11/Xaw/SmeLine.h>
  832. #include "bibview.h"
  833. X
  834. X
  835. /* macros and definitions */
  836. /* ---------------------- */
  837. X
  838. /* structure for pulldown menu items */
  839. typedef struct {
  840. X   String name;        /* Xt name (instance) of item */
  841. X   XtCallbackProc cb;    /* associated callback function */
  842. } MenuEntry;
  843. X
  844. X
  845. /* local function prototypes */
  846. /* ------------------------- */
  847. static Errcode calcNextBibWinPos (int n, Position *x, Position *y);
  848. static Errcode calcNextBibIconPos (int curIcon, Position *x, Position *y);
  849. static void createMenu (String menuName, MenuEntry item[], Widget parent, Widget *menu, BibPtr bp);
  850. X
  851. /* external global variables */
  852. /* ------------------------- */
  853. extern Widget topLevel, desktop;
  854. extern Pixmap bvIconPixmap;
  855. X
  856. X
  857. /* exported global variables */
  858. /* ---------------------- */
  859. X
  860. X
  861. /* local global variables */
  862. /* ------------------------- */
  863. X
  864. /* names for pulldown menu entries */
  865. static MenuEntry newEntry[] = {
  866. X   { "line1", NULL },
  867. X   { "item2",  ccdNewCardCmd },
  868. X   { "item3",  ccdNewCardCmd },
  869. X   { "item5",  ccdNewCardCmd },
  870. X   { "item6",  ccdNewCardCmd },
  871. X   { "item1",  ccdNewCardCmd },
  872. X   { "item4",  ccdNewCardCmd },
  873. X   { "item7",  ccdNewCardCmd },
  874. X   { "item12", ccdNewCardCmd },
  875. X   { "item13", ccdNewCardCmd },
  876. X   { "item9",  ccdNewCardCmd },
  877. X   { "item11", ccdNewCardCmd },
  878. X   { "item8",  ccdNewCardCmd },
  879. X   { "item14", ccdNewCardCmd },
  880. X   { "line2",  NULL },
  881. X   { "item10", ccdNewCardCmd },
  882. X   { NULL, NULL }
  883. };
  884. X
  885. static MenuEntry windowEntry[] = {
  886. X   { "line1", NULL },
  887. X   { "item1",  gucCascadeCmd },
  888. X   { NULL, NULL }
  889. };
  890. X
  891. static int noOfBibWins = 0;
  892. static int nextBibPos = 0;
  893. X
  894. X
  895. X
  896. /*********************************************************************/
  897. /* gubOpenBibWin:                                                    */
  898. /*    Creates an instance of a bibliography window                   */
  899. /*********************************************************************/
  900. int
  901. gubOpenBibWin (BibPtr bp)
  902. {
  903. Position x, y;
  904. Dimension dwidth, dheight;
  905. BibWinPtr bw;
  906. BibPtr lastBib;
  907. int status;
  908. X
  909. X   /* allocate memory for new element of window list */
  910. X   if ((bw = (BibWinPtr) malloc(sizeof(BibWin))) == NULL) {
  911. X      /* error-handling is done in control modules */
  912. X      return(ERR_NOMALLOC);
  913. X   }
  914. X
  915. X   /* allocate memory for label of new shell */
  916. X   if ((bw->shellName = 
  917. X      (String) calloc(strlen(PROGNAME)+strlen(bp->filename)+4, 
  918. X              sizeof(char))) == NULL) {
  919. X      return(ERR_NOMALLOC);
  920. X   }
  921. X
  922. X   bp->bw = bw;
  923. X   sprintf(bw->shellName, "%s: %s", PROGNAME, bp->filename);
  924. X
  925. X   /* create popup shell for new file */
  926. X   bw->bibShell = XtVaCreatePopupShell("bibShell",
  927. X          topLevelShellWidgetClass, desktop, 
  928. /*            XtNtransient, TRUE,
  929. X          XtNwindowGroup, XtWindow(topLevel), */
  930. X          XtNtitle, bw->shellName, 
  931. X          XtNiconPixmap, bvIconPixmap,
  932. X          XtNiconName, bp->filename, NULL);
  933. X   bw->bibWin = XtVaCreateManagedWidget("bibWin",
  934. X          panedWidgetClass, bw->bibShell, NULL);
  935. X
  936. X   /* create command buttons */
  937. X   bw->cmdBox = XtVaCreateManagedWidget("commandBox", 
  938. X          boxWidgetClass, bw->bibWin, NULL);
  939. X   bw->new = XtVaCreateManagedWidget("new", 
  940. X           menuButtonWidgetClass, bw->cmdBox, NULL);  
  941. X   bw->search = XtVaCreateManagedWidget("search", 
  942. X              commandWidgetClass, bw->cmdBox, NULL);
  943. X   bw->list = XtVaCreateManagedWidget("list", 
  944. X            commandWidgetClass, bw->cmdBox, NULL);
  945. X   bw->macro = XtVaCreateManagedWidget("macro", 
  946. X            commandWidgetClass, bw->cmdBox, NULL);
  947. X   bw->print = XtVaCreateManagedWidget("print", 
  948. X             commandWidgetClass, bw->cmdBox, NULL);
  949. X   bw->save = XtVaCreateManagedWidget("save", 
  950. X            commandWidgetClass, bw->cmdBox, NULL);
  951. X   bw->close = XtVaCreateManagedWidget("close", 
  952. X             commandWidgetClass, bw->cmdBox, NULL);
  953. X   bw->window = XtVaCreateManagedWidget("window", 
  954. X             menuButtonWidgetClass, bw->cmdBox, NULL); 
  955. X
  956. X   /* make pulldownmenus for command boxes */
  957. X   createMenu("newMenu", newEntry, bw->new, &bw->newMenu, bp);
  958. X   createMenu("windowMenu", windowEntry, bw->window, &bw->windowMenu, bp); 
  959. X
  960. X   XtAddCallback(bw->search, XtNcallback, csrSearchCmd, (XtPointer)bp);
  961. X   XtAddCallback(bw->print, XtNcallback, cprPrintCmd, (XtPointer)bp);
  962. X   XtAddCallback(bw->list, XtNcallback, csrListCmd, (XtPointer)bp);
  963. X   XtAddCallback(bw->macro, XtNcallback, cseMacrosCmd, (XtPointer)bp);
  964. X   XtAddCallback(bw->save, XtNcallback, csaSaveCmd, (XtPointer)bp);
  965. X   XtAddCallback(bw->close, XtNcallback, csaCloseCmd, (XtPointer)bp);
  966. X
  967. X   /* create bibliography window desktop */
  968. X   bw->bibdesk = XtVaCreateManagedWidget("bibdesk",
  969. X                   formWidgetClass, bw->bibWin, NULL); 
  970. X
  971. X   /* Position window near main desktop */
  972. X   noOfBibWins++;
  973. X   calcNextBibWinPos(nextBibPos, &bw->winX, &bw->winY);
  974. X   XtVaSetValues(bw->bibShell,
  975. X         XtNx, bw->winX,
  976. X         XtNy, bw->winY, NULL);
  977. X   nextBibPos++;
  978. X
  979. X   /* if option on, set icon position on desktop */
  980. X   if (cotIconizeOnDesktop()) {
  981. X      calcNextBibIconPos(noOfBibWins, &bw->iconX, &bw->iconY);
  982. X      XtVaSetValues(bw->bibShell,
  983. X            XtNiconX, bw->iconX,
  984. X            XtNiconY, bw->iconY, NULL);
  985. X   }
  986. X
  987. X   XtPopup(bw->bibShell, XtGrabNone);
  988. X   return(OK);
  989. }
  990. X
  991. X
  992. /*********************************************************************/
  993. /* gubNoOfOpenBibs:                                                  */
  994. /*    Returns number of opened bibliogarohies                        */
  995. /*********************************************************************/
  996. int
  997. gubNoOfOpenBibs (void)
  998. {
  999. X   return(noOfBibWins);
  1000. }
  1001. X
  1002. X
  1003. /*********************************************************************/
  1004. /* gubCloseBibWinCmd:                                                */
  1005. /*    Callback for close bibwin command                              */
  1006. /*********************************************************************/
  1007. void
  1008. gubCloseBibWinCmd (Widget w, XtPointer clientData, XtPointer callData)
  1009. {
  1010. BibPtr bp = (BibPtr)clientData;
  1011. Errcode status;
  1012. X
  1013. X   if ((status = gubCloseBibWin(bp)) != OK) {
  1014. X      guwError(status);
  1015. X   }
  1016. }
  1017. X
  1018. X
  1019. /*********************************************************************/
  1020. /* gubCloseBibWin:                                                   */
  1021. /*    Close a bibliography window                                    */
  1022. /*********************************************************************/
  1023. Errcode
  1024. gubCloseBibWin (BibPtr bp)
  1025. {
  1026. CardPtr cp;
  1027. Errcode status;
  1028. X
  1029. X   /* close all opened card windows */
  1030. X   while ((cp = glbFirstCardListEl(bp)) != NULL) {
  1031. X      if ((status = gucCloseCardWin(cp)) != OK) {
  1032. X         guwError(status);
  1033. X      }
  1034. X   }
  1035. X
  1036. X   /* close possibly opened list window */
  1037. X   if (bp->lw != NULL) {
  1038. X      if ((status = gulCloseListWin(bp)) != OK) {
  1039. X         guwError(status);
  1040. X      }
  1041. X   }
  1042. X
  1043. X   /* close possibly opened macro window */
  1044. X   if (bp->mw != NULL) {
  1045. X      if ((status = gueCloseMacroWin(bp)) != OK) {
  1046. X         guwError(status);
  1047. X      }
  1048. X   }
  1049. X
  1050. X   /* close this bibliography window */
  1051. X   XtPopdown(bp->bw->bibShell); 
  1052. X   noOfBibWins--;
  1053. X   if (glbLastBibListEl() == bp)
  1054. X      nextBibPos -= 1;
  1055. X   free(bp->bw->shellName);
  1056. X   free(bp->bw);
  1057. X   glbDelBibListEl(bp);
  1058. X   if (glbFirstBibListEl() == NULL)
  1059. X      nextBibPos = 0;
  1060. X
  1061. X   return(OK);
  1062. }
  1063. X
  1064. X
  1065. /*********************************************************************/
  1066. /* gubCascadeCmd:                                                    */
  1067. /*    Callback for Cascade-Function                                  */
  1068. /*********************************************************************/
  1069. void
  1070. gubCascadeCmd (Widget w, XtPointer clientData, XtPointer callData)
  1071. {
  1072. Errcode status;
  1073. X
  1074. X   if ((status = gubCascade()) != OK) {
  1075. X      guwWarning(status);
  1076. X   }
  1077. }
  1078. X
  1079. X
  1080. /*********************************************************************/
  1081. /* gubCascade:                                                       */
  1082. /*    Layout the bibliography windows                                */
  1083. /*********************************************************************/
  1084. Errcode
  1085. gubCascade (void)
  1086. {
  1087. X   gubSetWindowCoords(FALSE);
  1088. X   if (cotIconizeOnDesktop())
  1089. X      gubSetIconCoords(FALSE);
  1090. X   return(OK);
  1091. }
  1092. X
  1093. X
  1094. /*********************************************************************/
  1095. /* gubSetWindowCoords:                                               */
  1096. /*    Set positions of bibliography windows                          */
  1097. /*********************************************************************/
  1098. Errcode
  1099. gubSetWindowCoords (Boolean calcOnly)
  1100. {
  1101. BibPtr bp, last_bp;
  1102. Errcode status;
  1103. int i;
  1104. X 
  1105. X   if ((bp = glbFirstBibListEl()) == NULL)
  1106. X      return(OK);
  1107. X   for (i = 0; i < noOfBibWins; i++) {
  1108. X      calcNextBibWinPos(i, &bp->bw->winX, &bp->bw->winY);
  1109. X      if (!calcOnly) {
  1110. X         XtVaSetValues(bp->bw->bibShell,
  1111. X                       XtNx, bp->bw->winX,
  1112. X               XtNy, bp->bw->winY, NULL);
  1113. X     if (XtIsRealized(bp->bw->bibShell)) {
  1114. X            XRaiseWindow(XtDisplay(bp->bw->bibShell),
  1115. X                 XtWindow(bp->bw->bibShell));
  1116. X     }
  1117. X      }
  1118. X      bp = glbNextBibListEl(bp);
  1119. X   } /* endfor */
  1120. X
  1121. X   bp = glbFirstBibListEl();
  1122. X   for (i = 0; i < noOfBibWins; i++) {
  1123. X      if ((status = gucCascade(bp)) != OK)
  1124. X         guwWarning(status);
  1125. X      if ((status = gueCascade(bp)) != OK)
  1126. X         guwWarning(status);
  1127. X      if ((status = gulCascade(bp)) != OK)
  1128. X         guwWarning(status);
  1129. X      bp = glbNextBibListEl(bp);
  1130. X   } /* endfor */
  1131. X
  1132. X   return(OK);
  1133. }
  1134. X
  1135. X
  1136. /*********************************************************************/
  1137. /* gubSetIconCoords:                                                 */
  1138. /*    Set positions of bibliography windows icons                    */
  1139. /*********************************************************************/
  1140. Errcode
  1141. gubSetIconCoords (Boolean calcOnly)
  1142. {
  1143. BibPtr bp;
  1144. int curIcon = 0;
  1145. X 
  1146. X   if ((bp = glbFirstBibListEl()) != NULL) {
  1147. X      calcNextBibIconPos(curIcon, &bp->bw->iconX, &bp->bw->iconY);
  1148. X      if (!calcOnly) {
  1149. X         XtVaSetValues(bp->bw->bibShell,
  1150. X               XtNiconX, bp->bw->iconX,
  1151. X               XtNiconY, bp->bw->iconY, NULL);
  1152. X      }
  1153. X
  1154. X      while ((bp = glbNextBibListEl(bp)) != NULL) {
  1155. X         curIcon++;
  1156. X         calcNextBibIconPos(curIcon, &bp->bw->iconX, &bp->bw->iconY);
  1157. X         if (!calcOnly) {
  1158. X            XtVaSetValues(bp->bw->bibShell,
  1159. X                  XtNiconX, bp->bw->iconX,
  1160. X                  XtNiconY, bp->bw->iconY, NULL);
  1161. X         }
  1162. X      }  /* endwhile */
  1163. X   } /* endif */
  1164. X
  1165. X   return(OK);
  1166. }
  1167. X
  1168. X
  1169. /*********************************************************************/
  1170. /* gubUnsetIconCoords:                                               */
  1171. /*    Set positions of bibliography windows icons                    */
  1172. /*********************************************************************/
  1173. Errcode
  1174. gubUnsetIconCoords (Boolean calcOnly)
  1175. {
  1176. BibPtr bp;
  1177. X 
  1178. X   if ((bp = glbFirstBibListEl()) != NULL) {
  1179. X      bp->bw->iconX = bp->bw->iconY = -1;
  1180. X      if (!calcOnly) {
  1181. X         XtVaSetValues(bp->bw->bibShell,
  1182. X               XtNiconX, bp->bw->iconX,
  1183. X               XtNiconY, bp->bw->iconY, NULL);
  1184. X      }
  1185. X
  1186. X      while ((bp = glbNextBibListEl(bp)) != NULL) {
  1187. X         bp->bw->iconX = bp->bw->iconY = -1;
  1188. X         if (!calcOnly) {
  1189. X            XtVaSetValues(bp->bw->bibShell,
  1190. X                  XtNiconX, bp->bw->iconX,
  1191. X                  XtNiconY, bp->bw->iconY, NULL);
  1192. X         }
  1193. X      }  /* endwhile */
  1194. X   } /* endif */
  1195. X
  1196. X   return(OK);
  1197. }
  1198. X
  1199. X
  1200. /*********************************************************************/
  1201. /* gubSetSensitive:                                                  */
  1202. /*    Set the sensitivity state of one or all bibl windows           */
  1203. /*********************************************************************/
  1204. void
  1205. gubSetSensitive (BibPtr bib, Boolean sensitive)
  1206. {
  1207. CardPtr card;
  1208. X
  1209. X   if (bib == NULL) { /* set all bib windows and subs to sensitive? */
  1210. X      bib = glbFirstBibListEl();
  1211. X      while (bib != NULL) {
  1212. X     if (bib->bw != NULL) {
  1213. X        XtSetSensitive(bib->bw->bibWin, sensitive);
  1214. X        if (bib->lw != NULL) /* handle list window */
  1215. X           XtSetSensitive(bib->lw->lstWin, sensitive);
  1216. X        card = glbFirstCardListEl(bib); /* handle all cards */
  1217. X        while (card != NULL) {
  1218. X           if (card->cw != NULL)
  1219. X          XtSetSensitive(card->cw->cardWin, sensitive);
  1220. X           card = glbNextCardListEl(bib, card);
  1221. X        }
  1222. X     }
  1223. X     bib = glbNextBibListEl(bib);
  1224. X      }
  1225. X   }
  1226. X   else { /* set only one bib win and subs to sensitive */
  1227. X      if (glbIsBibListEl(bib) && bib->bw != NULL) {
  1228. X         XtSetSensitive(bib->bw->bibWin, sensitive);
  1229. X     if (bib->lw != NULL) /* handle list window */
  1230. X        XtSetSensitive(bib->lw->lstWin, sensitive);
  1231. X     card = glbFirstCardListEl(bib); /* handle all cards */
  1232. X     while (card != NULL) {
  1233. X        if (card->cw != NULL)
  1234. X           XtSetSensitive(card->cw->cardWin, sensitive);
  1235. X        card = glbNextCardListEl(bib, card);
  1236. X     } /* endwhile */
  1237. X      } /* endif */
  1238. X   } /* endelse */
  1239. }
  1240. X
  1241. X
  1242. /*********************************************************************/
  1243. /* LOCAL FUNCTIONS                                                   */
  1244. /*********************************************************************/
  1245. X
  1246. /*********************************************************************/
  1247. /* calcNextBibWinPos:                                                */
  1248. /*    Calculate coords of next bibliography window                   */
  1249. /*********************************************************************/
  1250. static Errcode
  1251. calcNextBibWinPos (int n, Position *x, Position *y)
  1252. {
  1253. Dimension dwidth, dheight, twidth = BIBWIN_MARGIN;
  1254. BibPtr bp;
  1255. int i;
  1256. X
  1257. X   /* calc width of all previous bibwins */
  1258. X   if ((bp = glbFirstBibListEl()) == NULL)
  1259. X      return(OK);
  1260. X   for (i = 0; i < n; i++) {
  1261. X      XtVaGetValues(bp->bw->bibWin,
  1262. X            XtNwidth, &dwidth, NULL);
  1263. X      twidth += dwidth + BIBWIN_MARGIN;
  1264. X      bp = glbNextBibListEl(bp);
  1265. X   }
  1266. X
  1267. X   XtVaGetValues(desktop,
  1268. X         XtNwidth, &dwidth,
  1269. X         XtNheight, &dheight, NULL);
  1270. X   XtTranslateCoords(desktop,
  1271. X             (Position)twidth,
  1272. X             (Position)dheight - BIBWIN_MARGIN,
  1273. X             x, y);
  1274. X   return(OK);
  1275. }
  1276. X
  1277. X
  1278. /*********************************************************************/
  1279. /* calcNextBibIconPos:                                               */
  1280. /*    Calculate coords of next bibliography window icon              */
  1281. /*********************************************************************/
  1282. static Errcode
  1283. calcNextBibIconPos (int curIcon, Position *x, Position *y)
  1284. {
  1285. Position curX, curY;
  1286. Dimension dwidth, dheight;
  1287. X
  1288. X   if (curIcon == 0) { /* position 1st bibwin */
  1289. X      curX = 1;
  1290. X      curY = BV_ICON_MARGIN;
  1291. X      XtTranslateCoords(desktop,
  1292. X               curX, curY,
  1293. X               x, y);
  1294. X   }
  1295. X   else {  /* position icon after curIcon */
  1296. X      curX = curIcon * (BV_ICON_MARGIN + BV_ICON_WIDTH);
  1297. X      curY = BV_ICON_MARGIN;
  1298. X      XtTranslateCoords(desktop,
  1299. X               curX, curY,
  1300. X               x, y);
  1301. X   }
  1302. }
  1303. X
  1304. X
  1305. /*********************************************************************/
  1306. /* createMenu:                                                       */
  1307. /*    Build pulldown menus in a bibliography window                  */
  1308. /*********************************************************************/
  1309. static void
  1310. createMenu (String menuName, MenuEntry item[], Widget parent, Widget *menu, BibPtr bp)
  1311. {
  1312. static Widget w;
  1313. int i = 0;
  1314. String iname;
  1315. X
  1316. X   *menu = XtVaCreatePopupShell(menuName, 
  1317. X             simpleMenuWidgetClass, parent, NULL);
  1318. X   i = 0;
  1319. X   while ((iname = item[i].name) != NULL) { 
  1320. X      if (strncmp("line", iname, 4) == 0)   /* use a line pane */
  1321. X         w = XtVaCreateManagedWidget(iname,
  1322. X               smeLineObjectClass, *menu, NULL);
  1323. X      else {
  1324. X         w = XtVaCreateManagedWidget(iname, 
  1325. X           smeBSBObjectClass, *menu, NULL);
  1326. X         XtAddCallback(w, XtNcallback, item[i].cb, (XtPointer)bp);
  1327. X      }
  1328. X      i++;
  1329. X   }
  1330. }
  1331. X
  1332. X
  1333. X
  1334. X
  1335. SHAR_EOF
  1336. chmod 0644 gui_bibl.c ||
  1337. echo 'restore of gui_bibl.c failed'
  1338. Wc_c="`wc -c < 'gui_bibl.c'`"
  1339. test 17139 -eq "$Wc_c" ||
  1340.     echo 'gui_bibl.c: original size 17139, current size' "$Wc_c"
  1341. rm -f _shar_wnt_.tmp
  1342. fi
  1343. # ============= gui_card.c ==============
  1344. if test -f 'gui_card.c' -a X"$1" != X"-c"; then
  1345.     echo 'x - skipping gui_card.c (File already exists)'
  1346.     rm -f _shar_wnt_.tmp
  1347. else
  1348. > _shar_wnt_.tmp
  1349. echo 'x - extracting gui_card.c (Text)'
  1350. sed 's/^X//' << 'SHAR_EOF' > 'gui_card.c' &&
  1351. /*********************************************************************/
  1352. /*  bibView: Administration of bibTex-Databases                      */
  1353. /*           (Verwaltung von bibTeX-Literaturdatenbanken)            */
  1354. /*                                                                   */
  1355. /*  Module:  gui_card.c                                              */
  1356. /*                                                                   */
  1357. /*             GUI: Card Windows                                     */
  1358. /*             -                                                     */
  1359. /*                                                                   */
  1360. /*  Author:  Holger Martin,  martinh@informatik.tu-muenchen.de       */
  1361. /*           Peter M. Urban, urban@informatik.tu-muenchen.de         */
  1362. /*                                                                   */
  1363. /*  History:                                                         */
  1364. /*    12.19.91  PMU  created                                         */
  1365. /*    05.26.92       Version 1.0 released                            */
  1366. /*                                                                   */
  1367. /*  Copyright 1992 TU MUENCHEN                                       */
  1368. /*    See ./Copyright for complete rights and liability information. */
  1369. /*                                                                   */
  1370. /*********************************************************************/
  1371. X
  1372. #include <stdio.h>
  1373. #include <X11/Intrinsic.h>
  1374. #include <X11/Shell.h>
  1375. #include <X11/StringDefs.h>
  1376. #include <X11/Xaw/Form.h>
  1377. #include <X11/Xaw/Paned.h>
  1378. #include <X11/Xaw/Box.h>
  1379. #include <X11/Xaw/Command.h>
  1380. #include <X11/Xaw/MenuButton.h>
  1381. #include <X11/Xaw/SimpleMenu.h>
  1382. #include <X11/Xaw/SmeBSB.h>
  1383. #include <X11/Xaw/SmeLine.h>
  1384. #include <X11/Xaw/Text.h>
  1385. #include <X11/Xaw/AsciiText.h>
  1386. #include <X11/Xaw/Viewport.h>
  1387. #include "bibview.h"
  1388. X
  1389. X
  1390. /* macros and definitions */
  1391. /* ---------------------- */
  1392. X
  1393. /* function to create widgets for card window */
  1394. typedef void (*CreateWidgetFuncPtr)(BibPtr bp, CardPtr cp);
  1395. X
  1396. /* function to save data from card window */
  1397. typedef Errcode (*SaveWidgetFuncPtr)(CardPtr cp);
  1398. X
  1399. /* structure for pulldown menu items */
  1400. typedef struct {
  1401. X   String name;        /* Xt name (instance) of item */
  1402. X   XtCallbackProc cb;    /* associated callback function */
  1403. } MenuEntry;
  1404. X
  1405. X
  1406. /* local function prototypes */
  1407. /* ------------------------- */
  1408. static Errcode calcNextCardWinPos (Widget desk, int n, Position *x, Position *y);
  1409. static Errcode calcNextCardIconPos (Widget desk, int curIcon, Position *x, Position *y);
  1410. static void createMenu (String menuName, MenuEntry item[], Widget parent, Widget *menu);
  1411. static void createStdWidgetFlds (BibPtr bp, CardPtr cp);
  1412. static void CreateArticleWidgets (BibPtr bp, CardPtr cp);
  1413. static void CreateBookWidgets (BibPtr bp, CardPtr cp);
  1414. static void CreateBookletWidgets (BibPtr bp, CardPtr cp);
  1415. static void CreateConferenceWidgets (BibPtr bp, CardPtr cp);
  1416. static void CreateInbookWidgets (BibPtr bp, CardPtr cp);
  1417. static void CreateIncollectionWidgets (BibPtr bp, CardPtr cp);
  1418. static void CreateInproceedingsWidgets (BibPtr bp, CardPtr cp);
  1419. static void CreateManualWidgets (BibPtr bp, CardPtr cp);
  1420. static void CreateMasterthesisWidgets (BibPtr bp, CardPtr cp);
  1421. static void CreateMiscWidgets (BibPtr bp, CardPtr cp);
  1422. static void CreatePhdthesisWidgets (BibPtr bp, CardPtr cp);
  1423. static void CreateProceedingsWidgets (BibPtr bp, CardPtr cp);
  1424. static void CreateTechreportWidgets (BibPtr bp, CardPtr cp);
  1425. static void CreateUnpublishedWidgets (BibPtr bp, CardPtr cp);
  1426. static void CreateDummyWidgets (BibPtr bp, CardPtr cp);
  1427. static Errcode saveStdWidgetFlds (CardPtr cp);
  1428. static Errcode SaveArticleWidgets (CardPtr cp);
  1429. static Errcode SaveBookWidgets (CardPtr cp);
  1430. static Errcode SaveBookletWidgets (CardPtr cp);
  1431. static Errcode SaveConferenceWidgets (CardPtr cp);
  1432. static Errcode SaveInbookWidgets (CardPtr cp);
  1433. static Errcode SaveIncollectionWidgets (CardPtr cp);
  1434. static Errcode SaveInproceedingsWidgets (CardPtr cp);
  1435. static Errcode SaveManualWidgets (CardPtr cp);
  1436. static Errcode SaveMasterthesisWidgets (CardPtr cp);
  1437. static Errcode SaveMiscWidgets (CardPtr cp);
  1438. static Errcode SavePhdthesisWidgets (CardPtr cp);
  1439. static Errcode SaveProceedingsWidgets (CardPtr cp);
  1440. static Errcode SaveTechreportWidgets (CardPtr cp);
  1441. static Errcode SaveUnpublishedWidgets (CardPtr cp);
  1442. static Errcode SaveDummyWidgets (CardPtr cp);
  1443. X
  1444. X
  1445. X
  1446. /* external global variables */
  1447. /* ------------------------- */
  1448. extern Widget topLevel, desktop;
  1449. extern Pixmap crdIconPixmap;
  1450. extern UserDefFld userDefFlds[];
  1451. X
  1452. X
  1453. /* exported global variables */
  1454. /* ---------------------- */
  1455. X
  1456. X
  1457. /* local global variables */
  1458. /* ------------------------- */
  1459. X
  1460. /* pointers to strings of widget names for each card type */
  1461. static char *cardWidgetName[] = {
  1462. X   "article",
  1463. X   "book",
  1464. X   "booklet",
  1465. X   "conference",
  1466. X   "inbook",
  1467. X   "incollection",
  1468. X   "inproceedings",
  1469. X   "manual",
  1470. X   "mastersthesis",
  1471. X   "misc",
  1472. X   "phdthesis",
  1473. X   "proceedings",
  1474. X   "techreport",
  1475. X   "unpublished"
  1476. };
  1477. X
  1478. /* pointers to functions for creating widgets in card windows */
  1479. static CreateWidgetFuncPtr createWidgetFunc[] = {
  1480. X   CreateArticleWidgets,
  1481. X   CreateBookWidgets,
  1482. X   CreateBookletWidgets,
  1483. X   CreateConferenceWidgets,
  1484. X   CreateInbookWidgets,
  1485. X   CreateIncollectionWidgets,
  1486. X   CreateInproceedingsWidgets,
  1487. X   CreateManualWidgets,
  1488. X   CreateMasterthesisWidgets,
  1489. X   CreateMiscWidgets,
  1490. X   CreatePhdthesisWidgets,
  1491. X   CreateProceedingsWidgets,
  1492. X   CreateTechreportWidgets,
  1493. X   CreateUnpublishedWidgets
  1494. };
  1495. X
  1496. /* pointers to functions for saving data from widgets */
  1497. static SaveWidgetFuncPtr saveWidgetFunc[] = {
  1498. X   SaveArticleWidgets,
  1499. X   SaveBookWidgets,
  1500. X   SaveBookletWidgets,
  1501. X   SaveConferenceWidgets,
  1502. X   SaveInbookWidgets,
  1503. X   SaveIncollectionWidgets,
  1504. X   SaveInproceedingsWidgets,
  1505. X   SaveManualWidgets,
  1506. X   SaveMasterthesisWidgets,
  1507. X   SaveMiscWidgets,
  1508. X   SavePhdthesisWidgets,
  1509. X   SaveProceedingsWidgets,
  1510. X   SaveTechreportWidgets,
  1511. X   SaveUnpublishedWidgets
  1512. };
  1513. X
  1514. X
  1515. X
  1516. /*********************************************************************/
  1517. /* gucOpenCardWin:                                                   */
  1518. /*    Creates an instance of a bibliography window                   */
  1519. /*********************************************************************/
  1520. Errcode
  1521. gucOpenCardWin (BibPtr bp, CardPtr cp, Boolean isNew)
  1522. {
  1523. CardPtr lastCard;
  1524. CardWinPtr cw;
  1525. int status;
  1526. X
  1527. X   /* allocate memory for new element of window list */
  1528. X   if ((cw = (CardWinPtr) calloc(1, sizeof(CardWin))) == NULL) {
  1529. X      /* error-handling is done in control modules */
  1530. X      return(ERR_NOMALLOC);
  1531. X   }
  1532. X
  1533. X   /* allocate memory for text buffers of card widget */
  1534. X   /* not needed: handled by widget */
  1535. X
  1536. X   /* build label of new shell */
  1537. X   if ((cw->shellName = (String)calloc(strlen(bp->filename) +
  1538. X                                   strlen(glbTypeToName(cp->cd->cardtype))+4,
  1539. X                                   sizeof(char))) == NULL) {
  1540. X      free(cw);
  1541. X      return(ERR_NOMALLOC);
  1542. X   }
  1543. X   sprintf(cw->shellName, "%s: %s", bp->filename, 
  1544. X                    glbTypeToName(cp->cd->cardtype));
  1545. X
  1546. X   /* create popup shell for new file */
  1547. X   cw->cardShell = XtVaCreatePopupShell("cardShell",
  1548. X                     topLevelShellWidgetClass, topLevel,
  1549. X                     XtNtransientFor, bp->bw->bibShell,
  1550. X                     XtNwindowGroup, XtWindow(bp->bw->bibShell), 
  1551. X                     XtNtitle, cw->shellName,
  1552. X                     XtNiconPixmap, crdIconPixmap,
  1553. X                     XtNiconName, cp->cd->key, NULL);
  1554. X
  1555. X   /* create widgets for card */
  1556. X   cw->cardWin = XtVaCreateManagedWidget("cardWin",
  1557. X           panedWidgetClass, cw->cardShell, NULL);
  1558. X   cw->cmdBox = XtVaCreateManagedWidget("commandBox", 
  1559. X          boxWidgetClass, cw->cardWin, NULL);
  1560. X   cw->userDef = XtVaCreateManagedWidget("userDef", 
  1561. X               commandWidgetClass, cw->cmdBox, NULL);
  1562. X   cw->annote = XtVaCreateManagedWidget("annote", 
  1563. X               commandWidgetClass, cw->cmdBox, NULL);
  1564. X   cw->delete = XtVaCreateManagedWidget("delete", 
  1565. X              commandWidgetClass, cw->cmdBox, NULL);
  1566. X   cw->change = XtVaCreateManagedWidget("save", 
  1567. X               commandWidgetClass, cw->cmdBox, NULL);
  1568. X   cw->copy = XtVaCreateManagedWidget("copy", 
  1569. X            commandWidgetClass, cw->cmdBox, NULL);
  1570. X   cw->close = XtVaCreateManagedWidget("quit", 
  1571. X             commandWidgetClass, cw->cmdBox, NULL);
  1572. X
  1573. X   XtAddCallback(cw->close, XtNcallback, ccdCloseCardCmd, (XtPointer)cp);
  1574. X   XtAddCallback(cw->userDef, XtNcallback, ccdUserdataCmd, (XtPointer)cp);
  1575. X   XtAddCallback(cw->delete, XtNcallback, ccdDeleteCardCmd, (XtPointer)cp);
  1576. X   XtAddCallback(cw->annote, XtNcallback, ccdAnnoteCardCmd, (XtPointer)cp);
  1577. X   if (isNew)
  1578. X      XtAddCallback(cw->change, XtNcallback, ccdSaveCardCmd, (XtPointer)cp);
  1579. X   else
  1580. X      XtAddCallback(cw->change, XtNcallback, ccdChangeCardCmd, (XtPointer)cp);
  1581. X   XtAddCallback(cw->copy, XtNcallback, ccdCopyCardCmd, (XtPointer)cp);
  1582. X
  1583. X   /* create card window desktop */
  1584. X   cw->cardDesk = XtVaCreateManagedWidget("carddesk", 
  1585. X                formWidgetClass, cw->cardWin, NULL);
  1586. X   cw->cardFlds = XtVaCreateManagedWidget(cardWidgetName[cp->cd->cardtype], 
  1587. X                formWidgetClass, cw->cardDesk, NULL);
  1588. X
  1589. X   /* set card pointer to new struct, new window created */
  1590. X   cp->cw = cw;
  1591. X   bp->noOfCardWins++;
  1592. X
  1593. X   /* Position window near bibliography desktop */
  1594. X   calcNextCardWinPos(bp->bw->bibdesk, bp->nextCardPos, &cw->winX, &cw->winY);
  1595. X   XtVaSetValues(cw->cardShell,
  1596. X                 XtNx, cw->winX,
  1597. X                 XtNy, cw->winY, NULL);
  1598. X
  1599. X   /* if option on, set icon position on desktop */
  1600. X   if (cotIconizeOnDesktop()) {
  1601. X      calcNextCardIconPos(bp->bw->bibdesk, bp->noOfCardWins, &cw->iconX, &cw->iconY);
  1602. X      XtVaSetValues(cw->cardShell,
  1603. X                    XtNiconX, cw->iconX,
  1604. X                    XtNiconY, cw->iconY, NULL);
  1605. X   }
  1606. X   bp->nextCardPos++;
  1607. X
  1608. X   /* build only widgets for specific card type */
  1609. X   createStdWidgetFlds(bp, cp);
  1610. X   (createWidgetFunc[cp->cd->cardtype])(bp, cp);
  1611. X
  1612. X   XtPopup(cw->cardShell, XtGrabNone);
  1613. X   return(OK);
  1614. }
  1615. X
  1616. X
  1617. /*********************************************************************/
  1618. /* gucStdFldsChanged:                                                */
  1619. /*    Returns true, if user made changes to standard bibTeX fields   */
  1620. /*********************************************************************/
  1621. #define WidgetChanged(w) (XawAsciiSourceChanged(XawTextGetSource(w)))
  1622. Boolean
  1623. gucStdFldsChanged (CardPtr cp)
  1624. {
  1625. CardWidgetsPtr cwp = &cp->cw->ct.cw;    /* ptr to widget ids */
  1626. X
  1627. X   if (cwp->address && WidgetChanged(cwp->address)) 
  1628. X       return(TRUE);
  1629. X   else if (cwp->annote && (cp->cd->annoteChanged==TRUE))
  1630. X      return(TRUE);
  1631. X   else if (cwp->author && WidgetChanged(cwp->author)) 
  1632. X      return(TRUE);
  1633. X   else if (cwp->booktitle && WidgetChanged(cwp->booktitle)) 
  1634. X      return(TRUE);
  1635. X   else if (cwp->chapter && WidgetChanged(cwp->chapter)) 
  1636. X      return(TRUE);
  1637. SHAR_EOF
  1638. true || echo 'restore of gui_card.c failed'
  1639. fi
  1640. echo 'End of  part 14'
  1641. echo 'File gui_card.c is continued in part 15'
  1642. echo 15 > _shar_seq_.tmp
  1643. exit 0
  1644. -- 
  1645. Senior Systems Scientist        mail: dcmartin@msi.com
  1646. Molecular Simulations, Inc.        uucp: uunet!dcmartin
  1647. 796 North Pastoria Avenue        at&t: 408/522-9236
  1648. Sunnyvale, California 94086        fax: 408/732-0831
  1649.