261f8551e7
* contrib/make.hb
* extras/httpsrv/uhttpd.prg
* tests/ac_test2.prg
* tests/alias.prg
* tests/begin.prg
* tests/db_brows.prg
* tests/memfile.prg
* tests/omacro.prg
* tests/sbartest.prg
* tests/switch.prg
* tests/testget.prg
* tests/testpp.prg
* tests/tstblock.prg
* tests/varparam.prg
* use m_ prefix for PRIVATEs, p_ for PUBLICs and s[c]_
for STATICs
% optimized out some PRIVATEs
% use hb_Disp*() instead of @ SAY in db_browse.prg
(this fixes cursor flickering)
* ChangeLog
! typos
* utils/hbtest/rt_class.prg
* utils/hbtest/rt_math.prg
* 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 m_b
|
|
PRIVATE m_b := "m_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&m_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
|