home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
164.lha
/
ARexx
/
TXed_ARexx
/
markit.txed
< prev
next >
Wrap
Text File
|
1988-04-28
|
2KB
|
46 lines
/* Start a Ref entry */
/* Note: ST D only returns a directory if a directory is present in the
TxEd file requestor, so be sure to have the directory specified in
the file requestor before calling this routine.
To use simply open up a file with the reference you want, move the cursor
to the beginning of your desired reference text. Then call this macro
with the reference word as a parameter. The information will be appended
to the file 's:txed.ref'. Then move the cursor to the end of the reference
text and call the macro 'endit'. Endit will complete the entry into the
file 's:txed.ref'. Now whenever you wish to retrieve the reference text
simply position the cursor anywhere on the reference word and call the
macro 'ref'. Ref will open another txed window and insert the reference
text into it. Ref requires use of the macro 'lookitup'. That's it! User
definable on-line help for any reference you like. Especially useful for
commented include files and autodocs. You may wish to put 'ref' and 'endit'
in your menus. Markit will not work as a menu item unless you modify to
'pull' the reference word interactively. Have fun. */
parse arg refword
options results
if (exists('s:txed.ref')) then
call open(reffile,'s:txed.ref','A')
else
call open(reffile,'s:txed.ref','W')
call writech(reffile,refword)
call writech(reffile,' ')
'ST D'
dir = result
if (right(dir,1) ~= ':') then
dir = dir||'/'
call writech(reffile,dir)
'ST F'
call writech(reffile,result)
call writech(reffile,' @')
'ST R'
line = word(result,2)
call writech(reffile,line)
call writech(reffile,'@ ')