a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
141 lines
2.5 KiB
HTML
141 lines
2.5 KiB
HTML
<!DOCTYPE html>
|
|
<html xmlns="http://www.w3.org/1999/xhtml" lang="en">
|
|
<head>
|
|
<meta charset="utf-8">
|
|
<script type="text/javascript" src="http://cdnjs.cloudflare.com/ajax/libs/xregexp/2.0.0/xregexp-min.js"></script>
|
|
<script type="text/javascript" src="http://cdnjs.cloudflare.com/ajax/libs/xregexp/2.0.0/backcompat.js"></script>
|
|
<script type="text/javascript" src="/js/shCore.js"></script>
|
|
<script type="text/javascript" src="/js/shBrushHarbour.js"></script>
|
|
<link href="/css/shCore.css" rel="stylesheet" type="text/css" />
|
|
<link href="/css/shThemeDefault.css" rel="stylesheet" type="text/css" />
|
|
<script type="text/javascript">SyntaxHighlighter.all()</script>
|
|
</head>
|
|
<body>
|
|
|
|
<script type="syntaxhighlighter" class="brush: harbour; light: true"><![CDATA[
|
|
|
|
#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
|
|
|
|
]]></script>
|
|
|
|
</body>
|
|
</html>
|