home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rdebug / tracesw.kex < prev   
Encoding:
Text File  |  1993-03-25  |  2.1 KB  |  82 lines
  1. /* TRACESW.REX 03-24-92 10:11 */
  2. Arg s
  3.  /*      test seperately
  4.  signal on error
  5.  signal on halt
  6.  signal on syntax
  7.  */
  8. parse value o 0 0 with t pc? lt?
  9. Parse source sys .
  10. if      sys='OS/2'  then sys='OS2'
  11. else if sys='PCDOS' then sys='DOS'
  12. else                     sys='CMS'
  13. if lines('c:\ansi.sys')>0 then lt?=1
  14. If (sys='DOS')+(sys='OS2')>0 Then pc?=1
  15. If words(s)>2 Then Do
  16.   If pc? then do
  17.     Parse Var s . . file .
  18.     file=translate(file,' ','\.:')
  19.     n=words(file)
  20.     me=word(file,n-1)
  21.     ext=right(file,3); End
  22.   Else Parse Var s . . . ext . me .;end
  23. Else Exit msg('tracesw',10,'Not enough parameters')
  24.  /*
  25. call useage
  26.  */
  27. t= strip(t)
  28. Exit t me pc? lt? ext sys
  29.  
  30. useage:
  31. Address Command
  32. Parse Value 1 1 1 1 With list.PROFILE list.BYE list.DUMPLOG list.HYPERTXT
  33. 'GLOBALV SELECT MY STACK TRACE'
  34. If rc=0 Then Pull p t
  35. If pc? Then Do
  36.   If lt? Then nop
  37.   Else Do
  38.     If list.me<>1 then do
  39.     /* call copytof */
  40.     /*  COUNT_EXECUTION: */
  41.       address command 'GLOBALV SELECT USE STACK' me
  42.       parse value 0 date('o') with count . '/' mo '/' day
  43.       if rc=0 then pull . count
  44.       if count='' then count=0
  45.       address command 'GLOBALV SELECT USE SETPL' left(me,8) mo''day count+1
  46.     end
  47.   end
  48.   If p<>me Then t='o'
  49. End
  50. return
  51.  
  52. STATE: Procedure Expose pc?
  53. Arg f
  54. If pc? Then Do
  55.   If dosdir(f)='' Then rc=28
  56.   Else rc=0;end
  57. Else 'state' f
  58. Return rc
  59. /*             code museum
  60.  tracesw.kex/rex
  61.  if lt? then do
  62.     If list.me<>1  & state('c:\'me'.'ext)=28
  63.   /*Then ' COPY a:'me'.'ext 'c:\ >nul';end*/
  64.     Then 'BCOPY a:'me'.'ext 'c:\ >nul';end
  65. call copytof:
  66. If state('f:\'me'.'ext)=28 Then Do
  67.   If ext='REX' Then Do
  68.     speca='c:\mya\'me'.'ext
  69.     specc='c:\myc\'me'.'ext; End
  70.   Else Do
  71.     speca='c:\mya\ak\'me'.'ext
  72.     specc='c:\myc\ck\'me'.'ext; End
  73.   /* If state(speca)=0 Then 'bcopy' speca 'f:\ >nul'
  74.       If state(specc)=0 Then 'bcopy' speca 'f:\ >nul'
  75.   Else 'BCOPY' specc 'f:\ >nul' */
  76.   If state(speca)=0 Then ' copy' speca 'f:\ >nul'
  77.   /*Else ' COPY' specc 'f:\ >nul'*/
  78.   else If state(specc)=0 Then ' copy' specc 'f:\ >nul'
  79. End
  80. return
  81.  */
  82.