home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk1.iso / altsrc / articles / 10712 < prev    next >
Internet Message Format  |  1994-06-19  |  69KB
  1. Path: wupost!howland.reston.ans.net!gatech!news-feed-1.peachnet.edu!news.duke.edu!solaris.cc.vt.edu!uunet!tsw!not-for-mail
  2. From: dean%tsw@uunet.UU.NET (Dean Collins)
  3. Newsgroups: alt.sources
  4. Subject: X Problem Tracking System (14/16)
  5. Followup-To: alt.sources.d
  6. Date: 18 Jun 1994 12:23:25 -0700
  7. Organization: Zombie Software
  8. Lines: 2164
  9. Distribution: world
  10. Message-ID: <2tvhjd$2uo@hal.sea.tsw.com>
  11. References: <2tvhif$q4k@hal.sea.tsw.com>
  12. Reply-To: dean@halcyon.com
  13. NNTP-Posting-Host: hal.sea.tsw.com
  14.  
  15. Archive-name: pts/part14
  16. Submitted-by: dean@halcyon.com (Dean Collins)
  17. Version: 1.05
  18.  
  19. #! /bin/sh
  20. # This is a shell archive.  Remove anything before this line, then unpack
  21. # it by saving it into a file and typing "sh file".  To overwrite existing
  22. # files, type "sh file -c".  You can also feed this as standard input via
  23. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  24. # will see the following message at the end:
  25. #        "End of archive 14 (of 16)."
  26. # Contents:  pts-1.05/xpts/misc.c
  27. # Wrapped by dean@hal on Sat Jun 18 12:08:20 1994
  28. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  29. if test -f 'pts-1.05/xpts/misc.c' -a "${1}" != "-c" ; then 
  30.   echo shar: Will not clobber existing file \"'pts-1.05/xpts/misc.c'\"
  31. else
  32. echo shar: Extracting \"'pts-1.05/xpts/misc.c'\" \(64402 characters\)
  33. sed "s/^X//" >'pts-1.05/xpts/misc.c' <<'END_OF_FILE'
  34. X/*
  35. X * misc.c -- Miscellaneous functions for the X user interface
  36. X *             to the Problem Tracking System (PTS) database.
  37. X * Dean Collins 
  38. X *
  39. X * created:        Wed Aug  5 09:31:11 PDT 1992
  40. X * Version 1.0:        Sat Jan  9 10:44:49 PST 1993
  41. X * Version 1.01:    Wed Mar  7 00:00:00 PST 1993
  42. X * Version 1.03:    Fri Nov 26 16:13:59 PST 1993
  43. X * Version 1.03b:    Sat Feb 12 17:23:17 PST 1994
  44. X * Version 1.04:    Mon Mar  7 18:07:14 PST 1994
  45. X *
  46. X * Modified: Dean Collins Sat Feb 12 17:16:41 1994
  47. X * Modification inspired by Jaap Haalboom (haalboom@prl.philips.nl).
  48. X * Added Xlibint.h include for _XExtension.  Added for all architectures,
  49. X * not just __hppa.
  50. X *
  51. X * Modified: Dean Collins Mon Mar  7 18:03:35 PST 1994
  52. X * Modification inspired by Ove Hansen.
  53. X * Added USESYSDEFERR to ignore my not-so-portable error handler
  54. X * Define this if you're getting compiler errors for the function
  55. X * XPrintDefaultError(). 
  56. X *
  57. X * Modified: Dean Collins Fri May 06 19:47:40 1994
  58. X * Relocated the inclusion of <X11/Xlibint.h> so that it's after
  59. X * <X11/Intrinsic.h>, which was causing grief.
  60. X */
  61. X
  62. X/*
  63. X * Copyright (c) 1992,1993,1994 Dean Collins.
  64. X * Copyright (c) 1992 University of Idaho, Moscow, Idaho.
  65. X * 
  66. X * Permission to use, copy, modify, and distribute this software and its
  67. X * documentation free of charge for any purpose is hereby granted without
  68. X * fee, provided that the above copyright notices appear in all copies and
  69. X * that both those copyright notices and this permission notice appear in
  70. X * supporting documentation, and that neither the name of the University of
  71. X * Idaho nor the name of Dean Collins be used in advertising or publicity
  72. X * pertaining to distribution of the software without specific, written
  73. X * prior permission from both parties.  Neither The University of Idaho
  74. X * nor Dean Collins make any representations about the suitability of
  75. X * this software for any purpose.  It is provided "as is" without express
  76. X * or implied warranty.
  77. X * 
  78. X * THE UNIVERSITY OF IDAHO AND DEAN COLLINS DISCLAIM ALL WARRANTIES WITH
  79. X * REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  80. X * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL THE UNIVERSITY OF IDAHO
  81. X * OR DEAN COLLINS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
  82. X * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
  83. X * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
  84. X * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
  85. X * THIS SOFTWARE.
  86. X */
  87. X
  88. X#include <stdlib.h>        /* General C utilities header file */
  89. X#include <stdio.h>        /* Standard input/output utilities hdr. file */
  90. X#include <errno.h>        /* Error utilities header file */
  91. X
  92. X#include <X11/Intrinsic.h>    /* Include standard Toolkit Header file */
  93. X#include <X11/StringDefs.h>    /* Include StringDefs header file */
  94. X#include <X11/Shell.h>        /* Include the Shell header file for popups */
  95. X
  96. X#ifndef NOEXTVAR
  97. X#include <X11/Xlibint.h>    /* Include internal support routines hdr. file*/
  98. X#endif /*NOEXTVAR*/
  99. X
  100. X#include <X11/Xaw/AsciiText.h>    /* Include the ascii Text widget hdr. file */
  101. X#include <X11/Xaw/Box.h>    /* Include the Box widget header file */
  102. X#include <X11/Xaw/Command.h>    /* Include the Command widget header file */
  103. X#include <X11/Xaw/Dialog.h>    /* Include the Dialog widget header file */
  104. X#include <X11/Xaw/Form.h>    /* Include the Form widget header file */
  105. X#include <X11/Xaw/List.h>    /* Include the List widget header file */
  106. X#include <X11/Xaw/Paned.h>    /* Include the Paned widget header file */
  107. X#include <X11/Xaw/Scrollbar.h>    /* Include the Scrollbar widget header file */
  108. X#include <X11/Xaw/Viewport.h>    /* Include the Viewport widget header file */
  109. X
  110. X#include <X11/Xaw/Cardinals.h>    /* Definitions of ZERO, ONE, etc... */
  111. X
  112. X#include <X11/Xmu/Error.h>    /* Error handler functions */
  113. X
  114. X#include "zdbm.h"        /* Zombie Database Manager header file */
  115. X#include "cloud.h"        /* Nebulous Cloud header file */
  116. X#include "clouderror.h"        /* Nebulous Cloud error rtn. header file */
  117. X#include "xpts.h"        /* Xpts header file */
  118. X
  119. X
  120. Xextern bool NoQuit;    /* True if user started PTS in "no-quit" mode, */
  121. X            /* false otherwise. */
  122. X
  123. X      /* The current problem record.  This ideally would
  124. X       * be part of a new widget.  The widget would have the
  125. X       * resources listed in ProblemType.  It would have functions
  126. X       * to display, read and write the problem.
  127. X       * Next version, maybe...
  128. X       */
  129. Xextern problem_record * ProblemRecord ;
  130. X
  131. X      /* The current list of problem summaries.  Similar
  132. X       * comment to that above.
  133. X       */
  134. Xextern String *SummaryItems ;
  135. X
  136. X        /* The problem types tree. */
  137. Xextern ProblemTree *ProbTree ;
  138. X
  139. X        /* Information about the user. */
  140. Xextern UserInfo UserInfoRec ;
  141. X
  142. X        /* The path for the problem types tree. */
  143. Xextern char Path[] ;
  144. X
  145. Xextern char Node[] ;
  146. Xextern char ProblemText[] ;
  147. X
  148. Xextern String *ProblemItems ;
  149. X
  150. X/* The following string will be displayed by the "About PTS" button
  151. X * on the Main Menu: 
  152. X */
  153. Xextern const char PTSInfoText[] ;
  154. X
  155. Xextern Summary *CloudUnSummaries ;
  156. Xextern Summary *CloudSummaries ;
  157. X
  158. Xextern Widget GlobalNewProblemButton ;
  159. Xextern Widget GlobalPreviousButton ;
  160. Xextern Widget GlobalMainMenuWidget ;
  161. X
  162. Xextern int WarningFlag ;
  163. X
  164. X#ifndef NOSIGNALS
  165. Xextern SigType SigRec ;
  166. X#endif
  167. X
  168. X/******************** MODULES *************************************/
  169. X
  170. X/*
  171. X______________________________________________________________________
  172. XChangeList()
  173. X
  174. XFUNCTION DESCRIPTION:
  175. X
  176. X     This function will allow the user to select a sub-type of the current
  177. Xproblem type.  Selecting a sub-type which contains no further sub-types
  178. Xcauses a list of problem summaries for that sub-type to be displayed.
  179. XThere are two ways to call this function.  First, you can specify
  180. Xa complete problem type.  Second, you can specify an incomplete problem
  181. Xtype and indicate the child of that type you have selected.
  182. X______________________________________________________________________
  183. XREVISION HISTORY:
  184. X     Author:  Dean Collins            Date:  2/20/92
  185. X     Version 1.0 finalized: Dean Collins    Date: 1/9/93
  186. X______________________________________________________________________
  187. X*/
  188. X
  189. X
  190. Xvoid
  191. XChangeList(String    type, 
  192. X           int        item,
  193. X           int        flag,
  194. X           XtPointer    client_data)
  195. X
  196. X     /* Interface description:
  197. X         INPUT:
  198. X          type        - The specified problem type to display, OR
  199. X                             the parent of the problem type to display.
  200. X          item        - The index of the selected child of the
  201. X                             specified problem type if flag=INC_TYPE, OR 
  202. X                             NULL otherwise.
  203. X          flag        - Equal to ABS_TYPE if type is the
  204. X                             complete problem type to display, OR
  205. X                             equal to INC_TYPE if type is the parent of
  206. X                             the problem to display and item is the
  207. X                             index of the selected child of this type, OR
  208. X                             equal to PREV_TYPE if item is a child
  209. X                             of the desired problem type path.
  210. X          client_data    - This is an array of pointers to widgets.
  211. X                             It is defined in the following manner:
  212. X
  213. X                                 client_data[0] = list widget
  214. X                                 client_data[1] = dialog widget
  215. X                                 client_data[2] = parent widget
  216. X                                 client_data[3] = quitButton widget
  217. X                                 client_data[4] = previousButton widget
  218. X                                client_data[5] = newProblem widget
  219. X                 client_data[6] = pickProblem popup widget
  220. X
  221. X         OUTPUT:
  222. X          None.
  223. X         RETURN VALUE:
  224. X          None.
  225. X     */
  226. X      
  227. X{
  228. X     /* Internal variables: */
  229. X
  230. X          /* Major */
  231. X   Widget list ;
  232. X   Widget dialog ;
  233. X   Widget parent ;
  234. X   Widget quitButton ;
  235. X   Widget previousButton ;
  236. X   Widget newProblem ;
  237. X   Widget pickProblem ;
  238. X   Widget panes ;
  239. X   XtPointer *ptrlist ;
  240. X   XtPointer *ptrlist2 ;
  241. X
  242. X          /* Minor */
  243. X   Arg args[3] ;
  244. X   int status=0;
  245. X   char OldPath[DBPATHLEN+1] ;
  246. X   Dimension width=0, height=0 ;
  247. X   Dimension pwidth=0, pheight=0 ;
  248. X   Dimension border ;
  249. X   static int insummaries=FALSE ;  /* Whether we're currently in the problem
  250. X                    * summaries list or not. 
  251. X                    */
  252. X     
  253. X
  254. X   /*----------------- Start of ChangeList() routine ------------------*/
  255. X#ifdef DEBUG
  256. X   printf("XPTS(misc.c): Entering ChangeList()\n") ;
  257. X#endif
  258. X
  259. X        /* Make local widgets for each of the items in client_data */
  260. X   ptrlist2 = (XtPointer *)client_data ;
  261. X   list           = (Widget) (ptrlist2[0]) ;
  262. X   dialog       = (Widget) (ptrlist2[1]) ;
  263. X   parent       = (Widget) (ptrlist2[2]) ;
  264. X   quitButton       = (Widget) (ptrlist2[3]) ;
  265. X   previousButton  = (Widget) (ptrlist2[4]) ;
  266. X   newProblem       = (Widget) (ptrlist2[5]) ;
  267. X   pickProblem       = (Widget) (ptrlist2[6]) ;
  268. X
  269. X   panes = XtParent(XtParent(list)) ;
  270. X
  271. X#ifdef STUPIDXSERVER 
  272. X     /* The list widget keeps getting mangled, so lets unmanage it
  273. X      * for the time being.  Once everything is ready, manage it again.
  274. X      * This problem needs to be tracked down.  (XtUnmangleChild() ! :-)
  275. X      */
  276. X   XtUnmanageChild(list) ;
  277. X#endif
  278. X
  279. X
  280. X   AllocProblemItems() ; /* Allocate ProblemItems strings */
  281. X
  282. X#ifdef DEBUG
  283. X   printf("XPTS(misc.c): Calling FormatProblemTypes with Path=%s\n",Path) ;
  284. X#endif
  285. X   /* Attempt to change to the new problem time. */
  286. X/*CLD*/   status = FormatProblemTypes(ProbTree,Path,item,flag,ProblemItems) ;
  287. X
  288. X#ifdef DEBUG
  289. X   printf("XPTS(misc.c): Returned from FormatProblemTypes()...Path=%s\n",Path) ;
  290. X   printf("XPTS(misc.c): FormatProblemTypes status is %d\n", status) ;
  291. X   printf("XPTS(misc.c): ChangeList(): Removing extra ProblemItems strings\n") ;
  292. X#endif
  293. X   FreeItems(ProblemItems, MAXBRANCHES) ;/* Remove unused ProblemItems strings*/
  294. X
  295. X
  296. X
  297. X     /* If the problem type doesn't exist in the problem tree,
  298. X      *   then call ErrorPopup() with an appropriate error message,
  299. X      *   and return.
  300. X      */
  301. X   if (status < 0)      /* Error in problem-type path */
  302. X   {   /* Might be an error, might be a summary selection.
  303. X        * Call ReadProblem to decide.  If it returns NULL there
  304. X        * was an error.
  305. X        * Make a copy of Path, since ReadProblem will probably mess it up.
  306. X        */
  307. X#ifdef DEBUG
  308. X      printf("XPTS(misc.c): FormatProblemTypes() returned an error,\t(OK, if already at a leaf).\n") ;
  309. X#endif
  310. X      strcpy(OldPath, Path) ; /* Save the Path */
  311. X#ifdef DEBUG
  312. X      printf("XPTS(misc.c): Calling ReadProblem() in cloud...\n") ;
  313. X#endif
  314. X/*CLD*/      ProblemRecord=ReadProblem(ProbTree, Path, item, CloudSummaries) ;
  315. X#ifdef DEBUG
  316. X      printf("XPTS(misc.c): Returned from ReadProblem()...ProblemRecord=%p\n",
  317. X             ProblemRecord) ;
  318. X#endif
  319. X
  320. X      if (ProblemRecord == NULL)
  321. X      {  
  322. X#ifdef DEBUG
  323. X         printf("XPTS(misc.c): ReadProblem() returned a NULL\n") ;
  324. X#endif
  325. X         ErrorPopup("error",pickProblem,"Problem nonexistent!\n") ;
  326. X         strcpy(Path, OldPath) ; /* Restore the Path */
  327. X         XtManageChild(list) ;
  328. X         return ;
  329. X      }
  330. X      else
  331. X      {  strcpy(Path, OldPath) ; /* Restore the Path */
  332. X     /* Call ViewProblemActivate() with ANYPROB and item */
  333. X         ptrlist = (XtPointer *) XtCalloc(2, sizeof(XtPointer)) ;
  334. X         ptrlist[0] = (XtPointer) pickProblem ;
  335. X         ptrlist[1] = (XtPointer) ANYPROB ;
  336. X#ifdef DEBUG
  337. X         printf("XPTS(misc.c): Calling ViewProblemActivate()...\n"
  338. X        "\tptrlist=%p,ptrlist[0]=%p,ptrlist[1]=%p,list=%p,Path=%p\n",
  339. X        ptrlist,ptrlist[0],ptrlist[1],list,Path) ;
  340. X#endif
  341. X         ViewProblemActivate(list, (XtPointer)ptrlist, (XtPointer)item) ;
  342. X      }
  343. X
  344. X   } 
  345. X
  346. X
  347. X
  348. X    /**** NOT  A  LEAF ****/
  349. X
  350. X   if (status > 0)    /* Child types exist, returned in ProblemItems */
  351. X   {
  352. X     /* If the problem type specified is NOT a leaf, 
  353. X      *   Generate a printable list of problem types.
  354. X      *   Change the list widget's text.
  355. X      *   Change the list to be two column.
  356. X      *   Get rid of the newProblem button, if present.
  357. X      *   Change the dialog widget's text to be the new problem type.
  358. X      */
  359. X
  360. X      XtSetArg(args[0], XtNdefaultColumns, TWO) ;
  361. X      XtSetValues(list, args, ONE) ; 
  362. X
  363. X      if (insummaries)   /* Halve height & width of popup */
  364. X      {  insummaries=FALSE ;
  365. X         XtUnmanageChild(panes) ;
  366. X         XtSetArg(args[0], XtNwidth, &width) ;
  367. X         XtSetArg(args[1], XtNheight, &height) ;
  368. X         XtGetValues(pickProblem, args, TWO) ;
  369. X#ifdef DEBUG
  370. X         printf("XPTS(misc.c): width=%d, height=%d.  Halving popup size...\n",
  371. X        (int)width, (int)height) ;
  372. X#endif
  373. X     width=width/2 ;  height=height/2 ;
  374. X     XawPanedAllowResize(XtParent(list), True) ;
  375. X         XtSetArg(args[0], XtNwidth, width) ;
  376. X         XtSetArg(args[1], XtNheight, height) ;
  377. X         XtSetValues(pickProblem, args, TWO) ;
  378. X
  379. X        /* Shrink panes */
  380. X         XtSetArg(args[0], XtNborderWidth, &border) ;
  381. X         XtGetValues(panes, args, ONE) ;
  382. X     pwidth  = width  - 2 * border ; 
  383. X     pheight = height - 2 * border ; 
  384. X         XtSetArg(args[0], XtNwidth, pwidth) ;
  385. X         XtSetArg(args[1], XtNheight, pheight) ;
  386. X#ifdef DEBUG
  387. X         printf("XPTS(misc.c): "
  388. X        "Setting -- panewidth=%d, paneheight=%d. (border=%d)\n",
  389. X        (int)pwidth, (int)pheight, (int)border) ;
  390. X#endif
  391. X         XtSetValues(panes, args, TWO) ;
  392. X         XtSetArg(args[0], XtNwidth, &pwidth) ;
  393. X         XtSetArg(args[1], XtNheight, &pheight) ;
  394. X         XtGetValues(panes, args, TWO) ;
  395. X#ifdef DEBUG
  396. X         printf("XPTS(misc.c): Result  -- panewidth=%d, paneheight=%d\n",
  397. X        (int)pwidth, (int)pheight) ;
  398. X         if (pwidth > width || pheight > height)
  399. X            printf("XPTS(misc.c): Paned widget resize failure.  Darn.\n") ;
  400. X#endif
  401. X      }
  402. X
  403. X      XawListChange(list, ProblemItems, ZERO, ZERO, TRUE) ;
  404. X      XtSetSensitive(list, True) ;
  405. X      XtUnmanageChild(newProblem) ;
  406. X   }
  407. X
  408. X
  409. X
  410. X    /**** IS  A  LEAF ****/
  411. X
  412. X   if (status == 0)    /* No child types, only summaries exist */
  413. X   {
  414. X     /* If the problem type specified IS a leaf,
  415. X      *   Read the problem summaries for the problem type
  416. X      *         from the database.
  417. X      *   Change the list widget's text.
  418. X      *   Change the list to be one column only.
  419. X      *   Add the newProblem button to the button box.
  420. X      */
  421. X      if (!insummaries) 
  422. X         XtUnmanageChild(panes) ;
  423. X
  424. X      XtSetArg(args[0], XtNdefaultColumns, ONE) ;
  425. X      XtSetValues(list, args, ONE) ; 
  426. X
  427. X      if (!insummaries)   /* Double the height & width for the summaries list*/
  428. X      {  insummaries=TRUE ;
  429. X         XtSetArg(args[0], XtNwidth, &width) ;
  430. X         XtSetArg(args[1], XtNheight, &height) ;
  431. X         XtGetValues(pickProblem, args, TWO) ;
  432. X#ifdef DEBUG
  433. X         printf("XPTS(misc.c): width=%d, height=%d.  Doubling popup size...\n",
  434. X        (int)width, (int)height) ;
  435. X#endif
  436. X         width=width*2 ;  height=height*2 ;
  437. X     XawPanedAllowResize(XtParent(list), True) ;
  438. X         XtSetArg(args[0], XtNwidth, width) ;
  439. X         XtSetArg(args[1], XtNheight, height) ;
  440. X#ifdef DEBUG
  441. X   printf("ChangeList() pickProblem=%p\n", (XtPointer)pickProblem) ;
  442. X#endif
  443. X         XtSetValues(pickProblem, args, TWO) ;
  444. X
  445. X                /* Stretch panes */
  446. X         XtSetArg(args[0], XtNborderWidth, &border) ;
  447. X         XtGetValues(panes, args, ONE) ;
  448. X         pwidth  = width  - 2 * border ;
  449. X         pheight = height - 2 * border ;
  450. X         XtSetArg(args[0], XtNwidth, pwidth) ;
  451. X         XtSetArg(args[1], XtNheight, pheight) ;
  452. X#ifdef DEBUG
  453. X         printf("XPTS(misc.c): "
  454. X                "Setting -- panewidth=%d, paneheight=%d. (border=%d)\n",
  455. X                (int)pwidth, (int)pheight, (int)border) ;
  456. X#endif
  457. X         XtSetValues(panes, args, TWO) ;
  458. X         XtSetArg(args[0], XtNwidth, &pwidth) ;
  459. X         XtSetArg(args[1], XtNheight, &pheight) ;
  460. X         XtGetValues(panes, args, TWO) ;
  461. X#ifdef DEBUG
  462. X         printf("XPTS(misc.c): Result  -- panewidth=%d, paneheight=%d\n",
  463. X                (int)pwidth, (int)pheight) ;
  464. X         if (pwidth != width-2*border || pheight != height-2*border)
  465. X            printf("XPTS(misc.c): Paned widget resize failure.  Darn.\n") ;
  466. X#endif
  467. X      }
  468. X
  469. X      ReadList(pickProblem, pickProblem) ; /* Fill in the summaries list. */
  470. X      XtManageChild(newProblem) ;
  471. X   }
  472. X   
  473. X
  474. X
  475. X     /* If the problem type is ROOTSTR, the problem tree root, 
  476. X      *   unrealize the previousButton widget and
  477. X      *   realize the quitButton widget.
  478. X      * else
  479. X      *   unrealize the quitButton widget and
  480. X      *   realize the previousButton widget.
  481. X      */
  482. X#ifdef DEBUG
  483. X   printf("XPTS(misc.c): ChangeList(): "
  484. X          "About to compare ROOTSTR (%s) to Path (%s)...\n",
  485. X       ROOTSTR, Path) ;
  486. X#endif
  487. X/*   if (strcmp(ROOTSTR, Path) == 0)*/
  488. X/*CLD*/   if (strcmp(FixPath(Path), "") == 0) /*FixPath because ROOT = ROOT/ */
  489. X   {  XtManageChild(quitButton) ;
  490. X      XtUnmanageChild(previousButton) ;
  491. X   }
  492. X   else
  493. X   {  XtManageChild(previousButton) ;
  494. X      XtUnmanageChild(quitButton) ;
  495. X   }
  496. X
  497. X#ifdef STUPIDXSERVER 
  498. X   XtManageChild(list) ;
  499. X#endif
  500. X
  501. X
  502. X   XtManageChild(panes) ;
  503. X
  504. X#ifdef DEBUG
  505. X   printf("XPTS(misc.c): Leaving ChangeList()\n") ;
  506. X#endif
  507. X
  508. X}  /*--------------------- End of ChangeList() ------------------------*/
  509. X
  510. X
  511. X/*
  512. X______________________________________________________________________
  513. XDoDeleteProblem()
  514. X
  515. XFUNCTION DESCRIPTION:
  516. X     This function is called when the user has indicated that they
  517. Xdo want to delete a problem.
  518. X______________________________________________________________________
  519. XREVISION HISTORY:
  520. X     Author:  Dean Collins            Date:  6/23/92
  521. X     Version 1.0 finalized: Dean Collins    Date: 1/9/93
  522. X______________________________________________________________________
  523. X*/
  524. X
  525. X
  526. X
  527. Xvoid
  528. XDoDeleteProblem(Widget        w,
  529. X        XtPointer    client_data,
  530. X        XtPointer    call_data)
  531. X
  532. X     /* Interface description:
  533. X         INPUT:
  534. X          w           - The widget for which this callback is registered.
  535. X          client_data - Specifies arbitrary client-supplied data
  536. X                        that the widget w should pass back to the
  537. X                        client when the widget executes the client's
  538. X                        callback procedure.  In this callback,
  539. X                        this is the problem viewer popup widget.
  540. X          call_data   - Specifies any callback-specific data the widget w
  541. X                        wants to pass to the client.
  542. X         OUTPUT:
  543. X           None.
  544. X         RETURN VALUE:
  545. X          None.
  546. X     */
  547. X
  548. X{
  549. X     /* Internal variables: */
  550. X          /* Major */
  551. X   Widget warning ;
  552. X   Widget probViewer ;
  553. X   Widget list ;
  554. X          /* Minor */
  555. X   char errorstr[MAXERROR] ;
  556. X
  557. X
  558. X   /*------------- Start of DoDeleteProblem() routine --------------*/
  559. X#ifdef DEBUG
  560. X   printf("XPTS(misc.c): Entering DoDeleteProblem()\n") ;
  561. X#endif
  562. X
  563. X     /* Make sure only sysops are executing this function. */
  564. X   if (!IsSysop(&UserInfoRec))
  565. X   { 
  566. X#ifdef DEBUG
  567. X        fprintf(stderr,
  568. X         "XPTS(DoDeleteProblem()): Illegal access to DoDeleteProblem() "
  569. X     "by non-sysop.\n") ;
  570. X#endif
  571. X     return ;
  572. X   }
  573. X
  574. X     /* Get values for the warning and list widgets. */
  575. X   probViewer = (Widget)client_data ;
  576. X   warning = XtNameToWidget(probViewer, "warning") ;
  577. X   list = XtNameToWidget(XtParent(probViewer), "*list") ;
  578. X
  579. X#ifdef DEBUG
  580. X   printf("XPTS(DoDeleteProblem()): probViewer=%p, parent=%p, warning=%p,\n"
  581. X          "                         list=%p.",
  582. X          probViewer, XtParent(probViewer), warning, list) ;
  583. X#endif
  584. X
  585. X     /* Are there any reopen requests for this problem? 
  586. X      * if so, call SuperWarningPopup().
  587. X      */
  588. X   if (IsReopened(Path, ProblemRecord) > 0)
  589. X   {  sprintf(errorstr,
  590. X             "WARNING: This problem has reopen requests.  Deleteing this\n"
  591. X             "problem will delete the reopen requests as well.  You should\n"
  592. X             "probably accept or deny each reopen request before deleting.\n") ;
  593. X#ifdef DEBUG
  594. X      printf("XPTS(misc.c): Calling SuperWarningPopup!\n") ;
  595. X#endif
  596. X      XtSetSensitive(probViewer, False) ;
  597. X      XFlush(XtDisplay(probViewer)) ;
  598. X      SuperWarningPopup("warning", warning, errorstr) ;
  599. X      XtSetSensitive(probViewer, True) ;
  600. X      if (!WarningFlag) return ;
  601. X#ifdef DEBUG
  602. X      printf("XPTS(misc.c): SuperWarningPopup returned True! Continuing...\n") ;
  603. X#endif
  604. X   }
  605. X
  606. X     /* Delete the problem. */
  607. X/*CLD*/   if (DeleteProblem(ProbTree, Path, ProblemRecord) == (int)NULL)
  608. X   {  /* An error occured */
  609. X      sprintf(errorstr,
  610. X                "Error deleting problem!\n\nPossible error cause:\n%s\n",
  611. X/*CLD*/         CloudStrerror()) ;
  612. X      ErrorPopup("error", warning, errorstr) ;
  613. X      return ;
  614. X   }
  615. X
  616. X        /* Update the list of summaries for the parent popup.
  617. X         * This might be the pickProblem popup or the unsolvedPopup popup.
  618. X         */
  619. X   ReadList(XtParent(probViewer), probViewer) ;
  620. X
  621. X
  622. X     /* Destroy the problem viewer widget.  Realize it's parent,
  623. X      * the problem tree navigation widget.
  624. X      */
  625. X
  626. X#ifdef DEBUG
  627. X   printf("XPTS(DoDeleteProblem()): setting the parent to be sensitive again.\n") ;
  628. X#endif
  629. X   XtSetSensitive(XtParent(probViewer), True) ;
  630. X
  631. X#ifdef DEBUG
  632. X   printf("XPTS(DoDeleteProblem()): Destroying the warning popup '%s'...\n"
  633. X      "                         warning popup window-ID=%d\n",
  634. X          XtName(warning), XtWindow(warning)) ;
  635. X#endif
  636. X/*   XtDestroyWidget(warning) ;Don't do, since destroying probViewer will
  637. X *                             also destroy the warning popup
  638. X */
  639. X
  640. X#ifdef DEBUG
  641. X   printf("XPTS(DoDeleteProblem()): probViewer=%p, parent=%p.\n",
  642. X          probViewer, XtParent(probViewer)) ;
  643. X   printf("XPTS(misc.c): Destroying the problem viewer "
  644. X          "for the deleted problem, '%s'...\n", XtName(probViewer)) ;
  645. X#endif
  646. X   XtDestroyWidget(probViewer) ;
  647. X
  648. X
  649. X#ifdef DEBUG
  650. X   printf("XPTS(misc.c): Leaving DoDeleteProblem()\n") ;
  651. X#endif
  652. X
  653. X}  /*------------ End of DoDeleteProblem() --------------------*/
  654. X
  655. X
  656. X/*
  657. X______________________________________________________________________
  658. XDoMoveProblem1()
  659. X
  660. XFUNCTION DESCRIPTION:
  661. X     This function is called when the user has indicated what problem
  662. Xtype to move the problem to.
  663. X______________________________________________________________________
  664. XREVISION HISTORY:
  665. X     Author:  Dean Collins            Date:  6/23/92
  666. X     Version 1.0 finalized: Dean Collins    Date: 1/9/93
  667. X______________________________________________________________________
  668. X*/
  669. X
  670. X
  671. Xvoid
  672. XDoMoveProblem1(Widget    w,
  673. X              XtPointer  client_data,
  674. X              XtPointer  call_data)
  675. X
  676. X     /* Interface description:
  677. X         INPUT:
  678. X          w           - The widget for which this callback is registered.
  679. X          client_data - Specifies arbitrary client-supplied data
  680. X                        that the widget w should pass back to the
  681. X                        client when the widget executes the client's
  682. X                        callback procedure.  In this callback,
  683. X                        this is the parent widget.
  684. X          call_data   - Specifies any callback-specific data the widget w
  685. X                        wants to pass to the client.
  686. X         OUTPUT:
  687. X           None.
  688. X         RETURN VALUE:
  689. X          None.
  690. X     */
  691. X
  692. X{
  693. X     /* Internal variables: */
  694. X          /* Major */
  695. X          /* Minor */
  696. X          /* NONE */
  697. X
  698. X
  699. X   /*------------------ Start of DoMoveProblem1() routine -------------------*/
  700. X#ifdef DEBUG
  701. X   printf("XPTS(misc.c): Entering DoMoveProblem1()\n") ;
  702. X#endif
  703. X
  704. X     /* Make sure only sysops are executing this function. */
  705. X   if (!IsSysop(&UserInfoRec))
  706. X   { 
  707. X#ifdef DEBUG
  708. X        fprintf(stderr,
  709. X        "XPTS(misc.c): Illegal access to DoMoveProblem1() by non-sysop.\n") ;
  710. X#endif
  711. X     return ;
  712. X   }
  713. X
  714. X     /* Display a warning using WarningPopup(). */
  715. X
  716. X     /* If the user responds to the warning with "continue",
  717. X      * use DoMoveProblem2() to move the problem from one place in
  718. X      * the database to another.
  719. X      */
  720. X/* for now, don't do the warning...cut to the chase. */
  721. XDoMoveProblem2(w, client_data, call_data) ;
  722. X
  723. X#ifdef DEBUG
  724. X   printf("XPTS(misc.c): Leaving DoMoveProblem1()\n") ;
  725. X#endif
  726. X}  /*----------------- End of DoMoveProblem1() -------------------------*/
  727. X
  728. X
  729. X/*
  730. X______________________________________________________________________
  731. XDoMoveProblem2()
  732. X
  733. XFUNCTION DESCRIPTION:
  734. X     This function moves a problem from one type to another.
  735. X______________________________________________________________________
  736. XREVISION HISTORY:
  737. X     Author:  Dean Collins            Date:  6/23/92
  738. X     Version 1.0 finalized: Dean Collins    Date: 1/9/93
  739. X______________________________________________________________________
  740. X*/
  741. X
  742. X
  743. X
  744. Xvoid
  745. XDoMoveProblem2(Widget     w,
  746. X              XtPointer  client_data,
  747. X              XtPointer  call_data)
  748. X
  749. X     /* Interface description:
  750. X         INPUT:
  751. X          w           - The widget for which this callback is registered.
  752. X          client_data - Specifies arbitrary client-supplied data
  753. X                        that the widget w should pass back to the
  754. X                        client when the widget executes the client's
  755. X                        callback procedure.  In this callback,
  756. X                        this is an array of pointers to widgets,
  757. X            defined like this:
  758. X                client_data[0] = move problem popup widget
  759. X                client_data[1] = dialog widget containing
  760. X                                                 new problem type.
  761. X
  762. X          call_data   - Specifies any callback-specific data the widget w
  763. X                        wants to pass to the client.
  764. X         OUTPUT:
  765. X           None.
  766. X         RETURN VALUE:
  767. X          None.
  768. X     */
  769. X
  770. X{
  771. X     /* Internal variables: */
  772. X          /* Major */
  773. X   XtPointer *ptrlist ;
  774. X   XtPointer *ptrlist2 ;
  775. X   Widget parent ;
  776. X   Widget probViewer ;
  777. X
  778. X          /* Minor */
  779. X   String newtype ;
  780. X   Arg args[5] ;
  781. X   char errorstr[MAXERROR] ;
  782. X
  783. X
  784. X   /*--------------- Start of DoMoveProblem2() routine ----------------*/
  785. X#ifdef DEBUG
  786. X   printf("XPTS(misc.c): Entering DoMoveProblem2()\n") ;
  787. X#endif
  788. X
  789. X     /* Make sure only sysops are executing this function. */
  790. X   if (!IsSysop(&UserInfoRec))
  791. X   { 
  792. X#ifdef DEBUG
  793. X        fprintf(stderr,
  794. X        "XPTS(misc.c): Illegal access to DoMoveProblem2() by non-sysop.\n") ;
  795. X#endif
  796. X     return ;
  797. X   }
  798. X
  799. X   if (ProblemRecord == NULL)
  800. X   {
  801. X#ifdef DEBUG
  802. X      printf("XPTS(select.c): ProblemRecord is null !!!  Returning.\n");
  803. X#endif
  804. X      return ;
  805. X   }
  806. X
  807. X
  808. X   ptrlist = (XtPointer *)client_data ;
  809. X   newtype = XawDialogGetValueString((Widget)(ptrlist[1])) ;
  810. X   parent = (Widget) (ptrlist[0]) ;
  811. X   probViewer = XtParent(parent) ;
  812. X
  813. X#ifdef DEBUG
  814. X      printf("XPTS(misc.c): DoMoveProblem2():  Moving problem to type %s\n", newtype) ;
  815. X#endif
  816. X
  817. X     /* Use MoveProblem to move the problem from one place in
  818. X      * the database to another.
  819. X      */
  820. X/*CLD*/   if (MoveProblem(ProbTree, Path, ProblemRecord, newtype) == (int)NULL)
  821. X   {
  822. X     /* If an error occurs, use ErrorPopup() to show a message
  823. X      * and quit.
  824. X      */
  825. X      sprintf(errorstr, "Error moving problem!\n\nPossible error cause:\n%s\n",
  826. X/*CLD*/         CloudStrerror()) ;
  827. X      ErrorPopup("error", parent, errorstr) ;
  828. X      return ;
  829. X   }
  830. X
  831. X     /* Update the screen.  */
  832. X
  833. X     /* Change problem viewer "Problem Type" dialog box
  834. X      * to reflect the new problem type.
  835. X      */
  836. X
  837. X     /* Get rid of the "move problem" popup.  */
  838. X   ptrlist2 = (XtPointer *) XtCalloc(2, sizeof(XtPointer)) ;
  839. X   ptrlist2[0] = ptrlist[0] ;
  840. X   ptrlist2[1] = NULL ;
  841. X   DestroyPopup(w, (XtPointer)ptrlist2, (XtPointer)NULL) ;
  842. X
  843. X
  844. X     /* Update the list of summaries for the parent popup.
  845. X      * This might be the pickProblem popup or the unsolvedPopup popup.
  846. X      */
  847. X   ReadList(XtParent(probViewer), probViewer) ;
  848. X
  849. X     /* Destroy the problem viewer widget.  Realize it's parent,
  850. X      * the problem tree navigation widget.
  851. X      */
  852. X
  853. X#ifdef DEBUG
  854. X   printf("XPTS(DoMoveProblem()): setting the parent to be sensitive again.\n"
  855. X) ;
  856. X#endif
  857. X   XtSetSensitive(XtParent(probViewer), True) ;
  858. X
  859. X#ifdef DEBUG
  860. X   printf("XPTS(misc.c): Destroying the problem viewer "
  861. X          "for the moved problem, '%s'...\n", XtName(probViewer)) ;
  862. X#endif
  863. X   XtDestroyWidget(probViewer) ;
  864. X
  865. X
  866. X#ifdef DEBUG
  867. X   printf("XPTS(misc.c): Leaving DoMoveProblem2()\n") ;
  868. X#endif
  869. X}  /*--------------------- End of DoMoveProblem2() -------------------*/
  870. X
  871. X
  872. X/*
  873. X______________________________________________________________________
  874. XGotoProblemType()
  875. X
  876. XFUNCTION DESCRIPTION:
  877. X
  878. X     This function will change the list widget so that it represents the
  879. Xspecified problem type.  (This function is not implemented.)
  880. X______________________________________________________________________
  881. XREVISION HISTORY:
  882. X     Author:  Dean Collins            Date:  2/25/92
  883. X______________________________________________________________________
  884. X*/
  885. X
  886. X
  887. Xvoid
  888. XGotoProblemType(Widget          w,
  889. X                XtPointer       client_data,
  890. X                XtPointer       call_data)
  891. X
  892. X     /* Interface description:
  893. X         INPUT:
  894. X          w              - The widget for which this callback is registered.
  895. X          client_data    - Specifies arbitrary client-supplied data
  896. X                           that the widget w should pass back to the
  897. X                           client when the widget executes the client's
  898. X                           callback procedure.  In this callback, 
  899. X                           this is information to be passed to
  900. X                           ChangeList().
  901. X          call_data      - Specifies any callback-specific data the widget w
  902. X                           wants to pass to the client.  In this callback,
  903. X                           this is a pointer to a record containing
  904. X                           information about the list selection.
  905. X         OUTPUT:
  906. X          None.
  907. X         RETURN VALUE:
  908. X          None.
  909. X     */
  910. X      
  911. X{
  912. X     /* Internal variables: */
  913. X          /* Major */
  914. X          /* NONE */
  915. X          /* Minor */
  916. X          /* NONE */
  917. X
  918. X
  919. X
  920. X   /*----------------- Start of GotoProblemType() routine ------------------*/
  921. X#ifdef DEBUG
  922. X   printf("XPTS(misc.c): Entering gotoProblemType()\n") ;
  923. X#endif
  924. X
  925. X     /* Convert what the user has entered into the dialog box
  926. X      * into a problem type string.
  927. X      *   Ideally, this would:
  928. X      *   1. convert to lower-case.
  929. X      *   2. interpret ".." as super-type.
  930. X      *   3. ignore ".".
  931. X      *   4. interpret problem-type paths not beginning with "/"
  932. X      *         to be relative to current problem path.
  933. X      *   5. (what else?)
  934. X      *    For this version, only 1 & 4 are to be implemented.
  935. X      */
  936. X
  937. X     /* If the input path begins with "/", send this path 
  938. X      * to ChangeList().
  939. X      */
  940. X
  941. X     /* If the input path doesn't begin with "/", append
  942. X      * it to the current path and send this to ChangeList().
  943. X      */
  944. X
  945. X#ifdef DEBUG
  946. X   printf("XPTS(misc.c): Leaving GotoProblemType()\n") ;
  947. X#endif
  948. X
  949. X}  /*--------------------- End of GotoProblemType() ------------------------*/
  950. X
  951. X
  952. X/*
  953. X______________________________________________________________________
  954. XSyntax()
  955. X
  956. XFUNCTION DESCRIPTION:
  957. X
  958. X     This function prints an error message indicating there was a syntax
  959. Xerror on the command-line and exits the application.
  960. X______________________________________________________________________
  961. XREVISION HISTORY:
  962. X     Author:  Dean Collins            Date:  2/20/92
  963. X     Version 1.0 finalized: Dean Collins    Date: 1/9/93
  964. X______________________________________________________________________
  965. X*/
  966. X
  967. X
  968. Xvoid
  969. XSyntax(XtAppContext   app_con,
  970. X       char           *call)
  971. X
  972. X     /* Interface description:
  973. X         INPUT:
  974. X          app_con    - The application context
  975. X          call       - The name of the program, from the command line
  976. X         OUTPUT:
  977. X          None.
  978. X         RETURN VALUE:
  979. X          None. (exits application with a value of 1.)
  980. X     */
  981. X      
  982. X{
  983. X     /* Internal variables: */
  984. X          /* Major */
  985. X          /* NONE  */      
  986. X          /* Minor */
  987. X          /* NONE  */
  988. X
  989. X   /*---------------------- Start of Syntax() routine -----------------------*/
  990. X#ifdef DEBUG
  991. X   printf("XPTS(misc.c): Entering Syntax()\n") ;
  992. X#endif
  993. X
  994. X     /* Destroy the X application context, which will close any and all
  995. X      * windows using XtDestroyApplicationContext().
  996. X      */
  997. X   XtDestroyApplicationContext(app_con) ;
  998. X
  999. X     /* Print an error message indicating there was a syntax error on 
  1000. X      * the command-line.
  1001. X      */
  1002. X    fprintf(stderr, "Usage: %s [-noquit]\n", call) ;
  1003. X    fprintf(stderr,
  1004. X    "     (Standard X Toolkit options are acceptable, also.)\n") ;
  1005. X
  1006. X     /* exit the application with a non-zero value, indicating 
  1007. X      * there was an error.
  1008. X      */
  1009. X   exit(1) ;
  1010. X
  1011. X}  /*-------------------------- End of Syntax() -----------------------------*/
  1012. X
  1013. X
  1014. X/*
  1015. X______________________________________________________________________
  1016. XNoOp()
  1017. X
  1018. XFUNCTION DESCRIPTION:
  1019. X
  1020. X     This function does nothing, but it does it well.
  1021. X______________________________________________________________________
  1022. XREVISION HISTORY:
  1023. X     Author:  Dean Collins            Date:  10/29/92
  1024. X     Version 1.0 finalized: Dean Collins    Date: 1/9/93
  1025. X______________________________________________________________________
  1026. X*/
  1027. X
  1028. X
  1029. XXtActionProc
  1030. XNoOp(void)
  1031. X
  1032. X     /* Interface description:
  1033. X         INPUT:
  1034. X          None.
  1035. X         OUTPUT:
  1036. X          None.
  1037. X         RETURN VALUE:
  1038. X          None.
  1039. X     */
  1040. X
  1041. X{
  1042. X     /* Internal variables: */
  1043. X          /* Major */
  1044. X      /* NONE  */
  1045. X          /* Minor */
  1046. X      /* NONE  */
  1047. X
  1048. X   /*----------------- Start of NoOp() routine ------------------*/
  1049. X
  1050. X#ifdef DEBUG
  1051. X   printf ("NoOp() called\n") ;
  1052. X#endif
  1053. X
  1054. X   return;
  1055. X
  1056. X}  /*--------------------- End of NoOp() ------------------------*/
  1057. X
  1058. X
  1059. X/*
  1060. X______________________________________________________________________
  1061. XAllocProblemItems()
  1062. X
  1063. XFUNCTION DESCRIPTION:
  1064. X
  1065. X     This function allocates Strings for the ProblemItems array.
  1066. X______________________________________________________________________
  1067. XREVISION HISTORY:
  1068. X     Author:  Dean Collins            Date:  11/14/92
  1069. X     Version 1.0 finalized: Dean Collins    Date:  1/9/93
  1070. X______________________________________________________________________
  1071. X*/
  1072. X
  1073. X
  1074. Xvoid
  1075. XAllocProblemItems(void)
  1076. X
  1077. X     /* Interface description:
  1078. X         INPUT:
  1079. X          None.
  1080. X         OUTPUT:
  1081. X          None.
  1082. X         RETURN VALUE:
  1083. X          None.
  1084. X     */
  1085. X
  1086. X{
  1087. X     /* Internal variables: */
  1088. X          /* Major */
  1089. X          /* NONE  */
  1090. X          /* Minor */
  1091. X   int i ;
  1092. X
  1093. X   /*-------------- Start of AllocProblemItems() routine ---------------*/
  1094. X
  1095. X#ifdef DEBUG
  1096. X   printf("XPTS(misc.c): AllocProblemItems(): Allocating ProblemItems strings.\n") ;
  1097. X#endif
  1098. X
  1099. X   if (ProblemItems == NULL)
  1100. X   {  /* Allocate the needed number of strings for ProblemItems */
  1101. X      ProblemItems = (String *)XtCalloc(MAXBRANCHES, sizeof(String)) ;
  1102. X      for (i=0; i<MAXBRANCHES; ++i)
  1103. X      {  ProblemItems[i]=(String)XtMalloc(DBPATHLEN) ;
  1104. X         ProblemItems[i][0]='\0' ;
  1105. X      }
  1106. X   }
  1107. X   else for (i=0; i<MAXBRANCHES; ++i)  /* Allocate any needed strings */
  1108. X   {  if (ProblemItems[i] == NULL)
  1109. X         ProblemItems[i]=(String)XtMalloc(DBPATHLEN) ;
  1110. X      ProblemItems[i][0]='\0' ;
  1111. X   }
  1112. X
  1113. X#ifdef DEBUG
  1114. X   printf("XPTS(popup.c): AllocProblemItems(): Done allocating ProblemItems strings.\n") ;
  1115. X#endif
  1116. X} /*-------------- End of AllocProblemItems() routine ---------------*/
  1117. X
  1118. X
  1119. X/*
  1120. X______________________________________________________________________
  1121. XFreeItems()
  1122. X
  1123. XFUNCTION DESCRIPTION:
  1124. X
  1125. X     This function Frees items from an array of Strings that are
  1126. Xempty.
  1127. X______________________________________________________________________
  1128. XREVISION HISTORY:
  1129. X     Author:  Dean Collins            Date:  11/14/92
  1130. X     Version 1.0 finalized: Dean Collins    Date:  1/9/93
  1131. X______________________________________________________________________
  1132. X*/
  1133. X
  1134. X
  1135. Xvoid
  1136. XFreeItems(char **Items, int MaxItems)
  1137. X
  1138. X     /* Interface description:
  1139. X         INPUT:
  1140. X          Items        - Array of strings to free.
  1141. X      MaxItems    - Maximum number of strings to free.
  1142. X         OUTPUT:
  1143. X          None.
  1144. X         RETURN VALUE:
  1145. X          None.
  1146. X     */
  1147. X
  1148. X{
  1149. X     /* Internal variables: */
  1150. X          /* Major */
  1151. X          /* NONE  */
  1152. X          /* Minor */
  1153. X   int i ;
  1154. X
  1155. X   /*----------------- Start of FreeItems() routine ------------------*/
  1156. X
  1157. X#ifdef DEBUG
  1158. X   printf("XPTS(misc.c): FreeItems(): Removing extra Items strings with XtFree().\n") ;
  1159. X#endif
  1160. X
  1161. X   /* Remove extra Items strings with XtFree().*/
  1162. X   if (Items != NULL)
  1163. X      for (i=0; i<MaxItems; ++i)
  1164. X      {  if (Items[i] != NULL)
  1165. X            if (Items[i][0] == '\0')
  1166. X            {  XtFree(Items[i]) ;
  1167. X               Items[i]=NULL ;
  1168. X            }
  1169. X      }
  1170. X
  1171. X#ifdef DEBUG
  1172. X   printf("XPTS(misc.c): FreeItems(): Done removing extra Items strings with XtFree().\n") ;
  1173. X
  1174. X   for (i=0; Items[i] != NULL; ++i)
  1175. X   { printf("XPTS(misc.c): Items[%d]=%p\n",i, Items[i]) ;
  1176. X      printf("XPTS(misc.c): Items[%d]='%s'\n", i, Items[i]) ;
  1177. X   }
  1178. X   printf("XPTS(misc.c): Items[%d] is NULL\n", i) ;
  1179. X
  1180. X#endif
  1181. X
  1182. X}  /*--------------------- End of FreeItems() ------------------------*/
  1183. X
  1184. X
  1185. X/*
  1186. X______________________________________________________________________
  1187. XAppMainLoop()
  1188. X
  1189. XFUNCTION DESCRIPTION:
  1190. X
  1191. X     This function is the X application main loop, and is patterned
  1192. Xafter XtAppMainLoop().  It is used to aid debugging efforts, since
  1193. Xit's difficult do some (debugging) things once you call XtAppMainLoop().
  1194. X______________________________________________________________________
  1195. XREVISION HISTORY:
  1196. X     Author:  Dean Collins            Date:  11/16/92
  1197. X     Version 1.0 finalized: Dean Collins    Date:  1/9/93
  1198. X______________________________________________________________________
  1199. X*/
  1200. X
  1201. X
  1202. Xvoid
  1203. XAppMainLoop(XtAppContext app_con)
  1204. X
  1205. X     /* Interface description:
  1206. X         INPUT:
  1207. X          app_con    - The application context structure.
  1208. X         OUTPUT:
  1209. X          None.
  1210. X         RETURN VALUE:
  1211. X          None.
  1212. X     */
  1213. X
  1214. X{
  1215. X     /* Internal variables: */
  1216. X          /* Major */
  1217. X   XEvent event ;
  1218. X   Arg args[5] ;
  1219. X
  1220. X          /* Minor */
  1221. X   String tmpstr ;
  1222. X   int lasttype=0 ; 
  1223. X
  1224. X
  1225. X   /*----------------- Start of AppMainLoop() routine ------------------*/
  1226. X
  1227. X   forever()
  1228. X   {  
  1229. X      XtAppNextEvent(app_con, &event) ;
  1230. X
  1231. X/* This spews like crazy. */
  1232. X/*
  1233. X#ifdef DEBUG
  1234. X      if (lasttype != event.type)
  1235. X      {  lasttype=event.type ;
  1236. X         printf("XPTS(AppMainLoop()) -- Event: <%d> ", event.type) ;
  1237. X         printf("\n") ;
  1238. X      }
  1239. X#endif
  1240. X*/
  1241. X
  1242. X#ifndef NOSIGNALS
  1243. X      if (SigRec.count) DoSignal(SigRec.signal) ;/* Deal with pending signals*/
  1244. X#endif
  1245. X
  1246. X      XtDispatchEvent(&event) ;
  1247. X
  1248. X#ifndef NOSIGNALS
  1249. X      if (SigRec.count) DoSignal(SigRec.signal) ;/* Deal with pending signals*/
  1250. X#endif
  1251. X   }
  1252. X}  /*--------------------- End of AppMainLoop() ------------------------*/
  1253. X
  1254. X
  1255. X/*
  1256. X______________________________________________________________________
  1257. XPrintNewProblemLabel()
  1258. X
  1259. XFUNCTION DESCRIPTION:
  1260. X
  1261. X    This function is used for debugging.  It prints the label
  1262. Xassociated with the "New Problem" button, if defined.
  1263. X______________________________________________________________________
  1264. XREVISION HISTORY:
  1265. X     Author:  Dean Collins            Date:  11/20/92
  1266. X     Version 1.0 finalized: Dean Collins    Date:  1/9/93
  1267. X______________________________________________________________________
  1268. X*/
  1269. X
  1270. X
  1271. Xvoid
  1272. XPrintNewProblemLabel(void)
  1273. X
  1274. X     /* Interface description:
  1275. X         INPUT:
  1276. X          None.
  1277. X         OUTPUT:
  1278. X          None.
  1279. X         RETURN VALUE:
  1280. X          None.
  1281. X     */
  1282. X
  1283. X{
  1284. X     /* Internal variables: */
  1285. X          /* Major */
  1286. X   String tmpstr ;
  1287. X   Arg args[5] ;
  1288. X
  1289. X          /* Minor */
  1290. X   int i ;
  1291. X
  1292. X
  1293. X   /*------------ Start of PrintNewProblemLabel() routine -------------*/
  1294. X
  1295. X   if (GlobalNewProblemButton != NULL)
  1296. X     if (XtIsWidget(GlobalNewProblemButton))
  1297. X      {  XtSetArg(args[0], XtNlabel, &tmpstr) ;
  1298. X         XtGetValues(GlobalNewProblemButton, args, ONE) ;
  1299. X         printf("-- label = `%s' ", tmpstr) ;
  1300. X      }
  1301. X
  1302. X}  /*---------------- End of PrintNewProblemLabel() -------------------*/
  1303. X
  1304. X
  1305. X/*
  1306. X______________________________________________________________________
  1307. XLockedProblem()
  1308. X
  1309. XFUNCTION DESCRIPTION:
  1310. X
  1311. X        This function will set or reset the flag indicating that there
  1312. Xis a locked problem, or query the current state of the flag.
  1313. X______________________________________________________________________
  1314. XREVISION HISTORY:
  1315. X     Author:  Dean Collins            Date:  11/21/92
  1316. X     Version 1.0 finalized: Dean Collins    Date:  1/9/93
  1317. X______________________________________________________________________
  1318. X*/
  1319. X
  1320. X
  1321. Xint
  1322. XLockedProblem(int newflag)
  1323. X     /* Interface description:
  1324. X         INPUT:
  1325. X      newflag    - The new value of the flag, TRUE or FALSE, or
  1326. X              QUERY, to just return the current flag.
  1327. X         OUTPUT:
  1328. X          None.
  1329. X         RETURN VALUE:
  1330. X          int        - True if the flag is true, false if it is false.
  1331. X     */
  1332. X
  1333. X{
  1334. X     /* Internal variables: */
  1335. X          /* Major */
  1336. X   static int flag=FALSE;
  1337. X          /* Minor */
  1338. X   int tmpflag ;
  1339. X
  1340. X   /*----------------- Start of LockedProblem() routine ------------------*/
  1341. X 
  1342. X#  ifdef DEBUG
  1343. X   printf("XPTS(misc.c): LockedProblem() -- flag = %d; newflag = %d\n", flag, newflag) ;
  1344. X#  endif /*DEBUG*/
  1345. X
  1346. X   if (newflag == QUERY) return(flag) ;
  1347. X
  1348. X   tmpflag=flag ;
  1349. X   flag=newflag ;
  1350. X   return(tmpflag) ;
  1351. X
  1352. X}  /*--------------------- End of LockedProblem() ------------------------*/
  1353. X
  1354. X
  1355. X/*
  1356. X______________________________________________________________________
  1357. XPTS_XIOErrorHandler()
  1358. X
  1359. XFUNCTION DESCRIPTION:
  1360. X
  1361. X        This function handles fatal IO errors for X.
  1362. X______________________________________________________________________
  1363. XREVISION HISTORY:
  1364. X     Author:  X Library authors            Date:  1989
  1365. X
  1366. X     Revised:  Dean Collins            Date:  11/28/92
  1367. X    Added call to ShutDownDB().
  1368. X    Changed to modern ANSI function declaration.
  1369. X
  1370. X     Version 1.0 finalized:  Dean Collins    Date:  1/9/93
  1371. X______________________________________________________________________
  1372. X*/
  1373. X
  1374. X
  1375. Xint
  1376. XPTS_XIOErrorHandler(Display *display)
  1377. X
  1378. X     /* Interface description:
  1379. X         INPUT:
  1380. X          display    - The X display pointer.
  1381. X         OUTPUT:
  1382. X          None.
  1383. X         RETURN VALUE:
  1384. X          None.
  1385. X     */
  1386. X
  1387. X{ 
  1388. X     /* Internal variables: */
  1389. X          /* Major */
  1390. X   char msg[80] ;
  1391. X          /* Minor */
  1392. X          /* NONE  */
  1393. X
  1394. X   /*-------------- Start of PTS_XIOErrorHandler() routine ---------------*/
  1395. X
  1396. X#  ifdef DEBUG
  1397. X   fprintf(stderr, "XPTS(misc.c): Entering PTS_XIOErrorHandler()...\n") ;
  1398. X#endif
  1399. X
  1400. X   fprintf(stderr, "Fatal IO error detected!\n"
  1401. X      "XPTS is unlocking any locked problems and exiting immediatly...\n") ;
  1402. X   
  1403. X
  1404. X     /* Unlock any locked problems... */
  1405. X
  1406. X   ShutDownDB(FALSE) ;
  1407. X
  1408. X
  1409. X     /* Print error message */
  1410. X   fprintf (stderr, "XIO:  fatal IO error %d (%s) on X server \"%s\"\r\n",
  1411. X           errno, strerror(errno), DisplayString (display));
  1412. X   fprintf (stderr, "      after %lu requests (%lu known processed) "
  1413. X            "with %d events remaining.\r\n",
  1414. X            NextRequest(display) - 1, LastKnownRequestProcessed(display),
  1415. X        QLength(display));
  1416. X
  1417. X   if (errno == EPIPE)
  1418. X   {
  1419. X      fprintf (stderr, "      The connection was probably broken by a server "
  1420. X                  "shutdown or KillClient.\r\n");
  1421. X   }
  1422. X
  1423. X#  ifdef DEBUG
  1424. X   fprintf(stderr, "XPTS(misc.c): Leaving PTS_XIOErrorHandler().\n") ;
  1425. X#endif
  1426. X
  1427. X   exit (1);
  1428. X
  1429. X}  /*------------------ End of PTS_XIOErrorHandler() ---------------------*/
  1430. X
  1431. X
  1432. X/*
  1433. X______________________________________________________________________
  1434. XPTS_XErrorHandler()
  1435. X
  1436. XFUNCTION DESCRIPTION:
  1437. X
  1438. X        This function handles fatal X errors.
  1439. X______________________________________________________________________
  1440. XUNIT TESTING:
  1441. X     This function will be tested by using a combination of white-box and
  1442. Xblack-box tests.
  1443. X______________________________________________________________________
  1444. XREVISION HISTORY:
  1445. X     Author:  X Library authors            Date:  1989
  1446. X
  1447. X     Revised:  Dean Collins            Date:  11/28/92
  1448. X        Added call to ShutDownDB().
  1449. X    Changed to modern ANSI function declaration.
  1450. X     Revised:  Dean Collins            Date:  3/7/94
  1451. X    Added USESYSDEFERR.  See comment for XPrintDefaultError().
  1452. X
  1453. X     Version 1.0  finalized:  Dean Collins    Date:  1/9/93
  1454. X     Version 1.04 finalized:  Dean Collins    Date:  3/7/94
  1455. X______________________________________________________________________
  1456. X*/
  1457. X
  1458. X
  1459. Xint
  1460. XPTS_XErrorHandler(Display    *dpy,
  1461. X          XErrorEvent    *event) 
  1462. X
  1463. X     /* Interface description:
  1464. X         INPUT:
  1465. X      dpy        - The X display pointer.
  1466. X      event        - The X error event record.
  1467. X         OUTPUT:
  1468. X          None.
  1469. X         RETURN VALUE:
  1470. X          None.
  1471. X     */
  1472. X
  1473. X{
  1474. X     /* Internal variables: */
  1475. X          /* Major */
  1476. X          /* NONE  */
  1477. X          /* Minor */
  1478. X          /* NONE  */
  1479. X
  1480. X   /*-------------- Start of PTS_XErrorHandler() routine ---------------*/
  1481. X
  1482. X#   ifdef DEBUG
  1483. X    fprintf(stderr, "XPTS(misc.c): Entering PTS_XErrorHandler()...\n") ;
  1484. X#   endif
  1485. X
  1486. X     /* Use XPrintDefaultError() or XmuPrintDefaultErrorMessage() to print
  1487. X      * the error message.
  1488. X      */
  1489. X#ifndef USESYSDEFERR
  1490. X    if (XPrintDefaultError (dpy, event, stderr) == 0) return 0;
  1491. X#else
  1492. X    if (XmuPrintDefaultErrorMessage (dpy, event, stderr) == 0) return 0;
  1493. X#endif /*USESYSDEFERR*/
  1494. X
  1495. X     /* OK, Here's my other change... Call ShutDownDB() before exiting.
  1496. X      * This is the whole reason for having this otherwise duplicate code.
  1497. X      */
  1498. X   fprintf(stderr, "X error detected!\n"
  1499. X      "XPTS is unlocking any locked problems and exiting immediatly...\n") ;
  1500. X
  1501. X    ShutDownDB(FALSE) ;
  1502. X
  1503. X    exit(1);
  1504. X
  1505. X}  /*------------------ End of PTS_XErrorHandler() ---------------------*/
  1506. X
  1507. X
  1508. X/*
  1509. X______________________________________________________________________
  1510. XXPrintDefaultError()
  1511. X
  1512. XFUNCTION DESCRIPTION:
  1513. X
  1514. X        This function prints an error message for a fatal X error.
  1515. X______________________________________________________________________
  1516. XREVISION HISTORY:
  1517. X     Author:  X Library authors        Date:  1989
  1518. X
  1519. X     Revised:  Dean Collins          Date:  11/28/92
  1520. X    Changed function declaration to ANSI syntax.  
  1521. X     Revised:  Dean Collins          Date:  12/6/92
  1522. X    Added BadGC hack to ignore mysterious protocol error.  (yuck.)
  1523. X    (Somebody please figure out what is causing this...)
  1524. X     Revised:  Dean Collins        Date:  3/7/93
  1525. X    Changed from ignoring BadGC to printing a special message.
  1526. X    Please help me track down this problem!
  1527. X     Revised:  Dean Collins        Date:  3/7/94
  1528. X    Added USESYSDEFERR flag for systems where this function
  1529. X    breaks (it uses variables that are not necessarily available
  1530. X    on all systems unless they have "true" X11R4/5 from MIT.)
  1531. X    If they're using a vendor's version it may well break,
  1532. X    so just call the default error handler instead.
  1533. X    No catching of BadGC, however, if this is done.
  1534. X
  1535. X     Version 1.0  finalized:  Dean Collins    Date:  1/9/93
  1536. X     Version 1.01 finalized:  Dean Collins    Date:  3/7/93
  1537. X     Version 1.04 finalized:  Dean Collins    Date:  3/7/94 (a whole year?!)
  1538. X______________________________________________________________________
  1539. X*/
  1540. X
  1541. X
  1542. Xint
  1543. XXPrintDefaultError(Display *dpy,
  1544. X           XErrorEvent *event,
  1545. X           FILE *fp)
  1546. X
  1547. X     /* Interface description:
  1548. X         INPUT:
  1549. X      dpy        - The X display pointer.
  1550. X      event        - The X error event structure.
  1551. X      fp        - The file to print the error message to.
  1552. X         OUTPUT:
  1553. X          None.
  1554. X         RETURN VALUE:
  1555. X          None.
  1556. X     */
  1557. X
  1558. X{
  1559. X     /* Internal variables: */
  1560. X          /* Major */
  1561. X    char buffer[BUFSIZ];
  1562. X    char mesg[BUFSIZ];
  1563. X    char number[32];
  1564. X    char *mtype = "XlibMessage";
  1565. X#ifndef NOEXTVAR
  1566. X    register _XExtension *ext = (_XExtension *)NULL; 
  1567. X#endif
  1568. X
  1569. X          /* Minor */
  1570. X          /* NONE  */
  1571. X
  1572. X
  1573. X   /*-------------- Start of XPrintDefaultError() routine ---------------*/
  1574. X
  1575. X#ifdef USESYSDEFERR
  1576. X    XmuPrintDefaultErrorMessage (dpy, event, fp) ;
  1577. X#else
  1578. X
  1579. X/* Borrowed, verbatum, from R4 Xlib _PrintDefaultError() function. All I 
  1580. X * changed (originally) was the declaration, which is now modern ANSI.
  1581. X * I've added some #ifdefs and a variable initialization.
  1582. X *
  1583. X * _XExtension is private to the library, so this routine may break.
  1584. X * If it does, eliminate all references to _XExtension and the variable 'ext'
  1585. X * by definining NOEXTVAR.
  1586. X */
  1587. X
  1588. X    buffer[0] = '\0'; /* Added DC, 5/6/94*/
  1589. X    XGetErrorText(dpy, event->error_code, buffer, BUFSIZ);
  1590. X    XGetErrorDatabaseText(dpy, mtype, "XError", "X Error", mesg, BUFSIZ);
  1591. X    (void) fprintf(fp, "%s:  %s\n  ", mesg, buffer);
  1592. X    XGetErrorDatabaseText(dpy, mtype, "MajorCode", "Request Major code %d",
  1593. X        mesg, BUFSIZ);
  1594. X    (void) fprintf(fp, mesg, event->request_code);
  1595. X    if (event->request_code < 128) {
  1596. X        sprintf(number, "%d", event->request_code);
  1597. X        XGetErrorDatabaseText(dpy, "XRequest", number, "", buffer, BUFSIZ);
  1598. X    }
  1599. X      else {
  1600. X#ifndef NOEXTVAR
  1601. X        for (ext = dpy->ext_procs;
  1602. X             ext && (ext->codes.major_opcode != event->request_code);
  1603. X             ext = ext->next)
  1604. X          ;
  1605. X        if (ext)
  1606. X            strcpy(buffer, ext->name);
  1607. X        else
  1608. X            buffer[0] = '\0';
  1609. X
  1610. X#endif /*NOEXTVAR*/
  1611. X    }
  1612. X    (void) fprintf(fp, " (%s)\n  ", buffer);
  1613. X    XGetErrorDatabaseText(dpy, mtype, "MinorCode", "Request Minor code %d",
  1614. X        mesg, BUFSIZ);
  1615. X    (void) fprintf(fp, mesg, event->minor_code);
  1616. X#ifndef NOEXTVAR
  1617. X    if (ext) {
  1618. X        sprintf(mesg, "%s.%d", ext->name, event->minor_code);
  1619. X        XGetErrorDatabaseText(dpy, "XRequest", mesg, "", buffer, BUFSIZ);
  1620. X        (void) fprintf(fp, " (%s)", buffer);
  1621. X    }
  1622. X#endif
  1623. X    fputs("\n  ", fp);
  1624. X    XGetErrorDatabaseText(dpy, mtype, "ResourceID", "ResourceID 0x%x",
  1625. X        mesg, BUFSIZ);
  1626. X    (void) fprintf(fp, mesg, event->resourceid);
  1627. X    fputs("\n  ", fp);
  1628. X    XGetErrorDatabaseText(dpy, mtype, "ErrorSerial", "Error Serial #%d",
  1629. X        mesg, BUFSIZ);
  1630. X    (void) fprintf(fp, mesg, event->serial);
  1631. X    fputs("\n  ", fp);
  1632. X    XGetErrorDatabaseText(dpy, mtype, "CurrentSerial", "Current Serial #%d",
  1633. X        mesg, BUFSIZ);
  1634. X    (void) fprintf(fp, mesg, dpy->request);
  1635. X    fputs("\n", fp);
  1636. X    if (event->error_code == BadImplementation) return 0;
  1637. X
  1638. X    if (event->error_code == BadGC)    /* Does this still happen??? */ 
  1639. X    {    fputs("\nNOTICE: You have uncovered the mysterious BadGC error.\n",fp) ;
  1640. X    fputs("Please send a description of EXACTLY what you were doing\n",fp);
  1641. X    fputs("when this occured to \"dean@halcyon.com\".  Include all\n",fp);
  1642. X    fputs("error information possible.  You assistance in tracking\n",fp) ;
  1643. X    fputs("down this error will be greatly appreciated.\n",fp) ;
  1644. X    }
  1645. X
  1646. X#endif /*USESYSDEFERR*/
  1647. X
  1648. X    return 1;
  1649. X
  1650. X
  1651. X}  /*------------------ End of XPrintDefaultError() ---------------------*/
  1652. X
  1653. X
  1654. X/*
  1655. X______________________________________________________________________
  1656. XReadList()
  1657. X
  1658. XFUNCTION DESCRIPTION:
  1659. X
  1660. X        This function reads a list of summaries and fills in the list
  1661. Xfor the problem selection or the unsolved problems windows.
  1662. X______________________________________________________________________
  1663. XREVISION HISTORY:
  1664. X     Author:  Dean Collins            Date:  11/29/92
  1665. X     Version 1.0 finalized:  Dean Collins    Date:  1/9/93
  1666. X______________________________________________________________________
  1667. X*/
  1668. X
  1669. Xint
  1670. XReadList(Widget popup,
  1671. X         Widget probViewer)
  1672. X
  1673. X     /* Interface description:
  1674. X         INPUT:
  1675. X      popup        - The popup that contains the list to update.
  1676. X      probViewer    - The parent widget of any error message popups.
  1677. X         OUTPUT:
  1678. X          None.
  1679. X         RETURN VALUE:
  1680. X          int        - 0 means success, non-zero means error.
  1681. X     */
  1682. X
  1683. X{
  1684. X     /* Internal variables: */
  1685. X          /* Major */
  1686. X   static String EmptySummariesList[] = { EMPTY_SUMMARIES, NULL } ;
  1687. X   static String EmptyUnsolvedList[]  = { EMPTY_UNSOLVED,  NULL } ;
  1688. X   Widget list=NULL ;
  1689. X   Widget parent=NULL ;
  1690. X   static String *UnsolvedList=NULL ;
  1691. X   char errorstr[MAXERROR] ;
  1692. X   String *NewList=NULL ;
  1693. X   Widget warning=NULL ;
  1694. X
  1695. X          /* Minor */
  1696. X   int i ;
  1697. X   int flag ;
  1698. X   Arg args[5] ;
  1699. X
  1700. X
  1701. X   /*----------------- Start of ReadList() routine ------------------*/
  1702. X
  1703. X     /* Assign local list widget a value */
  1704. X   list = XtNameToWidget(popup, "*list") ;
  1705. X
  1706. X
  1707. X     /* Re-read the problem summaries for the current problem type,
  1708. X      * using ChangeList, giving it the current problem type as
  1709. X      * argument one, and an XtPointer array as argument two,
  1710. X      * where the array contains the list, dialog and parent widgets.
  1711. X      */
  1712. X#ifdef DEBUG
  1713. X   printf("XPTS(misc.c): Updating popup's summary list...\n") ;
  1714. X   printf("XPTS(misc.c): popup's name='%s'\n",
  1715. X          XtName(popup)) ;
  1716. X#endif
  1717. X
  1718. X
  1719. X                /* IS POPUP pickProblem? */
  1720. X   if (strcmp(XtName(popup), "pickProblem") == 0)
  1721. X   {
  1722. X     /**** Popup is pickProblem popup ****/
  1723. X
  1724. X#ifdef DEBUG
  1725. X      
  1726. X      printf("XPTS(misc.c): Calling ReadSummaries()...") ;
  1727. X#endif
  1728. X     /* Have to store the new list in NewList and not directly in
  1729. X      * SummaryItems since the list widget requires that its list resource
  1730. X      * only be changed through XawListChange() or XtSetValues(),
  1731. X      * and it must exist unchanged otherwise.
  1732. X      */
  1733. X/*CLD*/ CloudSummaries = ReadSummaries(ProbTree, Path, &NewList) ;
  1734. X#ifdef DEBUG
  1735. X      printf("XPTS(misc.c): Returned from ReadSummaries()...\n") ;
  1736. X#endif
  1737. X
  1738. X#ifdef DEBUG
  1739. X      if (NewList != NULL)
  1740. X      {  for (i=0; NewList[i] != NULL; ++i)
  1741. X         {  printf("XPTS(misc.c): NewList[%d]=%p\n",i, NewList[i]) ;
  1742. X            printf("XPTS(misc.c): NewList[%d]='%s'\n", i, NewList[i]) ;
  1743. X         }
  1744. X         printf("XPTS(misc.c): NewList[%d] is NULL\n", i) ;
  1745. X      } else printf("XPTS(misc.c): NewList is NULL\n") ;
  1746. X#endif
  1747. X
  1748. X      flag=0 ;
  1749. X      if (NewList == NULL) flag=1 ;
  1750. X      else if ((int) (NewList[0]) == (int)NULL) flag=1 ;
  1751. X
  1752. X      if (flag)
  1753. X      {  /* NO PROBLEMS! */
  1754. X         /* if an empty list was returned, set the value of list to
  1755. X          * be EmptySummariesList.
  1756. X          */
  1757. X
  1758. X#ifdef DEBUG
  1759. X         printf("XPTS(misc.c): Setting list to be EMPTY_SUMMARIES.\n") ;
  1760. X#endif
  1761. X
  1762. X
  1763. X         XawListChange(list, EmptySummariesList, ONE, ZERO, TRUE) ;
  1764. X         XtSetSensitive(list, False) ;
  1765. X      }
  1766. X      else
  1767. X      {
  1768. X         /* if an empty list was not returned, set the value of list to
  1769. X          * be NewList.
  1770. X          */
  1771. X         XawListChange(list, NewList, ZERO, ZERO, TRUE);
  1772. X         XtSetSensitive(list, True) ;
  1773. X      }
  1774. X      if (SummaryItems) FreeList(SummaryItems) ;
  1775. X      SummaryItems=NewList ;
  1776. X   }
  1777. X
  1778. X
  1779. X
  1780. X   else  /**** Popup is unsolvedPopup ****/
  1781. X   {
  1782. X
  1783. X#ifdef DEBUG
  1784. X      printf("XPTS(misc.c): Updating UnsolvedList...\n") ;
  1785. X#endif
  1786. X     /* Set the value of list to be the list of unsolved problem summaries. */
  1787. X
  1788. X     /* Have to store the new list in NewList and not directly in
  1789. X      * SummaryItems since the list widget requires that its list resource
  1790. X      * only be changed through XawListChange() or XtSetValues(),
  1791. X      * and it must exist unchanged otherwise.
  1792. X      */
  1793. X/*CLD*/   CloudUnSummaries = ReadUnsolvedSummaries(ProbTree, &NewList) ;
  1794. X/* <= means error, 0 means none, positive is ptr to linked list. */
  1795. X#ifdef DEBUG
  1796. X      printf("XPTS(misc.c): CloudUnSummaries = %p\n", CloudUnSummaries) ;
  1797. X#endif
  1798. X
  1799. X      if ((int)CloudUnSummaries < 0)
  1800. X      {
  1801. X         sprintf(errorstr, "Error reading problem summaries!\n\n"
  1802. X                "Possible error cause:\n%s\n",
  1803. X/*CLD*/         CloudStrerror()) ;
  1804. X         ErrorPopup("error", probViewer, errorstr) ;
  1805. X         return (-1) ;
  1806. X      }
  1807. X
  1808. X#ifdef DEBUG
  1809. X      if (NewList != NULL)
  1810. X      {  for (i=0; NewList[i] != NULL; ++i)
  1811. X         {  printf("XPTS(misc.c): NewList[%d]=%p\n",i, NewList[i]) ;
  1812. X            printf("XPTS(misc.c): NewList[%d]='%s'\n", i, NewList[i]) ;
  1813. X         }
  1814. X         printf("XPTS(misc.c): NewList[%d] is NULL\n", i) ;
  1815. X      } else printf("XPTS(misc.c): NewList is NULL\n") ;
  1816. X#endif
  1817. X
  1818. X      flag=0 ;
  1819. X      if (NewList == NULL) flag=1 ;
  1820. X      else if ((int) (NewList[0]) == (int)NULL) flag=1 ;
  1821. X
  1822. X      if (flag)
  1823. X      {  /* NO UNSOLVED PROBLEMS!  EXCELLENT! */
  1824. X         /* if an empty list was returned, set the value of list to
  1825. X          * be EmptyUnsolvedList.
  1826. X          */
  1827. X         XawListChange(list, EmptyUnsolvedList, ZERO, ZERO, TRUE) ;
  1828. X         XtSetSensitive(list, False) ;
  1829. X      }
  1830. X      else
  1831. X      {  /* if an empty list was not returned, set the value of list to
  1832. X          * be NewList.
  1833. X          */
  1834. X         XawListChange(list, NewList, ZERO, ZERO, TRUE) ;
  1835. X         XtSetSensitive(list, True) ;
  1836. X      }
  1837. X      if (UnsolvedList) FreeList(UnsolvedList) ;
  1838. X      UnsolvedList=NewList ;
  1839. X
  1840. X   }
  1841. X
  1842. X   return (0) ;
  1843. X
  1844. X}  /*--------------------- End of ReadList() ------------------------*/
  1845. X
  1846. X
  1847. X/*
  1848. X______________________________________________________________________
  1849. XShutDownDB()
  1850. X
  1851. XFUNCTION DESCRIPTION:
  1852. X
  1853. X        This function unlocks any currently locked problems.
  1854. X______________________________________________________________________
  1855. XREVISION HISTORY:
  1856. X     Author:  Dean Collins            Date:  11/21/92
  1857. X     Version 1.0 finalized:  Dean Collins    Date:  1/9/93
  1858. X______________________________________________________________________
  1859. X*/
  1860. X
  1861. X
  1862. Xvoid
  1863. XShutDownDB(int AllowPopups)
  1864. X
  1865. X     /* Interface description:
  1866. X         INPUT:
  1867. X          AllowPopups        - Flag for whether to warn/inform with popups.
  1868. X         OUTPUT:
  1869. X          None.
  1870. X         RETURN VALUE:
  1871. X          None.
  1872. X     */
  1873. X
  1874. X{
  1875. X     /* Internal variables: */
  1876. X          /* Major */
  1877. X          /* NONE  */
  1878. X          /* Minor */
  1879. X          /* NONE  */
  1880. X
  1881. X   /*----------------- Start of ShutDownDB() routine ------------------*/
  1882. X
  1883. X#  ifdef DEBUG
  1884. X   printf("XPTS(misc.c): ShutDownDB() is making sure the database "
  1885. X          "is shut down nicely...\n") ;
  1886. X   printf("XPTS(misc.c): LockedProblem() returns: %d\n",
  1887. X      LockedProblem(QUERY)) ;
  1888. X#  endif
  1889. X
  1890. X
  1891. X   if (LockedProblem(FALSE))
  1892. X   {
  1893. X#     ifdef DEBUG
  1894. X      printf("XPTS(misc.c): Calling UnlockProblem()...\n") ;
  1895. X#     endif
  1896. X        /* Unlock the problem with UnlockProblem() since we're done
  1897. X         * editing it.
  1898. X         */
  1899. X/*CLD*/ if (UnlockProblem(Path, ProblemRecord) == (int)NULL)
  1900. X      {
  1901. X         /* An error occured; call ErrorPopup if allowed */
  1902. X
  1903. X         if (AllowPopups) 
  1904. X         {  char errorstr[MAXERROR] ;
  1905. X            sprintf(errorstr, "Error unlocking problem!\n"
  1906. X                              "\nPossible error cause:\n%s\n",
  1907. X/*CLD*/                       CloudStrerror()) ;
  1908. X            ErrorPopup("error", GlobalMainMenuWidget, errorstr) ;
  1909. X            return ;
  1910. X         }
  1911. X         else fprintf(stderr, "xpts: Error unlocking problem!\n") ;
  1912. X         return ;
  1913. X      }
  1914. X#     ifdef DEBUG
  1915. X      printf("XPTS(misc.c): Returned without an error from UnlockProblem().\n") ;
  1916. X#     endif
  1917. X   }
  1918. X#  ifdef DEBUG
  1919. X   printf("XPTS(misc.c): LockedProblem() was FALSE.\n") ;
  1920. X#  endif
  1921. X
  1922. X}  /*--------------------- End of ShutDownDB() ------------------------*/
  1923. X
  1924. X
  1925. X
  1926. X/*
  1927. X______________________________________________________________________
  1928. XSuperWarningPopup()
  1929. X
  1930. XFUNCTION DESCRIPTION:
  1931. X
  1932. X        This function prompts the user for a True/False selection.
  1933. X______________________________________________________________________
  1934. XREVISION HISTORY:
  1935. X     Author:  Dean Collins            Date:  11/15/92
  1936. X     Version 1.0 finalized:  Dean Collins    Date:  1/9/93
  1937. X______________________________________________________________________
  1938. X*/
  1939. X
  1940. X
  1941. Xint
  1942. XSuperWarningPopup(String     name,
  1943. X                  Widget      parent,
  1944. X                  String      message)
  1945. X
  1946. X     /* Interface description:
  1947. X         INPUT:
  1948. X          name           - The resource name of the popup.
  1949. X          parent         - The parent of the popup widget.
  1950. X          message        - The specific error message to display.
  1951. X         OUTPUT:
  1952. X          None.
  1953. X         RETURN VALUE:
  1954. X          int         - True/False user selection.
  1955. X     */
  1956. X
  1957. X{
  1958. X     /* Internal variables: */
  1959. X          /* Major */
  1960. X   char btnname[80] ;
  1961. X   Widget warningPopup=NULL ;
  1962. X   Widget quitButton=NULL ;
  1963. X   Widget continueButton=NULL ;
  1964. X   XtPointer *ptrlist=NULL ;
  1965. X   XEvent event ;
  1966. X   XtAppContext app_con ;
  1967. X
  1968. X          /* Minor */
  1969. X   int done=0 ;
  1970. X   int ToggledSensitive=FALSE ;
  1971. X
  1972. X   /*-------------- Start of SuperWarningPopup() routine ---------------*/
  1973. X
  1974. X#ifdef DEBUG
  1975. X   printf("XPTS(misc.c): Entering SuperWarningPopup.\n") ;
  1976. X#endif
  1977. X
  1978. X
  1979. X   if (XtIsSensitive(parent) == True)
  1980. X   {  XtSetSensitive(parent,False) ;
  1981. X      ToggledSensitive=TRUE ;
  1982. X#ifdef DEBUG
  1983. X      printf ("XPTS(misc.c): Parent was sensitive.\n") ;
  1984. X#endif
  1985. X   }
  1986. X#ifdef DEBUG
  1987. X   else
  1988. X      printf ("XPTS(misc.c): Parent was insensitive.\n") ;
  1989. X#endif
  1990. X
  1991. X     /* Use an ErrorPopup widget to start with, even though it's not
  1992. X      * REALLY an error.
  1993. X      */
  1994. X   ErrorPopup(name, parent, message) ;
  1995. X
  1996. X    /* Have the quit button also call SuperWarningFalse()  */
  1997. X   sprintf(btnname, "*%s*quitButton", name) ;
  1998. X#ifdef DEBUG
  1999. X   printf("XPTS(signal.c): SuperWarningPopup() converting name '%s' to widget...\n", btnname) ;
  2000. X#endif
  2001. X   quitButton = XtNameToWidget(parent, btnname) ;
  2002. X   XtAddCallback(quitButton, XtNcallback, (XtCallbackProc)SuperWarningFalse,
  2003. X                 parent) ;
  2004. X
  2005. X    /* Have the continue button also call SuperWarningTrue()  */
  2006. X   continueButton = XtCreateManagedWidget("continueButton", commandWidgetClass,
  2007. X                                          XtParent(quitButton), NULL, ZERO) ;
  2008. X   XtAddCallback(continueButton, XtNcallback, (XtCallbackProc)SuperWarningTrue,
  2009. X         parent) ;
  2010. X   
  2011. X   warningPopup = XtNameToWidget(parent, name) ;
  2012. X   ptrlist = (XtPointer *) XtCalloc(2, sizeof(XtPointer)) ;
  2013. X   ptrlist[0] = (XtPointer) warningPopup;
  2014. X   if (ToggledSensitive == TRUE)
  2015. X        ptrlist[1] = (XtPointer) parent ;
  2016. X   else ptrlist[1] = NULL ;
  2017. X#ifdef DEBUG
  2018. X   printf("XPTS(popup.c): ptrlist[1]=%p\n", ptrlist[1]) ;
  2019. X#endif
  2020. X   XtAddCallback(continueButton, XtNcallback, DestroyPopup, (XtPointer)ptrlist);
  2021. X
  2022. X
  2023. X     /* Loop, watching for the DestroyNotify event */
  2024. X   app_con = XtWidgetToApplicationContext(warningPopup) ;
  2025. X   while (!done)
  2026. X   {  XtAppNextEvent(app_con, &event) ;
  2027. X      if (event.type == DestroyNotify)
  2028. X      {
  2029. X#ifdef DEBUG
  2030. X         printf("XPTS(signal.c): Found a 'DestroyNotify' event.\n") ;
  2031. X#endif
  2032. X         done=1 ;
  2033. X      }
  2034. X      XtDispatchEvent(&event) ;
  2035. X   }
  2036. X
  2037. X#ifdef DEBUG
  2038. X   printf("XPTS(signal.c): Leaving SuperWarningPopup.\n") ;
  2039. X#endif
  2040. X
  2041. X   return (WarningFlag) ;
  2042. X
  2043. X}  /*------------------ End of SuperWarningPopup() ---------------------*/
  2044. X
  2045. X
  2046. X/*
  2047. X______________________________________________________________________
  2048. XSuperWarningTrue()
  2049. X
  2050. XFUNCTION DESCRIPTION:
  2051. X
  2052. X        This function is called if the user selects the continue button
  2053. Xfor the warning popup.
  2054. X______________________________________________________________________
  2055. XREVISION HISTORY:
  2056. X     Author:  Dean Collins            Date:  11/15/92
  2057. X     Version 1.0 finalized:  Dean Collins    Date:  1/9/93
  2058. X______________________________________________________________________
  2059. X*/
  2060. X
  2061. X
  2062. Xint
  2063. XSuperWarningTrue(   Widget        w,
  2064. X                 XtPointer        client_data,
  2065. X                 XtPointer        call_data)
  2066. X                           
  2067. X     /* Interface description:
  2068. X         INPUT:
  2069. X          w              - The widget for which this callback is registered.
  2070. X          client_data    - Specifies arbitrary client-supplied data
  2071. X                           that the widget w should pass back to the
  2072. X                           client when the widget executes the client's
  2073. X                           callback procedure.  In this callback,
  2074. X                           this is ignored.
  2075. X          call_data      - Specifies any callback-specific data the widget w
  2076. X                           wants to pass to the client.
  2077. X         OUTPUT:
  2078. X          None.
  2079. X         RETURN VALUE:
  2080. X          None.
  2081. X     */
  2082. X
  2083. X{
  2084. X     /* Internal variables: */
  2085. X          /* Major */
  2086. X          /* NONE  */
  2087. X          /* Minor */
  2088. X          /* NONE  */
  2089. X
  2090. X   /*-------------- Start of SuperWarningTrue() routine ---------------*/
  2091. X
  2092. X#ifdef DEBUG
  2093. X   printf("XPTS(signal.c): Called SuperWarningTrue!!!!!\n") ;
  2094. X#endif
  2095. X   return(WarningFlag=TRUE) ;
  2096. X
  2097. X}  /*------------------ End of SuperWarningTrue() ---------------------*/
  2098. X
  2099. X
  2100. X/*
  2101. X______________________________________________________________________
  2102. XSuperWarningFalse()
  2103. X
  2104. XFUNCTION DESCRIPTION:
  2105. X
  2106. X        This function is called if the user selects the quit button
  2107. Xfor the warning popup.
  2108. X______________________________________________________________________
  2109. XREVISION HISTORY:
  2110. X     Author:  Dean Collins            Date:  11/15/92
  2111. X     Version 1.0 finalized:  Dean Collins    Date:  1/9/93
  2112. X______________________________________________________________________
  2113. X*/
  2114. X
  2115. X
  2116. Xint
  2117. XSuperWarningFalse(   Widget        w,
  2118. X                 XtPointer        client_data,
  2119. X                 XtPointer        call_data)
  2120. X
  2121. X     /* Interface description:
  2122. X         INPUT:
  2123. X          w              - The widget for which this callback is registered.
  2124. X          client_data    - Specifies arbitrary client-supplied data
  2125. X                           that the widget w should pass back to the
  2126. X                           client when the widget executes the client's
  2127. X                           callback procedure.  In this callback,
  2128. X                           this is ignored.
  2129. X          call_data      - Specifies any callback-specific data the widget w
  2130. X                           wants to pass to the client.
  2131. X         OUTPUT:
  2132. X          None.
  2133. X         RETURN VALUE:
  2134. X          None.
  2135. X     */
  2136. X
  2137. X{
  2138. X
  2139. X     /* Internal variables: */
  2140. X          /* Major */
  2141. X          /* NONE  */
  2142. X          /* Minor */
  2143. X          /* NONE  */
  2144. X
  2145. X   /*-------------- Start of SuperWarningFalse() routine ---------------*/
  2146. X
  2147. X#ifdef DEBUG
  2148. X   printf("XPTS(signal.c): Called SuperWarningFalse!!!!!\n") ;
  2149. X#endif
  2150. X   return(WarningFlag=FALSE) ;
  2151. X
  2152. X}  /*------------------ End of SuperWarningFalse() ---------------------*/
  2153. X
  2154. X/* end of misc.c */
  2155. END_OF_FILE
  2156. if test 64402 -ne `wc -c <'pts-1.05/xpts/misc.c'`; then
  2157.     echo shar: \"'pts-1.05/xpts/misc.c'\" unpacked with wrong size!
  2158. fi
  2159. # end of 'pts-1.05/xpts/misc.c'
  2160. fi
  2161. echo shar: End of archive 14 \(of 16\).
  2162. cp /dev/null ark14isdone
  2163. MISSING=""
  2164. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ; do
  2165.     if test ! -f ark${I}isdone ; then
  2166.     MISSING="${MISSING} ${I}"
  2167.     fi
  2168. done
  2169. if test "${MISSING}" = "" ; then
  2170.     echo You have unpacked all 16 archives.
  2171.     echo "\nNow execute the command 'touch pts-1.05/xpts/xpts.help' and \nread the INSTALL document.\n"
  2172.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2173. else
  2174.     echo You still need to unpack the following archives:
  2175.     echo "        " ${MISSING}
  2176. fi
  2177. ##  End of shell archive.
  2178. exit 0
  2179.