home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / wp_dtp / uedit25d.lzh / config!h < prev    next >
Text File  |  1989-10-31  |  7KB  |  278 lines
  1.  
  2. Open hyper text facility for HyperHelp
  3. <lAmiga-gadget3:    if (HyperOpen("HyperSample","HyperSample.tbl",0)) {
  4.                         putmsg("Hyper text loaded")
  5.                         equateNum(n93,0)
  6.                     } >
  7.  
  8. Close hyper text facility
  9. <lAmiga-gadget4: HyperClose >
  10.  
  11. Get word input and lookup hyper word, going into hyper text mode
  12. <lAmiga-gadget1:
  13.     if (!hyperUp) { putMsg("Must open hyper text") returnFalse }
  14.     putmsg("Input hyper word/phrase to look up:")
  15.     freeBuf(buf54)
  16.     inputString(buf54)
  17.     updateDisplay
  18.     runKey(virtual-gadget2)
  19. >
  20.  
  21. Get hyper word that was clicked, go into hyper text mode & find it
  22. <lAmiga-buttondown:
  23.     if (!hyperUp) { putMsg("Must open hyper text") returnFalse }
  24.     runKey(virtual-gadget1)
  25.     runKey(virtual-gadget2)
  26. >
  27.  
  28. Capture hyper word or phrase
  29. <virtual-gadget1:
  30.     movecursor(curfile,mouseloc)
  31.     if (!is(curfile,sword)) movecursor(curfile,sword)
  32.     while (!is(curfile,"<")
  33.                 & !is(curfile,eline)
  34.                     & !is(curfile,">")
  35.                         & movecursor(curfile,schar)) nothing
  36.     freebuf(buf54)
  37.     if (is(curfile,"<")) { .. copy the hyper phrase
  38.         movecursor(curfile,echar)
  39.         equateNum(n52,0)
  40.         while (nothing) {
  41.             copychar(curfile,n53)
  42.             movecursor(curfile,echar)
  43.             if (eqnum(n53,">")) goto label(0)
  44.             insertchar(buf54,n53)
  45.             incNum(n52)
  46.             if (geNum(n52,17)) goto label(0)
  47.         }
  48.         label(0)
  49.     } else {              .. copy just the word
  50.         movecursor(curfile,mouseloc)
  51.         if (!is(curfile,sword)) movecursor(curfile,sword)
  52.         insertrgn(buf54,efile,curfile,word)
  53.     }
  54. >
  55.  
  56. Hyper lookup mode  .. <hyper word> is in buf54, index is in n93
  57. <virtual-gadget2:
  58.     if (gtNum(0,n93)) equateNum(n93,0)
  59.     equateNum(n92,curfile)
  60.     if (!hyper(buf53,buf54,n93,0)) {    .. find word starting from n93
  61.         freebuf(buf54)                  .. find word starting from top of table
  62.         if (!hyper(buf53,buf54,0,0)) return
  63.     }
  64.     if (!eqNum(curFile,buf53) & !gotoSplit(buf53)) {
  65.         if (!splitWindow(buf53,12)) {
  66.             putMsg("Close a split window so can bring up hyper text")
  67.             return
  68.         }
  69.     }
  70.     refreshdisplay
  71. label(98)
  72.     putMsg("lAmiga-mouse or F1-F9=select  Arrows=cursor  F6=history  ESC=quit")
  73.  
  74.     while (mouseDown) inputKey(n54)
  75.     getKeyVal(macroNum,inputChar)
  76.     if (eqNum(inputChar,10)) {
  77.         equateLoc(curfile,mouseloc,atcursor)
  78.         runkey(virtual-gadget1)
  79.         goto label(96)
  80.     }
  81.     switch(macroNum) {
  82.         case(normal-esc) {
  83.             gotoSplit(buf[n92])
  84.             splitWindow(buf53,0)      .. close it if made it
  85.             freeBuf(buf54)
  86.             freeBuf(buf53)
  87.             putmsg(" ")
  88.             return
  89.         }
  90.         case(normal-buttonDown) {                    .. scroll, place cursor
  91.             moveCursor(curFile,mouseLoc)
  92.             updateDisplay
  93.             mouseXY(n0,n1)
  94.             equateNum(n4,0)
  95.             if (mouseDown) while (not inputWaiting) {
  96.                 trackMouse
  97.                 mouseXY(n2,n3)
  98.                 sub(n3,n3,n1)
  99.                 div(n3,n3,5)
  100.                 if (!eqNum(n3,0)) {
  101.                   vscroll(n3)
  102.                   updateDisplay
  103.                   equateNum(n4,1)
  104.                 }
  105.             }
  106.             if (eqNum(n4,1)) refreshdisplay
  107.             goto label(98)
  108.         }
  109.         case(lAmiga-buttonDown) {
  110.             runKey(virtual-gadget1)
  111. label(96)
  112.             if (gtNum(0,n93)) equateNum(n93,0)
  113.             if (eqNum(0,n93)) {
  114. label(97)                        .. try from top of table
  115.                 if (!hyper(buf52,buf54,n93,0)) goto label(98)
  116.             } else {            .. try algorithm
  117.                 if (..!hyper(buf52,buf54,n93,1)
  118.                     ..&
  119.                     !hyper(buf52,buf54,n93,2)) goto label(97)
  120.             }
  121.         }
  122.         case(normal-f1) {
  123.             freeBuf(buf54)
  124.             equateNum(n93,0)            .. set index to 0 for top of tree
  125.             if (!hyper(buf52,buf54,n93,0))    .. goto index word (top of tree)
  126.                 goto label(98)
  127.         }
  128.         case(normal-f2) {
  129.             freebuf(buf54)
  130.             if (!hyper(buf52,buf54,n93,1))    .. goto parent of n93
  131.                 goto label(98)
  132.         }
  133.         case(normal-f3) {
  134.             freebuf(buf54)
  135.             if (!hyper(buf52,buf54,n93,2))    .. goto child of n93
  136.                 goto label(98)
  137.         }
  138.         case(normal-f4) {
  139.             freebuf(buf54)
  140.             if (!hyper(buf52,buf54,n93,3))     .. goto next sibling of n93
  141.                 goto label(98)
  142.         }
  143.         case(normal-f5) {
  144.             freebuf(buf54)
  145.             if (!hyper(buf52,buf54,n93,4))     .. goto prev sibling of n93
  146.                 goto label(98)
  147.         }
  148.         case(normal-f6) {
  149.             freebuf(buf54)
  150.             if (!hyper(buf52,buf54,n93,5))     .. goto last lookup
  151.                 goto label(98)
  152.         }
  153.         case(normal-f7) {                .. get hyper word input
  154.             if (runKey(lAmiga-gadget1)) goto label(96)
  155.         }
  156.         case(normal-f8) {                .. get hyper word of next index value
  157.             incNum(n93)
  158.             freebuf(buf54)
  159.             if (!hyper(buf52,buf54,n93,0)) {
  160.                 equateNum(n93,0)
  161.                 goto label(98)
  162.             }
  163.         }
  164.         case(normal-f9) {                .. get hyper word of prev index value
  165.             if (gtnum(n93,0)) decNum(n93)
  166.             freebuf(buf54)
  167.             if (!hyper(buf52,buf54,n93,0))
  168.                 goto label(98)
  169.         }
  170.         case(normal-uparrow) {
  171.             movecursor(curfile,upline)
  172.             updatedisplay
  173.             goto label(98)
  174.         }
  175.         case(normal-downarrow) {
  176.             movecursor(curfile,downline)
  177.             updatedisplay
  178.             goto label(98)
  179.         }
  180.         case(normal-leftarrow) {
  181.             movecursor(curfile,sWord)
  182.             updatedisplay
  183.             goto label(98)
  184.         }
  185.         case(normal-rightarrow) {
  186.             movecursor(curfile,eWord)
  187.             updatedisplay
  188.             goto label(98)
  189.         }
  190.         default { goto label(98) }
  191.     }
  192.     swapbuf(buf52,buf53)
  193.     refreshdisplay
  194.     goto label(98)
  195. >
  196.  
  197. Set grep (/search/replace/) string
  198. <lAmiga-f7:
  199.     putMsg("Input grep string:")
  200.     getGrep(buf49)
  201.     movecursor(buf49,sfile)
  202.     movecursor(buf49,echar)
  203.     inputString(buf49)
  204.     setGrep(buf49)
  205.     runKey(lAmiga-f9) >
  206.  
  207. Called by grep cmds to perform grep based on n54 flag
  208. <virtual-f10:    if (!grep(curFile,invert,n54)) {
  209.                     putMsg("Search failed")
  210.                     returnFalse
  211.                 } else putMsg(" ") >
  212.  
  213. Grep search forward
  214. <lAmiga-f9: equateNum(n54,1)
  215.             runKey(virtual-f10)
  216.             >
  217.  
  218. Grep search backward
  219. <rAmiga-f9:  equateNum(n54,-1)
  220.              runKey(virtual-f10)
  221.              >
  222.  
  223. Grep search & replace forward
  224. <lAmiga-f10: equateNum(n54,2)
  225.             runKey(virtual-f10)
  226.             >
  227.  
  228. Grep search & replace backward
  229. <rAmiga-f10:  equateNum(n54,-2)
  230.              runKey(virtual-f10)
  231.              >
  232.  
  233. Goto next bookmark
  234. <shft-gadget1:
  235.     incNum(n94)
  236.     if (gtNum(n94,7)) equateNum(n94,0)
  237.     runKey(43)
  238. >
  239.  
  240. Goto previous bookmark
  241. <shft-gadget2:
  242.     decNum(n94)
  243.     if (gtNum(0,n94)) equateNum(n94,7)
  244.     runKey(43)
  245. >
  246.  
  247. Store bookmark at cursor
  248. <shft-gadget3:
  249.     switch(n94) {
  250.         case (0) { equateLoc(curFile,locC,atCursor)  }
  251.         case (1) { equateLoc(curFile,locD,atCursor)  }
  252.         case (2) { equateLoc(curFile,locE,atCursor)  }
  253.         case (3) { equateLoc(curFile,locF,atCursor)  }
  254.         case (4) { equateLoc(curFile,locG,atCursor)  }
  255.         case (5) { equateLoc(curFile,locH,atCursor)  }
  256.         case (6) { equateLoc(curFile,locI,atCursor)  }
  257.         case (7) { equateLoc(curFile,locJ,atCursor)  }
  258.  
  259.     }
  260.     incNum(n94)
  261.     if (gtNum(n94,7)) equateNum(n94,0)
  262. >
  263.  
  264. Used by bookmark cmds to move the cursor
  265. <43:
  266.     switch(n94) {
  267.         case (0) { moveCursor(curFile,locC)  }
  268.         case (1) { moveCursor(curFile,locD)  }
  269.         case (2) { moveCursor(curFile,locE)  }
  270.         case (3) { moveCursor(curFile,locF)  }
  271.         case (4) { moveCursor(curFile,locG)  }
  272.         case (5) { moveCursor(curFile,locH)  }
  273.         case (6) { moveCursor(curFile,locI)  }
  274.         case (7) { moveCursor(curFile,locJ)  }
  275.     }
  276. >
  277.  
  278.