home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / Rich-Martin.LZH / Config!H < prev    next >
Text File  |  1988-11-15  |  2KB  |  47 lines
  1.  
  2. ======= Config!H   Occasional commands ==========
  3.  
  4. /* send word at cursor as argument to DOS command "utter"*/
  5. <lAmiga-space:
  6.     equateLoc(curFile, locA, atCursor)        ..store current cursor loc
  7.     moveCursor(curFile,sWord)                ..move to start of word
  8.     moveCursor(curFile, sChar)                ..back up one more char,
  9.     if ( not is (curFile, "/"))                ..if word starts with '/',
  10.                                             ..it's a phoneme else
  11.         moveCursor(curFile, eChar)            ..move forward one char
  12.     clearRgn(buf54, all)                    ..delete any old material
  13.     insertRgn(buf54,sFile, "utter ", all)    ..put command name in buffer
  14.     insertRgn(buf54, eFile, curFile, word)    ..add current word as argument
  15.     execute(" ", buf54)                        ..do the deed
  16.                                             ..move cursor back to orig
  17.     moveCursor(curFile,locA) >                ..location
  18.  
  19. Bring up file-requester
  20. <lAmiga-f1:
  21. ..this modification added 12 Nov 88. Now we provide the current click-
  22. ..load directory as an argument to FileReq
  23.     freeBuf(buf53)
  24.     insertRgn(buf53,sFile,"FileReq ",all)
  25.     insertRgn(buf53,eFile,buf38,hilite)    ..put current dir as arg
  26. ..here ends modification        -Rich Martin
  27.     freeBuf(buf54)
  28.     execute(buf54,buf53)  .. file requester program: puts dir on line 1
  29.     moveCursor(buf54,sfile)   .. puts filename on line 2.  outputs "*" if no
  30.     copyChar(buf54,n53)       .. selection or one line error msg if error.
  31.     moveCursor(buf54,eLine)
  32.     moveCursor(buf54,eChar)
  33.     if (is(buf54,eFile)) {    .. was 1 line only
  34. label(0)
  35.         putMsg("No selection or no FileReq program or no Arp Library")
  36.         returnFalse
  37.     }
  38.     freeBuf(buf53)                                     .. directoryname line
  39.     insertRgn(buf53,sFile,buf54,line)              .. copy in directory name
  40.     runKey(virtual-7)        .. store dirname in buf38, if not already there
  41.     if (not eqNum(n53,"*")) {                       .. 1st line wasn't empty
  42.         clearRgn(buf54,line)                  .. erase dirname line in buf54
  43.         insertRgn(buf54,sFile,buf38,hilite)                .. insert dirname
  44.         loadFile(buf54)                                 .. now load the file
  45.     }
  46. >
  47.