home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rdebug / rdbmenu.kex < prev    next >
Encoding:
Text File  |  1993-03-26  |  6.1 KB  |  221 lines
  1. /*H* RDBMENU.KEX 02-11-93 11:32*/
  2.  /*!1 arg . m ver dbfullsw dberrorsw dblogsw dbtracesw, */
  3.  arg source m ver dbfullsw dberrorsw dblogsw dbtracesw,
  4.  dbtallysw dbwatchsw dbcount dbwait dbwatch
  5.  Signal On Error;   Signal On Failure;  Signal On Halt
  6.  Signal On Novalue; Signal On Notready; Signal ON Syntax
  7.  Parse Value 'COMMAND SET!COMMAND X!COMMAND EXT' With dbcs'!'dbxx'!'dbce
  8.  Parse Value 'COMMAND!COMMAND SOS' With dbc'!'dbso
  9.  dbce '/FN/OPSYS'
  10.  dbme='rdbMENU'
  11.  dbsys=opsys.1
  12.  Parse Value 0 With dbtrc dbtrap dbtrapp dbmsg dbtcode
  13.  if dbsys='OS/2' then dbsys='OS2'     /*O*/
  14.  /*!1 if source='?' then /*Exit*/ Return tell(dbme)*/
  15.  if source='?' then /*Exit*/ Return tell(dbme)  /*!1*/
  16.  if m='' then parse value 'F' 1 with m ver
  17.  if m='O' then do
  18.    Parse Value rdbvars() with dbtrc dbtrap
  19.    if dbtrc=-7 then return -7 dbtrap
  20.    interpret dbtrc dbtrap; end
  21.  dbce '/LSCR'
  22.  if lscreen.3<13 then dbscr=1; else dbscr=2
  23.  If dbscr=2 then dbso 'TABCMDB'
  24.  dbce '/PREF/FLSCR/CURL/LINE/CURS'
  25.  
  26.  if prefix.1='ON' then prefix=6
  27.  else prefix=0
  28.  parse value       db3menu(m)      with dbtrc dbtrap
  29.  if dbtrc=-7 then return -7 dbtrap
  30.  str=dbtrc dbtrap
  31.  Parse Value line.1 '┌'copies('─',78)'┐' '│' d2c(16) strip(m),
  32.  With sline line bar mark m
  33.  parse var str start width items '!' str
  34.  width=width+1
  35.  do i=0 to 11
  36.    subs=substr(str,i*width+1,width)
  37.    if subs='' then leave
  38.    if i=ver then subs=overlay(mark,subs,3,1)
  39.    dbc 'MSG' overlay(subs,line,start)
  40.    '+1 EXT /CURL/LINE'
  41.    if line.1<1 then line=''
  42.    else line=bar''left(copies(' ',prefix)curline.3,78)bar
  43.  end
  44.  signal off error
  45.  ':'sline
  46.  signal on error
  47.  If dbscr=2 then dbso 'TABCMDF'
  48.  if cursor.3 > 0 then do
  49.    dbc 'l :'cursor.3
  50.    dbc 'cl :'cursor.2; end
  51.  else dbso 'TABC'
  52.  if dbtrc=-7 then return -7 dbtrap
  53.  
  54.  /*Exit*/ Return items;      db3MENU:
  55.  arg menu
  56.  menu.F='2 18 O S A * P * E !',
  57.  '┌────────────────┐',
  58.  '│  Open          │',
  59.  '│  Save          │',
  60.  '│  save As...    │',
  61.  '├────────────────┤',
  62.  '│ *Print log     │',
  63.  '├────────────────┤',
  64.  '│  Exit          │',
  65.  '└────────────────┘'
  66.  
  67.  menu.V='9 25 M O R H S Z !',
  68.  '┌───────────────────────┐',
  69.  '│ menu/window    ->  F2 │',
  70.  '│ Output screen      F4 │',
  71.  '│ Refresh screen   C-F4 │',
  72.  '│ scroll Horizon.   F12 │',
  73.  '│ Switch screen      F6 │',
  74.  '│ Zoom                  │',
  75.  '└───────────────────────┘'
  76.  
  77.  menu.R='17 23 S R G C !',
  78.  '┌─────────────────────┐',
  79.  '│ Start      Shift+F5 │',
  80.  '│ Restart             │',
  81.  '│ Go to cursor     F7 │',
  82.  '│ Continue         F5 │',
  83.  '└─────────────────────┘'
  84.  
  85.  menu.D='24 31 S P * T * B A N !',
  86.  '┌─────────────────────────────┐',
  87.  '│ Step                     F8 │',
  88.  '│ Procedure step          F10 │',
  89.  '├─────────────────────────────┤',
  90.  '│ Trace on/off                │',
  91.  '├─────────────────────────────┤',
  92.  '│ toggle Breakpoint        F9 │',
  93.  '│ toggle All breakpoints      │',
  94.  '│ set Next statement          │',
  95.  '└─────────────────────────────┘'
  96.  
  97.  menu.W='32 19 A S D E R !',
  98.  '┌─────────────────┐',
  99.  '│  Add...    S-F3 │',
  100.  '│  Show           │',
  101.  '│  Delete...      │',
  102.  '│ *Edit           │',
  103.  '│  Remove         │',
  104.  '└─────────────────┘'
  105.  
  106.  menu.C='40 19 B E S D !',
  107.  '┌─────────────────┐',
  108.  '│  Break          │',
  109.  '│  Exclude        │',
  110.  '│  Skip           │',
  111.  '│  Debug          │',
  112.  '└─────────────────┘'
  113.  menu.O='51 19 F E L T A W C I !',
  114.  '┌─────────────────┐',
  115.  '│ Fullsw ' dbfullsw '      │',
  116.  '│ Errorsw' Dberrorsw '      │',
  117.  '│ Logsw  ' Dblogsw '      │',
  118.  '│ Tracesw' Dbtracesw '      │',
  119.  '│ tAllysw' Dbtallysw '      │',
  120.  '│ Watchsw' Dbwatchsw '      │',
  121.  '│ Count  ' DbCount copies(' ',6-length(dbcount)) '│',
  122.  '│ waIt   ' DbwaIt '      │',
  123.  ' '
  124. /*
  125.  menu.O='51 19 S F E L T A W C I !',
  126.  '│ Switches        │',
  127.  '└─────────────────┘'
  128.  */
  129.  
  130.  menu.T='61 16 C F I P P M S Y X!',
  131.  '┌──────────────┐',
  132.  '│ *Case        │',
  133.  '│  Files       │',
  134.  '│ *Indentation │',
  135.  '│  Profiler    │',
  136.  '│ *Match       │',
  137.  '│ *Structure   │',
  138.  '│ *sYntax      │',
  139.  '│ *Xref        │',
  140.  '└──────────────┘'
  141.  
  142.  menu.H='48 31 I C T U * A !',
  143.  '┌─────────────────────────────┐',
  144.  '│ Index                       │',
  145.  '│ Contents                    │',
  146.  '│ Topic:                      │',
  147.  '│ Using Help                  │',
  148.  '├─────────────────────────────│',
  149.  '│ About...                    │',
  150.  '└─────────────────────────────┘'
  151.  
  152.  menu.1='2 18 O S A * P * C E !',
  153.  '┌────────────────┐',
  154.  '│ Open...        │',
  155.  '│ Save           │',
  156.  '│ save As...     │',
  157.  '├────────────────┤',
  158.  '│ Print          │',
  159.  '├────────────────┤',
  160.  '│ Continue       │',
  161.  '│ Exit           │',
  162.  '└────────────────┘'
  163.  
  164.  menu.2='2 18 N S A * P * C R E !',
  165.  '┌────────────────┐',
  166.  '│  New           │',
  167.  '│  Save          │',
  168.  '│  save As...    │',
  169.  '├────────────────┤',
  170.  '│  Print         │',
  171.  '├────────────────┤',
  172.  '│  Continue      │',
  173.  '│ *Rerun         │',
  174.  '│  Exit          │',
  175.  '└────────────────┘'
  176.  
  177.  menu.3='2 18 N S * P * C E !',
  178.  '┌────────────────┐',
  179.  '│ New            │',
  180.  '│ Save           │',
  181.  '├────────────────┤',
  182.  '│ Print          │',
  183.  '├────────────────┤',
  184.  '│ Continue       │',
  185.  '│ Exit           │',
  186.  '└────────────────┘'
  187.  
  188.  menu.4='2 18 S A * C E !',
  189.  '┌────────────────┐',
  190.  '│ Save           │',
  191.  '│ save As...     │',
  192.  '├────────────────┤',
  193.  '│ Continue       │',
  194.  '│ Exit           │',
  195.  '└────────────────┘'
  196.  
  197.  menu.U='2 18 S * P * Q D E !',
  198.  '┌────────────────┐',
  199.  '│ Save           │',
  200.  '├────────────────┤',
  201.  '│ Print          │',
  202.  '├────────────────┤',
  203.  '│ Quit           │',
  204.  '│ Continue       │',
  205.  '│ Exit           │',
  206.  '└────────────────┘'
  207.  
  208.  return menu.menu;
  209.  ERROR:    return db9trap(sigl 80e) sourceline(sigl)
  210.  FAILURE:  return db9trap(sigl 80f) sourceline(sigl)
  211.  HALT:     return db9trap(sigl 80h)
  212.  NOTREADY: return db9trap(sigl 80r) sourceline(sigl)
  213.  NOVALUE:  return db9trap(sigl 80v)
  214.  SYNTAX:   return db9trap(sigl 80e) errortext(rc)'~'sourceline(sigl)
  215.  db9TRAP:
  216.  if dbtrc=-7 then dbtrapp=dbtrap
  217.  parse arg dbsigl dbtcode dbtrest
  218.  dbtrap = 0 dbme dbsigl dbtcode dbmsg rdbmsg(dbtcode dbme dbsigl) dbtrest
  219.  dbtrc=-7
  220.  return -7 dbtrapp'~'dbtrap
  221.