home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1064.dms / 1064.adf / Uedit / Config!H < prev    next >
Text File  |  1987-06-04  |  9KB  |  363 lines
  1.  
  2. Open hyper text facility for HyperHelp
  3. <rAmiga-gadget3:    if (HyperOpen("HyperSample","HyperSample.tbl",0)) {
  4.                         putmsg("Hyper text loaded")
  5.                         equateNum(n93,0)
  6.                     } >
  7.  
  8. Close hyper text facility
  9. <rAmiga-gadget4: HyperClose >
  10.  
  11. Get word input and lookup hyper word, going into hyper text mode
  12. <rAmiga-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. <rAmiga-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. Forbid tiny window
  57. <virtual-menuDown: 
  58.     if (!inTiny) return
  59.     toggle(toTiny)
  60.     refreshDisplay >
  61.  
  62. Hyper lookup mode  .. <hyper word> is in buf54, index is in n93
  63. <virtual-gadget2:
  64.     runKey(virtual-menuDown)
  65.     if (gtNum(0,n93)) equateNum(n93,0)
  66.     equateNum(n92,curfile)
  67.     if (!hyper(buf53,buf54,n93,0)) {    .. find word starting from n93
  68.         freebuf(buf54)                  .. find word starting from top of table
  69.         if (!hyper(buf53,buf54,0,0)) return
  70.     }
  71.     if (!eqNum(curFile,buf53) & !gotoSplit(buf53)) {
  72.         if (!splitWindow(buf53,12)) {
  73.             putMsg("Close a split window so can bring up hyper text")
  74.             return
  75.         }
  76.     }
  77.     refreshdisplay
  78. label(98)
  79.     putMsg("rAmiga-mouse or F1-F9=select  Arrows=cursor  F6=history  ESC/closeBox=quit")
  80.  
  81.     runKey(virtual-menuDown)
  82.     while (mouseDown) inputKey(n54)
  83.     getKeyVal(macroNum,inputChar)
  84.     runKey(virtual-menuDown)
  85.     if (eqNum(inputChar,10)) {
  86.         equateLoc(curfile,mouseloc,atcursor)
  87.         runkey(virtual-gadget1)
  88.         goto label(96)
  89.     }
  90.     runKey(virtual-menuDown)
  91.     switch(macroNum) {
  92.         case(normal-closeBox)
  93.         case(normal-esc) {
  94.             gotoSplit(buf[n92])
  95.             splitWindow(buf53,0)      .. close it if made it
  96.             freeBuf(buf54)
  97.             freeBuf(buf53)
  98.             putmsg(" ")
  99.             return
  100.         }
  101.         case(normal-buttonDown) {                    .. scroll, place cursor
  102.             runKey(virtual-menuDown)
  103.             moveCursor(curFile,mouseLoc)
  104.             updateDisplay
  105.             mouseXY(n0,n1)
  106.             equateNum(n4,0)
  107.             if (mouseDown) while (not inputWaiting) {
  108.                 runKey(virtual-menuDown)
  109.                 trackMouse
  110.                 mouseXY(n2,n3)
  111.                 sub(n3,n3,n1)
  112.                 div(n3,n3,5)
  113.                 if (!eqNum(n3,0)) {
  114.                   vscroll(n3)
  115.                   updateDisplay
  116.                   equateNum(n4,1)
  117.                 }
  118.             }
  119.             runKey(virtual-menuDown)
  120.             if (eqNum(n4,1)) refreshdisplay
  121.             goto label(98)
  122.         }
  123.         case(rAmiga-buttonDown) {
  124.             runKey(virtual-gadget1)
  125. label(96)
  126.             if (gtNum(0,n93)) equateNum(n93,0)
  127.             if (eqNum(0,n93)) {
  128. label(97)                        .. try from top of table
  129.                 if (!hyper(buf52,buf54,n93,0)) goto label(98)
  130.             } else {            .. try algorithm
  131.                 if (..!hyper(buf52,buf54,n93,1)
  132.                     ..&
  133.                     !hyper(buf52,buf54,n93,2)) goto label(97)
  134.             }
  135.         }
  136.         case(normal-f1) {
  137.             freeBuf(buf54)
  138.             equateNum(n93,0)            .. set index to 0 for top of tree
  139.             if (!hyper(buf52,buf54,n93,0))    .. goto index word (top of tree)
  140.                 goto label(98)
  141.         }
  142.         case(normal-f2) {
  143.             freebuf(buf54)
  144.             if (!hyper(buf52,buf54,n93,1))    .. goto parent of n93
  145.                 goto label(98)
  146.         }
  147.         case(normal-f3) {
  148.             freebuf(buf54)
  149.             if (!hyper(buf52,buf54,n93,2))    .. goto child of n93
  150.                 goto label(98)
  151.         }
  152.         case(normal-f4) {
  153.             freebuf(buf54)
  154.             if (!hyper(buf52,buf54,n93,3))     .. goto next sibling of n93
  155.                 goto label(98)
  156.         }
  157.         case(normal-f5) {
  158.             freebuf(buf54)
  159.             if (!hyper(buf52,buf54,n93,4))     .. goto prev sibling of n93
  160.                 goto label(98)
  161.         }
  162.         case(normal-f6) {
  163.             freebuf(buf54)
  164.             if (!hyper(buf52,buf54,n93,5))     .. goto last lookup
  165.                 goto label(98)
  166.         }
  167.         case(normal-f7) {                .. get hyper word input
  168.             putmsg("Input hyper word/phrase to look up:")
  169.             freeBuf(buf54)
  170.             runKey(virtual-menuDown)
  171.             inputString(buf54)
  172.             runKey(virtual-menuDown)
  173.             updateDisplay
  174.             goto label(96)
  175.         }
  176.         case(normal-f8) {                .. get hyper word of next index value
  177.             incNum(n93)
  178.             freebuf(buf54)
  179.             if (!hyper(buf52,buf54,n93,0)) {
  180.                 equateNum(n93,0)
  181.                 goto label(98)
  182.             }
  183.         }
  184.         case(normal-f9) {                .. get hyper word of prev index value
  185.             if (gtnum(n93,0)) decNum(n93)
  186.             freebuf(buf54)
  187.             if (!hyper(buf52,buf54,n93,0))
  188.                 goto label(98)
  189.         }
  190.         case(normal-uparrow) {
  191.             movecursor(curfile,upline)
  192.             updatedisplay
  193.             goto label(98)
  194.         }
  195.         case(normal-downarrow) {
  196.             movecursor(curfile,downline)
  197.             updatedisplay
  198.             goto label(98)
  199.         }
  200.         case(normal-leftarrow) {
  201.             movecursor(curfile,sWord)
  202.             updatedisplay
  203.             goto label(98)
  204.         }
  205.         case(normal-rightarrow) {
  206.             movecursor(curfile,eWord)
  207.             updatedisplay
  208.             goto label(98)
  209.         }
  210.         default { goto label(98) }
  211.     }
  212.     runKey(virtual-menuDown)
  213.     swapbuf(buf52,buf53)
  214.     refreshdisplay
  215.     goto label(98)
  216. >
  217.  
  218. Set grep (/search/replace/) string
  219. <lAmiga-f7:
  220.     putMsg("Input grep string:")
  221.     getGrep(buf49)
  222.     movecursor(buf49,sfile)
  223.     movecursor(buf49,echar)
  224.     inputString(buf49)
  225.     setGrep(buf49)
  226.     runKey(lAmiga-f9) >
  227.  
  228. Called by grep cmds to perform grep based on n54 flag
  229. <virtual-f10:    if (!grep(curFile,invert,n54)) {
  230.                     putMsg("Search failed")
  231.                     returnFalse
  232.                 } else putMsg(" ") >
  233.  
  234. Grep search forward
  235. <lAmiga-f9: equateNum(n54,1)
  236.             runKey(virtual-f10)
  237.             >
  238.  
  239. Grep search backward
  240. <rAmiga-f9:  equateNum(n54,-1)
  241.              runKey(virtual-f10)
  242.              >
  243.  
  244. Grep search & replace forward
  245. <lAmiga-f10: equateNum(n54,2)
  246.             runKey(virtual-f10)
  247.             >
  248.  
  249. Grep search & replace backward
  250. <rAmiga-f10:  equateNum(n54,-2)
  251.              runKey(virtual-f10)
  252.              >
  253.  
  254. Goto next bookmark
  255. <shft-gadget1:
  256.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  257.     incNum(n94)
  258.     if (gtNum(n94,7)) equateNum(n94,0)
  259.     runKey(virtual-gadget3) >
  260.  
  261. Goto previous bookmark
  262. <shft-gadget2:
  263.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  264.     decNum(n94)
  265.     if (gtNum(0,n94)) equateNum(n94,7)
  266.     runKey(virtual-gadget3) >
  267.  
  268. Store bookmark at cursor
  269. <shft-gadget3:
  270.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  271.  
  272.     while(mouseDown) inputKey(n54)
  273.     inputKey(n54)
  274.  
  275.     .. get new bookmark name
  276.     moveCursor(buf60,sFile)
  277.     do (n54,0,n94) moveCursor(buf60,eLine)
  278.     moveCursor(buf60,sLine)
  279.     
  280.     freeBuf(buf53)
  281.     insertRgn(buf53,eFile,buf60,line)
  282.     putMsg("Enter bookmark name:")
  283.     inputString(buf53)
  284.     fileSize(buf53,n54)
  285.     if (eqNum(n54,0)) {
  286.         insertRgn(buf53,eFile,"BookMark-",all)
  287.         toWord(buf53,n94)
  288.     }
  289.     clearRgn(buf60,line)
  290.     moveCursor(buf53,sFile)
  291.     insertRgn(buf60,atCursor,buf53,line)
  292.     
  293.     freebuf(buf54)
  294.     insertrgn(buf54,atcursor,"Mark = ",all)
  295.     insertRgn(buf54,eFile,buf53,line)
  296.     putmsg(buf54)
  297.  
  298.     switch(n94) {
  299.         case (0) { equateLoc(curFile,locC,atCursor)  }
  300.         case (1) { equateLoc(curFile,locD,atCursor)  }
  301.         case (2) { equateLoc(curFile,locE,atCursor)  }
  302.         case (3) { equateLoc(curFile,locF,atCursor)  }
  303.         case (4) { equateLoc(curFile,locG,atCursor)  }
  304.         case (5) { equateLoc(curFile,locH,atCursor)  }
  305.         case (6) { equateLoc(curFile,locI,atCursor)  }
  306.         case (7) { equateLoc(curFile,locJ,atCursor)  }
  307.     }
  308.     incNum(n94)
  309.     if (gtNum(n94,7)) equateNum(n94,0)
  310. >
  311.  
  312. Used by bookmark cmds to move the cursor
  313. <virtual-gadget3:
  314.     
  315.     moveCursor(buf60,sFile)
  316.     do (n54,0,n94) moveCursor(buf60,eLine)
  317.     moveCursor(buf60,sLine)
  318.     freebuf(buf54)
  319.     insertRgn(buf54,eFile,buf60,line)
  320.     putmsg(buf54)
  321.     
  322.     switch(n94) {
  323.         case (0) { moveCursor(curFile,locC)  }
  324.         case (1) { moveCursor(curFile,locD)  }
  325.         case (2) { moveCursor(curFile,locE)  }
  326.         case (3) { moveCursor(curFile,locF)  }
  327.         case (4) { moveCursor(curFile,locG)  }
  328.         case (5) { moveCursor(curFile,locH)  }
  329.         case (6) { moveCursor(curFile,locI)  }
  330.         case (7) { moveCursor(curFile,locJ)  }
  331.     } >
  332.  
  333. Reset all bookmarks to sFile
  334. <shft-gadget4:
  335.     putmsg("Bookmarks reset")
  336.     freeBuf(buf60)
  337.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  338.     equateLoc(curfile,locC,sFile)
  339.     equateLoc(curfile,locD,eFile)
  340.     equateLoc(curfile,locE,sHilite)
  341.     equateLoc(curfile,locF,eHilite)
  342.     equateLoc(curfile,locG,sInvert)
  343.     equateLoc(curfile,locH,eInvert)
  344.     equateLoc(curfile,locI,locA)
  345.     equateLoc(curfile,locJ,locB)
  346.     equateNum(n94,0)
  347. >
  348.  
  349. Put dummy bookmark names in buf60
  350. <virtual-gadget4:
  351.     if (!isEmpty(buf60)) return     .. use the names already in buf60
  352.     insertRgn(buf60,eFile,
  353. "Start of File
  354. End of File
  355. Start of Hilite
  356. End of Hilite
  357. Start of Invert
  358. End of Invert
  359. locA
  360. locB
  361. ",all)
  362. >
  363.