home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d539 / uedit.lha / UEdit / Config!H < prev    next >
Text File  |  1991-08-26  |  10KB  |  401 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. ((Improvements included in the following bookmark cmds were contributed by
  255. Rene LeBlanc and Ken Perano.  3/5/91 RS))
  256.  
  257. Goto bookmark
  258. <shft-gadget1:
  259.     if (!runKey(virtual-middleUp)) returnFalse    .. select bkmark with mouse
  260.     runKey(virtual-gadget3) >
  261.  
  262. Goto next bookmark
  263. <shft-gadget2:
  264.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  265.     incNum(n94)
  266.     if (gtNum(n94,7)) equateNum(n94,0)
  267.     runKey(virtual-gadget3) >
  268.  
  269. Store bookmark at cursor
  270. <shft-gadget3:
  271.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  272.     if (!runKey(virtual-middleUp)) returnFalse .. get a bookmark to name
  273.  
  274.     .. get new bookmark name
  275.     moveCursor(buf60,sFile)
  276.     do (n54,0,n94) moveCursor(buf60,downLine)
  277.     moveCursor(buf60,upLine)
  278.  
  279.     freeBuf(buf53)
  280.     insertRgn(buf53,eFile,buf60,line)
  281.     putMsg("Enter bookmark name (1-10 chars):")
  282.     inputString(buf53)
  283.     if (!isEmpty(buf53)) {
  284.         clearRgn(buf60,line)
  285.         moveCursor(buf53,sFile)
  286.         insertRgn(buf60,atCursor,buf53,line)
  287.     }
  288.  
  289.     freebuf(buf54)
  290.     insertrgn(buf54,atcursor,"Mark = ",all)
  291.     insertRgn(buf54,eFile,buf53,line)
  292.     putmsg(buf54)
  293.  
  294.     switch(n94) {
  295.         case (0) { equateLoc(curFile,locC,atCursor)  }
  296.         case (1) { equateLoc(curFile,locD,atCursor)  }
  297.         case (2) { equateLoc(curFile,locE,atCursor)  }
  298.         case (3) { equateLoc(curFile,locF,atCursor)  }
  299.         case (4) { equateLoc(curFile,locG,atCursor)  }
  300.         case (5) { equateLoc(curFile,locH,atCursor)  }
  301.         case (6) { equateLoc(curFile,locI,atCursor)  }
  302.         case (7) { equateLoc(curFile,locJ,atCursor)  }
  303.     }
  304. >
  305.  
  306. Used by bookmark cmds to move the cursor
  307. <virtual-gadget3:
  308.     moveCursor(buf60,sFile)
  309.     do (n54,0,n94) moveCursor(buf60,downLine)
  310.     moveCursor(buf60,upLine)
  311.     freebuf(buf54)
  312.     insertRgn(buf54,eFile,buf60,line)
  313.     putmsg(buf54)
  314.  
  315.     switch(n94) {
  316.         case (0) { moveCursor(curFile,locC)  }
  317.         case (1) { moveCursor(curFile,locD)  }
  318.         case (2) { moveCursor(curFile,locE)  }
  319.         case (3) { moveCursor(curFile,locF)  }
  320.         case (4) { moveCursor(curFile,locG)  }
  321.         case (5) { moveCursor(curFile,locH)  }
  322.         case (6) { moveCursor(curFile,locI)  }
  323.         case (7) { moveCursor(curFile,locJ)  }
  324.     } >
  325.  
  326. Reset all bookmarks to sFile
  327. <shft-gadget4:
  328.     putmsg("Bookmarks reset")
  329.     freeBuf(buf60)
  330.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  331.     equateLoc(curfile,locC,sFile)
  332.     equateLoc(curfile,locD,eFile)
  333.     equateLoc(curfile,locE,sHilite)
  334.     equateLoc(curfile,locF,eHilite)
  335.     equateLoc(curfile,locG,sInvert)
  336.     equateLoc(curfile,locH,eInvert)
  337.     equateLoc(curfile,locI,locA)
  338.     equateLoc(curfile,locJ,locB)
  339.     equateNum(n94,0)
  340. >
  341.  
  342. Put dummy bookmark names in buf60
  343. <virtual-gadget4:
  344.     if (isEmpty(buf60)) insertRgn(buf60,eFile,
  345. "S File
  346. E File
  347. S Hilite
  348. E Hilite
  349. S Invert
  350. E Invert
  351. locA
  352. locB
  353. ",all)
  354. >
  355.  
  356. Display bookmark names in msg line
  357. <virtual-middleDown:
  358.     updateDisplay
  359.     movecursor(buf60,sFile)
  360.     equateNum(n49,0)
  361.     equateNum(n51,1)
  362.     do (n54,0,7) {
  363.         freebuf(buf54)
  364.         insertRgn(buf54,eFile,buf60,line)
  365.         text(buf54,0,n49,n51,10)
  366.         if (eqNum(n51,1)) equateNum(n51,2)
  367.         else equateNum(n51,1)
  368.         add(n49,n49,10)
  369.         moveCursor(buf60,downLine)
  370.     }
  371. >
  372.  
  373. Select a bookmark with mouse
  374. <virtual-middleUp:
  375.     runKey(virtual-gadget4) .. fill buf60 with mark names if empty
  376.     runKey(virtual-middleDown) .. display bookmark names
  377.     while (mouseDown) inputKey(n54)
  378.  
  379.     getKeyVal(n3,n4)    .. get a mouse input
  380.     putmsg("  ")
  381.     putMsg(" ")
  382.     switch(n3) {
  383.         case(normal-gadget1)
  384.         case(normal-gadget2)
  385.         case(normal-gadget3)
  386.         case(normal-gadget4)
  387.         case(shft-gadget1)
  388.         case(shft-gadget2)
  389.         case(shft-gadget3)
  390.         case(shft-gadget4)  { nothing }
  391.         default { returnFalse }
  392.     }
  393.     mousexy(n53,n54)
  394.     label(0)
  395.     inputKey(n52)
  396.     if (mouseDown) { delay(1) goto label(0) }
  397.     div(n53,n53,80)
  398.     equateNum(n94,n53)
  399. >
  400.  
  401.