home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume05 / 3b1tools next >
Encoding:
Internet Message Format  |  1991-08-27  |  41.8 KB
  1. From decwrl!labrea!rutgers!ukma!cwjcc!hal!ncoast!allbery Mon Nov  7 19:23:29 PST 1988
  2. Article 709 of comp.sources.misc:
  3. Path: granite!decwrl!labrea!rutgers!ukma!cwjcc!hal!ncoast!allbery
  4. From: benten@tigger.UUCP (Muhammad S. Benten)
  5. Newsgroups: comp.sources.misc
  6. Subject: v05i033: 3b1tools - windows and icons management for the Unix-pc
  7. Message-ID: <4418@boulder.Colorado.EDU>
  8. Date: 6 Nov 88 20:32:23 GMT
  9. Sender: allbery@ncoast.UUCP
  10. Reply-To: benten@tigger.UUCP (Muhammad S. Benten)
  11. Organization: University of Colorado, Boulder
  12. Lines: 1518
  13. Approved: allbery@ncoast.UUCP
  14.  
  15. Posting-number: Volume 5, Issue 33
  16. Submitted-by: "Muhammad S. Benten" <benten@tigger.UUCP>
  17. Archive-name: 3b1tools
  18.  
  19. [Aside from some wishful thinking wrt. process stopping via ptrace (BSD,
  20. anyone? ;-) it almost makes me wish I hadn't sold the 3B1....  ++bsa]
  21.  
  22.             This posting contains the sources for a tool for the
  23. AT&T Unix-pc.  It is called "3b1tools". It will allow Unix-pc users  
  24. to do less! than what Sun users do with suntools.   Thanks.
  25.  
  26.  
  27.    ============================================================================ 
  28.    || Muhammad S. Benten                                                      |
  29.    || Elect. & Comp. Eng. Dept.                                               |
  30.    || University of Colorado, Boulder                                         |
  31.    ||                                                                         |
  32.    || email   ---->      benten@boulder.Colorado.EDU                          |
  33.    ||        or        ..{ncar|nbires}!boulder!benten                         |
  34.    ============================================================================ 
  35.  
  36.  
  37. ----------------------------Cut here----------------------------------------
  38. #! /bin/sh
  39. #
  40. # Wrapped by tigger!benten on Tue Nov  1 14:07:53 MST 1988
  41. #
  42. # This is a shell archive, meaning:
  43. # 1. Remove everything above the #! /bin/sh line.
  44. # 2. Save the resulting text in a file.
  45. # 3. Execute the file with /bin/sh (not csh) to create the files:
  46. #
  47. # Contents:  3b1tools.c 3b1tools.doc 3b1tools.h Makefile README nkbd.c.patch
  48. # picture.c tools.c
  49.  
  50. echo x - 3b1tools.c
  51. sed 's/^@//' > "3b1tools.c" <<'@//E*O*F 3b1tools.c//'
  52. /* 3b1tools.c - This file parses the command argument and performs
  53. **              all "windy" related processing. It will then call
  54. **              the icon handler.
  55. **
  56. ** Copyright (C) 1988 by Muhammad S. Benten.
  57. **                       benten@boulder.colorado.edu
  58. **
  59. **
  60. ** Permission to use, copy, modify, and distribute this software and its
  61. ** documentation for any purpose and without fee is hereby granted, provided
  62. ** that the above copyright notice appear in all copies and that both that
  63. ** copyright notice and this permission notice appear in supporting
  64. ** documentation.  This software is provided "as is" without express or
  65. ** implied warranty.
  66. **
  67. **
  68. **    A major portion of this file is extracted from the program windy
  69. **    which is available from "The STORE" with its sources.
  70. **    It will preserve most of windy's arguments.
  71. */
  72. #include "3b1tools.h"
  73. #define        NA      0xffff
  74.  
  75. struct uwdata xuw = {
  76.        NA, NA, NA, NA, NA};
  77. struct utdata xut[WTXTNUM];
  78. int bflag = 0;
  79. int Kflag = 0;
  80. char blot[81];
  81. char *ttyname();
  82. char * filenam;
  83. extern struct termio argg;
  84. extern char *optarg;
  85. extern int optind;
  86.  
  87. main(ac,av)
  88. int ac;
  89. char **av;
  90. {
  91.        int nflag = 0;
  92.        char avname[256];
  93.        char *env,cavname[256];
  94.        int i, c,rows,cols,pid;
  95.        FILE * ifd;
  96.        ioctl(Wn,TCGETA,&argg);
  97.        cols = 0;
  98.        rows = 0;
  99.        maxw = 672;
  100.        maxh = 288;
  101.        invert = 0;
  102.        iconopen = 0;
  103.        transpose = 0;
  104.  
  105.        if ( ac == 1 ) { /* no argument, get commands */
  106.           strcat(avname,".3b1tool");
  107.           if ( (ifd = fopen( avname, "r" )) != NULL) {
  108.                   startup(ifd,av);
  109.                   exit(0);} else {
  110.           strcpy(avname,getenv("HOME"));
  111.           strcat(avname,"/.3b1tool");
  112.           if ( (ifd = fopen( avname, "r" )) != NULL) {
  113.                   startup(ifd,av);
  114.                   exit(0);}
  115.         else {
  116.            printf("3b1tools: File .3b1tool doesn't exist\n3b1tools: Use 3b1tools -S for full screen shell\n");
  117.            exit(1);
  118.        }}}
  119.  
  120.        else {
  121.        ifd = (FILE *) -1;
  122.        while((c = getopt(ac, av, "robSRTp:c:l:u:1:2:n:f:h:w:x:y:K:X:Y:I:W:H:")) != EOF) {
  123.                switch(c) {
  124.                case 'b':{
  125.                        bflag++;
  126.                        break;}
  127.                case 'h':{
  128.                        xuw.uw_height = atoi(optarg);
  129.                     break;}
  130.                case 'w':{
  131.                        xuw.uw_width = atoi(optarg);
  132.                        break;}
  133.                case 'x':{
  134.                        xuw.uw_x = atoi(optarg);
  135.                        break;}
  136.                case 'y':{
  137.                        xuw.uw_y = atoi(optarg);
  138.                        break;}
  139.                case 'f':{
  140.                        xuw.uw_uflags = htoi(optarg);
  141.                        xuw.uw_uflags &= ~NOSETUFLAGS;
  142.                        break;}
  143.                case 'p':
  144.                        utset(WTXTPROMPT, optarg);{
  145.                        break;}
  146.                case 'c':{
  147.                        utset(WTXTCMD, optarg);
  148.                        break;}
  149.                case 'l':{
  150.                        utset(WTXTLABEL, optarg);
  151.                        break;}
  152.                case 'n':
  153.                case 'u':{
  154.                        nflag = 1;
  155.                        utset(WTXTUSER, optarg);
  156.                        break;}
  157.                case '1':{
  158.                        utset(WTXTSLK1, optarg);
  159.                        break;}
  160.                case '2':{
  161.                        utset(WTXTSLK2, optarg);
  162.                        break;}
  163.                case '?':{
  164.                        fprintf(stderr, "usage: 3b1tools [args] [command-args]\n");
  165.                        exit(2);}
  166.                case 'K':{
  167.                        strncpy(blot, optarg, 80);
  168.                        Kflag ++;
  169.                        break;}
  170.  
  171.                case 'I': {  /*  image file name */
  172.                          if ( optarg[0] == '-' ) {
  173.                             ifd = stdin;}
  174.                          else {
  175.                          ifd = fopen( optarg, "r" );
  176.                          if ( ifd == NULL )
  177.                      {
  178.                          fprintf( stderr, "Image %s: can't open.\n", optarg);
  179.                          exit( 1 ); }
  180.                              filenam = optarg;}
  181.                              break;}
  182.                 case 'W': { /* overwrite image height */
  183.                           cols = atoi(optarg);
  184.                           break;}
  185.                 case 'H': { /* overwrite image width */
  186.                           rows = atoi(optarg);
  187.                           break;}
  188.                 case 'X': { /* icon width */
  189.                           maxw = atoi(optarg);
  190.                           if (maxw > 672 )
  191.                              maxw = 672;
  192.                           break;}
  193.                  case 'Y': { /* icon height */
  194.                            maxh = atoi(optarg);
  195.                            if (maxh > 288 )
  196.                               maxh = 288;
  197.                            break;}
  198.                  case 'R': { /* reverse image */
  199.                            invert++;
  200.                            break;}
  201.                  case 'o': { /* start with an open window */
  202.                            iconopen++;
  203.                            break;}
  204.                  case 'r': { /* start with an open window */
  205.                            normal++;
  206.                            break;}
  207.                   case 'S':{
  208.                            xuw.uw_x = 0;
  209.                            xuw.uw_y = 12;
  210.                            xuw.uw_width = 720;
  211.                            xuw.uw_height = 288;
  212.                            xuw.uw_uflags = 0x1;
  213.                            break;}
  214.                  case 'T': { /* transpoe icon */
  215.                            transpose++;
  216.                            break;}}
  217.  
  218.        }}
  219.        /*
  220.         * if gave command args, put it in a new window
  221.         * if gave window args, or no args at all, change window params
  222.         */
  223.        if(optind < ac) {
  224.                if( bflag)
  225.                   newwind();
  226.                avname[0] = 0;
  227.                for(i=optind; i<ac; i++) {
  228.                        strcat(avname, av[i]);
  229.                        strcat(avname, " ");
  230.                }
  231.                if( bflag)
  232.                  if(!nflag)
  233.                        utset(WTXTUSER, avname);
  234.        }
  235.        fixwind();
  236.                
  237.                if(bflag) {
  238.                        pid = fork();
  239.                        if(pid > 0)
  240.                                exit(1);
  241.                        else if(pid == 0) {
  242.                                setpgrp();
  243.                                ioctl(0, WIOCPGRP);
  244.                        }
  245.                }
  246.                icon_exec(av,rows,cols,ifd);
  247.        exit(0);
  248. }
  249. utset(n, s)
  250. char *s;
  251. {
  252.        xut[n].ut_num = 1;
  253.        strncpy(xut[n].ut_text, s, WTXTLEN);
  254. }
  255. newwind() {
  256.        char name[10];
  257.        struct termio t;
  258.        int bad = 0, i, fd;
  259.  
  260.        if (!isatty(0)) return;
  261.        if(strncmp("/dev/w", ttyname(0), 6)!=0 ) return;
  262.  
  263.        if (ioctl(0, TCGETA, &t) < 0) {
  264.                perror("getting tty chars");
  265.                bad = 1;
  266.        }
  267.        fd = open("/dev/window",2);
  268.        if (fd < 0) {
  269.                perror("opening window");
  270.                return;
  271.        }
  272.        if(bflag) {
  273.                ioctl(fd, WIOCSELECT);
  274.                sprintf(name, "[w%d]\n", ioctl(fd, WIOCGCURR));
  275.                write(0, name, strlen(name));
  276.        }
  277.  
  278.        close(0);
  279.        dup(fd);
  280.        close(1);
  281.        dup(fd);
  282.        close(2);
  283.        dup(fd);
  284.        close(fd);
  285.        /* Set in the previous edit characters to the new window */
  286.        if (!bad && ioctl(0, TCSETAF, &t) < 0)
  287.                perror("setting tty chars");
  288.        for (i=0; environ[i]; ++i) {
  289.                if (!strncmp(environ[i],"TERMCAP=",8)) {
  290.                        environ[i] = "TERMCAP=/etc/termcap";
  291.                }
  292.                if (!strncmp(environ[i],"TERM=",5)) {
  293.                        environ[i] = "TERM=s4";
  294.                }
  295.        }
  296. }
  297. fixwind() {
  298.        struct uwdata uw;
  299.        int i;
  300.  
  301.        if(Kflag) {
  302.                xut[WTXTSLK1].ut_num = WTXTSLK1;
  303.                xut[WTXTSLK2].ut_num = WTXTSLK2;
  304.                keyfix(xut[WTXTSLK1].ut_text);
  305.                keyfix(xut[WTXTSLK2].ut_text);
  306.        }
  307.        for(i=0; i<WTXTNUM; i++) {
  308.                if(xut[i].ut_num) {
  309.                        xut[i].ut_num = i;
  310.                        ioctl(0, WIOCSETTEXT, &xut[i]);
  311.                }
  312.        }
  313.        ioctl(0, WIOCGETD, &uw);
  314.        if(xuw.uw_x != NA) {uw.uw_x = xuw.uw_x;new_wind++;}
  315.        if(xuw.uw_y != NA) {uw.uw_y = xuw.uw_y;new_wind++;}
  316.        if(xuw.uw_width != NA) {uw.uw_width = xuw.uw_width;new_wind++;}
  317.        if(xuw.uw_height != NA) {uw.uw_height = xuw.uw_height;new_wind++;}
  318.        if(xuw.uw_uflags != NA) {uw.uw_uflags = xuw.uw_uflags;new_wind++;}
  319.        ioctl(0, WIOCSETD, &uw);
  320. }
  321. keyfix(s)
  322. char *s;
  323. {
  324.        int c, i;
  325.  
  326.        for(i=0; i<80; i++) {
  327.                c = s[i] & 0177;
  328.                if(c == 0) c = ' ';
  329.                switch(blot[i]) {
  330.                case ' ':
  331.                case 0:
  332.                        c = ' ';
  333.                        break;
  334.                case 'r':
  335.                case 'R':
  336.                        c |= 0200;
  337.                        break;
  338.                }
  339.                s[i] = c;
  340.        }
  341. }
  342. char *utname[] = {
  343.        "Prompt line",
  344.        "Command line",
  345.        "Label",
  346.        "User",
  347.        "SLK1",
  348.        "SLK2",
  349. };
  350. report(s)
  351. char *s;
  352. {
  353.        struct uwdata uw;
  354.        struct utdata ut;
  355.        int i;
  356.  
  357.        printf("%s:  ", s);
  358.        ioctl(0, WIOCGETD, &uw);
  359.        uwshow(&uw, (char *)0);
  360.  
  361.        for(i=0; i<WTXTNUM; i++) {
  362.                ut.ut_num = i;
  363.                ioctl(0, WIOCGETTEXT, &ut);
  364.                if(ut.ut_text[0]) {
  365.                        printf("%s=<%.81s>\n", utname[i], ut.ut_text);
  366.                }
  367.        }
  368. }
  369. uwshow(p, s)
  370. struct uwdata *p;
  371. char *s;
  372. {
  373.        printf("(x,y)=(%d,%d)  ", p->uw_x, p->uw_y);
  374.        printf("(width,height)=(%d,%d)  ", p->uw_width, p->uw_height);
  375.        printf("flags=%x\n  ", p->uw_uflags);
  376.        printf("(hs,vs)=(%d, %d)[RO]  ", p->uw_hs, p->uw_vs);
  377.        printf("baseline=%d[RO]  ", p->uw_baseline);
  378.        printf("(cx,cy)=(%d, %d)[RO]\n", p->uw_cx, p->uw_cy);
  379. }
  380. htoi(s)
  381. char *s;
  382. {
  383.        int x = NA;
  384.  
  385.        sscanf(s, "%x", &x);
  386.        return x;
  387. }
  388.  
  389.  
  390. startup(ifi,argv)
  391. int ifi;
  392. char *argv;
  393. {
  394.    char cavname[256],avname[256],*sy;
  395.  
  396.    while ( fgets(avname,256,ifi) != 0 ) {
  397.       cavname[0] =0;
  398.       strcat(cavname,avname);
  399.       sy = (char *) strtok(avname," ");
  400.       if ( sy[0] != 0 )
  401.       if ( strncmp(sy,"3b1tools",5)  !=0 ) {
  402.       avname[0] =0;
  403.       strcat(avname,cavname);
  404.       strcpy(cavname , "3b1tools -b "); 
  405.       strcat(cavname,avname);
  406.       system(cavname);} else{
  407.       printf("3b1tools: error in .3b1tool file\n");
  408.       printf("3b1tools: in %s\n",avname);
  409.       printf("3b1tools: only arguments to 3b1tools are specified\n");}}
  410.    close(ifi);
  411. }
  412. @//E*O*F 3b1tools.c//
  413. chmod u=rw,g=r,o=r 3b1tools.c
  414.  
  415. echo x - 3b1tools.doc
  416. sed 's/^@//' > "3b1tools.doc" <<'@//E*O*F 3b1tools.doc//'
  417.  
  418.  
  419.  
  420.  
  421. 3b1tools                     1                         draft
  422.  
  423.  
  424. Name:   3b1tools -  A Unix-pc windowing environment and image
  425.                      display tool.
  426.                      Copyright (c) 1988 by Muhammad S. Benten.
  427.  
  428. Author: Muhammad S. Benten
  429.         University Of Colorado
  430.         Electrical & Computer Engineering
  431.         Boulder, Co 80309
  432.  
  433. Usage:  3b1tools [-b] [-S] [-o] [-I <icon>]  [-R] [-T] [-X nnn] [-Y nnn]
  434.                 [-H nnn]  [-W nnn] [-x nnn] [-y nnn] [-h nnn] [-w nnn]
  435.                 [-n <string>]  [-1 <string>] [-2 <string>] [-p <string>]
  436.                 [-c <string>]  [-f <hex>]  [-l <string>]  [-K <string>]
  437.                 [ <command> [ <arguments>]]
  438.  
  439. Description:
  440.          3b1tools is a general purpose windowing program designed
  441.          to utilize the capabilities of the Unix-pc. It replaces the
  442.          functionality of the program "windy", and can also be used as
  443.          a general purpose image and icon display tool. The borders of 
  444.          a displayed icon, can be toggled on/off by the middle mouse button,
  445.          B2. It can also be toggled by the function keys F2 or F7. You
  446.          can open an icon by using the left mouse button B1, or using
  447.          the functions keys F1 or F6. To exit and destroy an icon, you
  448.          can use the right mouse button B3, or the function keys, F3 or F8.
  449.          A confirmation will be requested when you destry an icon.
  450.          Icons displayed using 3b1tools can be scrolled up, down,
  451.          left and right using the scroll indicators on the icon borders.
  452.          The size of the icon can also be controlled by the user through
  453.          the -X and -Y options .  A closed icon is either idle
  454.          or stopped.  A stopped icon can be resumed by the function key
  455.          F1 in which case the screen would be restored and execution of
  456.          the stopped command continues.  Opening an idle icon would
  457.          restore the screen to its last state before the icon was
  458.          either created or closed and the execution of the command
  459.          argument is attempted.  This execution can be stopped at any
  460.          point by the stop key ( CTRL-Z ). In this case the execution
  461.          of the command would stop and the icon will close in a stopped
  462.          state.
  463.          
  464.  
  465.          There are five modes of operation in 3b1tools which can be specified 
  466.          by the options used to invoke 3b1tools.  These modes are:
  467.  
  468.  
  469.      mode-1:  no command argument and no -b option
  470.  
  471.          In this mode, 3b1tools will close the invoking window saving
  472.          its contents and display an icon as specified by the  -I
  473.          option. It will display a default icon if no icon is specfied.
  474.          Note that the -S option must be specified if no argument is
  475.          given to 3b1tools.
  476.          Example:
  477.  
  478.                  3b1tools  -I girls
  479.  
  480.  
  481.      mode-2:  no -b option but a command and its arguments are supplied
  482.  
  483.          In this mode, 3b1tools will close the invoking window saving
  484.          its contents and display an icon as specified by the  -I option.
  485.          It will display a default icon if no icon is specfied. Upon
  486.          exiting the executing command, the window will be closed and
  487.          the icon is displayed again. You can also start with an open
  488.          window executing the command argument by specifying the -o
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499. 3b1tools                     2                         draft
  500.  
  501.  
  502.          option which will be iconified when the command terminates.
  503.          Example:
  504.  
  505.                  3b1tools  -I office  ua
  506.  
  507.  
  508.      mode-3:  no command argument and a -b option
  509.  
  510.          This is similar to mode-1, except that the original window
  511.          is left intact and the icon is displayed in a new window.
  512.          Example:
  513.  
  514.                  3b1tools -b -I girls
  515.  
  516.  
  517.      mode-4:  with a command argument and a -b option
  518.  
  519.          This is similar to mode-2, except that the original window
  520.          is left intact and the icon and its execution window will
  521.          occupy a new window.
  522.          Example:
  523.  
  524.                  3b1tools -b -I moon vi
  525.  
  526.  
  527.      mode-5: no arguments at all.
  528.  
  529.          In this mode, 3b1tools will search for the file ./.3b1tool.
  530.          If this file doesn't exist it searches for the file $HOME/3b1tool.
  531.          If this file is not found 3b1tools will terminate with an error
  532.          message.  In this mode, 3b1tools expects the lines of either
  533.          of these files to conain arguments for 3b1tools that will
  534.          be executed with the -b option.
  535.          Example:
  536.  
  537.            command:  3b1tools
  538.  
  539.            The file .3b1tool contain:
  540.  
  541.                      -I horse ls -l
  542.                      -I dog   ua
  543.  
  544. options:
  545.  
  546.    -b
  547.          dettach the new icon-window from the parent process.
  548.          3b1tools will create a new window.
  549.  
  550.    -S
  551.          This flag is usefull only if it is the only argument
  552.          to 3b1tools. It will  expand the current window into full screen
  553.          without executing commands from ~/.3b1tool or .3b1tool.
  554.  
  555.  
  556.  
  557.  
  558.  
  559.  
  560.  
  561.  
  562.  
  563.  
  564.  
  565. 3b1tools                     3                         draft
  566.  
  567.  
  568.    -o
  569.          This option will instruct 3b1tools to start with an opened
  570.          window. 3b1tools will default to a closed window (iconified).
  571.  
  572.    -I  <icon>
  573.          Use the file <icon> as the image file for the icon when
  574.          the window is closed.a If <icon> is in a cbm (compact
  575.          bitmap) format, height and width are taken from the file,
  576.          if it isn't, they must be specified by the -H -W option.
  577.  
  578.    -R
  579.          Reverse the bits in the displayed icon.
  580.  
  581.    -T
  582.          Transpose the image of the icon. (not implemented).
  583.  
  584.    -X  nnn
  585.          Let the displayed width of the icon be nnn.
  586.  
  587.    -Y  nnn
  588.          Let the displayed height of the icon window be nnn.
  589.  
  590.    -W  nnn
  591.          Override the picture pixcell width to be nnn.
  592.  
  593.    -H  nnn
  594.          Override the picture pixcell height to be nnn.
  595.  
  596.    -w  nnn
  597.          Let the displayed width of the execution window be nnn.
  598.  
  599.    -h  nnn
  600.          Let the displayed height of the execution window window be nnn.
  601.  
  602.    -x  nnn
  603.          Position the icon and its execution window at x=nnn
  604.  
  605.    -y  nnn
  606.          Position the icon and its execution window at y=nnn
  607.  
  608.    -n  <string>
  609.          Use <string> as the name of the window as displayed
  610.          by the window manager.
  611.  
  612.    -l  <string>
  613.          Use <string> as the window label.
  614.  
  615.    -1  <string>
  616.          Use <string> as the string that will appear in the first
  617.          line of the function keys lables.
  618.  
  619.    -2  <string>
  620.          Use <string> as the string that will appear in the second
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631. 3b1tools                     4                         draft
  632.  
  633.  
  634.          line of the function keys lables.
  635.  
  636.    -K  <string>
  637.          Use <string> as the pattern for the function keys lables.
  638.          An "r" in <string> means reverse vedio at that position.
  639.  
  640.    -c  <string>
  641.          Display <string> in the command line.
  642.  
  643.    -p  <string>
  644.          Display <string> in the prompt line.
  645.  
  646.    -f  <hex>
  647.          Use <hex> as the flag that control the shape of the
  648.          execution window.
  649.  
  650.  
  651.    command [<arguments>]
  652.          Any unix command and its arguments that will be executed
  653.          when the icon is opened.
  654. @//E*O*F 3b1tools.doc//
  655. chmod u=rw,g=r,o=r 3b1tools.doc
  656.  
  657. echo x - 3b1tools.h
  658. sed 's/^@//' > "3b1tools.h" <<'@//E*O*F 3b1tools.h//'
  659. #include <termio.h>
  660. #include <sys/window.h>
  661. #include <stdio.h>
  662.  
  663. extern int maxw,maxh;
  664. extern int invert;
  665. extern int transpose;
  666. extern int iconopen;
  667. extern int normal;
  668. extern int new_wind;
  669. extern int Wn;
  670. extern char **environ;
  671. @//E*O*F 3b1tools.h//
  672. chmod u=rw,g=r,o=r 3b1tools.h
  673.  
  674. echo x - Makefile
  675. sed 's/^@//' > "Makefile" <<'@//E*O*F Makefile//'
  676.  
  677. MAKEINC=/usr/include
  678. include $(MAKEINC)/Makepre.h
  679.  
  680.  
  681. OBJ=tools.o picture.o 3b1tools.o 
  682.  
  683. all: $(OBJ)
  684.     $(LD) $(LDFLAGS) $(SHAREDLIB) $(OBJ) $(LIBM) -o 3b1tools  
  685.  
  686.  
  687. include $(MAKEINC)/Makepost.h
  688.  
  689.  
  690.  
  691. @//E*O*F Makefile//
  692. chmod u=rw,g=rw,o=rw Makefile
  693.  
  694. echo x - README
  695. sed 's/^@//' > "README" <<'@//E*O*F README//'
  696.  
  697.  
  698. /* 3b1tools
  699. **
  700. **
  701. **
  702. ** Copyright (C) 1988 by Muhammad S. Benten.
  703. **                       benten@boulder.colorado.edu
  704. **
  705. **
  706. ** Permission to use, copy, modify, and distribute this software and its
  707. ** documentation for any purpose and without fee is hereby granted, provided
  708. ** that the above copyright notice appear in all copies and that both that
  709. ** copyright notice and this permission notice appear in supporting
  710. ** documentation.  This software is provided "as is" without express or
  711. ** implied warranty.
  712. **
  713. **
  714. ** 
  715. **
  716. */
  717.  
  718. This program was originally written to display AT&T demo graphics on 
  719. the Unix-pc.  It was later on modified to display Compact BitMap (CBM)
  720. files, which opened the machine to a huge number of icon editors and
  721. raytracers.  The program close.c triggered the idea of closing windows
  722. to a graphical icon.  This idea was then modified to start with this
  723. program that can be opened to an executing window. It used to be invoked
  724. with "windy" for the purpose of detaching it from the invoking shell.
  725. With the availability of windy's sources I couldn't resist incorporating
  726. the whole shpang as a single tool that I called "pctools". Due to
  727. a name conflict, this was then renamed "3b1tools".  The posting of
  728. the executable of this program provided me with great suggestions
  729. about the user interface and the choice of interaction keys.  With
  730. some head knocking I decided to search for a way to suspend windows.
  731. I then wrote my own primitive keyboard device driver, which I then
  732. realized that it will interfere with both CAPSCTRL loadable
  733. device driver and the "keyfix" programs.  I then though of using
  734. Ditto's kbd driver with minimal changes to support the interception
  735. of the suspend key and passing it to 3b1tools.
  736.  
  737. The program as it stands now works fine and does most of what
  738. Sun's  suntools (c)  does.  However, some minor problems may
  739. result from the way processes are suspended. This program suspends
  740. processes executing in 3b1tools windows in a trace mode (ptrace(2)).
  741. These processes when resumed will report their status to their
  742. parents through the wait(2) call.  Thus, parent processes that
  743. call wait(2) and only check for signals wakeup otherwise they
  744. assume the child is dead will be executing with their children
  745. when the child is resumed.  In this situation both the parent
  746. and its child will be competing for the keybord input.  If the
  747. child wins this should present no problem, however, if the
  748. parent wins you may want to do something about.
  749.  
  750.  
  751. Enjoy using this tool and I'll try to respond to questions and
  752. bug reports. I also would like to hear about any modifications
  753. or enhancement to 3b1tools.  It was my baby, but it has grown
  754. enough to fight its way by itself.
  755.  
  756. You will need -=> Ford <=- CAPCTRL sources to be able to use the
  757. suspension feature of 3b1tools.  The patches to the file nkbd.c
  758. are included in the file nkbd.c.patch.
  759.  
  760. ** Copyright (C) 1988 by Muhammad S. Benten.
  761. **                       benten@boulder.colorado.edu
  762. **
  763. **
  764. ** Permission to use, copy, modify, and distribute this software and its
  765. ** documentation for any purpose and without fee is hereby granted, provided
  766. ** that the above copyright notice appear in all copies and that both that
  767. ** copyright notice and this permission notice appear in supporting
  768. ** documentation.  This software is provided "as is" without express or
  769. ** implied warranty.
  770. @//E*O*F README//
  771. chmod u=rw,g=r,o=r README
  772.  
  773. echo x - nkbd.c.patch
  774. sed 's/^@//' > "nkbd.c.patch" <<'@//E*O*F nkbd.c.patch//'
  775. 78a79
  776. > 
  777. 516,524d516
  778. < 
  779. <    /* changes required for 3b1tools */ 
  780. <     if (  tp->t_cc[7] == 253 ) 
  781. <        if  (  ch == 26 ) {
  782. <           tp->t_cc[7] = 254;
  783. <           return;
  784. <     }
  785. <    /* end changes required for 3b1tools */ 
  786. < 
  787. @//E*O*F nkbd.c.patch//
  788. chmod u=rw,g=r,o=r nkbd.c.patch
  789.  
  790. echo x - picture.c
  791. sed 's/^@//' > "picture.c" <<'@//E*O*F picture.c//'
  792. /* picture.c - reads a compact bitmap and converts it into the Unix-pc
  793. **             format.
  794. **
  795. ** Copyright (C) 1988 by Muhammad S. Benten.
  796. **                       benten@boulder.colorado.edu
  797. **
  798. **
  799. ** Permission to use, copy, modify, and distribute this software and its
  800. ** documentation for any purpose and without fee is hereby granted, provided
  801. ** that the above copyright notice appear in all copies and that both that
  802. ** copyright notice and this permission notice appear in supporting
  803. ** documentation.  This software is provided "as is" without express or
  804. ** implied warranty.
  805. */
  806.  
  807. #include <stdio.h>
  808.  
  809. /* default icon */
  810.  
  811. short deflt[]={
  812. -1, -1, 1, -32768, -63, -30721, 1729, -27136, 193, -27136, 193,
  813. -27136, 193, -27136, 193, -27136, 193, -27136, 193, -27136, 193,
  814. -27136, 193, -29184, -159, -29185, -127, -30721, 16385, -32760,
  815. 32705, -24592, -31, -24577, -31, -28673, -31, -28673, 1, -32768, 1,
  816. -32768, 1, -32768, 1, -32768, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
  817. -1, -1, -1, -1
  818. };
  819.  
  820. extern char * filenam;
  821.  
  822. extern int transpose;
  823.  
  824. icon_exec(comm,rows,cols,ifd)
  825. char **comm;
  826. FILE *ifd;
  827. int rows, cols;
  828.     {
  829.     char engl[256];
  830.     char *bits;
  831.     char tst,cbm;
  832.     int i,index1, row, col,byte1,cols1,rows1;
  833.  
  834.     /*
  835.       Was there an icon file specified?
  836.     */
  837.  
  838.     if (ifd != ((FILE *) -1) ) {
  839.  
  840.     /*
  841.       Oh, yeh!  Is it a Compact BitMap?
  842.     */
  843.  
  844.  
  845.     if ( (tst = getc( ifd ) ) == 42 ){
  846.       if ( getc( ifd ) == 23 )
  847.     {
  848.           cbm = 1;
  849.           cols1 = getc( ifd ) << 8;
  850.           cols1 += getc( ifd );
  851.           rows1 = getc( ifd ) << 8;
  852.           rows1 += getc( ifd );
  853.           if (cols == 0)
  854.              cols = cols1;
  855.           if (rows == 0)
  856.              rows = rows1;
  857.           cols = cols /8;
  858.         }}  
  859.         else
  860.  
  861.     /*
  862.       Or is it Unix-pc  raw BitMap?
  863.     */
  864.  
  865.         {
  866.           cbm = 0;
  867.           if ( ( rows == 0) || (cols == 0)){
  868.              printf("3b1tools: You must specify width and height. This is a raw icon!");
  869.              exit(1);}
  870.           cols = cols/8;
  871.         }
  872.         rows = (rows/8)*8;
  873.  
  874.         bits = (char *) malloc(cols*rows) ;
  875.  
  876.         for (col = 0; col <= cols ; col++)
  877.           for(row = 0; row < rows ; row += 2)
  878.  
  879.         /* handle CBM format ===> Unix-pc */
  880.  
  881.             if  (cbm == 1)  {
  882.         byte1 = 0;
  883.         tst = getc( ifd );
  884.  
  885.         /* flip the high byte */
  886.  
  887.         if (tst & 0x1)
  888.            byte1 |=  0x80;
  889.         if (tst & 0x2)
  890.            byte1 |=  0x40;
  891.         if (tst & 0x4)
  892.            byte1 |=  0x20;
  893.         if (tst & 0x8)
  894.            byte1 |=  0x10;
  895.         if (tst & 0x10)
  896.            byte1 |=  0x8;
  897.         if (tst & 0x20)
  898.            byte1 |=  0x4;
  899.         if (tst & 0x40)
  900.            byte1 |=  0x2;
  901.         if (tst & 0x80)
  902.            byte1 |=  0x1;
  903.          bits[col*rows + (row+1)] =  byte1;
  904.         byte1 = 0;
  905.         tst = getc( ifd );
  906.  
  907.         /* flip the the low byte */
  908.  
  909.         if (tst & 0x1)
  910.             byte1 |=  0x80;
  911.         if (tst & 0x2)
  912.                byte1 |=  0x40;
  913.         if (tst & 0x4)
  914.                byte1 |=  0x20;
  915.         if (tst & 0x8)
  916.                byte1 |=  0x10;
  917.         if (tst & 0x10)
  918.            byte1 |=  0x8;
  919.         if (tst & 0x20)
  920.            byte1 |=  0x4;
  921.         if (tst & 0x40)
  922.            byte1 |=  0x2;
  923.         if (tst & 0x80)
  924.            byte1 |=  0x1;
  925.  
  926.         bits[col*rows + row] =  byte1;}
  927.         else 
  928.  
  929.        /*  It is already in Unix-pc format */
  930.  
  931.             if ( col == 0 && row == 0) {
  932.            bits[1] =  tst;
  933.            bits[0] =  getc(ifd);
  934.             } 
  935.             else {
  936.            bits[col*rows + (row+1)] =  getc(ifd);
  937.            bits[col*rows + row] =  getc(ifd);
  938.             }
  939.        fclose(ifd);
  940.         }
  941.      else
  942.  
  943.       /*  use the built in (default) icon */
  944.  
  945.      {  
  946.         cols = 4;
  947.         rows = 32;
  948.         bits = (char *) deflt;
  949.         }
  950.  
  951.      /*
  952.        transpose the bitmap
  953.      */
  954.  
  955.      if ( transpose ) {
  956.  
  957.         /* Not implemented. 
  958.  
  959.        A1:Why?         
  960.        A2:very slooow.
  961.        A1:But only for big pictures, isn't it?
  962.        A2:Any way, who wants to transpose a small icon?
  963.        A1:I do. 
  964.        A2:Go ahead and do it then.
  965.  
  966.     transpose_bits ( bits , rows , cols);
  967.         i = rows/8;
  968.         rows = cols*8;
  969.         cols = i;
  970.  
  971.     */
  972.      }
  973.     
  974.     /* invoke the window manager in tools.c */
  975.  
  976.         windowinit( comm,bits, cols , cols*8 ,rows);
  977.  
  978.     exit( 0 );
  979.     }
  980.  
  981.  
  982. @//E*O*F picture.c//
  983. chmod u=rw,g=r,o=r picture.c
  984.  
  985. echo x - tools.c
  986. sed 's/^@//' > "tools.c" <<'@//E*O*F tools.c//'
  987. /* tools.c -   Displays, opens, closes and resumes an icon.
  988. **
  989. **
  990. ** Copyright (C) 1988 by Muhammad S. Benten.
  991. **                       benten@boulder.colorado.edu
  992. **
  993. **
  994. ** Permission to use, copy, modify, and distribute this software and its
  995. ** documentation for any purpose and without fee is hereby granted, provided
  996. ** that the above copyright notice appear in all copies and that both that
  997. ** copyright notice and this permission notice appear in supporting
  998. ** documentation.  This software is provided "as is" without express or
  999. ** implied warranty.
  1000. **
  1001. **   
  1002. */
  1003. # include     <sys/ioctl.h>
  1004. # include     <signal.h>
  1005. # include       <sys/mouse.h>
  1006. # include       <kcodes.h>
  1007. # include     <message.h>
  1008. # include       "3b1tools.h"
  1009.  
  1010. #define up        196
  1011. #define down        197
  1012. #define left        190
  1013. #define right        204
  1014. #define xdelta        40
  1015. #define ydelta        20
  1016. #define XMAX1        uwidth
  1017. #define YMAX1           uheight
  1018.  
  1019. /* inside the window */
  1020.  
  1021. #define XMAX    uw.uw_width                     /* in pixels            */
  1022. #define YMAX    uw.uw_height                    /* in pixels            */
  1023. #define BPERBY  8                               /* bits per byte        */
  1024. #define XMAXB   ((XMAX+(BPERBY-1))/BPERBY)      /* in bytes             */
  1025. #define YMAXB   YMAX                            /* same as pixels       */
  1026. extern unsigned short patwhite[];
  1027.  
  1028. int Wn=1; 
  1029. int new_wind1;
  1030. int new_wind;
  1031. int maxw;
  1032. int maxh;
  1033. int transpose;
  1034. int invert;
  1035. int bord_flag;
  1036. int iconopen=0;
  1037. int normal=0;
  1038. unsigned isig=0;
  1039. short done=0;
  1040. int statch;
  1041.  
  1042. struct uwdata   uw;             /* current window data */
  1043. struct uwdata   Suw;            /* Saved window data */
  1044. struct uwdata   Puw;            /* Saved window data */
  1045. struct uwdata   suw;            /* Saved window data */
  1046. struct urdata urt;
  1047. unsigned short Bitmap[ 15660 ];             /* Saved screen */
  1048. unsigned short Bitmap1[ 15660 ];            /* Saved screen */
  1049. struct umdata mouse;
  1050. struct umdata mouse1;
  1051. struct termio argg;
  1052. struct termio argg1;
  1053. struct termio argg2;
  1054. struct termcb argcb;
  1055. int xstart,ystart,width,height,uwidth,uheight;
  1056. struct     utdata sut[6];
  1057. struct     utdata suti[6];
  1058. int      (*intsig)(),(*quitsig)();
  1059. int     closeit();
  1060. int     sendit();
  1061. int     frk=1;
  1062. int     pid=-9;
  1063. int     pppid,ppid;
  1064. extern     char *optarg;
  1065. extern     int optind;
  1066.  
  1067.  
  1068. /*
  1069. **   save the window state and close window
  1070. **   then go and wait for user response
  1071. */
  1072.  
  1073. windowinit(comm,ico,wid,wid1,hit1)
  1074. char * ico, **comm;
  1075. int wid,wid1,hit1;
  1076. {
  1077.     int i;
  1078.     /* save original parameters */
  1079.     if ( ioctl( Wn, WIOCGETD, &uw) != 0 )
  1080.     {
  1081.         fprintf(stderr, "Can't close a non-window.\n");
  1082.         exit(1);
  1083.     }
  1084.     
  1085.     winit();
  1086.     keypad(0,1);
  1087.  
  1088.  
  1089.     /* save the bitmap */
  1090.  
  1091.     new_wind = wrastop(Wn, 0,0, Bitmap, XMAXB, 0,0, 0,0, XMAX, YMAX,
  1092.         SRCSRC, DSTSRC, 0 );
  1093.     new_wind1 = wrastop(Wn, 0,0, Bitmap1, XMAXB, 0,0, 0,0, XMAX, YMAX,
  1094.         SRCSRC, DSTSRC, 0 );
  1095.  
  1096.     /* save the window state */
  1097.     Suw = uw;
  1098.     Puw = uw;
  1099.     suw = uw;
  1100.  
  1101.  
  1102.     /*  save USER  texts */
  1103.     for ( i=0; i<6 ; i++) {
  1104.         sut[i].ut_num=i;
  1105.         suti[i].ut_num=i;
  1106.         ioctl(Wn,WIOCGETTEXT,&sut[i]);
  1107.         ioctl(Wn,WIOCGETTEXT,&suti[i]);
  1108.     }
  1109.  
  1110.     sprintf(suti[WTXTCMD].ut_text,"Press CTRL-Z to close window");
  1111.  
  1112.     /* Turn cursor off */
  1113.     fprintf(stderr, "\033[=1C" );
  1114.  
  1115.     /* set up function keys */
  1116.     wslk(Wn, 0, "   OPEN    TOGGLE   EXIT                             B1 TO    B2 TO    ",
  1117.             "           BORDER                                    OPEN     TOGGLE   EXIT");
  1118.  
  1119.     /* set icon limits */
  1120.  
  1121.     xstart=0;
  1122.     ystart=0;
  1123.     width = wid1;
  1124.     height = hit1;
  1125.     if (wid1 > maxw )
  1126.        wid1 = maxw;
  1127.     if (hit1 > maxh )
  1128.        hit1 = maxh;
  1129.     uwidth = wid1;
  1130.     uheight = hit1;
  1131.     bord_flag = 1;
  1132.  
  1133.     /* close window */
  1134.  
  1135.     iconify(ico,wid,wid1,hit1);
  1136.  
  1137.     ioctl(Wn, WIOCGETMOUSE, &mouse);
  1138.     ioctl(Wn, WIOCGETMOUSE, &mouse1);
  1139.     mouse.um_flags = MSDOWN;
  1140.     ioctl(Wn, WIOCSETMOUSE, &mouse);
  1141.            
  1142.     manage_window(ico,wid,comm); 
  1143. }
  1144.  
  1145.  
  1146.  
  1147.  
  1148. /*
  1149. ** Turn the window into an "icon".
  1150. */
  1151.  
  1152. iconify(ico,wid,wid1,hit1)
  1153. char * ico;
  1154. int wid,wid1,hit1;
  1155. {
  1156.  int i;
  1157.  
  1158.     
  1159.     uw = suw;
  1160.     if (done != 1) {
  1161.     if ( bord_flag ) { 
  1162.        uw.uw_uflags |= NBORDER ;
  1163.     } 
  1164.     else {
  1165.           uw.uw_uflags &= ~(NBORDER);
  1166.           uw.uw_uflags |=  BORDHSCROLL ;
  1167.           uw.uw_uflags |=  BORDVSCROLL ;
  1168.     }
  1169.     uw.uw_height = hit1;
  1170.     uw.uw_width = wid1;
  1171.     ioctl( Wn, WIOCSETD, &uw );
  1172.     done=1;}
  1173.  
  1174.     urt.ur_srcbase = (unsigned short *) ico;
  1175.     urt.ur_srcwidth = wid;
  1176.     urt.ur_height = 1;
  1177.     urt.ur_width = wid1;
  1178.     urt.ur_srcx = xstart;
  1179.     if (invert)  {
  1180.        urt.ur_srcop = SRCXOR;
  1181.        urt.ur_pattern = patwhite;
  1182.     }
  1183.  
  1184.     for (i =0 ; i < hit1 ; i++) {
  1185.         urt.ur_srcy = ystart+i;
  1186.         urt.ur_dsty = i;
  1187.         ioctl( Wn, WIOCRASTOP, &urt ) ;}
  1188.  
  1189. }
  1190.  
  1191.  
  1192.  
  1193. /*
  1194. ** Restore the window to the saved size and state.
  1195. */
  1196.  
  1197. restore_window(restore)
  1198. int restore;
  1199. {
  1200.     int i;
  1201.     if (restore) {
  1202.       uw = Suw;
  1203.       ioctl( Wn, WIOCSETD, &uw );
  1204.         
  1205.       if (new_wind >= 0)
  1206.       wrastop(Wn, Bitmap, XMAXB, 0,0, 0,0, 0,0, XMAX, YMAX,
  1207.             SRCSRC, DSTSRC, 0 );
  1208.  
  1209.       /* position cursor and turn it on */
  1210.  
  1211.       fprintf(stderr, "\033[10;8H\033[=0C");
  1212.     }
  1213.  
  1214.     /*  restore USER  texts */
  1215.     for (i=0; i<6;i++) {
  1216.         sut[i].ut_num=i;
  1217.         ioctl(Wn,WIOCSETTEXT,&sut[i]);
  1218.     }
  1219.  
  1220.     if (restore) {
  1221.        if ( pid > 0 )
  1222.           kill(pid,9);
  1223.        kill(pppid,9);
  1224.        wexit( 0 );
  1225.     }
  1226. }
  1227.  
  1228.  
  1229.  
  1230. manage_window(ico, wid,com1)
  1231. unsigned short *ico;
  1232. int wid;
  1233. char **com1;
  1234. {
  1235.     int c,cc;
  1236.     int x,y,b,r,io,i;
  1237.     ppid = getpid();
  1238.     ioctl(Wn,TCGETA,&argg1);
  1239.     intsig =  signal ( SIGINT , sendit );
  1240.     quitsig=  signal ( SIGQUIT , sendit );
  1241.     (void) signal ( SIGTRAP , SIG_IGN );
  1242.     (void) signal ( SIGUSR2 , sendit );
  1243.  
  1244.  
  1245.     /* spawn a daemon process that would tell us
  1246.        if a CTRL-Z is caught
  1247.     */
  1248.  
  1249.     if ( (pppid =fork()) == 0 ) {
  1250.          (void) signal ( SIGUSR2 , closeit );
  1251.  
  1252.          /* It should have no control over the window */
  1253.  
  1254.          setpgrp();
  1255. loop:
  1256.          /* sleep until the window is opened */
  1257.  
  1258.          pause();
  1259.  
  1260.          /* take short naps until a suspend key is pressed */
  1261.  
  1262.          ioctl(0,TCGETA,&argg);
  1263.          while ( argg.c_cc[7] != 254 )  {
  1264.                sleep(1);
  1265.                ioctl(0,TCGETA,&argg);
  1266.          }
  1267.  
  1268.          /* tell the parent about it 
  1269.             and go back to sleep
  1270.          */
  1271.          argg.c_cc[7] = 0;
  1272.          ioctl(0,TCSETA,&argg);
  1273.          kill ( ppid , SIGUSR2 );
  1274.          goto loop;
  1275.     }
  1276.  
  1277.     /* the paraent should loop forever
  1278.     */
  1279.  
  1280.     for (;;)
  1281.     {
  1282.         if ( iconopen  ) {
  1283.           iconopen=0;
  1284.           c = F1;
  1285.         } else
  1286.            c = wgetc(Wn);
  1287.  
  1288.         ioctl( Wn, WIOCGETD, &suw );
  1289.         
  1290.         /* is it an exit command */
  1291.  
  1292.         if ( c == Exit || c == Cancl || c == s_Cancl || 
  1293.              c == F3 || c == F8 || c == EOF ) {
  1294.              if ( frk == 1 ) {
  1295.                 confirm();
  1296.                 iconify(ico,wid,XMAX1,YMAX1);
  1297.              }
  1298.         }
  1299.         else
  1300.         
  1301.         /* is it a scroll left command */
  1302.  
  1303.         if ( c == left ) {
  1304.             if ( xstart != 0 ) 
  1305.                  if ( (xstart - xdelta ) > 0 ) 
  1306.                       {xstart = xstart - xdelta; } else
  1307.                  xstart =0;
  1308.         iconify(ico,wid,XMAX1,YMAX1);
  1309.         } else
  1310.  
  1311.         
  1312.         /* is it a scroll right command */
  1313.  
  1314.         if ( c == right )  {
  1315.            if ((xstart + xdelta + XMAX1) < width ) {
  1316.                xstart = xstart + xdelta; }
  1317.            else
  1318.                xstart = width - XMAX1;
  1319.         iconify(ico,wid,XMAX1,YMAX1);
  1320.         } else
  1321.                 
  1322.         
  1323.         /* is it a scroll down command */
  1324.  
  1325.         if ( c == down ){
  1326.             if ( ystart != 0 ) 
  1327.                  if ( (ystart - ydelta ) > 0 )
  1328.                       {ystart = ystart - ydelta; } else
  1329.                   ystart =0;
  1330.         iconify(ico,wid,XMAX1,YMAX1);
  1331.         } else
  1332.                
  1333.         
  1334.         /* is it a scroll up command */
  1335.  
  1336.         if ( c == up ){
  1337.            if ((ystart + ydelta + YMAX1) < height ) 
  1338.               { ystart = ystart + ydelta; }
  1339.            else
  1340.                ystart = height - YMAX1;
  1341.         iconify(ico,wid,XMAX1,YMAX1);
  1342.         } else
  1343.  
  1344.  
  1345.         if ( c == Mouse || c == F1 || c == F2 || c == F6 || c == F7) {
  1346.           b=0;
  1347.           if ( c == Mouse )
  1348.              wreadmouse(Wn,&x,&y,&b,&r);
  1349.         
  1350.           /* is it open or resume command */
  1351.  
  1352.           if ( b == 4 || c == F1 || c == F6) {
  1353.              uw = Puw;
  1354.              ioctl( Wn, WIOCSETD, &uw );
  1355.              ioctl(Wn, WIOCSETMOUSE, &mouse1);
  1356.              if ( (new_wind >= 0) || (new_wind1 >= 0))
  1357.                 wrastop(Wn, Bitmap1, XMAXB, 0,0, 0,0, 0,0, XMAX
  1358.                                , YMAX, SRCSRC, DSTSRC, 0 );
  1359.              for ( i=0; i<6 ; i++) {
  1360.                  suti[i].ut_num=i;
  1361.                  ioctl(Wn,WIOCSETTEXT,&suti[i]);
  1362.              }
  1363.              fprintf(stderr, "\033[24;1H\033[=0C");
  1364.              /*fprintf(stderr, "\033[=0C");
  1365.              ioctl(0,LDSETT,argcb);*/
  1366.              if ( frk  == 1 ) {
  1367.  
  1368.                 /* execute the user command */
  1369.                 /* the suspend key sould be in effect */
  1370.  
  1371.                 argg.c_cc[7] = 253;
  1372.                 ioctl(0,TCSETA,&argg);
  1373.                 frk = 0;
  1374.                 if ( (pid=fork()) == 0 ) {
  1375.  
  1376.                    /* I should have no control over the window */
  1377.                    /* my parent should, Hmmmm  */
  1378.  
  1379.                    setpgrp();
  1380.                    
  1381.                    (void) signal ( SIGINT , intsig );
  1382.                    (void) signal ( SIGQUIT , quitsig );
  1383.                    (void) signal ( SIGUSR2 , SIG_IGN );
  1384.                    ptrace(0,0,0,0);
  1385.                    com1 +=optind;
  1386.                    execvp(com1[0],com1);
  1387.                    perror(com1[0]);
  1388.                    exit(2);
  1389.                  }
  1390.              } else {
  1391.                    argg2.c_cc[7] = 253;
  1392.                    ioctl(0,TCSETA,&argg2);
  1393.              }
  1394.  
  1395.              /* wakeup the daemon child */
  1396.  
  1397.              kill (pppid , SIGUSR2 );
  1398.  
  1399.              /* wakeup the executing child */
  1400.  
  1401.              if ( isig != 0 )
  1402.                 ptrace(7, pid ,1,0);
  1403. wait_it:
  1404.              /* uuuuh, it is my turn to sleep */
  1405.  
  1406.              if ((wait(&statch)) == -1 ) {
  1407.  
  1408.              /* uuuuh, what is this noise? */
  1409.  
  1410.                   goto wait_it;
  1411.              } else {
  1412.              if  ( (statch & 0xff) != 0x7f ) {
  1413.                  isig = 0;
  1414.                  pid = -1;
  1415.                  frk = 1; } 
  1416.               else {
  1417.                  isig = statch >> 8;  
  1418.                  if ( isig != SIGUSR2 ) {
  1419.  
  1420.                     /* wakeup son, it is no time to sleep */
  1421.  
  1422.                     ptrace(7,pid,1,isig);
  1423.                     goto wait_it;
  1424.                   }
  1425.               }
  1426.               }
  1427.  
  1428.              /* Oh, I'm late..
  1429.                 I should be working by now
  1430.              */
  1431.  
  1432.              ioctl(0,TCGETA,&argg2);
  1433.              ioctl( Wn, WIOCGETD, &Puw );
  1434.              for ( i=0; i<6 ; i++) {
  1435.                  suti[i].ut_num=i;
  1436.                  ioctl(Wn,WIOCGETTEXT,&suti[i]);
  1437.              }
  1438.              wcmd(Wn,0);
  1439.               
  1440.              /* set up function keys */
  1441.              if ( frk == 0 ) {
  1442.          wslk(Wn, 0, "  RESUME   TOGGLE                                    B1 TO    B2 TO",
  1443.             "           BORDER                                   RESUME    TOGGLE       "); } else
  1444.          wslk(Wn, 0, "   OPEN    TOGGLE   EXIT                             B1 TO    B2 TO    B3 TO",
  1445.             "           BORDER                                    OPEN     TOGGLE   EXIT");
  1446.              new_wind1 = wrastop(Wn, 0,0, Bitmap1, XMAXB, 0,0, 0,0, XMAX
  1447.                                , YMAX, SRCSRC, DSTSRC, 0 );
  1448.              ioctl(Wn,TCSETA,&argg1);
  1449.              keypad(0,1);
  1450.              ioctl(Wn, WIOCGETMOUSE, &mouse1);
  1451.              ioctl(Wn, WIOCSETMOUSE, &mouse);
  1452.              done = 0;
  1453.              bord_flag = 1;
  1454.              fprintf(stderr, "\033[=1C" );
  1455.              /*ioctl(0,LDGETT,argcb);*/
  1456.  
  1457.              iconify(ico,wid,XMAX1,YMAX1);
  1458.          
  1459.         } else
  1460.         
  1461.         /* is it toggle border command */
  1462.  
  1463.         if ( b == 2 || c == F2 || c == F7) {
  1464.             done = 0;
  1465.             if ( bord_flag )
  1466.                {bord_flag = 0;}
  1467.             else
  1468.                bord_flag = 1;
  1469.             iconify(ico,wid,XMAX1,YMAX1);
  1470.         } else
  1471.  
  1472.         if ( b == 1 )
  1473.         if ( frk == 1 ) {
  1474.              confirm();
  1475.              iconify(ico,wid,XMAX1,YMAX1);
  1476.        }
  1477.       }
  1478.  
  1479.            
  1480.     }
  1481. }
  1482.  
  1483.  
  1484. confirm()
  1485. {
  1486. int c,i,j,k,l;
  1487.  
  1488.    done=0;
  1489.    uw.uw_uflags = 0;
  1490.    uw.uw_height = 64;
  1491.    uw.uw_width = 140;
  1492.    ioctl( Wn, WIOCSETD, &uw );
  1493.    wlabel(Wn,"CONFIRM EXIT");
  1494.    wprompt(Wn,"Do you want to exit?             (Y/N  or  Enter/Cancel)");
  1495.    wcmd(Wn,"Touch Enter to continue          Cancel to STOP\n");
  1496.    c= wgetc(Wn);
  1497.    if( (c == Return) || (c == Enter) || 
  1498.        (c == 'y') || (c == 'Y') ) {
  1499.          wlabel(Wn,0);
  1500.          wprompt(Wn,0);
  1501.          wcmd(Wn,0);
  1502.          restore_window(1);
  1503.    }
  1504.    if (c == Mouse)
  1505.       wreadmouse(Wn,&i,&j,&k,&l);
  1506.       if ( k == 4 ) {
  1507.          wlabel(Wn,0);
  1508.          wprompt(Wn,0);
  1509.          wcmd(Wn,0);
  1510.          restore_window(1);
  1511.    }
  1512.    wlabel(Wn,0);
  1513.    wprompt(Wn,0);
  1514.    wcmd(Wn,0);
  1515. }
  1516.  
  1517.  
  1518. sendit(sig)
  1519. int sig;
  1520. {
  1521.     (void) signal ( sig , sendit );
  1522.     kill ( (0 - pid ) , sig );
  1523. }
  1524.  
  1525. closeit()
  1526. {
  1527.    (void) signal ( SIGUSR2 , closeit );
  1528. }
  1529. @//E*O*F tools.c//
  1530. chmod u=rw,g=r,o=r tools.c
  1531.  
  1532. exit 0
  1533.  
  1534.  
  1535.