389b9d1c4a
* contrib/gtwvg/class.prg
* contrib/gtwvg/parthdlr.prg
* contrib/gtwvg/radiobut.prg
* contrib/gtwvg/toolbar.prg
* contrib/gtwvg/wnd.prg
* contrib/hbnf/doc/en/amedian.txt
* contrib/hbnf/doc/en/ftidle.txt
* contrib/hbnf/doc/en/iamidle.txt
* contrib/hbnf/tests/datecnfg.prg
* contrib/hbsqlit3/tests/sl3_test.prg
* contrib/hbtip/tests/ftpadv.prg
* contrib/hbtip/tests/httpadv.prg
* contrib/xhb/hblog.prg
* contrib/xhb/htmutil.prg
* contrib/xhb/sprintf.prg
* doc/clipper.txt
* extras/gtwvw/tests/ebtest7.prg
* extras/gtwvw/tests/maximize.prg
* extras/gtwvw/tests/prog0.prg
* extras/gtwvw/tests/prog1.prg
* extras/gtwvw/tests/prog2.prg
* extras/gtwvw/tests/wvwmouse.prg
* extras/gtwvw/tests/wvwtest9.prg
* extras/hbdoc/hbdoc.prg
* extras/httpsrv/cookie.prg
* extras/httpsrv/session.prg
* src/rtl/tbrowse.prg
* tests/destruct.prg
* tests/switch.prg
* tests/t1.prg
* tests/testbrw.prg
* tests/tstuse.prg
* utils/hbmk2/hbmk2.prg
* utils/hbtest/rt_math.prg
* END -> END*
* other minor cleanups and formatting
125 lines
1.7 KiB
Plaintext
125 lines
1.7 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#ifdef __XHARBOUR__
|
|
#define OTHERWISE DEFAULT
|
|
#define ENDSWITCH END
|
|
#endif
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL a := 1
|
|
MEMVAR b
|
|
PRIVATE b := "b"
|
|
|
|
#ifndef __XHARBOUR__
|
|
|
|
SWITCH a
|
|
ENDSWITCH
|
|
#endif
|
|
|
|
?
|
|
? "1111111111111111111111111111111"
|
|
SWITCH a
|
|
CASE 1
|
|
? "FOUND: 1"
|
|
ENDSWITCH
|
|
|
|
?
|
|
? "2222222222222222222222222222222"
|
|
SWITCH a
|
|
CASE 1
|
|
? "FOUND: 1"
|
|
EXIT
|
|
CASE "2"
|
|
? a
|
|
ENDSWITCH
|
|
|
|
?
|
|
? "3333333333333333333333333333333"
|
|
SWITCH a
|
|
CASE 1
|
|
? "FOUND: 1"
|
|
CASE "2"
|
|
? "FOUND: 2"
|
|
OTHERWISE
|
|
? "other"
|
|
ENDSWITCH
|
|
|
|
#ifndef __XHARBOUR__
|
|
?
|
|
? "44444444444444444444444444444444444"
|
|
SWITCH a
|
|
OTHERWISE
|
|
? "OTHERWISE"
|
|
ENDSWITCH
|
|
#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"
|
|
ENDSWITCH
|
|
#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"
|
|
ENDSWITCH
|
|
?? "In CASE 1"
|
|
? a
|
|
ENDSWITCH
|
|
|
|
? "========================================="
|
|
|
|
RETURN
|