home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / rexxmenu.zip / menu1act.erx < prev    next >
Text File  |  1998-02-26  |  4KB  |  106 lines
  1. /*===============================================================*/
  2. /*                menu actions macro "menu1act.erx"                             */
  3. /*                  Written by Father John Missing, O.C.F.M.                      */
  4. /*                                                                                    */
  5. /*===============================================================*/
  6.  
  7. Arg args
  8.  
  9. 'extract /getline/line/cursorx/col'
  10.  
  11. linenum1 = line.1
  12. linenum2 = line.1 + 1
  13. linenum3 = line.1 + 2
  14. linenum4 = line.1 + 3
  15. linenum5 = line.1 + 4
  16. linenum6 = line.1 + 5 
  17. linenum7 = line.1 + 6
  18. linenum8 = line.1 + 7 
  19. linenum9 = line.1 + 8 
  20. linenum0 = line.1 + 9 
  21.  
  22. Select 
  23. When args = 'A' Then  /* Do loop */
  24.     Do 
  25.     Call etkinserttext getline.1||'    Do  ', linenum1
  26.     Call etkinserttext '  ', linenum2
  27.     Call etkinserttext getline.1||'    End', linenum3
  28.     newcursorx = cursorx.1 + 4
  29.     Call EtkSetFileField 'cursorx', newcursorx
  30.     Call EtkSetFileField 'line', linenum2 
  31.     End    
  32. When args = 'B' Then  /* If then else  */
  33.     Do                                             
  34.     Call etkinserttext getline.1||'If  Then', linenum1 
  35.     Call etkinserttext '  ', linenum2
  36.     Call etkinserttext getline.1||'    Else', linenum3
  37.     newcursorx = cursorx.1 + 3
  38.     Call EtkSetFileField 'cursorx', newcursorx
  39.     Call EtkSetFileField 'line', linenum1          
  40.     End                                            
  41. When args = 'C' Then    /* Select when otherwise */
  42.     Do  
  43.     Call etkinserttext getline.1||'Select  ', linenum1 
  44.     Call etkinserttext getline.1||'    When       Then', linenum2
  45.     Call etkinserttext '  ', linenum3
  46.     Call etkinserttext getline.1||'    When       Then', linenum4
  47.     Call etkinserttext '  ', linenum5
  48.     Call etkinserttext getline.1||'    Otherwise', linenum6
  49.     Call etkinserttext '  ', linenum7
  50.     Call etkinserttext getline.1||'End', linenum8
  51.     newcursorx = cursorx.1 + 9
  52.     Call EtkSetFileField 'cursorx', newcursorx
  53.     Call EtkSetFileField 'line', linenum2          
  54.     End
  55. When args = 'D' Then 
  56.     Do  
  57.     Call etkreplacetext getline.1||'/*       */',line.1
  58.     newcursorx = cursorx.1 + 4
  59.     Call EtkSetFileField 'cursorx', newcursorx
  60.     End
  61. When args = 'E' Then 
  62.     Do  
  63.     Call etkinserttext getline.1||"Call RxFuncAdd 'FileLoadFuncs', 'FileRexx', 'FileLoadFuncs'", linenum1
  64.     Call etkinserttext getline.1||'Call FileLoadFuncs', linenum2
  65.     Call EtkSetFileField 'line', linenum3
  66.     End
  67. When args = 'F' Then 
  68.     Do  
  69.     Call etkinserttext getline.1||"Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'", linenum1
  70.     Call etkinserttext getline.1||'Call SysLoadFuncs', linenum2
  71.     Call EtkSetFileField 'line', linenum3          
  72.     End
  73. When args = 'G' Then 
  74.     Do  
  75.     Call etkinserttext getline.1||"Call RxFuncAdd 'RxuInit', 'RXU', 'RxuInit'", linenum1
  76.     Call etkinserttext getline.1||'Call RxuInit', linenum2
  77.     Call EtkSetFileField 'line', linenum3          
  78.     End
  79. When args = 'H' Then
  80.     Do  
  81.     Call etkinserttext getline.1||'Call RxFuncAdd"SockLoadFuncs","rxSock","SockLoadFuncs"', linenum1
  82.     Call etkinserttext getline.1||'Call SockLoadFuncs', linenum2
  83.     Call EtkSetFileField 'line', linenum3  
  84.     End
  85. When args = 'I' Then NOP
  86. When args = 'J' Then NOP
  87. When args = 'K' Then NOP
  88. When args = 'L' Then NOP
  89. When args = 'M' Then NOP
  90. When args = 'N' Then NOP
  91. When args = 'O' Then NOP
  92. When args = 'P' Then NOP
  93. When args = 'Q' Then NOP
  94. When args = 'R' Then NOP
  95. When args = 'S' Then NOP
  96. When args = 'T' Then NOP
  97. When args = 'U' Then NOP
  98. When args = 'V' Then NOP
  99. When args = 'W' Then NOP
  100. When args = 'X' Then NOP
  101. When args = 'Y' Then NOP
  102. When args = 'Z' Then NOP
  103. Otherwise  Return
  104. End
  105. Return
  106.