home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d415 / uedit / config!h < prev    next >
Encoding:
Text File  |  1990-12-15  |  7.3 KB  |  304 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.             putmsg("Input hyper word/phrase to look up:")
  155.             freeBuf(buf54)
  156.             inputString(buf54)
  157.             updateDisplay
  158.             goto label(96)
  159.         }
  160.         case(normal-f8) {                .. get hyper word of next index value
  161.             incNum(n93)
  162.             freebuf(buf54)
  163.             if (!hyper(buf52,buf54,n93,0)) {
  164.                 equateNum(n93,0)
  165.                 goto label(98)
  166.             }
  167.         }
  168.         case(normal-f9) {                .. get hyper word of prev index value
  169.             if (gtnum(n93,0)) decNum(n93)
  170.             freebuf(buf54)
  171.             if (!hyper(buf52,buf54,n93,0))
  172.                 goto label(98)
  173.         }
  174.         case(normal-uparrow) {
  175.             movecursor(curfile,upline)
  176.             updatedisplay
  177.             goto label(98)
  178.         }
  179.         case(normal-downarrow) {
  180.             movecursor(curfile,downline)
  181.             updatedisplay
  182.             goto label(98)
  183.         }
  184.         case(normal-leftarrow) {
  185.             movecursor(curfile,sWord)
  186.             updatedisplay
  187.             goto label(98)
  188.         }
  189.         case(normal-rightarrow) {
  190.             movecursor(curfile,eWord)
  191.             updatedisplay
  192.             goto label(98)
  193.         }
  194.         default { goto label(98) }
  195.     }
  196.     swapbuf(buf52,buf53)
  197.     refreshdisplay
  198.     goto label(98)
  199. >
  200.  
  201. Set grep (/search/replace/) string
  202. <lAmiga-f7:
  203.     putMsg("Input grep string:")
  204.     getGrep(buf49)
  205.     movecursor(buf49,sfile)
  206.     movecursor(buf49,echar)
  207.     inputString(buf49)
  208.     setGrep(buf49)
  209.     runKey(lAmiga-f9) >
  210.  
  211. Called by grep cmds to perform grep based on n54 flag
  212. <virtual-f10:    if (!grep(curFile,invert,n54)) {
  213.                     putMsg("Search failed")
  214.                     returnFalse
  215.                 } else putMsg(" ") >
  216.  
  217. Grep search forward
  218. <lAmiga-f9: equateNum(n54,1)
  219.             runKey(virtual-f10)
  220.             >
  221.  
  222. Grep search backward
  223. <rAmiga-f9:  equateNum(n54,-1)
  224.              runKey(virtual-f10)
  225.              >
  226.  
  227. Grep search & replace forward
  228. <lAmiga-f10: equateNum(n54,2)
  229.             runKey(virtual-f10)
  230.             >
  231.  
  232. Grep search & replace backward
  233. <rAmiga-f10:  equateNum(n54,-2)
  234.              runKey(virtual-f10)
  235.              >
  236.  
  237. ((Improvements included in the following bookmark cmds were submitted by Rene
  238. LeBlanc.  4/5/90 RS))
  239.  
  240. Goto next bookmark
  241. <shft-gadget1:
  242.     incNum(n94)
  243.     if (gtNum(n94,7)) equateNum(n94,0)
  244.     runKey(virtual-gadget3) >
  245.  
  246. Goto previous bookmark
  247. <shft-gadget2:
  248.     decNum(n94)
  249.     if (gtNum(0,n94)) equateNum(n94,7)
  250.     runKey(virtual-gadget3) >
  251.  
  252. Store bookmark at cursor
  253. <shft-gadget3:
  254.     freebuf(buf54)
  255.     insertrgn(buf54,atcursor,"BookMark ",all)
  256.     toword(buf54,n94)
  257.     insertrgn(buf54,atcursor," set",all)
  258.     putmsg(buf54)
  259.     switch(n94) {
  260.         case (0) { equateLoc(curFile,locC,atCursor)  }
  261.         case (1) { equateLoc(curFile,locD,atCursor)  }
  262.         case (2) { equateLoc(curFile,locE,atCursor)  }
  263.         case (3) { equateLoc(curFile,locF,atCursor)  }
  264.         case (4) { equateLoc(curFile,locG,atCursor)  }
  265.         case (5) { equateLoc(curFile,locH,atCursor)  }
  266.         case (6) { equateLoc(curFile,locI,atCursor)  }
  267.         case (7) { equateLoc(curFile,locJ,atCursor)  }
  268.  
  269.     }
  270.     incNum(n94)
  271.     if (gtNum(n94,7)) equateNum(n94,0)
  272. >
  273.  
  274. Used by bookmark cmds to move the cursor
  275. <virtual-gadget3:
  276.     freebuf(buf54)
  277.     insertrgn(buf54,atcursor,"To BookMark ",all)
  278.     toword(buf54,n94)
  279.     putmsg(buf54)
  280.     switch(n94) {
  281.         case (0) { moveCursor(curFile,locC)  }
  282.         case (1) { moveCursor(curFile,locD)  }
  283.         case (2) { moveCursor(curFile,locE)  }
  284.         case (3) { moveCursor(curFile,locF)  }
  285.         case (4) { moveCursor(curFile,locG)  }
  286.         case (5) { moveCursor(curFile,locH)  }
  287.         case (6) { moveCursor(curFile,locI)  }
  288.         case (7) { moveCursor(curFile,locJ)  }
  289.     } >
  290.  
  291. Reset all bookmarks to sFile
  292. <alt-gadget3:
  293.     putmsg("Bookmarks cleared")
  294.     equateLoc(curfile,locC,sfile)
  295.     equateLoc(curfile,locD,sfile) 
  296.     equateLoc(curfile,locE,sfile)
  297.     equateLoc(curfile,locF,sfile)
  298.     equateLoc(curfile,locG,sfile)
  299.     equateLoc(curfile,locH,sfile)
  300.     equateLoc(curfile,locI,sfile)
  301.     equateLoc(curfile,locJ,sfile)
  302. >
  303.  
  304.