home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rdebug21.zip
/
RDXMIMIC.KEX
< prev
next >
Wrap
Text File
|
1993-03-25
|
2KB
|
57 lines
/*H* RDXMIMIC.KEX 02-07-93 11:57 */
Parse Value 'COMMAND SET!COMMAND EXT' With dbcs'!'dbce
Parse Value 'COMMAND!COMMAND SOS!COMMAND X' With dbc'!'dbso '!'dbxx
dbce '/OPSYS'
dbme='rdxMIMIC'
dbsys=opsys.1
if dbsys='OS/2' then dbsys='OS2' /*O*/
trace o?r /*T*/
address KEDIT
dbc 'REFRESH'
dbcs 'WRAP OFF'
dbcs 'MSGM OFF'
trace o?r /*T*/
if trace()='?R' then dbcs 'MSGM ON' /*T*/
dbc ":1CH!;! ; !**"
dbc ":1CH!! !*"
call db8change "! exit ! /*Exit*/ Return !"
parse value result with dbtrc dbtrap
if dbtrc=-7 then return -7 dbtrap
call db8change "! trace ! /*trace !"
dbpullsay=0
call db8change "! parse upper pull ! Call DBPULL 'pu !" /*NC*/
call db8change "! parse pull ! Call DBPULL 'pp !" /*NC*/
call db8change "! pull ! Call DBPULL 'p !" /*NC*/
trace o?r /*T*/
call db8change "! say ! Call DBSAY !" /*NC*/
":1CH/ //*"
":1CH/ ; /;/**"
dbcs 'MSGM ON'
dbc 'MSG .'
dbcs 'WRAP ON'
exit dbpullsay
db8CHANGE: procedure expose dbpullsay dbce dbc
parse arg '!'dbtarget '!'dbnew '!'
dbnew=strip(dbnew)
':0'
do Forever
dbc 'LOC !'dbtarget
if rc<>0 then leave
dbce '/CURL'
line = curline.3
lineup = translate(line)
key = strip(translate(dbtarget))
dbl = length(key)
dbi=pos(key,lineup)
if dbi>1 then do
dbpullsay=1
dbrest=substr(line,dbi+dbl)
if left(dbnew,12)=' Call DBPULL' then dbrest=dbrest"'"
if left(dbnew,16)=" /*trace" then dbrest=dbrest"*/"
line=substr(line,1,dbi-1)dbnew''dbrest; end
dbc 'REP' line
'+1'
end
Return 0;