e89c2b43ce
* extras/hbvpdf/hbvpdf.hbx
! two more corrections
* contrib/gtwvg/tests/_dyndlgs.prg
* contrib/hbct/doc/en/finan.txt
* contrib/hbct/readme.txt
* contrib/hbct/tests/asciisum.prg
* contrib/hbct/tests/trig.prg
* contrib/hbfoxpro/dll.prg
* contrib/hbhttpd/core.prg
* contrib/hbhttpd/widgets.prg
* contrib/hbmisc/fcomma.prg
* contrib/hbmlzo/tests/test.prg
* contrib/hbmxml/tests/custom.prg
* contrib/hbmzip/readme.txt
* contrib/hbnf/nwuid.prg
* contrib/hbnf/vidcur.prg
* contrib/hbtip/client.prg
* contrib/hbwin/tests/olesrv1.prg
* contrib/hbwin/tests/testprn.prg
* contrib/xhb/cstruct.prg
* contrib/xhb/hjwindow.prg
* contrib/xhb/hterrsys.prg
* contrib/xhb/htjlist.prg
* contrib/xhb/htmutil.prg
* contrib/xhb/tests/decode.prg
* contrib/xhb/xhberr.prg
* doc/cmdline.txt
* doc/en/objfunc.txt
* doc/en/set.txt
* doc/en/string.txt
* doc/pragma.txt
* extras/gfspell/spell.prg
* extras/gtwvw/docs/gtwvw.txt
* extras/gtwvw/tests/wvwtest9.prg
* extras/hbvpdf/core.prg
* extras/hbvpdf/fonts.prg
* extras/hbvpdf/tests/pdf_demo.prg
* extras/httpsrv/cgifunc.prg
* extras/httpsrv/home/counter.html
* extras/httpsrv/home/testxmldb.html
* extras/httpsrv/session.prg
* extras/httpsrv/uhttpd.prg
* tests/base64.prg
* tests/boxtest.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/inherit.prg
* tests/langmsg.prg
* tests/mathtest.prg
* tests/memtst.prg
* tests/readhrb.prg
* tests/switch.prg
* tests/testsha2.prg
* tests/testwarn.prg
* tests/tstdbi.prg
* tests/utf8at.prg
* utils/hbtest/hbtest.prg
* utils/hbtest/rt_class.prg
* utils/hbtest/rt_date.prg
* utils/hbtest/rt_hvma.prg
* utils/hbtest/rt_math.prg
* utils/hbtest/rt_misc.prg
* utils/hbtest/rt_trans.prg
* website/news.html
* website/news1.html
* website/samples.html
* website/samples/arreval.html
* website/samples/codebl.prg.html
* website/samples/dates3.html
* website/samples/switch.prg.html
* website/samples/testcgi.prg.html
* website/samples/tstmacro.prg.html
* rerun case fixer script after applying
some fixes, and this time it run fully
automatically.
143 lines
10 KiB
HTML
143 lines
10 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
|
|
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>switch.prg</TITLE>
|
|
<META http-equiv=Content-Type content="text/html; charset=utf-8">
|
|
<META content="MSHTML 6.00.6000.16386" name=GENERATOR>
|
|
<STYLE type=text/css>
|
|
<!--
|
|
body { color: #000000; background-color: #FFFFFF; }
|
|
.any1-activedot { color: #800080; }
|
|
.any1-comment { color: #008080; }
|
|
.any1-constant { color: #800080; }
|
|
.any1-escapeampersand { color: #00FF00; font-weight: bold; }
|
|
.any1-function { color: #808000; }
|
|
.any1-identifier { color: #000000; }
|
|
.any1-number { color: #FF0000; }
|
|
.any1-preprocessor { }
|
|
.any1-reservedword { color: #800000; }
|
|
.any1-space { }
|
|
.any1-string { color: #0000FF; }
|
|
.any1-symbol { }
|
|
.any1-variable { color: #808000; }
|
|
-->
|
|
</STYLE>
|
|
</HEAD>
|
|
<BODY bgColor=#ffffff>
|
|
<PRE><CODE><SPAN style="FONT: 10pt Courier New"><SPAN class=any1-constant>#ifdef</SPAN><SPAN class=any1-space> __XHARBOUR__
|
|
</SPAN><SPAN class=any1-constant>#define</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>OTHERWISE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>DEFAULT
|
|
</SPAN><SPAN class=any1-constant>#endif</SPAN><SPAN class=any1-space>
|
|
|
|
</SPAN><SPAN class=any1-reservedword>PROCEDURE</SPAN><SPAN class=any1-space> MAIN
|
|
</SPAN><SPAN class=any1-reservedword>LOCAL</SPAN><SPAN class=any1-space> a:=</SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-reservedword>PRIVATE</SPAN><SPAN class=any1-space> b:=</SPAN><SPAN class=any1-string>"b"
|
|
|
|
</SPAN><SPAN class=any1-constant>#ifndef</SPAN><SPAN class=any1-space> __XHARBOUR__
|
|
SWITCH a
|
|
</SPAN><SPAN class=any1-reservedword>END
|
|
</SPAN><SPAN class=any1-constant>#endif
|
|
|
|
</SPAN><SPAN class=any1-space> ?
|
|
? </SPAN><SPAN class=any1-string>"1111111111111111111111111111111"
|
|
</SPAN><SPAN class=any1-space> SWITCH a
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"FOUND: 1"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>END
|
|
|
|
</SPAN><SPAN class=any1-space> ?
|
|
? </SPAN><SPAN class=any1-string>"2222222222222222222222222222222"
|
|
</SPAN><SPAN class=any1-space> SWITCH a
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"FOUND: 1"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>"2"
|
|
</SPAN><SPAN class=any1-space> ? a
|
|
</SPAN><SPAN class=any1-reservedword>END
|
|
|
|
</SPAN><SPAN class=any1-space> ?
|
|
? </SPAN><SPAN class=any1-string>"3333333333333333333333333333333"
|
|
</SPAN><SPAN class=any1-space> SWITCH a
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"FOUND: 1"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>"2"
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"FOUND: 2"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>OTHERWISE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"other"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>END
|
|
|
|
</SPAN><SPAN class=any1-constant>#ifndef</SPAN><SPAN class=any1-space> __XHARBOUR__
|
|
?
|
|
? </SPAN><SPAN class=any1-string>"44444444444444444444444444444444444"
|
|
</SPAN><SPAN class=any1-space> SWITCH a
|
|
</SPAN><SPAN class=any1-reservedword>OTHERWISE</SPAN><SPAN class=any1-space>
|
|
? </SPAN><SPAN class=any1-string>"OTHERWISE"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>END
|
|
</SPAN><SPAN class=any1-constant>#endif
|
|
|
|
</SPAN><SPAN class=any1-space> ?
|
|
? </SPAN><SPAN class=any1-string>"55555555555555555555555555555555555"
|
|
</SPAN><SPAN class=any1-space> a := </SPAN><SPAN class=any1-string>'EE'
|
|
</SPAN><SPAN class=any1-constant>#ifndef</SPAN><SPAN class=any1-space> __XHARBOUR__
|
|
SWITCH a
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>11
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"11"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>exit
|
|
</SPAN><SPAN class=any1-space>
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>'CCCC'</SPAN><SPAN class=any1-symbol>+</SPAN><SPAN class=any1-string>'DDDD'
|
|
</SPAN><SPAN class=any1-space> ? a+a
|
|
</SPAN><SPAN class=any1-reservedword>EXIT
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>"a&b"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>+</SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> {</SPAN><SPAN class=any1-number>11111111</SPAN><SPAN class=any1-symbol>,</SPAN><SPAN class=any1-number>22222222222</SPAN><SPAN class=any1-symbol>}[</SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>]
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>+</SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>+</SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"3"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space>
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>+</SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>*</SPAN><SPAN class=any1-number>3
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>123</SPAN><SPAN class=any1-symbol>+</SPAN><SPAN class=any1-number>12</SPAN><SPAN class=any1-symbol>*</SPAN><SPAN class=any1-number>4</SPAN><SPAN class=any1-symbol>-</SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>*</SPAN><SPAN class=any1-number>4</SPAN><SPAN class=any1-symbol>+</SPAN><SPAN class=any1-number>2
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>-</SPAN><SPAN class=any1-number>4
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"4"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>123456789
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>0
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>'AAAA'
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>'BBBBB'
|
|
</SPAN><SPAN class=any1-space> ? a
|
|
</SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>CHR</SPAN><SPAN class=any1-symbol>(</SPAN><SPAN class=any1-number>12</SPAN><SPAN class=any1-symbol>)+</SPAN><SPAN class=any1-function>CHR</SPAN><SPAN class=any1-symbol>(</SPAN><SPAN class=any1-number>15</SPAN><SPAN class=any1-symbol>)
|
|
? </SPAN><SPAN class=any1-string>"Chr()"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>OTHERWISE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"NOT FOUND: running OTHER"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>END
|
|
</SPAN><SPAN class=any1-constant>#endif
|
|
|
|
</SPAN><SPAN class=any1-space> ?
|
|
? </SPAN><SPAN class=any1-string>"666666666666666666666666666666666666666666"
|
|
</SPAN><SPAN class=any1-space> a := </SPAN><SPAN class=any1-string>"2"
|
|
</SPAN><SPAN class=any1-space> SWITCH a
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"FOUND: 1"
|
|
</SPAN><SPAN class=any1-space> ? a
|
|
</SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>"2"
|
|
</SPAN><SPAN class=any1-space> SWITCH a+a
|
|
</SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-number>1
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"Nested FOUND 1"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>CASE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-string>"22"
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"Nested FOUND: 22"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>EXIT
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>OTHERWISE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"Nested OTHERWISE"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>END
|
|
</SPAN><SPAN class=any1-space> ?? </SPAN><SPAN class=any1-string>"In CASE 1"
|
|
</SPAN><SPAN class=any1-space> ? a
|
|
</SPAN><SPAN class=any1-reservedword>END
|
|
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"========================================="
|
|
|
|
</SPAN><SPAN class=any1-reservedword>RETURN
|
|
</SPAN></SPAN>
|
|
</CODE></PRE></BODY></HTML>
|