home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d02xx / d0254.lha / Uedit / Config!H < prev    next >
Text File  |  1989-10-19  |  8KB  |  276 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) {                   .. done bring down window
  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,2)) goto label(97)
  118.             }
  119.         }
  120.         case(normal-f1) {
  121.             freeBuf(buf54)
  122.             equateNum(n93,0)            .. set index to 0 for top of tree
  123.             if (!hyper(buf52,buf54,n93,0))    .. goto index word (top of tree)
  124.                 goto label(98)
  125.         }
  126.         case(normal-f2) {
  127.             freebuf(buf54)
  128.             if (!hyper(buf52,buf54,n93,1))    .. goto parent of n93
  129.                 goto label(98)
  130.         }
  131.         case(normal-f3) {
  132.             freebuf(buf54)
  133.             if (!hyper(buf52,buf54,n93,2))    .. goto child of n93
  134.                 goto label(98)
  135.         }
  136.         case(normal-f4) {
  137.             freebuf(buf54)
  138.             if (!hyper(buf52,buf54,n93,3))     .. goto next sibling of n93
  139.                 goto label(98)
  140.         }
  141.         case(normal-f5) {
  142.             freebuf(buf54)
  143.             if (!hyper(buf52,buf54,n93,4))     .. goto prev sibling of n93
  144.                 goto label(98)
  145.         }
  146.         case(normal-f6) {
  147.             freebuf(buf54)
  148.             if (!hyper(buf52,buf54,n93,5))     .. goto last lookup
  149.                 goto label(98)
  150.         }
  151.         case(normal-f7) {               .. get hyper word input
  152.             if (runKey(lAmiga-gadget1)) goto label(96)
  153.         }
  154.         case(normal-f8) {               .. get hyper word of next index value
  155.             incNum(n93)
  156.             freebuf(buf54)
  157.             if (!hyper(buf52,buf54,n93,0)) {
  158.                 equateNum(n93,0)
  159.                 goto label(98)
  160.             }
  161.         }
  162.         case(normal-f9) {               .. get hyper word of prev index value
  163.             if (gtnum(n93,0)) decNum(n93)
  164.             freebuf(buf54)
  165.             if (!hyper(buf52,buf54,n93,0))
  166.                 goto label(98)
  167.         }
  168.         case(normal-uparrow) {
  169.             movecursor(curfile,upline)
  170.             updatedisplay
  171.             goto label(98)
  172.         }
  173.         case(normal-downarrow) {
  174.             movecursor(curfile,downline)
  175.             updatedisplay
  176.             goto label(98)
  177.         }
  178.         case(normal-leftarrow) {
  179.             movecursor(curfile,sWord)
  180.             updatedisplay
  181.             goto label(98)
  182.         }
  183.         case(normal-rightarrow) {
  184.             movecursor(curfile,eWord)
  185.             updatedisplay
  186.             goto label(98)
  187.         }
  188.         default { goto label(98) }
  189.     }
  190.     swapbuf(buf52,buf53)
  191.     refreshdisplay
  192.     goto label(98)
  193. >
  194.  
  195. Set grep (/search/replace/) string
  196. <lAmiga-f7:
  197.     putMsg("Input grep string:")
  198.     getGrep(buf49)
  199.     movecursor(buf49,sfile)
  200.     movecursor(buf49,echar)
  201.     inputString(buf49)
  202.     setGrep(buf49)
  203.     runKey(lAmiga-f9) >
  204.  
  205. Called by grep cmds to perform grep based on n54 flag
  206. <virtual-f10:   if (!grep(curFile,invert,n54)) {
  207.                     putMsg("Search failed")
  208.                     returnFalse
  209.                 } else putMsg(" ") >
  210.  
  211. Grep search forward
  212. <lAmiga-f9: equateNum(n54,1)
  213.             runKey(virtual-f10)
  214.             >
  215.  
  216. Grep search backward
  217. <rAmiga-f9:  equateNum(n54,-1)
  218.              runKey(virtual-f10)
  219.              >
  220.  
  221. Grep replace & search forward
  222. <lAmiga-f10: equateNum(n54,2)
  223.             runKey(virtual-f10)
  224.             >
  225.  
  226. Grep replace & search backward
  227. <rAmiga-f10:  equateNum(n54,-2)
  228.              runKey(virtual-f10)
  229.              >
  230.  
  231. Goto next bookmark
  232. <shft-gadget1:
  233.     incNum(n94)
  234.     if (gtNum(n94,7)) equateNum(n94,0)
  235.     runKey(virtual-gadget1)
  236. >
  237.  
  238. Goto previous bookmark
  239. <shft-gadget2:
  240.     decNum(n94)
  241.     if (gtNum(0,n94)) equateNum(n94,7)
  242.     runKey(virtual-gadget1)
  243. >
  244.  
  245. Store bookmark at cursor
  246. <shft-gadget3:
  247.     switch(n94) {
  248.         case (0) { equateLoc(curFile,locC,atCursor)  }
  249.         case (1) { equateLoc(curFile,locD,atCursor)  }
  250.         case (2) { equateLoc(curFile,locE,atCursor)  }
  251.         case (3) { equateLoc(curFile,locF,atCursor)  }
  252.         case (4) { equateLoc(curFile,locG,atCursor)  }
  253.         case (5) { equateLoc(curFile,locH,atCursor)  }
  254.         case (6) { equateLoc(curFile,locI,atCursor)  }
  255.         case (7) { equateLoc(curFile,locJ,atCursor)  }
  256.         
  257.     }
  258.     incNum(n94)
  259.     if (gtNum(n94,7)) equateNum(n94,0)
  260. >
  261.  
  262. Used by bookmark cmds to move the cursor
  263. <virtual-gadget3:
  264.     switch(n94) {
  265.         case (0) { moveCursor(curFile,locC)  }
  266.         case (1) { moveCursor(curFile,locD)  }
  267.         case (2) { moveCursor(curFile,locE)  }
  268.         case (3) { moveCursor(curFile,locF)  }
  269.         case (4) { moveCursor(curFile,locG)  }
  270.         case (5) { moveCursor(curFile,locH)  }
  271.         case (6) { moveCursor(curFile,locI)  }
  272.         case (7) { moveCursor(curFile,locJ)  }
  273.     }
  274. >
  275.  
  276.