home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
prgramer
/
rexx
/
rdebug
/
rdebug.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-03-25
|
2KB
|
94 lines
/*H* RDEBUG.REX 01-30-93 10:58*/
me='rDEBUG'
If arg(1)='?' Then Exit tell(me)
Arg prgm .
Parse Arg . parms
Parse source sys .
if sys='OS/2' then sys='OS2'
else if sys='PCDOS' then sys='DOS'
i=pos('.',prgm)
if i>1 then prgm=left(prgm,i-1)
select
When prgm = '' Then do
call '\rdebug\rddemo' '1'
exit; end
When prgm = '/DOS' then parse value parms with prgm parms
When sys = 'DOS' then do
call version_rexx
queue 'RDEBUGD' prgm parms
exit; end
otherwise nop
end
call run
Exit
RUN:
trace o?r
Select
When sys='DOS' Then do
drive=dosdrive()':'
'set path='drive'\rDEBUG;..;%path%'
/* note drive letter above */
call version_kedit
Queue ' MACRO' me 0 prgm parms
end
When sys='OS2' then do
call rxfuncadd 'sysloadFuncs', 'rexxUtil','sysloadfuncs'
call sysloadFuncs
'@setlocal'
drive=left(syssearchpath( 'path', '\nul'),2)
'@set path='drive'\rDEBUG;..;%path%'
'@set prgm='prgm'.CMD'
do m=1
drop dprgm macro
Queue ' ' 0 prgm parms
' @KEDIT' prgm'.CMD (PROF RDEBUG'
do n=1
if queued()=0 then leave n
parse pull macro dprgm parms
end n
if macro<>'MACRO' then leave m
if dprgm='DPRGM' then leave m
Queue ' ' parms
' @KEDIT' prgm'.CMD (PROF' dprgm
if queued()=0 then leave m
parse pull . prgm parms
if prgm ='' then leave m
end m
do forever
if queued()=0 then leave
parse pull .
end /*forever*/
'@endlocal'
end /*OS2*/
otherwise do
Push ' MACRO' me 0 prgm parms
Queue' XEDIT' prgm 'EXEC (PROF RDPROFIL'
end
end /*Select*/
return
VERSION_REXX:
if prxversion()>=3.02 then renvir='/X/L'
else renvir='/X'
call value 'RXFLAGS',renvir,'ENVIRONMENT'
return
VERSION_KEDIT:
editor='XEDIT.EXE'
editor='KEDIT.EXE'
kenvir='NOEMS ISA 8'
'LISTFILE' editor '(NOH LIFO DATE ENVVAR PATH'
queue 'END'
do n=1
if rc=0 then pull sentinel . . . time .
if sentinel='END' then leave
if n>1 then iterate
if left(time,2)='05' then kenvir=kenvir 'UMB'
else if left(time,2)='09' then nop
else nop
end
call value 'KEDIT',kenvir,'ENVIRONMENT'
return