home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d02xx / d0254.lha / Uedit / Config!S < prev    next >
Text File  |  1989-10-19  |  13KB  |  372 lines
  1. ======== SPELLING CMDS ======
  2.  
  3. Start spell-checking mode by loading in the dictionary table.
  4. <rAmiga-u:
  5.     if (!spellerUp 
  6.         & !startSpell(
  7.             "s:Udtable",
  8.             "s:Udict",1)) {
  9.                 putMsg("No memory or dictionary not found")
  10.                 returnFalse
  11.     }
  12.     putMsg("Speller is up") >
  13.  
  14. Find first misspelled word, starting at cursor.  Abort with Amiga-ESC.
  15. <rAmiga-c:
  16.     if (not spellerUp) {
  17.         putMsg("Speller not up")
  18.         returnFalse
  19.     }
  20.     putMsg(" ")
  21.     while (not spell(buf54,curFile)) runKey(virtual-z) >
  22.  
  23. Click word in msg line (buf54), select word to replace word before cursor.
  24. <virtual-z:
  25.     if (isEmpty(buf54)) return
  26.     insertRgn(buf54,efile," ***",all)
  27.     putMsg(buf54)
  28.     vscroll(atCursor)
  29.     updateDisplay
  30.     getKeyVal(n3,n4)
  31.     if (eqNum(n3,normal-esc)) abort
  32.     mousexy(n1,n2)
  33.     while (inputKey(n54)) nothing
  34.     if (mouseDown) while (not inputWaiting) {
  35.         if (not mouseDown) goto label(0)
  36.         inputKey(n54)
  37.     }
  38.     label(0)
  39.     if (geNum(n3,normal-gadget1) & geNum(normal-gadget4,n3) 
  40.                                  & gtNum(n2,10) & gtNum(20,n2)) {
  41.         div(n1,n1,8)
  42.         incNum(n1)
  43.         moveCursor(buf54,sfile)
  44.         moveCursor(buf54,eword)
  45.         locToIndex(buf54,n54,atcursor)
  46.         if (gtNum(n1,n54)) {
  47.             indexToLoc(buf54,atCursor,n1)
  48.             if (is(buf54,alpha)) {
  49.                 movecursor(buf54,eword)
  50.                 movecursor(buf54,sword)
  51.                 movecursor(curfile,sword)
  52.                 if (is(curfile,upperCase)) toUpper(buf54)
  53.                 clearRgn(curfile,word)
  54.                 insertrgn(curfile,atcursor,buf54,word)
  55.             }
  56.         }
  57.     }
  58.     putMsg(" ")
  59.     freeBuf(buf54)
  60.     while (inputKey(n54)) nothing
  61.     if (mouseDown) while (not inputWaiting) {
  62.         if (not mouseDown) return
  63.         inputKey(n54)
  64.     }
  65. >
  66.  
  67. Spell-check from cursor fwd.  Mark bad words with "@".
  68. <rAmiga-m:
  69.     if (not runKey(rAmiga-u)) returnFalse
  70.     putMsg("Spell checking ... abort with Amiga-ESC")
  71.     while (not spell(" ",curFile)) insertChar(curFile,"@") >
  72.  
  73. Force file saving to finish so buffer is unlocked
  74. <104: while (getStackSize(n99,n99,n98) & gtNum(n98,0)) delay(5) >
  75.  
  76. Load supplemental dictionary & spell from cursor fwd.  Add to supplement.
  77. <rAmiga-l:
  78.     if (not runKey(rAmiga-u)) returnFalse
  79.     equateNum(n54,curFile)
  80.     putMsg("Dict supplement to use (pmESC = UdSupplement)")
  81.     freebuf(buf54)
  82.     equateNum(n99,0)
  83.     if (inputString(buf54))  {
  84.        if (not loadFile(buf54)) goto label(3)
  85.     } else {
  86. label(3)
  87.         if (not loadFile("UdSupplement")) {
  88.             if (not newFile) {
  89.                 putMsg("Close a file for me!")
  90.                 returnFalse
  91.             }
  92.             setFileName(curfile,"UdSupplement")
  93.         }
  94.     }
  95.     putMsg("Spell checking ... abort with Amiga-ESC")
  96.     if (getFlag(curFile,searchCaps)) flipFlag(curFile,searchCaps)
  97. label(0)
  98.     while (not spell(" ",buf[n54])) {
  99.         moveCursor(buf[n54],sWord)
  100.         freeBuf(buf54)
  101.         insertRgn(buf54,eFile,buf[n54],word)
  102.         moveCursor(buf[n54],eWord)
  103.         moveCursor(buf54,sFile)
  104.         if (not is(buf54,"'") & not is(buf54,alpha)) goto label(0)
  105.         moveCursor(buf54,eFile)
  106.         putMsg(buf54)                              .. remove for faster speed
  107.         insertChar(buf54,eLine)
  108.         moveCursor(curFile,eFile)
  109. label(4)             .. could remove this block but it helps hugely in speed.
  110.         setSearch(buf54)
  111.         if (search(curFile,locA,locB,-1)) {
  112.             if (is(curFile,sWord)) goto label(0)
  113.             moveCursor(curFile,sWord)
  114.             goto label(4)
  115.         }
  116.         moveCursor(buf54,sChar)
  117.         clearChar(buf54)                                      .. remove eline
  118.         
  119.         ..  this sect for speed
  120.         moveCursor(buf54,sFile)
  121.         copyChar(buf54,n47)                          .. copy 1st char of word
  122.         freeBuf(buf52)
  123.         insertChar(buf52,eLine)                      .. load in eline-1stchar
  124.         insertChar(buf52,n47)
  125.         moveCursor(curFile,eFile)                .. search for starting place
  126.         setSearch(buf52)
  127.         search(curfile,locA,locB,-1)
  128.         moveCursor(curFile,eWord)                 .. move fwd, so sWord works
  129.         if (is(curFile,sFile)) goto label(1)
  130.         while (nothing) {
  131.             moveCursor(curFile,sWord)
  132.             freeBuf(buf53)
  133.             insertRgn(buf53,eFile,curFile,word)
  134.             stringComp(n53,buf54,buf53,1)                      .. ignore case
  135.             if (eqNum(n53,0)) goto label(0)             .. found it, continue
  136.             if (gtNum(n53,0)) {
  137.  label(1)
  138.                 moveCursor(curFile,eWord)
  139.                 moveCursor(curFile,eChar)
  140.  label(2)
  141.                 insertRgn(curFile,atCursor,buf54,all)
  142.                 insertChar(curFile,eLine)
  143.                 updateDisplay                      .. remove for faster speed
  144.                 incNum(n99)
  145.                 if (gtNum(n99,19)) {
  146.                     fileSize(curFile,n99)             .. force buffer packing
  147.                     equateNum(n99,0)
  148.                 }
  149.                 goto label(0)
  150.             }
  151.             if (is(curFile,sFile)) goto label(2)
  152.         }
  153.     }
  154.     moveCursor(curFile,sFile)
  155.     putMsg("These words weren't in dictionary")
  156.     .. stopSpell                               .. use if want speller removed
  157.     >
  158.  
  159. Merge dict supplement with dict-files.  dict.A-Z must be in Current Directory.
  160. <rAmiga-d:
  161.     if (isEmpty(curFile)) returnFalse
  162.     moveCursor(curFile,sFile)
  163.     freeBuf(buf52)
  164.     freeBuf(buf54)
  165.     insertRgn(buf54,eFile,"dh0:spell/private/dict. ",all)
  166.     if (getFlag(curFile,searchCaps)) flipFlag(curFile,searchCaps)
  167.     equateNum(n50,0)
  168.     while (nothing) {
  169.         moveCursor(curFile,eWord)
  170.         moveCursor(curFile,sWord)
  171.         freeBuf(buf53)
  172.         if (not insertRgn(buf53,eFile,curFile,word)) {
  173. label(6)    if (getFlag(buf52,changed)) saveFile(buf52)
  174.             runKey(104)                             .. force save to complete
  175.             goto label(0)
  176.         }
  177.         moveCursor(buf53,sFile)
  178.         toUpper(buf53)
  179.         copyChar(buf53,n54)                    .. copy 1st letter of word A-Z
  180.         toLower(buf53)
  181.         if (eqNum(n54,39)) equateNum(n54,65)             .. apost becomes 'A'
  182.         else {
  183.             if (gtNum(n54,90)) goto label(1)                   .. must be A-Z
  184.             if (gtNum(65,n54)) goto label(1)
  185.         }
  186.         moveCursor(buf54,eFile)
  187.         moveCursor(buf54,sChar)
  188.         swapChar(buf54,n54)                          .. make it "dict.A" etc.
  189.         
  190.         if (not eqNum(n54,n50)) {
  191.             if (not eqNum(n50,0)
  192.                 & getFlag(buf52,changed)) saveFile(buf52)
  193.             runKey(104)                             .. force save to complete
  194.             clearRgn(buf52,all)
  195.             fileSize(buf52,n49)                        .. make it pack buffer
  196.             if (not insertFile(buf52,eFile,buf54)) {
  197.                 putMsg("Can't find dict.A-Z!")
  198.                 returnFalse
  199.             }
  200.             setFileName(buf52,buf54)
  201.             if (getFlag(buf52,changed)) flipFlag(buf52,changed)
  202.             equateNum(n50,n54)                            .. save dict-letter
  203.         }
  204.         .. put word in dict.
  205.         moveCursor(buf53,eFile)
  206.         putMsg(buf53)
  207.         insertChar(buf53,eLine)
  208.         moveCursor(buf52,eFile)
  209. label(2)
  210.         setSearch(buf53)
  211.         if (search(buf52,locA,locB,-1)) {
  212.             if (is(buf52,sWord)) goto label(1)
  213.             goto label(2)                               .. continue searching
  214.         }
  215.         .. didn't find it.  Do the slow scan & insert the word.
  216.         moveCursor(buf53,eFile)
  217.         moveCursor(buf53,sChar)
  218.         clearChar(buf53)                                      .. remove eLine
  219.         moveCursor(buf52,eFile)
  220.         equateNum(n49,1)
  221. label(4)
  222.         while (nothing) {
  223.             if (eqNum(n49,1)) do(n48,1,40) moveCursor(buf52,sWord)
  224.             moveCursor(buf52,sWord)
  225.             freeBuf(buf51)
  226.             insertRgn(buf51,eFile,buf52,word)
  227.             stringComp(n53,buf53,buf51,1)                      .. ignore case
  228.             if (eqNum(n53,0)) goto label(1)             .. found it, continue
  229.             if (gtNum(n53,0)) {
  230.                 if (eqNum(n49,1)) goto label(5)
  231.                 moveCursor(buf52,eWord)
  232.                 moveCursor(buf52,eChar)
  233. label(3)
  234.                 insertRgn(buf52,atCursor,buf53,all)
  235.                 insertChar(buf52,eLine)
  236.                 goto label(1)
  237.             }
  238.             if (is(buf52,sFile)) {
  239.                 if (eqNum(n49,1)) {
  240. label(5)
  241.                     equateNum(n49,0)
  242.                     do (n48,1,41) moveCursor(buf52,eWord)
  243.                     goto label(4)
  244.                 }
  245.                 goto label(3)
  246.             }
  247.         }
  248.  
  249. label(1) .. next word
  250.         moveCursor(curFile,eLine)
  251.         moveCursor(curFile,eChar)
  252.         updateDisplay
  253.         if (is(curFile,eFile)) goto label(6)
  254.     }
  255. label(0)
  256.     putMsg("Done.  Run Udbuild to rebuild working dict & table")
  257.     freeBuf(buf52)
  258. >
  259.  
  260. Remove words from dict-files.  dict.A-Z must be in Current Directory.
  261. <rAmiga-e:
  262.     if (isEmpty(curFile)) returnFalse
  263.     moveCursor(curFile,sFile)
  264.     freeBuf(buf52)
  265.     freeBuf(buf54)
  266.     insertRgn(buf54,eFile,"dicts/dict. ",all)
  267.     if (getFlag(curFile,searchCaps)) flipFlag(curFile,searchCaps)
  268.     equateNum(n50,0)
  269.     while (nothing) {
  270.         moveCursor(curFile,eWord)
  271.         moveCursor(curFile,sWord)
  272.         freeBuf(buf53)
  273.         if (not insertRgn(buf53,eFile,curFile,word)) {
  274. label(6)
  275.                 if (getFlag(buf52,changed)) saveFile(buf52)
  276.                 runKey(104)                         .. force save to complete
  277.                 goto label(0)
  278.         }
  279.         moveCursor(buf53,sFile)
  280.         toUpper(buf53)
  281.         copyChar(buf53,n54)                    .. copy 1st letter of word A-Z
  282.         toLower(buf53)
  283.         if (eqNum(n54,"'")) equateNum(n54,"A")           .. apost becomes 'A'
  284.         else {
  285.             if (gtNum(n54,"Z")) goto label(1)                  .. must be A-Z
  286.             if (gtNum(65,n54)) goto label(1)
  287.         }
  288.         moveCursor(buf54,eFile)
  289.         moveCursor(buf54,sChar)
  290.         swapChar(buf54,n54)                          .. make it "dict.A" etc.
  291.         
  292.         if (not eqNum(n54,n50)) {
  293.             if (not eqNum(n50,0) & getFlag(buf52,changed)) saveFile(buf52)
  294.             runKey(104)                             .. force save to complete
  295.             clearRgn(buf52,all)
  296.             fileSize(buf52,n49)                        .. make it pack buffer
  297.             if (not insertFile(buf52,eFile,buf54)) {
  298.                 putMsg("Can't find dict.A-Z!")
  299.                 returnFalse
  300.             }
  301.             setFileName(buf52,buf54)
  302.             if (getFlag(buf52,changed)) flipFlag(buf52,changed)
  303.             equateNum(n50,n54)                            .. save dict-letter
  304.         }
  305.         .. remove word from dict.
  306.         moveCursor(buf53,eFile)
  307.         putMsg(buf53)
  308.         insertChar(buf53,eLine)
  309.         moveCursor(buf52,eFile)
  310. label(2)
  311.         setSearch(buf53)
  312.         if (search(buf52,locA,locB,-1)) {
  313.             if (is(buf52,sWord)) {
  314.                 clearRgn(buf52,loc)
  315.                 goto label(1)                                    .. next word
  316.             }
  317.             goto label(2)                               .. continue searching
  318.         }
  319.  
  320. label(1) .. next word
  321.         moveCursor(curFile,eLine)
  322.         moveCursor(curFile,eChar)
  323.         if (is(curFile,eFile)) goto label(6)
  324.         updateDisplay
  325.     }
  326. label(0)
  327.     putMsg("Done.  Run Udbuild to rebuild working dict & table")
  328.     freeBuf(buf52)
  329. >
  330.  
  331. Stop spell-checking mode.  (Frees up about 12k of memory.)
  332. <rAmiga-f: if (spellerUp) { stopSpell putMsg("Speller removed") } >
  333.  
  334. ========== Split Windows =========
  335.  
  336. Remove current split window
  337. <lAmiga-0: splitWindow(curFile,0)>
  338.  
  339. Split window to show current file
  340. <lAmiga-c: splitWindow(curFile,splitSize)>
  341.  
  342. Split window to show Undo buffer
  343. <lAmiga-1: splitWindow(buf45,splitSize)>
  344.  
  345. Split window to show search buffer
  346. <lAmiga-2: splitWindow(buf49,splitSize)>
  347.  
  348. Split window to show replace buffer
  349. <lAmiga-3: splitWindow(buf48,splitSize)>
  350.  
  351. Split window to show copied-hilite buffer
  352. <lAmiga-4: splitWindow(buf47,splitSize)>
  353.  
  354. Split window to show copied-invert buffer
  355. <lAmiga-5: splitWindow(buf46,splitSize)>
  356.  
  357. Split window to show copied-columnar buffer
  358. <lAmiga-6: splitWindow(buf37,splitSize)>
  359.  
  360. Split window to show directory names
  361. <lAmiga-7: splitWindow(buf38,splitSize) >
  362.  
  363. Set split window size
  364. <lAmiga-8:
  365.     putMsg("# lines in split window (2 or more):")
  366.     if (inputNum(n54) & geNum(n54,2)) equateNum(splitSize,n54)
  367.     putMsg(" ")>
  368.  
  369. Switch to next window split
  370. <lAmiga-9: toggle(windowSplit)>
  371.  
  372.