home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Tools / Development / envCPP31 / c++ / rexx / switch.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-01-01  |  1.1 KB  |  62 lines
  1. /* rexx macro */
  2.  
  3. options results                             /* enable return codes     */
  4.  
  5. if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.  
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.  
  13.     exit
  14.  
  15. options failat 6                            /* ignore warnings         */
  16.  
  17. signal on syntax                            /* ensure clean exit       */
  18.  
  19. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  20.  
  21. 'INSERT LINE'
  22. 'PING SLOT 0'
  23. 'TEXT STAY T="switch ()"'
  24. 'DOWN'
  25. 'INSERT LINE'
  26. 'TEXT STAY T="{"'
  27. 'DOWN'
  28. 'INSERT LINE'
  29. 'TEXT STAY T="};"'
  30. 'INSERT LINE'
  31. 'TAB'
  32. 'QUERY COLUMN VAR=COLUMN'
  33. 'TEXT STAY T="case :"'
  34. 'DOWN'
  35. 'INSERT LINE'
  36. 'DOWN'
  37. 'INSERT LINE'
  38. 'TAB'
  39. 'TEXT STAY T="break;"'
  40. 'DOWN'
  41. 'INSERT LINE'
  42. 'DOWN'
  43. 'INSERT LINE'
  44. 'GOTO COLUMN=' || COLUMN
  45. 'TEXT STAY T="default:"'
  46. 'PONG SLOT 0'
  47. 'LEFT'
  48.  
  49. /* ---------------------------- END OF YOUR CODE ----------------------- */
  50.  
  51. 'UNLOCK' /* VERY important: unlock GUI */
  52.  
  53. exit
  54.  
  55. SYNTAX:
  56.  
  57. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  58.  
  59. 'UNLOCK'
  60.  
  61. exit
  62.