home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume15 / xgen / part10 < prev    next >
Text File  |  1991-10-25  |  48KB  |  1,361 lines
  1. Path: uunet!sun-barr!cronkite.Central.Sun.COM!exodus!zorro.cecer.army.mil
  2. From: kurt@zorro.cecer.army.mil (Kurt Buehler)
  3. Newsgroups: comp.sources.x
  4. Subject: v15i010: Xgen - GUI generator for shell-like programs, Part10/17
  5. Message-ID: <22152@exodus.Eng.Sun.COM>
  6. Date: 25 Oct 91 16:38:13 GMT
  7. References: <csx-15i001-xgen@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 1349
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: kurt@zorro.cecer.army.mil (Kurt Buehler)
  13. Posting-number: Volume 15, Issue 10
  14. Archive-name: xgen/part10
  15.  
  16.  
  17. # This is a shell archive.  Remove anything before this line,
  18. # then unpack it by saving it in a file and typing "sh file".
  19. #
  20. # Wrapped by emily!kurt on Thu Aug 29 15:39:40 CDT 1991
  21. # Contents:  ./xgen/src/procmess.c ./xgen/src/resource.h ./xgen/src/sensitive.c
  22. #    ./xgen/src/control.c ./xgen/src/docapture.c ./xgen/src/popup.c
  23. #    ./xgen/src/addnode.c
  24.  
  25. echo x - ./xgen/src/procmess.c
  26. sed 's/^@//' > "./xgen/src/procmess.c" <<'@//E*O*F ./xgen/src/procmess.c//'
  27. /**********************************************************************
  28.    procmess.c   - process message object messages
  29.  *********************************************************************/
  30. /*******************************************************************************
  31. Xgen was developed by Kurt Buehler, while at the Center for Advanced Decision
  32. Support for Water and Environmental Systems (CADSWES), University of Colorado
  33. at Boulder and at the Indiana Water Resources Research Center (IWRRC),
  34. Purdue University for the U.S. Army Construction Engineering Research
  35. Laboratory in support of the Geographical Resources Analysis Support
  36. System (GRASS) software. The example scripts were developed by Ms. Christine
  37. Poulsen of USA-CERL, much thanks goes to her for her work.
  38.  
  39. Permission to use, copy, modify and distribute without charge this software,
  40. documentation, etc. is granted, provided that this comment is retained,
  41. and that the names of Kurt Buehler, Christine Poulsen, CADSWES, IWRRC,
  42. the University of Colorado at Boulder, Purdue University, or USA-CERL are not
  43. used in advertising or publicity pertaining to distribution of the software
  44. without specific, written prior permission.
  45.  
  46. The author disclaims all warranties with regard to this software, including
  47. all implied warranties of merchantability and fitness, in no event shall
  48. the author be liable for any special, indirect or consequential damages or
  49. any damages whatsoever resulting from loss of use, data or profits,
  50. whether in an action of contract, negligence or other tortious action,
  51. arising out of or in connection with the use or performance of this
  52. software.
  53. *******************************************************************************/
  54. #include "xgen.h"
  55. /* surpress message "The result of operation '*' was not used" */
  56. /*SURPRESS 528*/
  57.  
  58. MessageInfo *
  59. ProcessMessage(string,columns)
  60.     char *string;
  61.     int columns;
  62. {
  63.     /* allocate a string to keep a copy in */
  64.     char *save = XtMalloc(strlen(string) +1);
  65.     char *savePtr;
  66.     int stringlen;
  67.     Boolean subdivide = False;
  68.  
  69.     MessageInfo *head;
  70.     MessageInfo *cur;
  71.  
  72.     int lastpos = 1;
  73.     int count = 1;
  74.  
  75.     savePtr = strcpy(save,string);
  76.  
  77. /***************************************************************
  78.  * allocate space for head of message info list and set cur pointer
  79.  **************************************************************/
  80.     cur = head = (MessageInfo *)XtMalloc(sizeof(MessageInfo));
  81.     bzero((char *)head,sizeof(MessageInfo));
  82.  
  83. /***************************************************************
  84.  * check for NULL input string
  85.  **************************************************************/
  86.     if ( !string ) return(NULL);
  87.  
  88.     stringlen = strlen(string);
  89.     if ( columns < stringlen ) 
  90.         subdivide = True;
  91.     else {
  92.         cur->startpos = lastpos;
  93.         cur->endpos = strlen(string);
  94.         return(head);
  95.     }
  96.  
  97. /***************************************************************
  98.  * while we still need to subdivide......
  99.  **************************************************************/
  100.     while ( subdivide ) {
  101.         Boolean got_a_line = False;
  102.         int charcount = 0;
  103.     /***************************************************************
  104.      * cram as many WORDS as we can into each line
  105.      **************************************************************/
  106.  
  107.         while ( !got_a_line ) {
  108.  
  109.             /* we reached a space check to see if the next space 
  110.              * would put us beyond columns... */
  111.             if ( isspace(*savePtr) ) {
  112.                 char *t = savePtr;
  113.                 int more = 0;
  114.  
  115.                 *t = ' ';
  116.  
  117.                 *t++; /* increment past space */
  118.                 while ( *t && !isspace(*t) ) {
  119.                     *t++; more++;
  120.                 }
  121.                 /* if so, save that part and break loop */
  122.                 if ( more + charcount > columns ) {
  123.  
  124.                     /***********************************************************
  125.                      * store appropraite info
  126.                      **********************************************************/
  127.                      cur->startpos = lastpos;
  128.                      cur->endpos = lastpos + charcount;
  129.                     /***********************************************************
  130.                      * allocate space for another message info list element
  131.                      **********************************************************/
  132.                     cur->next = (MessageInfo *)XtMalloc(sizeof(MessageInfo));
  133.                     bzero((char *)cur->next,sizeof(MessageInfo));
  134.                     cur = cur->next;
  135.                     lastpos += charcount + 1;
  136.                     got_a_line = True;
  137.                     count++;
  138.                 }
  139.             }
  140.             *savePtr++; 
  141.             /* if we reached the end of the string, 
  142.                save it and break both loops */
  143.             if ( *savePtr == NULL ) {
  144.                 if ( !got_a_line ) {
  145.  
  146.                     /***********************************************************
  147.                      * store appropraite info
  148.                      **********************************************************/
  149.                      cur->startpos = lastpos;
  150.                      cur->endpos = lastpos + charcount;
  151.                     /***********************************************************
  152.                      * allocate space for another message info list element
  153.                      **********************************************************/
  154.                     cur->next = (MessageInfo *)XtMalloc(sizeof(MessageInfo));
  155.                     bzero((char *)cur->next,sizeof(MessageInfo));
  156.                     cur = cur->next;
  157.                     lastpos += charcount;
  158.                 }
  159.                 got_a_line = True;
  160.                 count++;
  161.                 subdivide = False;
  162.             }
  163.             charcount++;
  164.         }
  165.         /* we just got another segment, if we aren't at strings end
  166.            just see if we need to subdivide further... */
  167.         if ( subdivide && !(columns < stringlen - lastpos) ) {
  168.             subdivide = False;
  169.             cur->startpos = lastpos;
  170.             cur->endpos = stringlen;
  171.             count++;
  172.         }
  173.     }
  174.  
  175.     return(head);
  176.  
  177. }
  178.  
  179. FreeMIList(mi)
  180.     MessageInfo *mi;
  181. {
  182.     if ( mi->next != NULL ) {
  183.         FreeMIList(mi->next);
  184.     }
  185.     XtFree(mi);
  186. }
  187. @//E*O*F ./xgen/src/procmess.c//
  188. chmod u=rw,g=r,o=r ./xgen/src/procmess.c
  189.  
  190. echo x - ./xgen/src/resource.h
  191. sed 's/^@//' > "./xgen/src/resource.h" <<'@//E*O*F ./xgen/src/resource.h//'
  192. /**********************************************************************
  193.    resource.h   - resource header file
  194.  *********************************************************************/
  195. /*******************************************************************************
  196. Xgen was developed by Kurt Buehler, while at the Center for Advanced Decision
  197. Support for Water and Environmental Systems (CADSWES), University of Colorado
  198. at Boulder and at the Indiana Water Resources Research Center (IWRRC),
  199. Purdue University for the U.S. Army Construction Engineering Research
  200. Laboratory in support of the Geographical Resources Analysis Support
  201. System (GRASS) software. The example scripts were developed by Ms. Christine
  202. Poulsen of USA-CERL, much thanks goes to her for her work.
  203.  
  204. Permission to use, copy, modify and distribute without charge this software,
  205. documentation, etc. is granted, provided that this comment is retained,
  206. and that the names of Kurt Buehler, Christine Poulsen, CADSWES, IWRRC,
  207. the University of Colorado at Boulder, Purdue University, or USA-CERL are not
  208. used in advertising or publicity pertaining to distribution of the software
  209. without specific, written prior permission.
  210.  
  211. The author disclaims all warranties with regard to this software, including
  212. all implied warranties of merchantability and fitness, in no event shall
  213. the author be liable for any special, indirect or consequential damages or
  214. any damages whatsoever resulting from loss of use, data or profits,
  215. whether in an action of contract, negligence or other tortious action,
  216. arising out of or in connection with the use or performance of this
  217. software.
  218. *******************************************************************************/
  219. static struct _resourceTable {
  220.     int index;
  221.     char *name;
  222.     int type;
  223.     unsigned int valid;
  224. } resourceTable[] = {
  225.     InitialShells,    "initialshells",     STRING,  ENV,
  226.     X,                "x",                 INTEGER, SHL|MU|CO|OBJ|ALLOBJ,
  227.     DX,               "dx",                REAL,    SHL|MU|CO|OBJ|ALLOBJ,
  228.     Y,                "y",                 INTEGER, SHL|MU|CO|OBJ|ALLOBJ,
  229.     DY,               "dy",                REAL,    SHL|MU|CO|OBJ|ALLOBJ,
  230.     Width,            "width",             INTEGER, SHL|MU|CO|OBJ|ALLOBJ,
  231.     Height,           "height",            INTEGER, SHL|MU|CO|OBJ|ALLOBJ,
  232.     MaxWidth,         "maxwidth",          INTEGER, SHL|MU,
  233.     MaxHeight,        "maxheight",         INTEGER, SHL|MU,
  234.     Help,             "help",              STRING,  SHL|MU|CO|OBJ|ALLOBJ,
  235.     Columns,          "columns",           INTEGER, OBJ|TA|ME,
  236.     Font,             "font",              STRING,  OBJ|ALLOBJ,
  237.     EntryFont,        "entryfont",         STRING,  OBJ|TA,
  238.     Background,       "background",        STRING,  SHL|MU|CO|OBJ|ALLOBJ,
  239.     Foreground,       "foreground",        STRING,  SHL|MU|CO|OBJ|ALLOBJ,
  240.     TitleString,      "titlestring",       STRING,  SHL|MU|CO|OBJ|ALLOBJ,
  241.     Override,         "override",          BOOLEAN, SHL|MU|CO,
  242.     Popup,            "popup",             STRING,  OBJ|PB,
  243.     Popdown,          "popdown",           STRING,  OBJ|PB,
  244.     Destroy,          "destroy",           STRING,  OBJ|PB,
  245.     Exit,             "exit",              INTEGER, OBJ|PB,
  246.     RunForeground,    "runforeground",     STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  247.     RunBackground,    "runbackground",     STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  248.     InputFrom,        "inputfrom",         STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  249.     CaptureOutput,    "captureoutput",     STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  250.     UpdateFrom,       "updatefrom",        STRING,  SHL|MU|OBJ|LI,
  251.     Pane,             "pane",              BOOLEAN, SHL|CO,
  252.     Store,            "store",             STRING,  OBJ|PB,
  253.     GetEnv,           "getenv",            STRING,  OBJ|PB,
  254.     Clear,            "clear",             STRING,  OBJ|PB,
  255.     CommandArg,       "commandarg",        STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  256.     Set,              "set",               STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  257.     Alignment,        "alignment",         STRING,  OBJ|ME|LA|PB,
  258.     ListElement,      "listelement",       STRING,  OBJ|LI|TO,
  259.     ListSeparator,    "listseparator",     STRING,  OBJ|LI|TO,
  260.     ListType,         "listtype",          STRING,  OBJ|LI,
  261.     VisibleItems,     "visibleitems",      INTEGER, SHL|MU|OBJ|LI,
  262.     ValueString,      "valuestring",       STRING,  OBJ|TE|TO|LI,
  263.     LabelPixmap,      "labelpixmap",       STRING,  OBJ|LA|PB|TO,
  264.     Minimum,          "minimum",           INTEGER, OBJ|SL,
  265.     Maximum,          "maximum",           INTEGER, OBJ|SL,
  266.     StartValue,       "startvalue",        INTEGER, OBJ|SL,
  267.     SliderWidth,      "sliderwidth",       INTEGER, OBJ|SL,
  268.     SliderHeight,     "sliderheight",      INTEGER, OBJ|SL,
  269.     Orientation,      "orientation",       STRING,  OBJ|SL|SE,
  270.     DecimalPoints,    "decimalpoints",     INTEGER, OBJ|SL,
  271.     Rows,             "rows",              INTEGER, OBJ|TA,
  272.     RowsDisplayed,    "rowsdisplayed",     INTEGER, OBJ|TA,
  273.     ColumnsDisplayed, "columnsdisplayed",  INTEGER, OBJ|TA,
  274.     ColumnHeadings,   "columnheadings",    STRING,  OBJ|TA,
  275.     RowHeadings,      "rowheadings",       STRING,  OBJ|TA,
  276.     RowValue,         "rowvalue",          STRING,  OBJ|TA,
  277.     TableValue,       "tablevalue",        STRING,  OBJ|TA,
  278.     RowHeight,        "rowheight",         INTEGER, OBJ|TA,
  279.     ColumnWidth,      "columnwidth",       INTEGER, OBJ|TA,
  280.     Separator,        "separator",         STRING,  OBJ|TA,
  281.     Newline,          "newline",          BOOLEAN,  OBJ|TA,
  282.     ToggleType,       "toggletype",        STRING,  OBJ|TO,
  283.     SeparatorType,    "separatortype",     STRING,  OBJ|SE,
  284.     Sensitive,     "sensitive",      STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  285.     Insensitive,   "insensitive",    STRING,  ENV|SHL|MU|CO|OBJ|PB|PU,
  286. };
  287.  
  288. static struct _shellTable {
  289.     char *name;
  290.     int index;
  291.     unsigned int valid;
  292. } shellTable[] = {
  293.     "menu",   MU, LA|PB|SE,
  294.     "commandboard", CO, PU|LA|LI|ME|PB|TE|TA|SE|SL|TO,
  295. };
  296.  
  297. static struct _objectTable {
  298.     char *name;
  299.     int index;
  300. } objectTable[] = {
  301.     "label",      LA,
  302.     "message",    ME,
  303.     "list",       LI,
  304.     "pushbutton", PB,
  305.     "textentry",  TE,
  306.     "table",      TA,
  307.     "separator",  SE,
  308.     "slider",     SL,
  309.     "toggle",     TO,
  310.     "pulldown",   PU,
  311. };
  312. @//E*O*F ./xgen/src/resource.h//
  313. chmod u=rw,g=r,o=r ./xgen/src/resource.h
  314.  
  315. echo x - ./xgen/src/sensitive.c
  316. sed 's/^@//' > "./xgen/src/sensitive.c" <<'@//E*O*F ./xgen/src/sensitive.c//'
  317. /**********************************************************************
  318.    sensitive.c  - set a shell or object (in)sensitive
  319.  *********************************************************************/
  320. /*******************************************************************************
  321. Xgen was developed by Kurt Buehler, while at the Center for Advanced Decision
  322. Support for Water and Environmental Systems (CADSWES), University of Colorado
  323. at Boulder and at the Indiana Water Resources Research Center (IWRRC),
  324. Purdue University for the U.S. Army Construction Engineering Research
  325. Laboratory in support of the Geographical Resources Analysis Support
  326. System (GRASS) software. The example scripts were developed by Ms. Christine
  327. Poulsen of USA-CERL, much thanks goes to her for her work.
  328.  
  329. Permission to use, copy, modify and distribute without charge this software,
  330. documentation, etc. is granted, provided that this comment is retained,
  331. and that the names of Kurt Buehler, Christine Poulsen, CADSWES, IWRRC,
  332. the University of Colorado at Boulder, Purdue University, or USA-CERL are not
  333. used in advertising or publicity pertaining to distribution of the software
  334. without specific, written prior permission.
  335.  
  336. The author disclaims all warranties with regard to this software, including
  337. all implied warranties of merchantability and fitness, in no event shall
  338. the author be liable for any special, indirect or consequential damages or
  339. any damages whatsoever resulting from loss of use, data or profits,
  340. whether in an action of contract, negligence or other tortious action,
  341. arising out of or in connection with the use or performance of this
  342. software.
  343. *******************************************************************************/
  344. #include "xgen.h"
  345.  
  346. EffectSensitivity(list,onoroff)
  347.     char *list;
  348.     Boolean onoroff;
  349. {
  350.     char **token, **Tokenize();
  351.     Boolean save = verbose;
  352.     int n;
  353.     WidgetListElement *widgetList;
  354.  
  355.     verbose = True;
  356.   
  357.     /* parse the list (if more than one name occurs) and set the affected
  358.            object (in)sensitive */
  359.     token = Tokenize(list," ");
  360.     for ( n = 0; token[n]; n++) {
  361.         Shell *s;
  362.  
  363.         if ((s = IndexShell(token[n])) == NULL ) {
  364.             InterfaceObject *o;
  365.             Boolean longDesc = False;
  366.  
  367.             if ( rindex(token[n],':') != NULL ) { 
  368.                 /* IN THE FORM "shell:obj" */
  369.                 char *sPart, *oPart;
  370.                 longDesc = True;
  371.  
  372.                 sPart = (char *)strtok(token[n],":");
  373.                 oPart = (char *)strtok(NULL,":");
  374.                 if ((s = IndexShell(sPart)) == NULL) {
  375.                     sprintf(errorbuf,
  376.                         "no such shell \"%s\"",sPart);
  377.                     XgenWarning("set sensitivity",errorbuf);
  378.                 } else if ( s->widget ) {
  379.                     Boolean found = False;
  380.  
  381.                     o = s->objects;
  382.                     while ( o && !found ) {
  383.                         if ( !strcmp(oPart,o->name) ) {
  384.                             if ( !strcmp(o->name,"dynamic")) {
  385.                                 widgetList = s->dynObjects;
  386.                                 while ( widgetList ) {
  387.                                     DoSetSensitive(widgetList->widget,onoroff);
  388.                                     widgetList = widgetList->next;
  389.                                 }
  390.                             } else {
  391.                                 DoSetSensitive(o->widget,onoroff);
  392.                             }
  393.                             found = True;
  394.                         }
  395.                         o = o->next;
  396.                     }
  397.                     if ( !found ) {
  398.                         sprintf(errorbuf,
  399.                             "no such object \"%s\" in shell \"%s\"",
  400.                             oPart,sPart);
  401.                         XgenWarning("set sensitivity",errorbuf);
  402.                     }
  403.                 }
  404.             } 
  405.             if ( !longDesc ) {
  406.                 if ( (o = IndexObjectByName(token[n])) == NULL ) {
  407.                     sprintf(errorbuf,
  408.                         "no such shell or object \"%s\"",token[n]);
  409.                     XgenWarning("set sensitivity",errorbuf);
  410.                 } else if ( o->widget ) {
  411.                     if ( !strcmp(o->name,"dynamic")) {
  412.                         s = IndexShellByObject(o);
  413.                         widgetList = s->dynObjects;
  414.                         while ( widgetList ) {
  415.                             DoSetSensitive(widgetList->widget,onoroff);
  416.                             widgetList = widgetList->next;
  417.                         }
  418.                     } else {
  419.                         DoSetSensitive(o->widget,onoroff);
  420.                     }
  421.                 }
  422.             }
  423.         } else if ( s->widget ) {
  424.             InterfaceObject *o = s->objects; 
  425.  
  426.             while ( o ) {
  427.                 if ( !strcmp(o->name,"dynamic")) {
  428.                     s = IndexShellByObject(o);
  429.                     widgetList = s->dynObjects;
  430.                     while ( widgetList ) {
  431.                         DoSetSensitive(widgetList->widget,onoroff);
  432.                         widgetList = widgetList->next;
  433.                     }
  434.                 } else {
  435.                     DoSetSensitive(o->widget,onoroff);
  436.                 }
  437.                 o = o->next;
  438.             }
  439.         }
  440.     } 
  441.     verbose = save;
  442. }
  443.  
  444. DoSetSensitive(w,onoroff) 
  445.     Widget w;
  446.     Boolean onoroff;
  447. {
  448.     if ( XtIsManaged(w) ) {
  449.         XtSetSensitive(w,onoroff);
  450.     }
  451. }
  452. @//E*O*F ./xgen/src/sensitive.c//
  453. chmod u=rw,g=r,o=r ./xgen/src/sensitive.c
  454.  
  455. echo x - ./xgen/src/control.c
  456. sed 's/^@//' > "./xgen/src/control.c" <<'@//E*O*F ./xgen/src/control.c//'
  457. /**********************************************************************
  458.    control.c    - perform control box functions
  459.  *********************************************************************/
  460. /*******************************************************************************
  461. Xgen was developed by Kurt Buehler, while at the Center for Advanced Decision
  462. Support for Water and Environmental Systems (CADSWES), University of Colorado
  463. at Boulder and at the Indiana Water Resources Research Center (IWRRC),
  464. Purdue University for the U.S. Army Construction Engineering Research
  465. Laboratory in support of the Geographical Resources Analysis Support
  466. System (GRASS) software. The example scripts were developed by Ms. Christine
  467. Poulsen of USA-CERL, much thanks goes to her for her work.
  468.  
  469. Permission to use, copy, modify and distribute without charge this software,
  470. documentation, etc. is granted, provided that this comment is retained,
  471. and that the names of Kurt Buehler, Christine Poulsen, CADSWES, IWRRC,
  472. the University of Colorado at Boulder, Purdue University, or USA-CERL are not
  473. used in advertising or publicity pertaining to distribution of the software
  474. without specific, written prior permission.
  475.  
  476. The author disclaims all warranties with regard to this software, including
  477. all implied warranties of merchantability and fitness, in no event shall
  478. the author be liable for any special, indirect or consequential damages or
  479. any damages whatsoever resulting from loss of use, data or profits,
  480. whether in an action of contract, negligence or other tortious action,
  481. arising out of or in connection with the use or performance of this
  482. software.
  483. *******************************************************************************/
  484. #include "xgen.h"
  485.  
  486. void KillCB();
  487. void ForegroundCB();
  488.  
  489. MakeControlBox()
  490. {
  491.     Widget separator1, separator2, cbLabel1, cbLabel2, quitButton;
  492.     int n;
  493.     char buf[80];
  494.     XmString xmLabel;
  495.     void ControlBoxQuit();
  496.  
  497.     n = 0;
  498.     SetGlobalArgs(&n,FONTS);
  499.     SetObjectColorArgs(NULL,&n);
  500.     XtSetArg(args[n],XmNmarginWidth,0); n++;
  501.     XtSetArg(args[n],XmNmarginHeight,0); n++;
  502.     XtSetArg(args[n],XmNpacking,XmPACK_COLUMN); n++;
  503.     XtSetArg(args[n],XmNorientation,XmVERTICAL); n++;
  504.     xgenGD.CBRowCol = XmCreateRowColumn(xgenGD.applShell,"controlbox pane",args,n);
  505.     XtManageChild(xgenGD.CBRowCol);
  506.  
  507.     n = 0;
  508.     SetGlobalArgs(&n,FONTS);
  509.     SetObjectColorArgs(NULL,&n);
  510.     sprintf(buf,"%s Control Box",xgenGD.progName);
  511.     xmLabel = XmStringLtoRCreate(buf,SDC);
  512.     XtSetArg(args[n],XmNlabelType,XmSTRING); n++;
  513.     XtSetArg(args[n],XmNlabelString,xmLabel); n++;
  514.     cbLabel1 = XmCreateLabelGadget(xgenGD.CBRowCol,"label",args,n);
  515.     XtManageChild(cbLabel1);
  516.     XmStringFree(xmLabel);
  517.  
  518.     n = 0;
  519.     SetGlobalArgs(&n,FONTS);
  520.     SetObjectColorArgs(NULL,&n);
  521.     xmLabel = XmStringLtoRCreate("Quit",SDC);
  522.     XtSetArg(args[n],XmNlabelType,XmSTRING); n++;
  523.     XtSetArg(args[n],XmNlabelString,xmLabel); n++;
  524.     XtSetArg(args[n],XmNborderWidth,10); n++;
  525.     quitButton = XmCreatePushButtonGadget(xgenGD.CBRowCol,"exit",args,n);
  526.     XtManageChild(quitButton);
  527.     XmStringFree(xmLabel);
  528.  
  529.     XtAddCallback(quitButton, XmNactivateCallback, ControlBoxQuit, NULL);
  530.  
  531.     n = 0;
  532.     SetGlobalArgs(&n,FONTS);
  533.     SetObjectColorArgs(NULL,&n);
  534.     XtSetArg(args[n],XmNorientation,XmHORIZONTAL); n++;
  535.     XtSetArg(args[n],XmNseparatorType,XmSHADOW_ETCHED_IN); n++;
  536.     separator1 = XmCreateSeparator(xgenGD.CBRowCol,"s1",args,n);
  537.     XtManageChild(separator1);
  538.  
  539.     n = 0;
  540.     SetGlobalArgs(&n,FONTS);
  541.     SetObjectColorArgs(NULL,&n);
  542.     sprintf(buf,"Background Jobs:",xgenGD.progName);
  543.     xmLabel = XmStringLtoRCreate(buf,SDC);
  544.     XtSetArg(args[n],XmNlabelType,XmSTRING); n++;
  545.     XtSetArg(args[n],XmNlabelString,xmLabel); n++;
  546.     cbLabel2 = XmCreateLabelGadget(xgenGD.CBRowCol,"label",args,n);
  547.     XtManageChild(cbLabel2);
  548.     XmStringFree(xmLabel);
  549.  
  550.     n = 0;
  551.     SetGlobalArgs(&n,FONTS);
  552.     SetObjectColorArgs(NULL,&n);
  553.     XtSetArg(args[n],XmNorientation,XmHORIZONTAL); n++;
  554.     XtSetArg(args[n],XmNseparatorType,XmSHADOW_ETCHED_IN); n++;
  555.     separator2 = XmCreateSeparator(xgenGD.CBRowCol,"s2",args,n);
  556.     XtManageChild(separator2);
  557.  
  558. }
  559.  
  560. void 
  561. AddCommandToControlBox(com)
  562.     Command *com;
  563. {
  564.     Widget optMenu;
  565.     Widget optSubmenu;
  566.     Widget opts[2];
  567.     XmString xmLabel;
  568.     int n;
  569.  
  570.     n = 0;
  571.     SetGlobalArgs(&n,FONTS);
  572.     SetObjectColorArgs(NULL,&n);
  573.     optSubmenu = XmCreatePulldownMenu(xgenGD.CBRowCol,"optionsubmenu",args,n);
  574.  
  575.     n = 0;
  576.     SetGlobalArgs(&n,FONTS);
  577.     SetObjectColorArgs(NULL,&n);
  578.     xmLabel = XmStringLtoRCreate("foreground",SDC);
  579.     XtSetArg(args[n],XmNlabelString,xmLabel); n++;
  580.     opts[0] = XmCreatePushButtonGadget(optSubmenu,"option1",args,n);
  581.     XtManageChild(opts[0]);
  582.     XmStringFree(xmLabel);
  583.  
  584.     n = 0;
  585.     SetGlobalArgs(&n,FONTS);
  586.     SetObjectColorArgs(NULL,&n);
  587.     xmLabel = XmStringLtoRCreate("kill",SDC);
  588.     XtSetArg(args[n],XmNlabelString,xmLabel); n++;
  589.     opts[1] = XmCreatePushButtonGadget(optSubmenu,"option2",args,n);
  590.     XtManageChild(opts[1]);
  591.     XmStringFree(xmLabel);
  592.  
  593.     n = 0;
  594.     SetGlobalArgs(&n,FONTS);
  595.     SetObjectColorArgs(NULL,&n);
  596.     xmLabel = XmStringLtoRCreate(com->path,SDC);
  597.     XtSetArg(args[n],XmNlabelString,xmLabel); n++;
  598.     XtSetArg(args[n],XmNsubMenuId,optSubmenu); n++;
  599.     optMenu = XmCreateOptionMenu(xgenGD.CBRowCol,"command",args,n);
  600.     XtManageChild(optMenu);
  601.     XmStringFree(xmLabel);
  602.  
  603.     com->widget = optMenu;
  604.  
  605.     XtAddCallback(opts[0], XmNactivateCallback, ForegroundCB, com);
  606.     XtAddCallback(opts[1], XmNactivateCallback, KillCB, com);
  607.     
  608. } 
  609.  
  610. void 
  611. DeleteCommandFromControlBox(pid)
  612.     int pid;
  613. {
  614.     Command *goner = FindCommand(pid);
  615.  
  616.     if ( !nocontrol )
  617.         if ( goner != NULL ) {
  618.             XtUnrealizeWidget(goner->widget);
  619.             XtDestroyWidget(goner->widget);
  620.         }
  621. }
  622.  
  623. void 
  624. ControlBoxQuit()
  625. {
  626.     XgenExit(0);
  627. }
  628.  
  629. static void 
  630. ForegroundCB(w,cld,cad)
  631.     /*ARGSUSED*/
  632.     Widget w;
  633.     caddr_t cld;
  634.     caddr_t cad;
  635. {
  636.     Command *command = (Command *)cld;
  637.     union wait status;
  638.     int pid;
  639.  
  640.     while ( (pid = wait(&status)) != command->pid && pid != -1 ) {
  641.         DoReap(status,pid);
  642.     }
  643.     if ( pid != -1 )
  644.         DoReap(status,pid);
  645.     return;
  646. }
  647.  
  648. static void 
  649. KillCB(w,cld,cad)
  650.     /*ARGSUSED*/
  651.     Widget w;
  652.     caddr_t cld;
  653.     caddr_t cad;
  654. {
  655.     Command *command = (Command *)cld;
  656.     char s[80];
  657.     int pgrp;
  658.  
  659.     /* unlink temp files if they exist */
  660.     if ( command->capture && !access(command->tmpfile,0) )
  661.         unlink(command->tmpfile);
  662.     if ( !access(command->errfile,0) )
  663.         unlink(command->errfile);
  664.     /* check for existance */
  665.     if ( kill(command->pid,0) == 0 && errno != ESRCH ) {
  666.         /* get the process group and wipe it out */
  667.         pgrp = getpgrp(command->pid);
  668.         if ( killpg(pgrp,SIGINT) < 0 ) {
  669.             sprintf(s,"killpg: process group %d",pgrp);
  670.             perror(s);
  671.         }
  672.     }
  673.     DeleteCommandFromControlBox(command->pid);
  674.     DeleteCommand(command->pid);
  675.     return;
  676. }
  677. @//E*O*F ./xgen/src/control.c//
  678. chmod u=rw,g=r,o=r ./xgen/src/control.c
  679.  
  680. echo x - ./xgen/src/docapture.c
  681. sed 's/^@//' > "./xgen/src/docapture.c" <<'@//E*O*F ./xgen/src/docapture.c//'
  682. /**********************************************************************
  683.    docapture.c  - capture output from a command in a text editor widget
  684.  *********************************************************************/
  685. /*******************************************************************************
  686. Xgen was developed by Kurt Buehler, while at the Center for Advanced Decision
  687. Support for Water and Environmental Systems (CADSWES), University of Colorado
  688. at Boulder and at the Indiana Water Resources Research Center (IWRRC),
  689. Purdue University for the U.S. Army Construction Engineering Research
  690. Laboratory in support of the Geographical Resources Analysis Support
  691. System (GRASS) software. The example scripts were developed by Ms. Christine
  692. Poulsen of USA-CERL, much thanks goes to her for her work.
  693.  
  694. Permission to use, copy, modify and distribute without charge this software,
  695. documentation, etc. is granted, provided that this comment is retained,
  696. and that the names of Kurt Buehler, Christine Poulsen, CADSWES, IWRRC,
  697. the University of Colorado at Boulder, Purdue University, or USA-CERL are not
  698. used in advertising or publicity pertaining to distribution of the software
  699. without specific, written prior permission.
  700.  
  701. The author disclaims all warranties with regard to this software, including
  702. all implied warranties of merchantability and fitness, in no event shall
  703. the author be liable for any special, indirect or consequential damages or
  704. any damages whatsoever resulting from loss of use, data or profits,
  705. whether in an action of contract, negligence or other tortious action,
  706. arising out of or in connection with the use or performance of this
  707. software.
  708. *******************************************************************************/
  709. #include "xgen.h"
  710.  
  711. static Widget saveDialog = NULL;
  712.  
  713. void
  714. DoCaptureText(com)
  715.     Command *com;
  716. {
  717.     Widget captureWidget;
  718.     Widget main_window;
  719.     Widget menu_bar;
  720.     Widget dismiss;
  721.     Widget save;
  722.     Widget frame;
  723.     Widget text;
  724.     FILE *fp;
  725.     char *string;
  726.     struct stat statbuf;
  727.     int length;
  728.     int n;
  729.  
  730.  
  731.     
  732.     if ((fp = fopen(com->tmpfile, "r+")) == NULL)
  733.         if ((fp = fopen(com->tmpfile, "r")) != NULL) {
  734.             fprintf(stderr, "Warning: file opened read only.\n");
  735.         } else {
  736.             fprintf(stderr, "Sorry: couldn't get tmpfile\n"); 
  737.             return;
  738.         }
  739.  
  740.     /* get the legth of the string */
  741.     if ( stat(com->tmpfile,&statbuf) == 0 )
  742.         length = statbuf.st_size;
  743.     else
  744.         length = 1000000; /* arbitrary file length */
  745.  
  746.     /* read it... */
  747.     if ( length > 0 ) {
  748.         string = (char *)XtMalloc(length);
  749.         fread(string, sizeof(char), length, fp);
  750.     }
  751.  
  752.     /* close up the file */
  753.        if (fclose(fp) != NULL) 
  754.         fprintf(stderr, "Warning: unable to close file.\n");    
  755.  
  756.     if ( length ) {
  757.  
  758.         n = 0;
  759.            SetGlobalArgs(&n,NOFONTS);
  760.            SetObjectColorArgs(NULL,&n);
  761.  
  762.         XtSetArg(args[n],XmNallowShellResize,True); n++;
  763.            captureWidget = XtCreatePopupShell(com->path,topLevelShellWidgetClass,
  764.                                       xgenGD.applShell,args,n);
  765.  
  766.     /***************************************************************
  767.        * create the MainWindow : this is used since it allows for a
  768.        * MenuBar, a Frame, and a ScrolledWindow (if necessary).
  769.        * The application designer might choose to place labels, lists,
  770.        * or pushbuttons in a menu.
  771.        **************************************************************/
  772.           n = 0;
  773.           SetGlobalArgs(&n,NOFONTS);
  774.           SetObjectColorArgs(NULL,&n);
  775.         main_window = XmCreateMainWindow(captureWidget,com->path,args,n);
  776.            XtManageChild(main_window);
  777.      /***************************************************************
  778.        * create the MenuBar 
  779.        **************************************************************/
  780.            menu_bar = NULL;
  781.            n = 0;
  782.            SetGlobalArgs(&n,NOFONTS);
  783.            SetObjectColorArgs(NULL,&n);
  784.            menu_bar = XmCreateMenuBar(main_window,"menu_bar",args,n);
  785.            XtManageChild(menu_bar);
  786.      /***************************************************************
  787.        * create menu buttons 
  788.        **************************************************************/
  789.         n = 0;
  790.            SetGlobalArgs(&n,FONTS);
  791.            SetObjectColorArgs(NULL,&n);
  792.            dismiss = XmCreateCascadeButton(menu_bar, "Dismiss", args,n);
  793.            XtManageChild(dismiss);
  794.            save = XmCreateCascadeButton(menu_bar, "Save to file", args,n);
  795.            XtManageChild(save);
  796.        /***************************************************************
  797.        * create a frame for the objects
  798.        **************************************************************/
  799.            n = 0;
  800.            SetGlobalArgs(&n,NOFONTS);
  801.            SetObjectColorArgs(NULL,&n);
  802.            frame = XmCreateFrame(main_window,"frame",args,n);
  803.            XtManageChild(frame);
  804.  
  805.         n = 0;
  806.            SetGlobalArgs(&n,NOFONTS);
  807.            SetObjectColorArgs(NULL,&n);
  808.         XtSetArg (args[n], XmNrows, 24);  n++;
  809.         XtSetArg (args[n], XmNcolumns, 80);  n++;
  810.         XtSetArg (args[n], XmNresizeWidth, False);  n++;
  811.         XtSetArg (args[n], XmNresizeHeight, False);  n++;
  812.         XtSetArg (args[n], XmNscrollVertical, True);  n++;
  813.         XtSetArg (args[n], XmNscrollHorizontal, True);  n++;
  814.         XtSetArg (args[n], XmNeditMode, XmMULTI_LINE_EDIT);  n++;
  815.         text = XmCreateScrolledText(frame,"text",args,n);
  816.         XtManageChild(text);
  817.  
  818.            /***************************************************************
  819.             * add callbacks 
  820.             **************************************************************/
  821.            XtAddCallback(dismiss,XmNactivateCallback,dismissCB,
  822.               (caddr_t)captureWidget);
  823.            XtAddCallback(save,XmNactivateCallback,saveCB,
  824.               (caddr_t)text);
  825.  
  826.         XtPopup(captureWidget,XtGrabNone);
  827.         XmTextSetString(text, string);
  828.     }
  829. }
  830.  
  831. void 
  832. dismissCB(w,cld,cad)
  833.     /*ARGSUSED*/
  834.     Widget w;
  835.     caddr_t cld;
  836.     caddr_t cad;
  837. {
  838.     Widget popup = (Widget)cld;
  839.     XtDestroyWidget(popup);
  840. }
  841.  
  842. void 
  843. saveCB(w,cld,cad)
  844.     /*ARGSUSED*/
  845.     Widget w;
  846.     caddr_t cld;
  847.     caddr_t cad;
  848. {
  849.     int n;
  850.     XmString xmstring;
  851.     Widget text = (Widget) cld;
  852.  
  853.     n = 0;
  854.     xmstring = XmStringCreateLtoR("Save To File...",SDC);
  855.     XtSetArg(args[n], XmNselectionLabelString,xmstring); n++;
  856.     saveDialog = XmCreatePromptDialog(w,"save dialog",args,n);
  857.     XtManageChild(saveDialog);
  858.     XtAddCallback (saveDialog, XmNokCallback, SaveOKCB, (caddr_t)text);
  859.     XtManageChild(saveDialog);
  860. }
  861.  
  862. void
  863. SaveOKCB(w,cld,cad)
  864.     /*ARGSUSED*/
  865.     Widget w;
  866.     caddr_t cld;
  867.     caddr_t cad;
  868. {
  869.     char *fileString = NULL;
  870.     char *fileName = NULL;
  871.     FILE *fp = NULL;
  872.     XmSelectionBoxCallbackStruct *scb =
  873.          (XmSelectionBoxCallbackStruct *) cad;
  874.     Widget text = (Widget) cld;
  875.  
  876.     /* get the file name from the dialog */
  877.     XmStringGetLtoR(scb->value, SDC, &fileName);
  878.  
  879.     /* is NULL or empty just return so maybe the user will enter one */
  880.     if ( !fileName || !strcmp(fileName,"") ) return;
  881.  
  882.     /* open the file, if possible */
  883.     if ((fp = fopen(fileName, "a+")) == NULL) {
  884.         sprintf(errorbuf,"unable to open [%s], text not saved.",fileName);
  885.         XgenWarning("save captured text",errorbuf);
  886.     }
  887.  
  888.     /* get the text string */
  889.     fileString = XmTextGetString(text);
  890.  
  891.     /* write it to the file */
  892.     fwrite(fileString, sizeof(char), strlen(fileString) + 1, fp);
  893.  
  894.     fflush(fp);
  895.     fclose(fp);
  896.  
  897.     /* destroy the dialog */
  898.         XtDestroyWidget(saveDialog);
  899. }
  900. @//E*O*F ./xgen/src/docapture.c//
  901. chmod u=rw,g=r,o=r ./xgen/src/docapture.c
  902.  
  903. echo x - ./xgen/src/popup.c
  904. sed 's/^@//' > "./xgen/src/popup.c" <<'@//E*O*F ./xgen/src/popup.c//'
  905. /**********************************************************************
  906.    popup.c      - do popup's, popdown's, and getenv's
  907.  *********************************************************************/
  908. /*******************************************************************************
  909. Xgen was developed by Kurt Buehler, while at the Center for Advanced Decision
  910. Support for Water and Environmental Systems (CADSWES), University of Colorado
  911. at Boulder and at the Indiana Water Resources Research Center (IWRRC),
  912. Purdue University for the U.S. Army Construction Engineering Research
  913. Laboratory in support of the Geographical Resources Analysis Support
  914. System (GRASS) software. The example scripts were developed by Ms. Christine
  915. Poulsen of USA-CERL, much thanks goes to her for her work.
  916.  
  917. Permission to use, copy, modify and distribute without charge this software,
  918. documentation, etc. is granted, provided that this comment is retained,
  919. and that the names of Kurt Buehler, Christine Poulsen, CADSWES, IWRRC,
  920. the University of Colorado at Boulder, Purdue University, or USA-CERL are not
  921. used in advertising or publicity pertaining to distribution of the software
  922. without specific, written prior permission.
  923.  
  924. The author disclaims all warranties with regard to this software, including
  925. all implied warranties of merchantability and fitness, in no event shall
  926. the author be liable for any special, indirect or consequential damages or
  927. any damages whatsoever resulting from loss of use, data or profits,
  928. whether in an action of contract, negligence or other tortious action,
  929. arising out of or in connection with the use or performance of this
  930. software.
  931. *******************************************************************************/
  932. #include "xgen.h"
  933.  
  934. PopupEnviron(e)
  935.     Environ *e;
  936. {
  937.     Shell *s = e->shells;
  938.     Resource *resource;
  939.  
  940.     xgenGD.currentEnv = e;
  941.  
  942.  
  943.     if ( (NULL != (resource = IndexResource((char *)e,ENVIRONMENT,"set"))) ||
  944.          (NULL != (resource = IndexResource((char *)e,ENVIRONMENT,"runforeground"))) ||
  945.          (NULL != (resource = IndexResource((char *)e,ENVIRONMENT,"runbackground")))) {
  946.         while ( resource ) {
  947.             if ( !strcmp(resource->name,"set") )
  948.                 DoSet((char *)e,resource,ENVIRONMENT,NULL);
  949.             if ( !strncmp(resource->name,"run",3) )
  950.                 DoJob((char *)e,resource,ENVIRONMENT);
  951.  
  952.             resource = resource->next;
  953.         }
  954.     }
  955.  
  956.     /* Popup all initial shells */
  957.     s = e->shells;
  958.     while ( s ) {
  959.         if ( s->initial ) 
  960.             Popup_Shell(s);
  961.         s = s->next;
  962.     }
  963. /***************************************************************
  964.  *  check for existance of a sensitivity command....
  965.  **************************************************************/
  966.     if ( (NULL !=
  967.           (resource = IndexResource((char *)e,ENVIRONMENT,"sensitive"))) ||
  968.          (NULL !=
  969.           (resource = IndexResource((char *)e,ENVIRONMENT,"insensitive")))) {
  970.         while ( resource ) {
  971.              if ( !strcmp(resource->name,"sensitive") ) {
  972.                  EffectSensitivity(resource->val.cval,True);
  973.              }
  974.              if ( !strcmp(resource->name,"insensitive") ) {
  975.                  EffectSensitivity(resource->val.cval,False);
  976.              }
  977.              resource = resource->next;
  978.         }
  979.     }
  980. }
  981.  
  982. PopdownAll(e)
  983.     Environ *e;
  984. {
  985.     Shell *s = e->shells;
  986.  
  987.     while ( s ) {
  988.         if ( s->popup ) 
  989.             Popdown_Shell(s);
  990.         s = s->next;
  991.     }
  992.     
  993. }
  994.  
  995. Popup_Shell(s)
  996.     Shell *s;
  997. {
  998.     Resource *resource;
  999.  
  1000. /***************************************************************
  1001.  * If the shell is not in the current environment, then print
  1002.  * a warning and return.
  1003.  **************************************************************/
  1004.     if ( !ShellInCurrentEnviron(s) ) {
  1005.  
  1006.         sprintf(errorbuf,"shell [%s] not in current environment\n",s->name);
  1007.         XgenWarning("popup shell",errorbuf);
  1008.         return;
  1009.     }
  1010.  
  1011.     if ( (NULL != (resource = IndexResource((char *)s,SHELL,"set"))) ||
  1012.          (NULL != (resource = IndexResource((char *)s,SHELL,"runforeground"))) ||
  1013.          (NULL != (resource = IndexResource((char *)s,SHELL,"runbackground")))) {
  1014.         while ( resource ) {
  1015.             if ( !strcmp(resource->name,"set") )
  1016.                 DoSet((char *)s,resource,SHELL,NULL);
  1017.             if ( !strncmp(resource->name,"run",3) )
  1018.                 DoJob((char *)s,resource,SHELL);
  1019.  
  1020.             resource = resource->next;
  1021.         }
  1022.     }
  1023.  
  1024. /***************************************************************
  1025.  * If the widget doesn't exist create it.
  1026.  **************************************************************/
  1027.     if ( !s->widget ) {
  1028.         Create_Shell(s);
  1029. /***************************************************************
  1030.  * else destroy the old one and recreate it.
  1031.  **************************************************************/
  1032.     } else {
  1033.        Popdown_Shell(s);
  1034.        Create_Shell(s);
  1035.     }
  1036.  
  1037.  
  1038. /***************************************************************
  1039.  *  pop it up.
  1040.  **************************************************************/
  1041.     XtPopup(s->widget,XtGrabNone);
  1042.     s->popup = True;
  1043. /***************************************************************
  1044.  *  check for existance of a sensitivity command....
  1045.  **************************************************************/
  1046.     if ( (NULL !=
  1047.           (resource = IndexResource((char *)s,SHELL,"sensitive"))) ||
  1048.          (NULL !=
  1049.           (resource = IndexResource((char *)s,SHELL,"insensitive")))) {
  1050.         while ( resource ) {
  1051.              if ( !strcmp(resource->name,"sensitive") ) {
  1052.                  EffectSensitivity(resource->val.cval,True);
  1053.              }
  1054.              if ( !strcmp(resource->name,"insensitive") ) {
  1055.                  EffectSensitivity(resource->val.cval,False);
  1056.              }
  1057.              resource = resource->next;
  1058.         }
  1059.     }
  1060. }
  1061.  
  1062. Popdown_Shell(s)
  1063.     Shell *s;
  1064. {
  1065.     InterfaceObject *o = s->objects;
  1066.  
  1067.     if ( s->widget ) {
  1068.         XtPopdown(s->widget);
  1069.         XtDestroyWidget(s->widget);
  1070.         /***************************************************************
  1071.          * If any list or toggle objects are in this shell we must clean 
  1072.          * them up.
  1073.          **************************************************************/
  1074.         while ( o ) {
  1075.             switch ( o->type ) {
  1076.                 case LIST:
  1077.                     DeleteListInfo(o->name);
  1078.                     break;
  1079.                 case TOGGLE:
  1080.                     DeleteToggleInfo(o->name);
  1081.                     break;
  1082.             }
  1083.             o = o->next;
  1084.         }
  1085.     }
  1086.     s->popup = False;
  1087.     s->widget = (Widget)0;
  1088.     if ( s->dynObjects ) {
  1089.         FreeWidgetList(s->dynObjects);
  1090.     }
  1091.     s->dynObjects = (WidgetListElement *)0;
  1092. }
  1093.  
  1094. FreeWidgetList(wl)
  1095.     WidgetListElement * wl;
  1096. {
  1097.     if ( wl->next != NULL ) {
  1098.         FreeWidgetList(wl->next);
  1099.     }
  1100.     XtFree(wl);
  1101. }
  1102. @//E*O*F ./xgen/src/popup.c//
  1103. chmod u=rw,g=r,o=r ./xgen/src/popup.c
  1104.  
  1105. echo x - ./xgen/src/addnode.c
  1106. sed 's/^@//' > "./xgen/src/addnode.c" <<'@//E*O*F ./xgen/src/addnode.c//'
  1107. /**********************************************************************
  1108.    addnode.c    - add a node to Xgen's internal hierarchy
  1109.     
  1110.  *********************************************************************/
  1111. /*******************************************************************************
  1112. Xgen was developed by Kurt Buehler, while at the Center for Advanced Decision
  1113. Support for Water and Environmental Systems (CADSWES), University of Colorado
  1114. at Boulder and at the Indiana Water Resources Research Center (IWRRC),
  1115. Purdue University for the U.S. Army Construction Engineering Research
  1116. Laboratory in support of the Geographical Resources Analysis Support
  1117. System (GRASS) software. The example scripts were developed by Ms. Christine
  1118. Poulsen of USA-CERL, much thanks goes to her for her work.
  1119.  
  1120. Permission to use, copy, modify and distribute without charge this software,
  1121. documentation, etc. is granted, provided that this comment is retained,
  1122. and that the names of Kurt Buehler, Christine Poulsen, CADSWES, IWRRC,
  1123. the University of Colorado at Boulder, Purdue University, or USA-CERL are not
  1124. used in advertising or publicity pertaining to distribution of the software
  1125. without specific, written prior permission.
  1126.  
  1127. The author disclaims all warranties with regard to this software, including
  1128. all implied warranties of merchantability and fitness, in no event shall
  1129. the author be liable for any special, indirect or consequential damages or
  1130. any damages whatsoever resulting from loss of use, data or profits,
  1131. whether in an action of contract, negligence or other tortious action,
  1132. arising out of or in connection with the use or performance of this
  1133. software.
  1134. *******************************************************************************/
  1135. #include "xgen.h"
  1136.  
  1137. /***************************************************************
  1138.  * AddValue 
  1139.  * Add a value node to a resource node. Take into account
  1140.  * the type of value and assign to the proper union element.
  1141.  * If the resource is a variable, store it for later expansion.
  1142.  * Unless it is a run or set procedure.
  1143.  **************************************************************/
  1144. AddValue(rptr,value,rtype)
  1145.     Resource *rptr;
  1146.     char *value;
  1147.     int rtype;
  1148. {
  1149.     rptr->name = ResourceString(rtype);
  1150.     rptr->type = ResourceDataType(rtype);
  1151.     if ( rptr->type != STRING && IsVariable(value)) {
  1152.         rptr->variable = True;
  1153.         rptr->varValue = SaveString(value);
  1154.     } else {
  1155.         switch(rptr->type) {
  1156.             case STRING:
  1157.                /***************************************************************
  1158.                 * if the string has a variable and its not a set command
  1159.                 * or related in any way to running jobs, assign the value to
  1160.                 * the variable field, else assign the value straight to
  1161.                 * the resource.
  1162.                 **************************************************************/
  1163.                 if ( rptr->variable && (strncmp(rptr->name,"set",3) ||
  1164.                      strncmp(rptr->name,"run",3) || 
  1165.                      strcmp(rptr->name,"commandarg"))) 
  1166.                     rptr->varValue = value;
  1167.                 else
  1168.                     rptr->val.cval = value;
  1169.                 break;
  1170.             case REAL:
  1171.                 rptr->val.dval = strtod(value,(char **)NULL);
  1172.                 break;
  1173.             case INTEGER:
  1174.                 rptr->val.ival = atoi(value);
  1175.                 break;
  1176.             case BOOLEAN:
  1177.                 rptr->val.bval = 
  1178.                 (((!strcmp(value,"True")) ||
  1179.                   (!strcmp(value,"true")) ||
  1180.                   (!strcmp(value,"On"))   ||
  1181.                   (!strcmp(value,"on")))  ? True:False);
  1182.                 break;
  1183.         }
  1184.     }
  1185. }
  1186.  
  1187. /***************************************************************
  1188.  * AddResource 
  1189.  * Add a value resource to a node. This function will add a 
  1190.  * resource node to any node type.
  1191.  **************************************************************/
  1192. AddResource(rptr,cptr,type,value,rtype) 
  1193.     Resource *rptr;
  1194.     caddr_t cptr;
  1195.     int type;
  1196.     char *value;
  1197.     int rtype;
  1198. {
  1199.     Resource *p;
  1200.  
  1201.     switch(type) {
  1202.         case ENVIRONMENT:
  1203.             {
  1204.             Environ *ptr = (Environ *)cptr;
  1205.  
  1206.             if ( ptr->resources == (Resource *)0 ) {
  1207.                 ptr->resources = rptr;
  1208.                 AddValue(ptr->resources,value,rtype);
  1209.                 return;
  1210.             }
  1211.             p = ptr->resources;
  1212.             while( p->next != (Resource *)0 )
  1213.                 p = p->next;
  1214.             p->next = rptr;
  1215.             AddValue(p->next,value,rtype);
  1216.             }
  1217.             break;
  1218.         case SHELL:
  1219.             {
  1220.             Shell *ptr = (Shell *)cptr;
  1221.  
  1222.             if ( ptr->resources == (Resource *)0 ) {
  1223.                 ptr->resources = rptr;
  1224.                 AddValue(ptr->resources,value,rtype);
  1225.                 return;
  1226.             }
  1227.             p = ptr->resources;
  1228.             while( p->next != (Resource *)0 )
  1229.                 p = p->next;
  1230.             p->next = rptr;
  1231.             AddValue(p->next,value,rtype);
  1232.             }
  1233.             break;
  1234.         case OBJECT:
  1235.             {
  1236.             InterfaceObject *ptr = (InterfaceObject *)cptr;
  1237.  
  1238.             if ( ptr->resources == (Resource *)0 ) {
  1239.                 ptr->resources = rptr;
  1240.                 AddValue(ptr->resources,value,rtype);
  1241.                 return;
  1242.             }
  1243.             p = ptr->resources;
  1244.             while( p->next != (Resource *)0 )
  1245.                 p = p->next;
  1246.             p->next = rptr;
  1247.             AddValue(p->next,value,rtype);
  1248.             }
  1249.             break;
  1250.         default:
  1251.             XgenFatalError("AddResource","invalid resource type");
  1252.     }
  1253. }
  1254.  
  1255. /***************************************************************
  1256.  * AddObject 
  1257.  * Add an object node to a shell node.
  1258.  **************************************************************/
  1259. AddObject(optr,sptr) 
  1260.     InterfaceObject *optr;
  1261.     Shell *sptr;
  1262. {
  1263.     InterfaceObject *p;
  1264.  
  1265.     if ( sptr->objects == (InterfaceObject *)0 ) {
  1266.         sptr->objects = optr;
  1267.         return;
  1268.     }
  1269.     p = sptr->objects;
  1270.     while( p->next != (InterfaceObject *)0 )
  1271.         p = p->next;
  1272.     p->next = optr;
  1273. }
  1274.  
  1275. /***************************************************************
  1276.  * AddPulldownObject 
  1277.  * Add an object node to a pulldown object node.
  1278.  **************************************************************/
  1279. AddPulldownObject(optr,pptr) 
  1280.     InterfaceObject *optr;
  1281.     InterfaceObject *pptr;
  1282. {
  1283.     InterfaceObject *p;
  1284.  
  1285.     if ( pptr->objects == (InterfaceObject *)0 ) {
  1286.         pptr->objects = optr;
  1287.         return;
  1288.     }
  1289.     p = pptr->objects;
  1290.     while( p->next != (InterfaceObject *)0 )
  1291.         p = p->next;
  1292.     p->next = optr;
  1293. }
  1294.  
  1295. /***************************************************************
  1296.  * AddShell 
  1297.  * Add an shell node to a environment node.
  1298.  **************************************************************/
  1299. AddShell(sptr,eptr)
  1300.     Shell *sptr;
  1301.     Environ *eptr;
  1302. {
  1303.     Shell *p;
  1304.  
  1305.     if ( eptr->shells == (Shell *)0 ) {
  1306.         eptr->shells = sptr;
  1307.         return;
  1308.     }
  1309.     p = eptr->shells;
  1310.     while( p->next != (Shell *)0 )
  1311.         p = p->next;
  1312.     p->next = sptr;
  1313. }
  1314.  
  1315. /***************************************************************
  1316.  * AddEnviron 
  1317.  * Add an environment node to the global list.
  1318.  **************************************************************/
  1319. AddEnviron(eptr) 
  1320.     Environ *eptr;
  1321. {
  1322.     Environ *p; 
  1323.  
  1324.     if ( xgenGD.toplevelEnv == (Environ *)0 ) {
  1325.         xgenGD.toplevelEnv = eptr;
  1326.         return;
  1327.     }
  1328.     p = xgenGD.toplevelEnv;
  1329.     while( p->next != (Environ *)0 )
  1330.         p = p->next;
  1331.     p->next = eptr;
  1332. }
  1333. @//E*O*F ./xgen/src/addnode.c//
  1334. chmod u=rw,g=r,o=r ./xgen/src/addnode.c
  1335.  
  1336. echo Inspecting for damage in transit...
  1337. temp=/tmp/shar$$; dtemp=/tmp/.shar$$
  1338. trap "rm -f $temp $dtemp; exit" 0 1 2 3 15
  1339. cat > $temp <<\!!!
  1340.      160     628    5503 procmess.c
  1341.      120     530    6052 resource.h
  1342.      135     521    5459 sensitive.c
  1343.      220     586    6987 control.c
  1344.      218     716    7040 docapture.c
  1345.      197     643    6853 popup.c
  1346.      226     756    7433 addnode.c
  1347.     1276    4380   45327 total
  1348. !!!
  1349. wc  ./xgen/src/procmess.c ./xgen/src/resource.h ./xgen/src/sensitive.c ./xgen/src/control.c ./xgen/src/docapture.c ./xgen/src/popup.c ./xgen/src/addnode.c | sed 's=[^ ]*/==' | diff -b $temp - >$dtemp
  1350. if [ -s $dtemp ]
  1351. then echo "Ouch [diff of wc output]:" ; cat $dtemp
  1352. else echo "No problems found."
  1353. fi
  1354. exit 0
  1355.  
  1356. --
  1357. Dan Heller
  1358. Z-Code Software    O'Reilly && Associates       Comp-sources-x:
  1359. President          Senior Writer                comp-sources-x@uunet.uu.net
  1360. argv@z-code.com    argv@ora.com                 [^^^  this address only!]
  1361.