home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / RogerHand.LZH / Marking < prev    next >
Text File  |  1991-04-01  |  6KB  |  250 lines
  1. Marking text, Copying, Moving, Deleting
  2. Roger Hand
  3.  
  4. Control-L: Set start and end of hilite
  5. <ctl-l:
  6.  
  7. ..START OF HILITE
  8.  
  9.  if (eqNum(n66,0))
  10.   {equateLoc(curFile,sHilite,atCursor)
  11.    equateLoc(curFile,eHilite,atCursor) refreshDisplay
  12.    equateNum(n66,10)
  13.    putMsg("Start Hilite")
  14.    return
  15.   }
  16.  
  17. ..END OF HILITE
  18.  
  19. if (eqNum(n66,10))
  20.  {if (gtLoc(curfile,atCursor,sHilite))
  21.    {equateLoc(curfile,eHilite,atCursor)}
  22.   else
  23.    {equateLoc(curfile,sHilite,atCursor)}
  24.   refreshDisplay
  25.   equateNum(n66,20)
  26.   putMsg("Hilite Marked")
  27.   return
  28.  }
  29.  
  30. if (eqNum(n66,20))
  31.  {if (gtLoc(curfile,atCursor,sHilite))
  32.    {equateLoc(curfile,eHilite,atCursor)}
  33.   else
  34.    {equateLoc(curfile,sHilite,atCursor)}
  35.   refreshDisplay
  36.   putMsg("Hilite Marked")
  37.   return
  38.  }
  39.  
  40.  
  41. else putMsg("N66 is screwed!")
  42. >
  43.  
  44. Control-N: Set beginning of invert, set end of invert, delete invert
  45.  
  46. <ctl-n:
  47.  
  48. ..SET START OF INVERTED REGION
  49.  
  50. if (eqNum(n67,0))
  51.  {equateLoc(curfile,sInvert,atCursor)
  52.   equateLoc(curfile,eInvert,atCursor) refreshDisplay
  53.   equateNum(n67,10)
  54.   putMsg("Start Invert")
  55.   return
  56.  }
  57.  
  58. ..SET OTHER END OF INVERTED REGION
  59.  
  60. if (eqNum(n67,10))
  61.  {if (gtLoc(curfile,atCursor,sInvert))
  62.      {equateLoc(curfile,eInvert,atCursor)}
  63.   else
  64.      {equateLoc(curfile,sInvert,atCursor)}
  65.   refreshDisplay
  66.   equateNum(n67,20)
  67.   putMsg("Invert Marked")
  68.   return
  69.  }
  70.  
  71. ..DELETE INVERTED REGION
  72.  
  73. if (eqNum(n67,20))
  74.  {if (getFlag(curFile,columnar)) { runKey(shftCtl-1) return }
  75.   if (runKey(ctl-kpDot)) {clearRgn(curFile,invert)
  76.   vscroll(atcursor)
  77.   equateNum(n67,0)}}
  78.  
  79. else putMsg("n67 is not 0,10, or 20")
  80.  >
  81.  
  82. Convert Hi-Lite to Inverted
  83. <alt-n:
  84.     if ((eqNum(n66,20)) | !(eqLoc(curfile,sHilite,eHilite)))
  85.       {equateLoc(curfile,sInvert,sHilite)
  86.        equateLoc(curfile,eInvert,eHilite)
  87.        equateNum(n66,0)
  88.        equateNum(n67,20)
  89.        equateLoc(curFile,sHilite,eHilite)
  90.        refreshDisplay
  91.        putMsg("Invert Marked")
  92.       }
  93. >
  94.  
  95. Convert Inverted to Hi-Lite
  96. <alt-l:
  97.     if ((eqNum(n67,20)) | !(eqLoc(curfile,sInvert,eInvert)))
  98.       {equateLoc(curfile,sHilite,sInvert)
  99.        equateLoc(curfile,eHilite,eInvert)
  100.        equateNum(n67,0)
  101.        equateNum(n66,20)
  102.        equateLoc(curFile,sInvert,eInvert)
  103.        refreshDisplay
  104.        putMsg("Hilite Marked")
  105.       }
  106. >
  107.  
  108. Copy hilite region into buffer
  109. <normal-kpDot:
  110.     if (getFlag(curFile,columnar)) { runKey(shftCtl-3) return }
  111.     if (gtLoc(curFile,eHilite,sHilite)) {
  112.         freeBuf(buf47)
  113.         insertRgn(buf47,sFile,curFile,hilite)
  114.         equateLoc(buf47,sPage,sFile)
  115. } else { putMsg("kpdot is not OK") returnFalse} >
  116.  
  117. Copy hilite region into buffer, then delete hilite region
  118. <normal-kpMinus:
  119.     if (getFlag(curFile,columnar)) { runKey(shftCtl-1) return }
  120.     if (runKey(normal-kpDot)) clearRgn(curFile,hilite)
  121.     vscroll(atcursor) >
  122.  
  123. Insert copied hilite at cursor
  124. <ctl-k:
  125.    if (runkey(normal-kpdot))
  126.    {
  127.     if (getFlag(curFile,columnar)) { runKey(shftCtl-4) return }
  128.     if (is(curFile,sFile)) {
  129.         equateLoc(curFile,sHilite,atCursor)
  130.         equateLoc(curFile,eHilite,sHilite)
  131.     } else {
  132.         equateLoc(curFile,sHilite,atCursor)
  133.         decLoc(curFile,sHilite)
  134.         equateLoc(curFile,eHilite,atCursor)
  135.     }
  136.     insertRgn(curFile,atCursor,buf47,all)
  137.     if (eqLoc(curFile,atCursor,sHilite)) equateLoc(curFile,sHilite,sFile)
  138.     else incLoc(curFile,sHilite)
  139.     if (!onScreen(atCursor)) vScroll(atCursor)
  140.   }
  141.  
  142. else {putMsg("Normal-kpdot bailed!")}
  143. equateNum(n66,0)
  144.  >
  145.  
  146. Move hilited region to cursor
  147. <ctl-m:
  148.    if (runkey(normal-kpdot))
  149.    {
  150.     if (getFlag(curFile,columnar)) { runKey(shftCtl-4) return }
  151.  
  152.     clearRgn(curfile,hilite)
  153.     insertRgn(curFile,atCursor,buf47,all)
  154.     if (eqLoc(curFile,atCursor,sHilite)) equateLoc(curFile,sHilite,sFile)
  155.     else incLoc(curFile,sHilite)
  156.     if (!onScreen(atCursor)) vScroll(atCursor)
  157.   }
  158.  
  159. ..else {putMsg("Normal-kpminus bailed!")}
  160. equateNum(n66,0)
  161.  >
  162.  
  163. Change case of Hilite region
  164. <normal-f8:                   ..  K. Perano + R. Hand
  165.  
  166. ..BOOKMARKS   (Roger Hand)
  167.  
  168.     ..If tilda key has been pressed ONCE, we're in GOTO bookmark mode    
  169.  
  170.     if(eqNum(n75,5))
  171.  
  172.       {
  173.        equateLoc(curfile,locA,atCursor)   .. save in case we go back (^1)
  174.        moveCursor(curfile,locI ) .. * = C for F2, etc.  See below
  175.         equateNum(n75,17)       ..x = 0 for F1, 1 for F2, etc.
  176.         return
  177.       }
  178.  
  179.     ..If we just pressed GOTO F-key and haven't moved cursor, we're still
  180.     .. in GOTO mode
  181.   if((!eqNum(n75,20))&(!eqNum(n75,0)))  ..If not, jump down to SET
  182.    {if((eqNum(n75,10)) & (eqLoc(curfile,atcursor,sfile))) equateNum(n75,77)
  183.     if((eqNum(n75,11)) & (eqLoc(curfile,atcursor,locC))) equateNum(n75,77)
  184.     if((eqNum(n75,12)) & (eqLoc(curfile,atcursor,locD))) equateNum(n75,77)
  185.     if((eqNum(n75,13)) & (eqLoc(curfile,atcursor,locE))) equateNum(n75,77)
  186.     if((eqNum(n75,14)) & (eqLoc(curfile,atcursor,locF))) equateNum(n75,77)
  187.     if((eqNum(n75,15)) & (eqLoc(curfile,atcursor,locG))) equateNum(n75,77)
  188.     if((eqNum(n75,16)) & (eqLoc(curfile,atcursor,locH))) equateNum(n75,77)
  189.     if((eqNum(n75,17)) & (eqLoc(curfile,atcursor,locI))) equateNum(n75,77)
  190.     if((eqNum(n75,18)) & (eqLoc(curfile,atcursor,locJ))) equateNum(n75,77)
  191.     if((eqNum(n75,19)) & (eqLoc(curfile,atcursor,efile))) equateNum(n75,77)
  192.        
  193.          if(eqNum(n75,77))     ..If we're still in GOTO mode . . .
  194.        {
  195.         equateLoc(curfile,locA,atCursor)   .. save in case we go back (^1)
  196.         moveCursor(curfile,locI )  ..loc* = locC for F2, locD for F3, . . 
  197.                                     .. . . locJ for F9 . . 
  198.                                     .. . . sfile for F1, efile for F10
  199.  
  200.         equateNum(n75,17)        ..x = 0 for F1, 1 for F2, etc.
  201.         return
  202.        }
  203.  
  204. ..If NOT still in GOTO mode . . .      
  205. ..If F-key more than once, with cursor movement in between, cancel
  206. .. goto mode
  207.  
  208.     equateNum(n75,0) putMsg("Function Keys back to Normal!")
  209.  } 
  210.  
  211. ..If tilda key has been pressed TWICE, we're in SET bookmark mode
  212.  
  213.     if(eqNum(n75,20))
  214.  
  215.        {equateLoc(curfile,LocI,atCursor)
  216.         equateNum(n75,0)
  217. putMsg("Function Keys back to Normal!")
  218.  
  219.         return
  220.        }
  221.  
  222.  
  223. ..IF HI-LITE REGION EXISTS
  224.  
  225.   if(eqNum(n66,20))
  226.  
  227.    { locToIndex(curFile,n2,sHilite)
  228.      locToIndex(curFile,n3,eHilite)
  229.      decNum(n3)
  230.      if (geNum(n3,n2)) {
  231.        moveCursor(curFile,sHilite)
  232.        do (n1,n2,n3) {
  233.          if (is(curFile,upperCase)) toLower(curFile)
  234.          else toUpper(curFile)
  235.          moveCursor(curFile,eChar)
  236.          }
  237.        refreshDisplay
  238.      }
  239.     }
  240.  
  241. ..ELSE TOGGLE CASE OF CHARACTER AT CURSOR
  242.   else{
  243.     if (is(curFile,alpha)) {
  244.         if (is(curFile,lowerCase)) toUpper(curFile)
  245.         else toLower(curFile)
  246.     }
  247.     moveCursor(curFile,eChar)} >
  248.  
  249.  
  250.