harbour-core/harbour/tests/switch.prg

/*
 * $Id$
 */

#ifdef __XHARBOUR__
   #define OTHERWISE DEFAULT
#endif

PROCEDURE Main()
   LOCAL a := 1
   PRIVATE b := "b"

#ifndef __XHARBOUR__
   SWITCH a
   END
#endif

   ?
   ? "1111111111111111111111111111111"
   SWITCH a
   CASE 1
      ? "FOUND: 1"
   END

   ?
   ? "2222222222222222222222222222222"
   SWITCH a
   CASE 1
      ? "FOUND: 1"
      EXIT
   CASE "2"
      ? a
   END

   ?
   ? "3333333333333333333333333333333"
   SWITCH a
   CASE 1
      ? "FOUND: 1"
   CASE "2"
      ? "FOUND: 2"
   OTHERWISE
      ? "other"
   END

#ifndef __XHARBOUR__
   ?
   ? "44444444444444444444444444444444444"
   SWITCH a
   OTHERWISE
      ? "OTHERWISE"
   END
#endif

   ?
   ? "55555555555555555555555555555555555"
   a := 'EE'
#ifndef __XHARBOUR__
   SWITCH a
   CASE 11
      ? "11"
      exit

   CASE 'CCCC'+'DDDD'
      ? a+a
      EXIT

   CASE "a&b"
   CASE 1+1
   CASE {11111111,22222222222}[1]
   CASE 1+1+1
      ? "3"
      EXIT

   CASE 1+1*3
   CASE 123+12*4-1*4+2
   CASE 1-4
      ? "4"
      EXIT
   CASE 123456789
   CASE 0
      EXIT
   CASE 'AAAA'
   CASE 'BBBBB'
      ? a
      EXIT
   CASE CHR(12)+CHR(15)
      ? "CHR()"
      EXIT
   OTHERWISE
      ? "NOT FOUND: running OTHER"
   END
#endif

   ?
   ? "666666666666666666666666666666666666666666"
   a := "2"
   SWITCH a
   CASE 1
      ? "FOUND: 1"
      ? a
      EXIT
   CASE "2"
      SWITCH a+a
      CASE 1
         ? "Nested FOUND 1"
         EXIT
      CASE "22"
         ? "Nested FOUND: 22"
         EXIT
      OTHERWISE
         ? "Nested OTHERWISE"
      END
      ?? "In CASE 1"
      ? a
   END

   ? "========================================="

   RETURN