home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / GED403R.LZX / Install / Install.run / GOLDEDDATA / arexx / case.ged < prev    next >
Encoding:
Text File  |  1996-07-26  |  1.7 KB  |  75 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Insert empty case block            */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. arg doComment                               /* set to TRUE for header  */
  6.  
  7. OPTIONS RESULTS                             /* enable return codes     */
  8.  
  9. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  10.     address 'GOLDED.1'
  11.  
  12. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  13. if (RC ~= 0) then
  14.     exit
  15.  
  16. OPTIONS FAILAT 6                            /* ignore warnings         */
  17. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  18.  
  19. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  20.  
  21. 'QUERY CAT'
  22. GERMAN = (RESULT = "deutsch")
  23.  
  24. if (GERMAN) then do
  25.  
  26.     ASKHEAD  = "case-Ausdruck - z.B. 'A':"
  27.     NOSWITCH = "switch-Statement fehlt ?!"
  28. end
  29. else do
  30.  
  31.     ASKHEAD  = "case expression - e.g. 'A':"
  32.     NOSWITCH = "switch statement missing ?!"
  33. end
  34.  
  35. 'FIND QUIET PREV STRING="switch"'
  36.  
  37. if (RC = 0) then do
  38.  
  39.     'DOWN'
  40.     'INSERT LINE'
  41.     'DOWN'
  42.     'INSERT LINE'
  43.     'TAB'
  44.     'PING SLOT 0'
  45.     'TEXT T="case "'
  46.  
  47.     'REQUEST TITLE "' || ASKHEAD || '" OLD=":" STRING VAR CASE'
  48.  
  49.     if (RC = 0) then do
  50.  
  51.         'TEXT STAY T="' || CASE || '"'
  52.         'PONG SLOT 0'
  53.         'DOWN'
  54.         'INSERT LINE'
  55.         'TAB'
  56.         'TEXT STAY T="break;"'
  57.         'INSERT LINE'
  58.         'INSERT LINE'
  59.         'DOWN'
  60.     end
  61. end
  62. else
  63.     'REQUEST BODY="' || NOSWITCH || '"'
  64.  
  65. /* ---------------------------- END OF YOUR CODE ----------------------- */
  66.  
  67. 'UNLOCK' /* VERY important: unlock GUI */
  68. EXIT
  69.  
  70. SYNTAX:
  71.  
  72. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  73. 'UNLOCK'
  74. EXIT
  75.