home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d07xx / d0770.lha / Uedit / edt.LZH / edt!k < prev    next >
Text File  |  1988-12-04  |  13KB  |  506 lines
  1. ---------------------------- Keypad Keys   ----------------------------------
  2.  
  3. <preKey:
  4.   if (eqNum(macroNum,shftAltCtl-esc)) killKey(preKey)
  5.   
  6.   if(not eqNum(macroNum,normal-f7)) return   ..%% Not a gold key
  7.   getKey(n69)
  8.   if(not gtNum(n69,104))
  9.     {add(n69,n69,1040)   ..%% n69 = virtual key = gold key
  10.      if(not inUse(n69))
  11.        {putMsg("Gold key not defined.")
  12.         equateNum(inputChar,0)
  13.         returnFalse
  14.        }
  15.      else
  16.        {equateNum(macroNum,n69)
  17.         equateNum(inputChar,0)
  18.        }
  19.     }
  20.   else
  21.     if(geNum(n69,416))
  22.       {if(not gtNum(n69,519))        ..%% If 416 < n69 < 519
  23.         {sub(n69,n69,416)            ..%% this is a gold-ctl key
  24.          add(n69,n69,728)           
  25.          if(not inUse(n69))
  26.            {putMsg("Gold-Ctl key not defined.")
  27.             equateNum(inputChar,0)
  28.             returnFalse
  29.            }
  30.          else
  31.            {equateNum(macroNum,n69)
  32.             equateNum(inputChar,0)
  33.            }
  34.         }
  35.       }
  36. >
  37.  
  38. <virtual-\:
  39. if (eqNum(n97,1))
  40.    if(gtLoc(curFile,locA,atCursor))
  41.      {equateLoc(curFile,sHilite,atCursor) 
  42.       equateLoc(curFile,eHilite,locA)}
  43.    else
  44.      {equateLoc(curFile,sHilite,locA)  
  45.       equateLoc(curFile,eHilite,atCursor)}
  46. >
  47.  
  48.                                 *******
  49.                                  PF1-4
  50.                                 *******
  51.                                
  52. Load and show help file - press again to release help
  53. <normal-f8:        .. %% PF2
  54.  if (not isEmpty(buf42)) 
  55.    {equateNum(n54,curFile)
  56.     if (eqNum(n54,42)) 
  57.        freeBuf(buf42)
  58.     else 
  59.        editBuf(buf42)
  60.    }
  61.  else 
  62.   {insertFile(buf42,sFile,"EDThelp!") .. %% look in curdir
  63.    if (isEmpty(buf42)) 
  64.       {freeBuf(buf42)
  65.        insertFile(buf42,sFile,"U:EDThelp!")}
  66.    if (not isEmpty(buf42)) 
  67.       {editBuf(buf42)
  68.        flipFlag(buf42,readOnly)} 
  69.    else 
  70.       putMsg("Can't find U:EDThelp! file.")
  71.    } 
  72. >
  73.  
  74. <virtual-f8:         ..%% Gold PF2
  75.  if (not isEmpty(buf42)) 
  76.    {equateNum(n54,curFile)
  77.     if (eqNum(n54,42)) 
  78.        freeBuf(buf42)
  79.     else 
  80.        editBuf(buf42)
  81.    }
  82.  else 
  83.   {insertFile(buf42,sFile,"Help!") .. %% look in curdir
  84.    if (isEmpty(buf42)) 
  85.       {freeBuf(buf42)
  86.        insertFile(buf42,sFile,"U:Help!")}
  87.    if (not isEmpty(buf42)) 
  88.       {editBuf(buf42)
  89.        flipFlag(buf42,readOnly)} 
  90.    else 
  91.       putMsg("Can't find U:Help! file.")
  92.    } 
  93. >
  94.  
  95. Search forward, mark matched region, put cursor at start of rgn
  96. <normal-f9:        .. %% PF3
  97. if (eqNum(n98,0))  .. %% Search forward
  98.    {putMsg("Forward Search Working...")
  99.    if (search(curFile,sInvert,eInvert,1)) 
  100.    {if (thisKey) if (not onScreen(atCursor)) vScroll(atCursor)
  101.        runKey(virtual-\) refreshDisplay
  102.        putMsg(" ")
  103.        return
  104.       }
  105.       putMsg("String not found.")
  106.       equateLoc(curFile,sInvert,eInvert)
  107.       refreshDisplay
  108.       returnFalse 
  109.     } .. %% end of search forward
  110. else 
  111.    {putMsg("Reverse Search Working...")
  112.    if (search(curFile,sInvert,eInvert,-1)) 
  113.    {if (thisKey) if (not onScreen(atCursor)) vScroll(atCursor)
  114.       runKey(virtual-\) refreshDisplay
  115.       putMsg(" ")
  116.       return
  117.      }
  118.      putMsg("String not found.")
  119.      equateLoc(curFile,sInvert,eInvert)
  120.      refreshDisplay
  121.      returnFalse 
  122.     } .. %% end of search backward
  123. >
  124.  
  125. <virtual-f9:              ..%% GOLD PF3, set find string
  126.   freeBuf(buf49)
  127.   putMsg("Search for:") 
  128.   inputString(buf49)
  129.   setSearch(buf49)
  130.   runKey(normal-f9)
  131. >
  132.  
  133. Delete line/Undelete line
  134. <normal-f10:              ..%% PF4, delete line
  135.   freeBuf(buf45)
  136.   equateLoc(curFile,locA,atCursor)
  137.   if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  138.   moveCursor(curFile,eChar)
  139.   equateLoc(curFile,locB,atCursor)
  140.   insertRgn(buf45,sFile,curFile,loc)
  141.   clearRgn(curFile,loc)
  142. >
  143.  
  144. <virtual-f10:             ..%% GOLD PF4, undelete line
  145.  if (not is(curFile,sLine))
  146.     {moveCursor(curFile,sChar)
  147.      equateLoc(curFile,mouseLoc,atCursor)
  148.      moveCursor(curFile,eChar)
  149.      insertRgn(curFile,atCursor,buf45,all)
  150.      moveCursor(curFile,mouseLoc) moveCursor(curFile,eChar)
  151.     }
  152.  else
  153.     {insertRgn(curFile,atCursor,buf45,all) 
  154.      moveCursor(curFile,upLine)
  155.     }
  156. >
  157.  
  158.                                    **********
  159.                                    keypad 7-9
  160.                                    **********
  161.  
  162.  
  163. Next page/previous page
  164. <normal-kp7:             .. %% Keypad 7, next/previous page
  165.  if (eqNum(n98,0))     .. %% Forward page
  166.     moveCursor(curFile,eForm)
  167.  else
  168.     moveCursor(curFile,sForm)
  169.  vScroll(atCursor)
  170.  runKey(virtual-\)
  171. >
  172.  
  173. <virtual-kp7:
  174.  putMsg("EDT command mode unimplemented.")
  175. >
  176.  
  177. Next screen/previous screen 
  178. <normal-kp8:  ..%% Keypad 8 
  179.  if (eqNum(n98,0))              .. %% Forward scroll
  180.     moveCursor(curFile,ePage)
  181.  else                           .. %% Reverse scroll
  182.     moveCursor(curFile,sPage)
  183.  
  184.  vScroll(atCursor)
  185.  runKey(virtual-\)
  186. >
  187.  
  188. <virtual-kp8:                   ..%% GOLD kp8, Fill 
  189.  if (eqNum(n97,1))              ..%% Select range is active,
  190.     {moveCursor(curFile,sHilite) .. %% reformat the select range 
  191.      insertChar(curFile,eLine)
  192.      moveCursor(curFile,eHilite)
  193.      insertChar(curFile,eLine) 
  194.      moveCursor(curFile,sHilite)    
  195.      reformat
  196.      fileSize(curFile,n54)
  197.      moveCursor(curFile,sHilite) 
  198.      moveCursor(curFile,sChar)
  199.      clearChar(curFile)
  200.      moveCursor(curFile,eHilite) 
  201.      clearChar(curFile)
  202.      equateNum(n97,0)
  203.      equateLoc(curFile,sHilite,eHilite) 
  204.      updateDisplay
  205.     } 
  206.  else 
  207.     {equateLoc(curFile,locA,atCursor)
  208.      while (NOT is(curFile,blankLine)) 
  209.        {moveCursor(curFile,upLine) 
  210.         if (not is(curFile,sLine)) moveCursor(curFile,sLine) 
  211.         if (is(curFile,sFile)) goto label(1) 
  212.        } 
  213.      moveCursor(curFile,downLine)
  214. label(1) 
  215.      if (reformat) moveCursor(curFile,locA) .. and reformat 
  216.      fileSize(curFile,n54) updateDisplay
  217.      returnTrue 
  218.     } 
  219. >
  220.  
  221. Append text into paste buffer
  222. <normal-kp9:                    .. %% kp
  223.  if (gtLoc(curFile,eHilite,sHilite))
  224.     {insertRgn(buf47,eFile,curFile,hilite)
  225.      equateLoc(buf47,sPage,sFile) 
  226.      clearRgn(curFile,hilite) 
  227.      equateNum(n97,0)
  228.     }
  229.  else
  230.     returnFalse
  231. >
  232.  
  233. <virtual-kp9:                    ..%% GOLD KP9, Replace
  234.  if (gtLoc(curFile,eHilite,sHilite))
  235.     {clearRgn(curFile,hilite)
  236.      insertRgn(curFile,atCursor,buf47,all)
  237.      equateNum(n97,0)
  238.     }
  239.  else
  240.     returnFalse
  241. >
  242.  
  243.                                    **********
  244.                                    keypad 4-6
  245.                                    **********
  246.  
  247.  
  248. Set forward direction/Goto bottom of file
  249. <normal-kp4:             .. %% Keypad 4
  250.  equateNum(n98,0)
  251. >
  252.  
  253. <virtual-kp4:             .. %% Goto bottom
  254.  vScroll(eFile)
  255.  moveCursor(curFile,eFile)
  256.  runKey(virtual-\)
  257. >
  258.  
  259. Set reverse direction/Goto top of file
  260. <normal-kp5:             .. %% Keypad 5
  261.  equateNum(n98,1)        .. %% reverse
  262. >
  263.  
  264. <virtual-kp5:            .. %% Goto top
  265.  vScroll(sFile)
  266.  moveCursor(curFile,sFile)
  267.  runKey(virtual-\)
  268. >
  269.  
  270. Cut text into paste buffer
  271. <normal-kp6:                    .. %% kp6
  272.  if (gtLoc(curFile,eHilite,sHilite))
  273.     {freeBuf(buf47) 
  274.      if (gtLoc(curFile,eHilite,atCursor))
  275.         equateLoc(curFile,eHilite,atCursor)
  276.      insertRgn(buf47,sFile,curFile,hilite)
  277.      equateLoc(buf47,sPage,sFile) clearRgn(curFile,hilite)
  278.      equateNum(n97,0)
  279.     }
  280.  else
  281.     returnFalse
  282. >
  283.  
  284. <virtual-kp6:                   .. %% Paste
  285.  if (is(curFile,sFile)) 
  286.     {equateLoc(curFile,sHilite,atCursor)
  287.      equateLoc(curFile,eHilite,sHilite)
  288.     } 
  289.  else 
  290.     {equateLoc(curFile,sHilite,atCursor)
  291.      decLoc(curFile,sHilite)
  292.      equateLoc(curFile,eHilite,atCursor)
  293.     }
  294.  insertRgn(curFile,atCursor,buf47,all)
  295.  if (eqLoc(curFile,atCursor,sHilite))
  296.     equateLoc(curFile,sHilite,sFile)
  297.  else 
  298.     incLoc(curFile,sHilite)
  299.  if (getFlag(curFile,columnar)) flipFlag(curFile,columnar)
  300.  if (not onScreen(atCursor)) vScroll(atCursor)
  301.  equateLoc(curFile,sHilite,eHilite)
  302. >
  303.  
  304. Cut/noerase text into paste buffer
  305. <shft-kp6:                    .. %% Cut/noerase
  306. if (gtLoc(curFile,eHilite,sHilite))
  307.    {freeBuf(buf47) 
  308.     if (gtLoc(curFile,eHilite,atCursor))
  309.         equateLoc(curFile,eHilite,atCursor)
  310.     insertRgn(buf47,sFile,curFile,hilite)
  311.     equateLoc(buf47,sPage,sFile)
  312.     equateLoc(curFile,sHilite,eHilite)
  313.     equateLoc(curFile,sInvert,eInvert) refreshDisplay
  314.     equateNum(n99,0)
  315.     equateNum(n97,0)
  316.    }
  317. else
  318.    returnFalse 
  319. >
  320.  
  321.                                    **********
  322.                                    keypad 1-3
  323.                                    **********
  324.  
  325.  
  326. Move cursor to next word
  327. <normal-kp1:                     
  328.  if (eqNum(n98,0))               .. %% Move cursor word to right
  329.     if (not is(curFile,sWord))
  330.        {moveCursor(curFile,eWord)moveCursor(curFile,sWord)}
  331.     else
  332.        {moveCursor(curFile,eWord) 
  333.         moveCursor(curFile,eWord)
  334.         moveCursor(curFile,sWord)}
  335.  else
  336.     moveCursor(curFile,sWord)
  337.  runKey(virtual-\)
  338. >
  339.  
  340. <virtual-kp1:
  341.  if (eqNum(n97,1))              .. %% There is a select range active
  342.     {equateLoc(curFile,atCursor,sHilite)
  343.      equateLoc(curFile,mouseLoc,eHilite)
  344.      decLoc(curFile,mouseLoc)
  345.      while (gtLoc(curFile,mouseLoc,atCursor))
  346.        {if (is(curFile,alpha)) 
  347.           {if (is(curFile,lowerCase)) 
  348.              toUpper(curFile)
  349.            else 
  350.              toLower(curFile)
  351.           }
  352.         moveCursor(curFile,eChar)
  353.        }
  354.      equateLoc(curFile,sHilite,eHilite)
  355.      equateNum(n97,0)
  356.      moveCursor(curFile,sChar)
  357.     }
  358.  else
  359.     if (is(curFile,alpha)) 
  360.        {if (is(curFile,lowerCase)) 
  361.           toUpper(curFile)
  362.         else 
  363.           toLower(curFile)
  364.        }
  365.  moveCursor(curFile,eChar)
  366. >
  367.  
  368. Goto end of line/Delete to end    of line
  369. <normal-kp2:   
  370.  moveCursor(curFile,eLine)
  371.  runKey(virtual-\)
  372. >
  373.  
  374. <virtual-kp2:
  375.  freeBuf(buf45)
  376.  equateLoc(curFile,locA,atCursor)
  377.  if (is(curFile,eLine)) 
  378.     {moveCursor(curFile,eChar)}
  379.  moveCursor(curFile,eLine)
  380.  equateLoc(curFile,locB,atCursor)
  381.  insertRgn(buf45,sFile,curFile,loc)
  382.  clearRgn(curFile,loc)
  383. >
  384.  
  385. Move cursor one character to right
  386. <normal-kp3:   
  387.  moveCursor(curFile,eChar)
  388.  runKey(virtual-\)
  389. >
  390.  
  391. <virtual-kp3:                      .. %% Special insert
  392.  putMsg("Ascii code: ")
  393.  inputNum(n95)
  394.  insertChar(curFile,n95)
  395. >
  396.  
  397.  
  398.                                    **********
  399.                                    keypad 0 .
  400.                                    **********
  401.  
  402. Next line/Open line
  403. <normal-kp0:
  404.  if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  405.  if (eqNum(n98,0))             ..%% Line forward
  406.     moveCursor(curFile,downLine)
  407.  else 
  408.     moveCursor(curFile,upLine)
  409.  runKey(virtual-\)
  410. >
  411.  
  412. <virtual-kp0:                     ..%% GOLD KP0, Open line
  413.  runKey(normal-kp0)
  414.  moveCursor(curFile,upLine)
  415.  insertChar(curFile,eLine)
  416.  moveCursor(curFile,upLine)
  417. >
  418.  
  419. start hilite
  420. <normal-kpdot:   
  421.  if (eqNum(n97,1))
  422.     {putMsg("Select already active.")
  423.      return
  424.     }
  425.  else
  426.     equateLoc(curFile,locA,atCursor)
  427.     equateLoc(curFile,sHilite,atCursor) 
  428.     equateLoc(curFile,eHilite,atCursor)
  429.     if (not incLoc(curFile,eHilite)) 
  430.        {insertChar(curFile,eLine)
  431.         moveCursor(curFile,eChar)
  432.         equateLoc(curFile,eHilite,atCursor)
  433.         moveCursor(curFile,sChar)
  434.        }
  435.     equateNum(n97,1) 
  436.     putMsg("Select range started.")
  437. >
  438.  
  439. <virtual-kpdot:                  .. %% Reset select range
  440.  if (eqNum(n97,0))
  441.     {putMsg("No select range active.")
  442.      return
  443.     }
  444.  else
  445.     equateLoc(curFile,sHilite,eHilite)
  446.     equateLoc(curFile,sInvert,eInvert) refreshDisplay
  447.     equateNum(n97,0)
  448.     putMsg("Select range cancelled.")
  449. >
  450.  
  451.                                *******
  452.                                Help, -
  453.                                *******
  454.  
  455. Delete word/Undelete word
  456. <normal-help:
  457.  freeBuf(buf45)
  458.  if (not is(curFile,sWord))
  459.     {moveCursor(curFile,eWord)moveCursor(curFile,sWord)}
  460.  equateLoc(curFile,locA,atCursor)
  461.  moveCursor(curFile,eWord)
  462.  moveCursor(curFile,eWord)
  463.  moveCursor(curFile,sWord)
  464.  equateLoc(curFile,locB,atCursor)
  465.  insertRgn(buf45,sFile,curFile,loc)
  466.  clearRgn(curFile,loc)
  467. >
  468.  
  469. <virtual-help:                       ..%% GOLD HELP, Undelete word
  470.  moveCursor(curFile,sChar)
  471.  equateLoc(curFile,mouseLoc,atCursor)
  472.  moveCursor(curFile,eChar)
  473.  insertRgn(curFile,atCursor,buf45,all)
  474.  moveCursor(curFile,mouseLoc) moveCursor(curFile,eChar)
  475. >
  476.  
  477. Delete character/Undelete character
  478. <normal-kpMinus:
  479.  freeBuf(buf45)
  480.  equateLoc(curFile,locA,atCursor)
  481.  moveCursor(curFile,eChar)
  482.  equateLoc(curFile,locB,atCursor)
  483.  insertRgn(buf45,sFile,curFile,loc)
  484.  clearRgn(curFile,loc)
  485. >
  486.  
  487. <virtual-kpMinus:                    ..%% GOLD MINUS, Undelete character
  488.  moveCursor(curFile,sChar)
  489.  equateLoc(curFile,mouseLoc,atCursor)
  490.  moveCursor(curFile,eChar)
  491.  insertRgn(curFile,atCursor,buf45,all)
  492.  moveCursor(curFile,mouseLoc) moveCursor(curFile,eChar)
  493. >
  494.  
  495. <normal-kpEnter:
  496.  insertChar(curFile,eLine)
  497. >
  498.  
  499. <virtual-kpEnter:
  500.  clearRgn(curFile,invert)
  501.  insertRgn(curFile,atCursor,buf47,all)
  502.  runKey(normal-f9)
  503. >
  504.  
  505.  
  506.