home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d189 / mackie.lha / Mackie / mackie.c < prev    next >
C/C++ Source or Header  |  1989-03-11  |  43KB  |  1,615 lines
  1. /*
  2.     Modified to work with Manx 3.6a; probably won't work with Lattice.
  3.                                 Based on:
  4.                                                                              */
  5. /*  Compile with -DSPLINES for splines instead of lines                      */
  6. /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  7. /* |_o_o|\\ Copyright (c) 1986 The Software Distillery.  All Rights Reserved */
  8. /* |. o.| || This program may not be distributed without the permission of   */
  9. /* | .  | || the authors.                                                    */
  10. /* | o  | ||    Dave Baker     Ed Burnette  Stan Chow    Jay Denebeim        */
  11. /* |  . |//     Gordon Keener  Jack Rouse   John Toebes  Doug Walker         */
  12. /* ======          BBS:(919)-471-6436      VOICE:(919)-469-4210              */ 
  13. /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  14. /*
  15.  * VERY loosely based on the input.device example by Rob Peck, 12/1/85
  16.  */
  17. /* * * * * * * * * INCLUDE FILES * * * * * * * * * * * */
  18. #include <exec/types.h>
  19. #include <exec/nodes.h>
  20. #include <exec/lists.h>
  21. #include <exec/memory.h>
  22. #include <exec/interrupts.h>
  23. #include <exec/ports.h>
  24. #include <exec/libraries.h>
  25. #include <exec/io.h>
  26. #include <exec/tasks.h>
  27. #include <exec/execbase.h>
  28. #include <exec/devices.h>
  29. #include <devices/timer.h>
  30. #include <devices/input.h>
  31. #include <devices/inputevent.h>
  32. #include <devices/console.h>
  33. #include <intuition/intuition.h>
  34. #include <intuition/intuitionbase.h>
  35. #include <libraries/dos.h>
  36. #include <libraries/dosextens.h>
  37. #include <graphics/gfxmacros.h>
  38. #include <hardware/custom.h>
  39. #include <hardware/dmabits.h>
  40. /*
  41.  *   I need this kludge because of a bug in functions.h.
  42.  */
  43. #define ConsoleDevice IDontReallyExist
  44. #include <functions.h>
  45. #undef ConsoleDevice
  46. #include <stdio.h>
  47.  
  48. /* * * * * * * * * * * CONSTANTS * * * * * * * * * * * * */
  49. #define PORTNAME     "Mackie.port"
  50. #define TIMEINTERVAL 1L      /* in seconds */
  51. #define DEFTIME      300     /* two minute timeout */
  52. #define MAXCMD       200
  53. #define MAXPENDINGSYSTEM 20
  54. #define DEFKEY    0x45
  55. #define DEFCMD    "NEWCLI >NIL: <NIL:"
  56. #define STARTUPFILE "s:.mackierc"
  57. /*
  58.  *   Macro to make BPTR things easier to work with.
  59.  */
  60. #define BSTRtoS(a) ((char *)(((long)(a))<<2))
  61. /* * * * * * * * * * * GLOBAL VARIABLES * * * * * * * * * */
  62. /*
  63.  *   Detach stuff (doesn't work, somehow!)
  64.  */
  65. struct Task          *globalbuddy ;
  66. ULONG                 globalcreatclisig ;
  67. ULONG                 globalunblanksig ;
  68. ULONG                 globalfrontsig ;
  69. ULONG                 globalnoevents ;
  70. short                 globalcreatsignum ;
  71. short                 globalblanksignum ;
  72. short                 globalreplysignum ;
  73. short                 globalfrontsignum ;
  74. short                 globalkey ;
  75. char                  globalfrontkey[MAXPENDINGSYSTEM] ;
  76. char                  globalfrontqual[MAXPENDINGSYSTEM] ;
  77. short                 globalfrontptr ;
  78. short                 globaldraw ;
  79. short                 globalhelppressed ;
  80. struct Screen        *globalblankscreen ;
  81. #define SHIFT 1
  82. #define NOTCLI 2
  83. #define NOTINTUITION 4
  84. struct hotkey {
  85.    struct hotkey*next ;
  86.    char key, flags ;
  87.    int structlen ;
  88.    char *matchstring, *startstring ;
  89.    char strings[2] ;
  90. } *hotkeys ;
  91. struct Window *lastwindows[200] ;
  92. struct Task *task ;
  93. long taskreply ; /* the signal the line drawing task will return */
  94. #define STACKSIZE (1000)
  95. long stackmem[STACKSIZE/4] ;
  96. struct InfoData *infoptr ;
  97. struct MsgPort *FindPort(), *CreatePort();
  98. void DeletePort();
  99. char *startupfile = STARTUPFILE ;
  100. struct OURMSG {
  101.  struct Message msgpart;
  102.  short key;
  103.  short interval;
  104.  short draw ;
  105.  char cmd[MAXCMD];
  106.  };
  107.  
  108. extern char *strcpy() ;
  109.  
  110. /************************************************************************/
  111. /* the handler subroutine - called through the handler stub             */
  112. /************************************************************************/
  113. extern void HandlerInterface();
  114. void foobar() {
  115. #asm
  116. _HandlerInterface:
  117.     movem.l a4,-(a7)
  118.     movem.L    A0/A1,-(A7)
  119.     jsr    _geta4#
  120.     jsr    _myhandler
  121.     addq.L    #8,A7
  122.     movem.L    (a7)+,a4
  123.     rts
  124. #endasm
  125. }
  126. char keytoasc[128] ;
  127. struct InputEvent *myhandler(ev, gptr)
  128. struct InputEvent *ev;      /* and a pointer to a list of events */
  129. long gptr ; /* ignore */
  130. {
  131.    register struct InputEvent *ep, *laste;
  132.    int key ;
  133.    /*
  134.     * run down the list of events
  135.     * to see if they pressed
  136.     * one of the magic buttons
  137.     */
  138.    for (ep = ev, laste = NULL; ep != NULL; ep = ep->ie_NextEvent) {
  139.       if ((ep->ie_Class == IECLASS_RAWKEY)    &&
  140.              (((ep->ie_Qualifier & IEQUALIFIER_LCOMMAND) &&
  141.                (ep->ie_Code == globalkey)) ||
  142.               (!globalhelppressed && ep->ie_Code == 0x5f) ||
  143.               (globalhelppressed &&
  144.                (ep->ie_Code & 0x80) == 0 &&
  145. /*
  146.  *   All the qualifiers have code = 0x6?; dangerous to take advantage
  147.  *   of?
  148.  */
  149.                (ep->ie_Code & 0xf0) != 0x60 &&
  150.                globalfrontkey[globalfrontptr] == 0 &&
  151.                (globalhelppressed = (keytoasc[ep->ie_Code] != '.'))))) {
  152.          if ((ep->ie_Qualifier & IEQUALIFIER_LCOMMAND) &&
  153.               (ep->ie_Code == globalkey))
  154.             key = -1 ;
  155.          else if (globalhelppressed) {
  156.             globalfrontkey[globalfrontptr] = key = ep->ie_Code ;
  157.             globalfrontqual[globalfrontptr] = ep->ie_Qualifier ;
  158.             globalfrontptr++ ;
  159.             if (globalfrontptr >= MAXPENDINGSYSTEM)
  160.                globalfrontptr = 0 ;
  161.             globalhelppressed = 0 ;
  162.          } else {
  163.             globalhelppressed = 1 ;
  164.             key = 0 ;
  165.          }
  166.          /* we can handle this event so take it off the chain */
  167.          if (laste == NULL)
  168.             ev = ep->ie_NextEvent;
  169.          else
  170.             laste->ie_NextEvent = ep->ie_NextEvent;
  171.          /* now tell him to create the new cli */
  172.          if (key == -1)
  173.             Signal(globalbuddy, globalcreatclisig);
  174.          else if (key > 0)
  175.             Signal(globalbuddy, globalfrontsig);
  176.       } else
  177.          laste = ep;
  178.       if (ep->ie_Class != IECLASS_TIMER) {
  179.          globalnoevents = 0;
  180.          if (globalblankscreen != NULL)
  181.             Signal(globalbuddy, globalunblanksig);
  182.       }
  183.    }
  184.    /* pass on the pointer to the event */
  185.    return(ev);
  186. }
  187.  
  188. /* * * * * * * * * * * EXTERNAL ROUTINES * * * * * * * * * */
  189. struct IntuitionBase *IntuitionBase;
  190. struct GfxBase       *GfxBase;
  191. struct DosLibrary    *DosBase;
  192. struct NewScreen      NewScreen = 
  193.    { 0, 0, 320, 30, 1, 0, 1, NULL, CUSTOMSCREEN, NULL, NULL, NULL, NULL };
  194.  
  195. extern struct MsgPort  *CreatePort();
  196. struct IOStdReq *CreateIOReq();
  197. void DeleteIOReq();
  198.  
  199. /************************************************************************/
  200. /* Queue a timer to go off in a given number of seconds                 */
  201. /************************************************************************/
  202. void QueueTimer(tr,seconds)
  203. register struct timerequest *tr;
  204. ULONG seconds;
  205. {
  206.    tr->tr_node.io_Command = TR_ADDREQUEST;   /* add a new timer request */
  207.    tr->tr_time.tv_secs =  seconds;            /* seconds */
  208.    tr->tr_time.tv_micro = 0;
  209.    SendIO( (struct IORequest *)tr );
  210. }
  211. /*
  212.  *   A utility to change our priority.
  213.  */
  214. prito(n)
  215. int n ;
  216. {
  217.    SetTaskPri(FindTask(0L), (long)n) ;
  218. }
  219. /************************************************************************/
  220. /* the main program to do the popcli stuff                              */
  221. /************************************************************************/
  222. main(argc, argv)
  223. int argc ;
  224. char *argv[] ;
  225. {
  226.    struct MsgPort *port;
  227.    int stay = 0;
  228.    register struct OURMSG *msg;
  229.    int i ;
  230.    char cmdstr[MAXCMD];
  231.    short key, timeout ;
  232.    struct FileHandle *nullfh = NULL ;
  233.    ULONG sig, timersig;
  234.    struct timerequest *timerreq;
  235.    struct MsgPort     *timerport;
  236.    struct MsgPort     *inputDevPort;
  237.    struct IOStdReq    *inputRequestBlock;
  238.    register struct Interrupt handlerStuff;
  239.    char *cmd ;
  240.    int draw = 0 ;
  241.    int nextfront = 0 ;
  242.  
  243.    prito(20) ;
  244.    globalcreatsignum  = -1;
  245.    globalblanksignum  = -1;
  246.    globalreplysignum  = -1;
  247.    globalfrontsignum  = -1;
  248.    globalblankscreen  = NULL;
  249.    globalkey          = DEFKEY ;
  250.    globaldraw         = 1 ;
  251.    timerreq            = NULL;
  252.    timerport           = NULL;
  253.    inputDevPort        = NULL;
  254.    inputRequestBlock   = NULL;
  255.    /* now see if we are already installed */
  256.    if ((port = FindPort(PORTNAME)) == NULL) {
  257.       stay = 1; /* remember to hang around when we are done */
  258.       /* not installed, we need to install our own port */
  259.       if ((port = CreatePort(PORTNAME,0L)) == NULL)
  260.          goto abort;
  261.    }
  262. /*
  263.  *   If we are hanging around, initialize our keyboard translation table.
  264.  *   If we have difficulty, exit angry.
  265.  */
  266.    if (stay)
  267.       if (initkeytoasc())
  268.          goto abort ;
  269.    /* now send the parameter to the waiting program */
  270.    if ((msg = (struct OURMSG *)
  271.        AllocMem((long)sizeof(struct OURMSG), MEMF_CLEAR|MEMF_PUBLIC)) == NULL)
  272.       goto abort;
  273.    if ((infoptr = (struct InfoData *)
  274.       AllocMem((long)sizeof(struct InfoData), MEMF_CLEAR)) == NULL)
  275.       goto abort ;
  276.    /* fill in the message information */
  277.    msg->msgpart.mn_Length = sizeof(struct OURMSG);
  278.    strcpy(cmdstr, DEFCMD);
  279.    timeout = -1 ;
  280.    key = 0 ;
  281.    msg->cmd[0] = 0;
  282.    /* if we were run from CLI then output our banner and process parameters */
  283.    if (argc > 0) {
  284.       /* display our copyright */
  285.       if (stay)
  286.          puts("Mackie 1.2 by Tomas Rokicki - Copyright \xa9 1987, 1988 Radical Eye Software") ;
  287.       if (argc == 1)
  288.          puts("Usage: Mackie [-q] [-l] [-b] [-f startup] [time] [\"command\"]") ;
  289.       argc-- ;
  290.       argv++ ;
  291.       while (argc > 0) {
  292.          cmd = argv[0] ;
  293.          if (*cmd == '-') {
  294.             cmd++ ;
  295.             switch (*cmd) {
  296. case 'q' : case 'Q' :
  297.                key = -1 ;
  298.                puts("\x9B1mMackie\x9B0m Terminating") ;
  299.                break ;
  300. case 'l' : case 'L' :
  301.                draw = 1 ;
  302.                break ;
  303. case 'b' : case 'B' :
  304.                draw = -1 ;
  305.                break ;
  306. case 'f' : case 'F' :
  307.                if (cmd[1])
  308.                   startupfile = cmd + 1 ;
  309.                else {
  310.                   argv++ ;
  311.                   argc-- ;
  312.                   startupfile = argv[0] ;
  313.                }
  314.                break ;
  315. default :
  316.                puts("Error in parameter!") ;
  317.             }
  318.          } else if ('0' <= *cmd && *cmd <= '9') {
  319.             timeout = 0;
  320.             while ((*cmd >= '0') && (*cmd <= '9'))
  321.                timeout = (timeout*10) + *cmd++ - '0';
  322.             if (timeout < 0)
  323.                timeout = DEFTIME;
  324.          } else {
  325.             strcpy(msg->cmd, cmd) ;
  326.          }
  327.          argc-- ;
  328.          argv++ ;
  329.       }
  330.    }
  331.    msg->interval = timeout;
  332.    msg->key = key;
  333.    msg->draw = draw ;
  334.    if (stay)
  335.       processstartup(startupfile, msg) ;
  336.    if (draw)
  337.       globaldraw = draw ;
  338.    PutMsg(port,(struct Message *)msg);
  339.    if (!stay) goto abort;
  340.    if (timeout == -1)
  341.       timeout = DEFTIME ;
  342.    globalblankscreen = NULL;
  343.    globalbuddy = FindTask(0L);
  344.    globalnoevents = 0;
  345.    nullfh = Open("NIL:", MODE_NEWFILE);
  346.    if (((inputDevPort = CreatePort(0L,0L)) == NULL) ||
  347.       ((inputRequestBlock =
  348.           CreateIOReq(inputDevPort, (long)sizeof(struct IOStdReq))) == NULL) ||
  349.       ((timerport = CreatePort(0L,0L)) == NULL) ||
  350.       ((timerreq  = (struct timerequest *)
  351.           CreateIOReq(timerport, (long)sizeof(struct timerequest))) == NULL))
  352.          goto abort ;
  353.    if (((globalcreatsignum = AllocSignal(-1L)) == -1) ||
  354.       ((globalblanksignum = AllocSignal(-1L)) == -1) ||
  355.       ((globalreplysignum = AllocSignal(-1L)) == -1) ||
  356.       ((globalfrontsignum = AllocSignal(-1L)) == -1) ||
  357.       ((GfxBase = (struct GfxBase *)
  358.                   OpenLibrary("graphics.library", 0L)) == NULL) ||
  359.       ((IntuitionBase = (struct IntuitionBase *)
  360.                         OpenLibrary("intuition.library", 0L)) == NULL) ||
  361.       OpenDevice(TIMERNAME, UNIT_VBLANK, (struct IORequest *)timerreq, 0L) ||
  362.       OpenDevice("input.device",0L,(struct IORequest *)inputRequestBlock,0L))
  363.          goto abort;
  364.    handlerStuff.is_Data = (APTR)0L ;
  365.    handlerStuff.is_Code = HandlerInterface;
  366.    handlerStuff.is_Node.ln_Pri = 51;
  367.    timersig            = (1L << timerport->mp_SigBit);
  368.    globalcreatclisig  = 1L << globalcreatsignum;
  369.    globalunblanksig   = 1L << globalblanksignum;
  370.    globalfrontsig     = 1L << globalfrontsignum;
  371.    inputRequestBlock->io_Command = IND_ADDHANDLER;
  372.    inputRequestBlock->io_Data    = (APTR)&handlerStuff;
  373.    DoIO((struct IORequest *)inputRequestBlock);
  374.    QueueTimer(timerreq, TIMEINTERVAL);
  375.    for(;;) {         /* FOREVER */
  376.       sig = Wait( globalcreatclisig | globalunblanksig | timersig |
  377.                   globalfrontsig);
  378.       /* see if they asked us to change the interval */
  379.       if ((msg = (struct OURMSG *)GetMsg(port)) != NULL) {
  380.          if (msg->cmd[0]) strcpy(cmdstr, msg->cmd);
  381.          if (msg->key)
  382.             globalkey = msg->key;
  383.          if (msg->interval != -1)
  384.             timeout    = msg->interval;
  385.          if (msg->draw)
  386.             globaldraw = msg->draw ;
  387.          FreeMem((char *)msg, (long)msg->msgpart.mn_Length);
  388.          if (msg->key == -1) goto abort;
  389.       }
  390.       if ((sig & globalunblanksig) && globalblankscreen)
  391.          screenunblank() ;
  392.       if (sig & globalcreatclisig) {
  393.          WBenchToFront();
  394.          prito(0) ;
  395.          (void)Execute(cmdstr,nullfh,nullfh);
  396.          prito(20) ;
  397.       }
  398.       if (sig & globalfrontsig) {
  399.          while (i=globalfrontkey[nextfront]) {
  400.             windowtofront(keytoasc[i], globalfrontqual[nextfront]) ;
  401.             globalfrontkey[nextfront] = 0 ;
  402.             nextfront++ ;
  403.             if (nextfront >= MAXPENDINGSYSTEM)
  404.                nextfront = 0 ;
  405.          }
  406.       }
  407.       if (sig & timersig) {
  408.          /* get rid of the message */
  409.          (void)GetMsg(timerport);
  410.          QueueTimer(timerreq, TIMEINTERVAL);
  411.          if (task)
  412.             SetTaskPri(task, 10L) ;
  413.          if (timeout != 0 && (globalnoevents++ >= timeout) && (globalblankscreen == NULL))
  414.             blankscreen() ;
  415.       }
  416.    }
  417. abort:
  418.    if (infoptr) {
  419.       FreeMem(infoptr, (long)sizeof(struct InfoData)) ;
  420.       infoptr = NULL ;
  421.    }
  422.    if (timerreq != NULL) {
  423.       if (timerreq->tr_node.io_Device != NULL)
  424.          CloseDevice((struct IORequest *)timerreq);
  425.       DeleteIOReq((struct IOStdReq *)timerreq);
  426.    }
  427.    if (inputRequestBlock != NULL) {
  428.       if (inputRequestBlock->io_Device != NULL) {
  429.          inputRequestBlock->io_Command = IND_REMHANDLER;
  430.          inputRequestBlock->io_Data = (APTR)&handlerStuff;
  431.          DoIO((struct IORequest *)inputRequestBlock);
  432.          CloseDevice((struct IORequest *)inputRequestBlock);
  433.       }
  434.       DeleteIOReq(inputRequestBlock);
  435.    }
  436.    screenunblank() ;
  437.    if (timerport != NULL)          DeletePort(timerport);
  438.    if (globalcreatsignum != -1)   FreeSignal(globalcreatsignum);
  439.    if (globalblanksignum != -1)   FreeSignal(globalblanksignum);
  440.    if (globalreplysignum != -1)   FreeSignal(globalreplysignum);
  441.    if (globalfrontsignum != -1)   FreeSignal(globalfrontsignum);
  442.    if (IntuitionBase != NULL)      CloseLibrary((struct Library *)IntuitionBase);
  443.    if (GfxBase != NULL)            CloseLibrary((struct Library *)GfxBase);
  444.    if (inputDevPort != NULL)       DeletePort(inputDevPort);
  445.    if (stay && (port != NULL))     DeletePort(port);
  446.    {
  447.       struct hotkey *hk ;
  448.  
  449.       while (hotkeys) {
  450.          hk = hotkeys->next ;
  451.          FreeMem(hotkeys, (long)hotkeys->structlen) ;
  452.          hotkeys = hk ;
  453.       }
  454.    }
  455.    if (nullfh)                     Close(nullfh);
  456.    prito(0) ;
  457. }
  458.  
  459. struct IOStdReq *
  460. CreateIOReq(port, size)
  461. struct MsgPort *port;
  462. long size;
  463. {
  464.    register struct IOStdReq *ioReq;
  465.  
  466.    if ((ioReq = (struct IOStdReq *)
  467.                 AllocMem(size, MEMF_CLEAR | MEMF_PUBLIC)) != NULL) {
  468.       ioReq->io_Message.mn_Node.ln_Type = NT_MESSAGE;
  469.       ioReq->io_Message.mn_Node.ln_Pri  = 0;
  470.       ioReq->io_Message.mn_Length       = size;
  471.       ioReq->io_Message.mn_ReplyPort    = port;
  472.    }
  473.    return(ioReq);
  474. }
  475.  
  476. void DeleteIOReq(ioReq)
  477. register struct IOStdReq *ioReq;
  478. {
  479.    ioReq->io_Message.mn_Node.ln_Type = 0xff;
  480.    ioReq->io_Device = (struct Device *) -1;
  481.    ioReq->io_Unit = (struct Unit *) -1;
  482.    FreeMem( (char *)ioReq, (long)ioReq->io_Message.mn_Length);
  483. }
  484. /*
  485.  *   All of this stuff down here was written by Tomas Rokicki.
  486.  *   (C) Copyright 1987, 1988, Radical Eye Software.
  487.  */
  488. #include "graphics/gfxbase.h"
  489. /*
  490.  *   The maximum number of lines on the screen at once.
  491.  */
  492. #define MAXLINES (100)
  493. #define MAXPOINTS (6)
  494. int maxpoints ;
  495. /*
  496.  *   The external variables we access.
  497.  */
  498. struct RastPort *rastport ;
  499. short screenheight, screenwidth ;
  500. /*
  501.  *   Some locals to this file.
  502.  */
  503. static struct NewScreen newscreen = {
  504.    0, 0,
  505.    640, 400,
  506.    1,
  507.    0, 1,
  508.    HIRES | LACE | SCREENQUIET,
  509.    CUSTOMSCREEN,
  510.    NULL,
  511.    NULL,
  512.    NULL,
  513.    NULL } ;
  514. /*
  515.  *   This routine opens a screen and fires off the task if apropriate.
  516.  */
  517. void taskrout() ;
  518. blankscreen() {
  519.    register struct Task *rtask ;
  520.  
  521.    screenheight = 2 * GfxBase->NormalDisplayRows ;
  522.    screenwidth = GfxBase->NormalDisplayColumns ;
  523.    newscreen.Height = screenheight ;
  524.    newscreen.Width = screenwidth ;
  525.    if (globaldraw == -1 || AvailMem(MEMF_CHIP) < 70000L ||
  526.              (globalblankscreen = OpenScreen(&newscreen)) == NULL) {
  527.       if ((globalblankscreen = OpenScreen(&NewScreen)) != NULL) {
  528.          SetRGB4(&(globalblankscreen->ViewPort), 0L, 0L, 0L, 0L);
  529.          OFF_DISPLAY ;
  530.       }
  531.    } else {
  532.       if (globalblankscreen == NULL &&
  533.           (globalblankscreen = OpenScreen(&newscreen))==NULL)
  534.          return ;
  535. /*
  536.  *   Turning off the sprites is a little bit tricky.  A simple OFF_SPRITE
  537.  *   will continue to display the data in the current sprite registers.
  538.  *   This happens most often with the cursor.  To fix, we simply clear out
  539.  *   the sprite control registers after turning the sprites off.  This
  540.  *   might break all of the sprites when the system comes back up . . .
  541.  */
  542.       OFF_SPRITE ;
  543.       custom.spr[0].ctl = 0 ;
  544.       custom.spr[1].ctl = 0 ;
  545.       custom.spr[2].ctl = 0 ;
  546.       custom.spr[3].ctl = 0 ;
  547.       custom.spr[4].ctl = 0 ;
  548.       custom.spr[5].ctl = 0 ;
  549.       custom.spr[6].ctl = 0 ;
  550.       custom.spr[7].ctl = 0 ;
  551.       SetRGB4(&(globalblankscreen->ViewPort), 0L, 0L, 0L, 0L) ;
  552.       rastport = &(globalblankscreen->RastPort) ;
  553.       SetAPen(rastport, 0L) ;
  554.       Forbid() ;
  555.       RectFill(rastport, 0L, 0L, (long)screenwidth-1, 30L) ;
  556.       Permit() ;
  557.       SetAPen(rastport, 1L) ;
  558.       rtask = (struct Task *)AllocMem((long)sizeof(struct Task),
  559.                 MEMF_CLEAR | MEMF_PUBLIC) ;
  560.       if (rtask != NULL) {
  561.          rtask->tc_Node.ln_Pri = 10 ;
  562.          rtask->tc_Node.ln_Type = NT_TASK ;
  563.          rtask->tc_Node.ln_Name = "ri.Lines" ;
  564.          rtask->tc_SPLower = (APTR)stackmem ;
  565.          rtask->tc_SPUpper = rtask->tc_SPReg =
  566.                       (APTR)(stackmem + STACKSIZE/4 - 8) ;
  567.          AddTask(rtask, taskrout, 0L) ;
  568.          task = rtask ;
  569.       }
  570.    }
  571. }
  572. /*
  573.  *   Unblank the screen.  We kill the task with the standard ^C kill signal.
  574.  */
  575. screenunblank() {
  576.    if (task != NULL) {
  577.       Signal(task, 1L << SIGBREAKB_CTRL_C) ;
  578.       SetTaskPri(task, 11L) ;
  579.       Wait(1L << globalreplysignum) ;
  580.       RemTask(task);
  581.       FreeMem(task, (long)sizeof(struct Task)) ;
  582.       task = NULL ;
  583.    }
  584.    if (globalblankscreen != NULL) {
  585.       CloseScreen(globalblankscreen);
  586.       globalblankscreen = NULL ;
  587.       ON_DISPLAY ;
  588.       ON_SPRITE ;
  589.    }
  590. }
  591. /*
  592.  *   This routine returns a random value from 0 to n-1.
  593.  */
  594. int randm(i)
  595. int i ;
  596. {
  597.    static long seed ;
  598.    register long rseed ;
  599.    register long rval ;
  600.  
  601.    rseed = seed ;
  602.    if (rseed == 0)
  603.       rseed = 323214521 + globalblankscreen->MouseX +
  604.               globalblankscreen->MouseY ;
  605.    rseed = rseed * 123213 + 121 ;
  606.    rval = (rseed >> 5) & 65535 ;
  607.    seed = rseed ;
  608.    return ((i * rval) >> 16) ;
  609. }
  610. /*
  611.  *   This routine sets x and y values to a random number.
  612.  */
  613. static long x, y ;
  614. randomxy() {
  615.    x = randm(screenwidth) ;
  616.    y = randm(screenheight) ;
  617. }
  618. /*
  619.  *   Main routines are always fun.
  620.  */
  621. struct box {
  622.    short x[MAXPOINTS], y[MAXPOINTS] ;
  623. } store[MAXLINES] ;
  624. #define FIX(x) (((long)(x)) << 7)
  625. #define HFIX(x) (((long)(x)) << 6)
  626. #define UNFIX(x) ((x)>>7)
  627. struct box *ptr ;
  628. struct box *eptr ;
  629. int numlines ;
  630. int mdelta = -1 ;
  631. int maxlines = MAXLINES/2 ;
  632. short dx[MAXPOINTS], dy[MAXPOINTS] ;
  633. short ox[MAXPOINTS], oy[MAXPOINTS] ;
  634. short nx[MAXPOINTS], ny[MAXPOINTS] ;
  635. short dr, dg, db ;
  636. short or, og, ob ;
  637. short nr, ng, nb ;
  638. /*
  639.  *   Draws a spline!  Expects all arguments in registers.
  640.  */
  641. #asm
  642.     public    _Draw
  643.     cseg
  644. rspline
  645.     move.l    a0,d0
  646.     sub.l    d6,d0
  647.     move.l    d0,d3
  648.     bpl    save1
  649.     neg.l    d0
  650. save1
  651.     move.l    a1,d1
  652.     sub.l    d7,d1
  653.     move.l    d1,d4
  654.     bpl    save2
  655.     neg.l    d1
  656. save2
  657.     move.l    d0,d2
  658.     cmp.l    d0,d1
  659.     bmi    save3
  660.     lsr.l    #3,d2
  661.     bra    save9
  662. save3
  663.     lsr.l    #3,d1
  664. save9
  665.     add.l    d1,d2
  666.     asr.l    #3,d2
  667.     asr.l    #5,d3
  668.     asr.l    #5,d4
  669.     move.l    a2,d0
  670.     sub.l    a0,d0
  671.     move.l    a3,d1
  672.     sub.l    a1,d1
  673.     asr.l    #5,d0
  674.     asr.l    #5,d1
  675.     muls.w    d4,d0
  676.     muls.w    d3,d1
  677.     sub.l    d1,d0
  678.     bpl    save4
  679.     neg.l    d0
  680. save4
  681.     cmp.l    d0,d2
  682.     bmi    pushem
  683.     move.l    a5,d0
  684.     sub.l    a0,d0
  685.     move.l    a6,d1
  686.     sub.l    a1,d1
  687.     asr.l    #5,d0
  688.     asr.l    #5,d1
  689.     muls.w    d4,d0
  690.     muls.w    d3,d1
  691.     sub.l    d1,d0
  692.     bpl    save5
  693.     neg.l    d0
  694. save5
  695.     cmp.l    d0,d2
  696.     bmi    pushem
  697. makeline
  698.     lsr.l    #7,d7
  699.     move.l    d7,-(sp)
  700.     lsr.l    #7,d6
  701.     move.l    d6,-(sp)
  702.     move.l    _rastport,-(sp)
  703.     jsr    _Draw
  704.     add.w    #12,a7
  705.     rts
  706. pushem
  707.     movem.l    d6/d7,-(sp)
  708.     move.l    a5,d0
  709.     add.l    d6,d0
  710.     asr.l    #1,d0
  711.     move.l    a6,d1
  712.     add.l    d7,d1
  713.     asr.l    #1,d1
  714.     movem.l    d0/d1,-(sp)
  715.     move.l    a2,d2
  716.     add.l    a5,d2
  717.     asr.l    #1,d2
  718.     move.l    a3,d3
  719.     add.l    a6,d3
  720.     asr.l    #1,d3
  721.     move.l    d0,d4
  722.     add.l    d2,d4
  723.     asr.l    #1,d4
  724.     move.l    d1,d5
  725.     add.l    d3,d5
  726.     asr.l    #1,d5
  727.     movem.l    d4/d5,-(sp)
  728.     move.l    a0,d6
  729.     add.l    a2,d6
  730.     asr.l    #1,d6
  731.     move.l    a1,d7
  732.     add.l    a3,d7
  733.     asr.l    #1,d7
  734.     move.l    d2,d0
  735.     add.l    d6,d0
  736.     asr.l    #1,d0
  737.     move.l    d3,d1
  738.     add.l    d7,d1
  739.     asr.l    #1,d1
  740.     move.l    d6,a2
  741.     move.l    d7,a3
  742.     move.l    d0,d6
  743.     add.l    d4,d6
  744.     asr.l    #1,d6
  745.     move.l    d1,d7
  746.     add.l    d5,d7
  747.     asr.l    #1,d7
  748.     movem.l    d6/d7,-(sp)
  749.     move.l    d0,a5
  750.     move.l    d1,a6
  751.     jsr    rspline
  752.     movem.l    (sp)+,a0/a1
  753.     movem.l    (sp)+,a2/a3/a5/a6
  754.     movem.l    (sp)+,d6/d7
  755.     bra    rspline
  756. #endasm
  757. /*
  758.  *   Now our linkage to the spline routine.  Parameters are in 8(a5)...
  759.  */
  760. int drawspline(x1, y1, x2, y2, x3, y3, x4, y4)
  761. long x1, y1, x2, y2, x3, y3, x4, y4 ;
  762. {
  763. #asm
  764.     movem.l    saver,-(sp)
  765.     move.l    8(a5),a0
  766.     move.l    12(a5),a1
  767.     move.l    16(a5),a2
  768.     move.l    20(a5),a3
  769.     move.l    28(a5),a6
  770.     move.l    32(a5),d6
  771.     move.l    36(a5),d7
  772.     move.l    24(a5),a5
  773.     jsr    rspline
  774.     movem.l    (sp)+,saver
  775. saver    reg    d0-d7/a0-a6
  776. #endasm
  777. }
  778. /*
  779.  *   Here we draw splines!  Magic, you know.
  780.  */
  781. dosplines(bptr)
  782. register struct box *bptr ;
  783. {
  784.    Move(rastport, (long)(bptr->x[0]), (long)(bptr->y[0])) ;
  785.    drawspline(FIX(bptr->x[0]), FIX(bptr->y[0]), FIX(bptr->x[1]),
  786.               FIX(bptr->y[1]), FIX(bptr->x[2]), FIX(bptr->y[2]),
  787.               FIX(bptr->x[3]), FIX(bptr->y[3])) ;
  788. }
  789. /*
  790.  *   Here we draw splines!  Magic, you know.
  791.  */
  792. doosplines(bptr)
  793. register struct box *bptr ;
  794. {
  795.    register long x1, y1, x2, y2, x3, y3 ;
  796.  
  797.    x1 = HFIX(bptr->x[0] + bptr->x[5]) ;
  798.    y1 = HFIX(bptr->y[0] + bptr->y[5]) ;
  799.    x2 = HFIX(bptr->x[1] + bptr->x[2]) ;
  800.    y2 = HFIX(bptr->y[1] + bptr->y[2]) ;
  801.    x3 = HFIX(bptr->x[3] + bptr->x[4]) ;
  802.    y3 = HFIX(bptr->y[3] + bptr->y[4]) ;
  803.    Move(rastport, UNFIX(x1), UNFIX(y1)) ;
  804.    drawspline(x1, y1, FIX(bptr->x[0]), FIX(bptr->y[0]), FIX(bptr->x[1]),
  805.               FIX(bptr->y[1]), x2, y2) ;
  806.    drawspline(x2, y2, FIX(bptr->x[2]), FIX(bptr->y[2]),
  807.               FIX(bptr->x[3]), FIX(bptr->y[3]), x3, y3) ;
  808.    drawspline(x3, y3, FIX(bptr->x[4]), FIX(bptr->y[4]),
  809.               FIX(bptr->x[5]), FIX(bptr->y[5]), x1, y1) ;
  810. }
  811. /*
  812.  *   Here we draw lines!
  813.  */
  814. dolines(bptr)
  815. register struct box *bptr ;
  816. {
  817.    Move(rastport, (long)(bptr->x[0]), (long)(bptr->y[0])) ;
  818.    Draw(rastport, (long)(bptr->x[1]), (long)(bptr->y[1])) ;
  819.    Draw(rastport, (long)(screenwidth-1-bptr->x[0]),
  820.                   (long)(screenheight-1-bptr->y[0])) ;
  821.    Draw(rastport, (long)(screenwidth-1-bptr->x[1]),
  822.                   (long)(screenheight-1-bptr->y[1])) ;
  823.    Draw(rastport, (long)(bptr->x[0]), (long)(bptr->y[0])) ;
  824. }
  825. /*
  826.  *   Here we draw other lines!
  827.  */
  828. doolines(bptr)
  829. register struct box *bptr ;
  830. {
  831.    Move(rastport, (long)(bptr->x[0]), (long)(bptr->y[0])) ;
  832.    Draw(rastport, (long)(bptr->x[1]), (long)(bptr->y[1])) ;
  833.    Draw(rastport, (long)(bptr->x[2]), (long)(bptr->y[2])) ;
  834.    Draw(rastport, (long)(bptr->x[3]), (long)(bptr->y[3])) ;
  835.    Draw(rastport, (long)(bptr->x[0]), (long)(bptr->y[0])) ;
  836. }
  837. /*
  838.  *   Here we draw a single line
  839.  */
  840. doline(bptr)
  841. register struct box *bptr ;
  842. {
  843.    Move(rastport, (long)(bptr->x[0]), (long)(bptr->y[0])) ;
  844.    Draw(rastport, (long)(bptr->x[1]), (long)(bptr->y[1])) ;
  845. }
  846. /*
  847.  *   Initialize things for the first lines.
  848.  */
  849. startlines() {
  850.    register int i ;
  851.  
  852.    ptr = store ;
  853.    eptr = store ;
  854.    numlines = 0 ;
  855.    if (dx[0] == 0) {
  856.       for (i=0; i<MAXPOINTS; i++) {
  857.          ox[i] = randm(screenwidth) ;
  858.      oy[i] = randm(screenheight) ;
  859.      dx[i] = 2 + randm(3) ;
  860.      dy[i] = 2 + randm(3) ;
  861.       }
  862.    }
  863.    nr = 53 ;
  864.    ng = 33 ;
  865.    nb = 35 ;
  866.    dr = -3 ;
  867.    dg = 5 ;
  868.    db = 7 ;
  869.    SetRGB4(&(globalblankscreen->ViewPort), 0L, 0L, 0L, 0L) ;
  870.    SetRGB4(&(globalblankscreen->ViewPort), 1L, (long)(nr >> 3),
  871.                                  (long)(ng >> 3), (long)(nb >> 3)) ;
  872.    for (i=0; i<maxlines; i++) {
  873.       advancelines() ;
  874.       drawnew() ;
  875.    }
  876. }
  877. /*
  878.  *   Advance the number by the delta, and check the boundaries.
  879.  */
  880. adv(o, d, n, w)
  881. register short *o, *d, *n ;
  882. short w ;
  883. {
  884.    *n = *o + *d ;
  885.    if (*n < 0) {
  886.       *n = 0 ;
  887.       *d = randm(6) + 1 ;
  888.    } else if (*n >= w) {
  889.       *n = w - 1 ;
  890.       *d = - randm(6) - 1 ;
  891.    }
  892. }
  893. /*
  894.  *   Advance the two points which make up the lines.
  895.  */
  896. advancelines() {
  897.    register int i ;
  898.  
  899.    for (i=0; i<maxpoints; i++) {
  900.       adv(ox+i, dx+i, nx+i, screenwidth) ;
  901.       adv(oy+i, dy+i, ny+i, screenheight) ;
  902.    }
  903. }
  904. int (*drawfunc)() ;
  905. /*
  906.  *   Draw a new set of lines.
  907.  */
  908. drawnew() {
  909.    register int i ;
  910.    register short oldpen ;
  911.    register struct box *bptr ;
  912.  
  913.    while (numlines >= maxlines) {
  914.       oldpen = rastport->FgPen ;
  915.       SetAPen(rastport, 0L) ;
  916.       bptr = eptr ;
  917.       (*drawfunc)(bptr) ;
  918.       SetAPen(rastport, (long)oldpen) ;
  919.       numlines-- ;
  920.       bptr++ ;
  921.       if (bptr == store + MAXLINES)
  922.          bptr = store ;
  923.       eptr = bptr ;
  924.    }
  925.    bptr = ptr ;
  926.    for (i=0; i<maxpoints; i++) {
  927.       bptr->x[i] = ox[i] = nx[i] ;
  928.       bptr->y[i] = oy[i] = ny[i] ;
  929.    }
  930.    (*drawfunc)(bptr) ;
  931.    numlines++ ;
  932.    bptr++ ;
  933.    if (bptr == store + MAXLINES) {
  934.       bptr = store ;
  935.       if (mdelta == 1) {
  936.          maxlines++ ;
  937.          if (maxlines >= MAXLINES - 1)
  938.             mdelta = -1 ;
  939.       } else {
  940.          maxlines-- ;
  941.          if (maxlines <= 2)
  942.             mdelta = 1 ;
  943.       }
  944.    }
  945.    ptr = bptr ;
  946. }
  947. /*
  948.  *   This routine mucks with the colors.
  949.  */
  950. colors() {
  951.    or = nr ;
  952.    og = ng ;
  953.    ob = nb ;
  954.    adv(&or, &dr, &nr, 128) ;
  955.    adv(&og, &dg, &ng, 128) ;
  956.    adv(&ob, &db, &nb, 128) ;
  957.    SetRGB4(&(globalblankscreen->ViewPort), 1L, (long)(nr >> 3),
  958.                                     (long)(ng >> 3), (long)(nb >> 3)) ;
  959. }
  960. long oldtime[3] ;
  961. /*
  962.  *   Call this to set the time.
  963.  */
  964. void settime() {
  965.    DateStamp(oldtime) ;
  966. }
  967. /*
  968.  *   Call this to get the time since the last settime.
  969.  */
  970. long gettime() {
  971.    long t[3] ;
  972.  
  973.    DateStamp(t) ;
  974.    return(t[2]-oldtime[2] +
  975.          (t[1]-oldtime[1]) * 3000 +
  976.          (t[0]-oldtime[0]) * 4320000) ;
  977. }
  978. /*
  979.  *   Our actual task, in an infinite loop.
  980.  */
  981. int (*funcs[])() = { &dolines, &dosplines, &doline, &doolines, &doosplines } ;
  982. int maxp[] = { 2, 4, 2, 4, 6 } ;
  983. #define NUMFUNCS (5)
  984. char patterns[20] = "01234" ;
  985. char *lastfunc = patterns ;
  986. void taskrout() {
  987.    register long i ;
  988.    register struct Task *task ;
  989.  
  990.    geta4() ;
  991.    settime() ;
  992.    if (*++lastfunc == 0)
  993.       lastfunc = patterns ;
  994.    if (*lastfunc == 'R')
  995.       i = randm(NUMFUNCS) ;
  996.    else
  997.       i = *lastfunc - '0' ;
  998.    drawfunc = funcs[i] ;
  999.    maxpoints = maxp[i] ;
  1000.    task = FindTask(0L) ;
  1001.    startlines() ;
  1002.    i = 100 ;
  1003.    colors() ;
  1004.    while (SetSignal(0L, 0L)==0) {
  1005.       if (task->tc_Node.ln_Pri == 10)
  1006.          SetTaskPri(task, -20L) ;
  1007.       advancelines() ;
  1008.       drawnew() ;
  1009.       advancelines() ;
  1010.       drawnew() ;
  1011.       if (task->tc_Node.ln_Pri == 10)
  1012.          SetTaskPri(task, -20L) ;
  1013.       advancelines() ;
  1014.       drawnew() ;
  1015.       advancelines() ;
  1016.       drawnew() ;
  1017.       if (task->tc_Node.ln_Pri == 10)
  1018.          SetTaskPri(task, -20L) ;
  1019.       advancelines() ;
  1020.       drawnew() ;
  1021.       advancelines() ;
  1022.       drawnew() ;
  1023.       colors() ;
  1024.       if (patterns[1] != 0 && --i <= 0) {
  1025.          if (gettime() >= 15000) {
  1026.             settime() ;
  1027.             if (*++lastfunc == 0)
  1028.                lastfunc = patterns ;
  1029.             if (*lastfunc == 'R')
  1030.                i = randm(NUMFUNCS) ;
  1031.             else
  1032.                i = *lastfunc - '0' ;
  1033.             drawfunc = funcs[i] ;
  1034.             maxpoints = maxp[i] ;
  1035.         SetRast(rastport, 0L) ;
  1036.         startlines() ;
  1037.      }
  1038.          i = 100 ;
  1039.       }
  1040.    }
  1041. done:
  1042.    Signal(globalbuddy, 1L << globalreplysignum) ;
  1043.    Wait(0L) ;
  1044. }
  1045. /*
  1046.  *   Now we do hotkey magic to activate windows, bring them to front,
  1047.  *   etc.
  1048.  *
  1049.  *   Now we have a key, so we have to find a process with that name and
  1050.  *   bring her to front.  For now, we just deal with tasks, since the
  1051.  *   CLI stuff is so complicated.
  1052.  */
  1053. #define MAXMATCH (20)
  1054. char simplematch[3] = { ' ', '*', 0 } ;
  1055. struct Window *matchwindows[MAXMATCH] ;
  1056. extern long LockIBase() ;
  1057. windowtofront(key, qual)
  1058. char key ;
  1059. {
  1060.    long foo ;
  1061.    register int i, j ;
  1062.    int n ;
  1063.    register struct Window *w ;
  1064.    struct Screen *s ;
  1065.    struct Process *p ;
  1066.    struct MsgPort **mp ;
  1067.    struct CommandLineInterface *CLI ;
  1068.    int cli ;
  1069.    char *nameptr, *matchptr ;
  1070.    extern struct DosLibrary *DOSBase ;
  1071.    register struct hotkey *hk ;
  1072.    int shift, ctrl ;
  1073.    struct Window *activewindow ;
  1074.  
  1075. /*
  1076.  *   First we look for a matching record.
  1077.  */
  1078.    if (key == '.')
  1079.       goto goner ;
  1080.    shift = ((qual & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT)) != 0) ;
  1081.    ctrl = ((qual & IEQUALIFIER_CONTROL) != 0) ;
  1082.    activewindow = NULL ;
  1083.    for (hk=hotkeys; hk; hk=hk->next)
  1084.       if (hk->key == key && 
  1085.           (hk->flags & SHIFT) == shift)
  1086.          break ;
  1087.    cli = 0 ;
  1088.    if (hk && hk->matchstring)
  1089.       matchptr = hk->matchstring ;
  1090.    else {
  1091.       matchptr = simplematch ;
  1092.       if (key == ' ')
  1093.          matchptr++ ;
  1094.       else if ('A' <= key && key <= 'Z')
  1095.          simplematch[0] = key ;
  1096.       else if ('0' <= key && key <= '9') {
  1097.          cli = key ;
  1098.          if (cli == '0')
  1099.             cli += 10 ;
  1100.          matchptr++ ;
  1101.       } else
  1102.          goto goner ;
  1103.    }
  1104.    n = 0 ;
  1105.    foo = LockIBase(0L) ;
  1106.    if (! ctrl && !(hk && (hk->flags & NOTINTUITION)) && !cli) {
  1107.       for (s=IntuitionBase->FirstScreen; s; s=s->NextScreen)
  1108.          for (w=s->FirstWindow; w; w=w->NextWindow) {
  1109.             if (w->UserPort) {
  1110.                p = (struct Process *)(w->UserPort->mp_SigTask) ;
  1111.                if (((struct Task *)p)->tc_Node.ln_Type == NT_PROCESS) {
  1112.                   if (p->pr_CLI) {
  1113.                      CLI = (struct CommandLineInterface *)BSTRtoS(p->pr_CLI) ;
  1114.                      if (bstrcmp(BSTRtoS((CLI)->cli_CommandName), matchptr) &&
  1115.                          n < MAXMATCH) {
  1116.                            if (w==IntuitionBase->ActiveWindow)
  1117.                               activewindow = w ;
  1118.                            matchwindows[n++] = w ;
  1119.                         }
  1120.                   } else {
  1121.                      if (sstrcmp(((struct Task *)p)->tc_Node.ln_Name, matchptr)
  1122.                           && n < MAXMATCH) {
  1123.                         if (w==IntuitionBase->ActiveWindow)
  1124.                            activewindow = w ;
  1125.                         matchwindows[n++] = w ;
  1126.                      }
  1127.                   }
  1128.                }
  1129.             }
  1130.          }
  1131.    }
  1132. /*
  1133.  *   Folks, there are still several/many windows of vulnerability
  1134.  *   here; I'll have to plug them.  For instance, what happens if a
  1135.  *   CLI goes away while we are doing this?  Or what happens if a
  1136.  *   window goes away later, when we are looking at IntuitionBase?
  1137.  */
  1138.    if (! ctrl && !(hk && (hk->flags & NOTCLI))) {
  1139.       mp = (struct MsgPort **)BSTRtoS(*(DOSBase->dl_Root)) ;
  1140.       for (j=1; j<(long)(mp[0]); j++)
  1141.          if (mp[j] && (cli == 0 || j == cli - '0')) {
  1142.             p = (struct Process *)(mp[j]->mp_SigTask) ;
  1143.             CLI = (struct CommandLineInterface *)BSTRtoS(p->pr_CLI) ;
  1144.             if (!CLI->cli_Background &&
  1145.                   bstrcmp(BSTRtoS((CLI)->cli_CommandName), matchptr)) {
  1146.                infoptr->id_VolumeNode = NULL ;
  1147.                dos_packet(p->pr_ConsoleTask, ACTION_DISK_INFO,
  1148.                          ((long)(infoptr)) >> 2, 0L, 0L, 0L, 0L, 0L, 0L) ;
  1149.                if (w=(struct Window *)infoptr->id_VolumeNode)
  1150.                   if (n < MAXMATCH) {
  1151.                      if (w==IntuitionBase->ActiveWindow)
  1152.                         activewindow = w ;
  1153.                      matchwindows[n++] = w ;
  1154.                   }
  1155.             }
  1156.          }
  1157.    }
  1158.    if (shift)
  1159.       key += 100 ;
  1160.    if (ctrl || n==0) {
  1161.       UnlockIBase(foo) ;
  1162.       if (hk == NULL || hk->startstring == NULL)
  1163.          goto goner ;
  1164.       prito(0) ;
  1165.       Execute(hk->startstring, 0L, 0L) ;
  1166.       prito(20) ;
  1167.    } else {
  1168.       if (n == 1) {
  1169.          w = matchwindows[0] ;
  1170.       } else {
  1171. /*
  1172.  *   This is some real neat code.  We want to find the next window,
  1173.  *   that is, the window with the least address greater than the
  1174.  *   currently active window, unless the currently active window
  1175.  *   has the highest address, in which case we want to find the
  1176.  *   window with the least address.  Why this works is left as a
  1177.  *   puzzle for the reader.
  1178.  */
  1179.          if (activewindow) {
  1180.             w = activewindow ;
  1181.             for (j=0; j<n; j++)
  1182.                if ((w > activewindow) ^
  1183.                    (w > matchwindows[j]) ^
  1184.                    (matchwindows[j] > activewindow))
  1185.                   w = matchwindows[j] ;
  1186.          } else {
  1187.             w = NULL ;
  1188.             for (j=0; j<n; j++)
  1189.                if (lastwindows[key]==matchwindows[j]) {
  1190.                   w = lastwindows[key] ;
  1191.                   break ;
  1192.                }
  1193.             if (w==NULL)
  1194.                w = matchwindows[0] ;
  1195.          }
  1196.       }
  1197.       lastwindows[key] = w ;
  1198.       s = w->WScreen ;
  1199.       UnlockIBase(foo) ;
  1200.       ScreenToFront(s) ;
  1201. /*
  1202.  *   If only one window on screen, don't bring it to front
  1203.  *   (mostly for DPaint, but for other progs as well.)
  1204.  *   (Anyone know an easy way to see if this window is fully
  1205.  *   exposed?)
  1206.  */
  1207.       if (s->FirstWindow != w || w->NextWindow)
  1208.          WindowToFront(w) ;
  1209.       ActivateWindow(w) ;
  1210.    }
  1211.    return ;
  1212. goner:
  1213.    DisplayBeep(0L) ;
  1214. }
  1215. /*
  1216.  *   These two functions compare a given string `s' with a `key' string.
  1217.  *   The key string should be all upper case; this is a case insensitive
  1218.  *   match.  If the key string contains `*', this character is assumed to
  1219.  *   match the rest of the string (and it can only come at the end.)  We
  1220.  *   have a routine for BSTR's, and a routine for regular strings.
  1221.  */
  1222. int sstrcmp(s, key)
  1223. register char *s, *key ;
  1224. {
  1225.    while (1) {
  1226.       if (*key == '*')
  1227.          return(1) ;
  1228.       if (*key == 0)
  1229.          return(*s == 0) ;
  1230.       if (*s == 0)
  1231.          return(0) ;
  1232.       if (*s != *key &&
  1233.           (*s != *key + 32 || *s < 'a' || *s > 'z'))
  1234.          return(0) ;
  1235.       s++ ;
  1236.       key++ ;
  1237.    }
  1238. }
  1239. /*
  1240.  *   This is the same as above, only instead of using a null to
  1241.  *   end the string, we keep track of the number of characters.
  1242.  */
  1243. int bstrcmp(s, key)
  1244. register char *s, *key ;
  1245. {
  1246.    register int n ;
  1247.  
  1248.    n = *(unsigned char *)s++ ;
  1249.    while (1) {
  1250.       if (*key == '*')
  1251.          return(1) ;
  1252.       if (*key == 0)
  1253.          return(n == 0) ;
  1254.       if (n == 0)
  1255.          return(0) ;
  1256.       if (*s != *key &&
  1257.           (*s != *key + 32 || *s < 'a' || *s > 'z'))
  1258.          return(0) ;
  1259.       s++ ;
  1260.       key++ ;
  1261.       n-- ;
  1262.    }
  1263. }
  1264. /*
  1265.  *   A place to hold an input line.
  1266.  */
  1267. #define MAXSTARTUPLINE (100)
  1268. char startbuf[MAXSTARTUPLINE] ;
  1269. char upline[MAXSTARTUPLINE] ;
  1270. /*
  1271.  *   Is a legit separator of some sort.
  1272.  */
  1273. int issep(s)
  1274. register char s ;
  1275. {
  1276.    return (s <= ' ' || s == '=' || s == ':' || s == ',' || s == '-') ;
  1277. }
  1278. /*
  1279.  *   Go to next `word' in the startup file.
  1280.  */
  1281. char *getword(s)
  1282. register char *s ;
  1283. {
  1284.    while (*s && issep(*s))
  1285.       s++ ;
  1286.    return(s) ;
  1287. }
  1288. /*
  1289.  *   Upper case a string.
  1290.  */
  1291. char *upcase(dest, s)
  1292. char *dest ;
  1293. register char *s ;
  1294. {
  1295.    register char *d = dest ;
  1296.  
  1297.    while (*s) {
  1298.       if ('a' <= *s && *s <= 'z')
  1299.          *d++ = *s++ - 32 ;
  1300.       else
  1301.          *d++ = *s++ ;
  1302.    }
  1303.    *d = 0 ;
  1304.    return(dest) ;
  1305. }
  1306. /*
  1307.  *   Say we got a bad line.
  1308.  */
  1309. badline() {
  1310.    puts("Error in startup file!") ;
  1311.    puts(startbuf) ;
  1312. }
  1313. /*
  1314.  *   Copies a string from one place to another; string delimited by
  1315.  *   double quotes.
  1316.  */
  1317. char *cpystr(dest, src)
  1318. register char *dest, *src ;
  1319. {
  1320.    if (*src != '"')
  1321.       badline() ;
  1322.    else {
  1323.       src++ ;
  1324.       while (*src != '"' && *src != 0) {
  1325.          if (*src == '\\' && src[1] != 0)
  1326.             src++ ;
  1327.          *dest++ = *src++ ;
  1328.       }
  1329.       if (*src)
  1330.          src++ ;
  1331.    }
  1332.    *dest = 0 ;
  1333.    return(getword(src)) ;
  1334. }
  1335. /*
  1336.  *   Handle a single startup line that's not a comment and non-empty
  1337.  *   and been converted to all upper case.
  1338.  */
  1339. parseline(s, msg)
  1340. register char *s ;
  1341. struct OURMSG *msg ;
  1342. {
  1343.    int flags ;
  1344.    register short t ;
  1345.    register int key ;
  1346.    char *p ;
  1347.    register struct hotkey *hk ;
  1348.  
  1349.    flags = 0 ;
  1350.    if (strncmp(s, "COMMAND", 7)==0) {
  1351.       s = getword(s+7) ;
  1352.       cpystr(msg->cmd, s) ;
  1353.    } else if (strncmp(s, "PATTERNS", 8)==0) {
  1354.       s = getword(s + 8) ;
  1355.       strcpy(patterns, s) ;
  1356.       for (s=patterns; *s; s++)
  1357.          if (('0' > *s || *s >= '0'+NUMFUNCS) && *s != 'R')
  1358.         *s = 'R' ;
  1359.       if (patterns[0] == 0)
  1360.          strcpy(patterns, "R") ;
  1361.    } else if (strncmp(s, "TIMEOUT", 7)==0) {
  1362.       s = getword(s+7) ;
  1363.       t = 0 ;
  1364.       while ('0' <= *s && *s <= '9')
  1365.          t = t * 10 + *s++ - '0' ;
  1366.       if (t < 0)
  1367.          t = DEFTIME ;
  1368.       msg->interval = t ;
  1369.    } else if (strncmp(s, "LINES", 5)==0) {
  1370.       msg->draw = 1 ;
  1371.    } else if (strncmp(s, "BLANK", 5)==0) {
  1372.       msg->draw = -1 ;
  1373.    } else {
  1374.       if (strncmp(s, "SHIFT", 5)==0) {
  1375.          flags = SHIFT ;
  1376.          s = getword(s+5) ;
  1377.       }
  1378.       if (*s == 0)
  1379.          badline() ;
  1380.       else {
  1381.          if (issep(s[1]) &&
  1382.              (('A' <= *s && *s <= 'Z') ||
  1383.               ('0' <= *s && *s <= '9'))) {
  1384.             key = *s ;
  1385.             s = getword(s+1) ;
  1386.          } else if (strncmp(s, "SPACE", 5)==0) {
  1387.             key = ' ' ;
  1388.             s = getword(s+5) ;
  1389.          } else if (*s == 'F' && ('1' <= s[1] && s[1] <= '9')) {
  1390.             s++ ;
  1391.             t = *s++ - '0' ;
  1392.             if (t == 1 && *s == '0') {
  1393.                t = 10 ;
  1394.                s++ ;
  1395.             }
  1396.             key = t ;
  1397.             s = getword(s) ;
  1398.           } else {
  1399.             badline() ;
  1400.             return ;
  1401.          }
  1402.          if (strncmp(s, "INTUITION", 9)==0) {
  1403.             flags |= NOTCLI ;
  1404.             s = getword(s+9) ;
  1405.          } else if (strncmp(s, "CLI", 3)==0) {
  1406.             flags |= NOTINTUITION ;
  1407.             s = getword(s+3) ;
  1408.          }
  1409.          s = cpystr(upline, s) ;
  1410.          p = upline + strlen(upline) + 1 ;
  1411.          if (*s)
  1412.             cpystr(p, startbuf + (s-upline)) ;
  1413.          else
  1414.             *p = 0 ;
  1415.          t = sizeof(struct hotkey) + strlen(p) + strlen(upline) ;
  1416.          hk = AllocMem((long)t, MEMF_CLEAR | MEMF_PUBLIC) ;
  1417.          if (hk) {
  1418.             hk->key = key ;
  1419.             hk->flags = flags ;
  1420.             hk->next = hotkeys ;
  1421.         hk->structlen = t ;
  1422.         hk->matchstring = strcpy(hk->strings, upline) ;
  1423.         hk->startstring = strcpy(hk->strings + strlen(upline) + 1, p) ;
  1424.             if (hk->startstring[0]==0)
  1425.                hk->startstring = NULL ;
  1426.             hotkeys = hk ;
  1427.          } else
  1428.             puts("Out of memory in startup") ;
  1429.       }
  1430.    }
  1431. }
  1432. /*
  1433.  *   Handle the startup file.
  1434.  */
  1435. processstartup(s, msg)
  1436. char *s ;
  1437. struct OURMSG *msg ;
  1438. {
  1439.    FILE *f ;
  1440.    register char *p ;
  1441.  
  1442.    if (f=fopen(s, "r")) {
  1443.       while (fgets(startbuf, MAXSTARTUPLINE, f)) {
  1444.          p = getword(startbuf) ;
  1445.          if (*p != '*' && *p != '#' && *p != ';' && *p != 0) {
  1446.             upcase(upline, p) ;
  1447.             parseline(upline, msg) ;
  1448.          }
  1449.       }
  1450.       fclose(f) ;
  1451.    } else {
  1452.       puts("Couldn't open startup file:") ;
  1453.       puts(s) ;
  1454.    }
  1455. }
  1456. /*
  1457.  *   This stuff down here handles the raw key conversion stuff
  1458.  *   properly.  Thanks to Willy Langeveld and Carolyn Scheppner.
  1459.  */
  1460. char *dos_rkcv();
  1461. int  dos_rkcvinit(), dos_rkcvexit();
  1462. struct IOStdReq ConStdReq;
  1463. /*
  1464.  *   This code won't compile under Manx unless you delete the
  1465.  *   `ConsoleDevice' function in functions.h, or perform a kludge
  1466.  *   like the one I did when I included it.  Why the hell does
  1467.  *   Manx have that in there?  If you try to use it, it comes out
  1468.  *   undefined, but if you rename the following, it won't link
  1469.  *   because it needs the function `ConsoleDevice'.
  1470.  */
  1471. long ConsoleDevice ;
  1472. /**
  1473. *
  1474. *  Calling sequence:
  1475. *  =================
  1476. *
  1477. *    result = (char *) dos_rkcv(code, buffer, length);
  1478. *
  1479. *  Description:
  1480. *  ============
  1481. *
  1482. *    Covert raw key number to array of console device ascii text
  1483. *    using the default keymap.
  1484. *
  1485. *  Inputs:
  1486. *  =======
  1487. *
  1488. *    int code        Raw key number.
  1489. *    int qual        Qualifier.
  1490. *    char *buffer        Pointer to an array of char to receive the
  1491. *                conversion.
  1492. *    int length        length of buffer.
  1493. *
  1494. *  Outputs:
  1495. *  ========
  1496. *
  1497. *    F. value:        NULL on conversion failure, or pointer to
  1498. *                buffer on success.
  1499. *
  1500. **/
  1501. char *dos_rkcv(code, qual, buffer, length)
  1502. int code;
  1503. int qual;
  1504. char *buffer;
  1505. int length;
  1506. {
  1507.    static struct InputEvent event;
  1508.  
  1509.    event.ie_Class = IECLASS_RAWKEY;
  1510.    event.ie_Code = code;
  1511.    event.ie_Qualifier = qual;
  1512.  
  1513.    if (RawKeyConvert(&event, buffer, (long) length, NULL) == 0L) return(0L);
  1514.  
  1515.    return(buffer);
  1516. }
  1517.  
  1518. /**
  1519. *
  1520. *  Calling sequence:
  1521. *  =================
  1522. *
  1523. *    error = dos_rkcvinit();
  1524. *
  1525. *  Description:
  1526. *  ============
  1527. *
  1528. *    Open the Console device for later use with dos_rkcv().
  1529. *
  1530. *  Inputs:
  1531. *  =======
  1532. *
  1533. *    None
  1534. *
  1535. *  Outputs:
  1536. *  ========
  1537. *
  1538. *    F. value:        1 on failure, zero otherwise.
  1539. *                
  1540. *
  1541. **/
  1542. int dos_rkcvinit()
  1543. {
  1544.    if (OpenDevice("console.device", -1L, &ConStdReq, 0L) != NULL) {
  1545.       ConsoleDevice = 0L;
  1546.       return(1);
  1547.    }
  1548.    else {
  1549.       ConsoleDevice = (long) ConStdReq.io_Device;
  1550.       return(0);
  1551.    }
  1552. }
  1553.  
  1554. /**
  1555. *
  1556. *  Calling sequence:
  1557. *  =================
  1558. *
  1559. *    error = dos_rkcvexit();
  1560. *
  1561. *  Description:
  1562. *  ============
  1563. *
  1564. *    Close the Console device after use with dos_rkcv().
  1565. *
  1566. *  Inputs:
  1567. *  =======
  1568. *
  1569. *    None
  1570. *
  1571. *  Outputs:
  1572. *  ========
  1573. *
  1574. *    F. value:        Always zero;
  1575. *                
  1576. **/
  1577. int dos_rkcvexit()
  1578. {
  1579.    if (ConsoleDevice) CloseDevice(&ConStdReq);
  1580.    return(0);
  1581. }
  1582. /*
  1583.  *   Set up the key conversion table.  Note that the buffer has to be
  1584.  *   long word aligned!
  1585.  */
  1586. initkeytoasc() {
  1587.    register int i ;
  1588.    char buf[100] ;
  1589.  
  1590.    for (i=0; i<128; i++)
  1591.       keytoasc[i] = '.' ;
  1592.    if (dos_rkcvinit())
  1593.       return(1) ;
  1594.    for (i=0; i<128; i++) {
  1595.       buf[1] = 0 ;
  1596.       if (dos_rkcv(i, 0, buf, 100) && buf[1] == 0 &&
  1597.           (buf[0] == ' ' ||
  1598.            ('a' <= buf[0] && buf[0] <= 'z' && (buf[0] -= 32)) ||
  1599.            ('0' <= buf[0] && buf[0] <= '9'))) {
  1600.          keytoasc[i] = buf[0] ;
  1601.       }
  1602.    }
  1603. /*
  1604.  *   Have to handle the function keys separately
  1605.  */
  1606.    for (i=80; i<90; i++)
  1607.       keytoasc[i] = i-79 ;
  1608.    dos_rkcvexit() ;
  1609.    return(0) ;
  1610. }
  1611. /*
  1612.  *   Save a byte or two.
  1613.  */
  1614. _wb_parse() {}
  1615.