300160d8b0
+ website
+ Added Harbour website (except art, docs and stat subdirs)
; TODO: configure automatic mechanism to extract site from
here and regularly updload to sf.net web area
; TODO: Clean HTML code, remove unused picture/files, avoid JS
Any takers?
; NOTE: Please make modifications to website code only in
SVN, then upload the content to web server manually.
IOW never update on web server directly.
156 lines
10 KiB
HTML
156 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>begin.prg</TITLE>
|
|
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
|
|
<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-comment>// This files demonstrates the use of BEGIN/RECOVER/END SEQUENCE
|
|
// and BREAK statement
|
|
//
|
|
</SPAN><SPAN class=any1-reservedword>MEMVAR</SPAN><SPAN class=any1-space> oMemvar
|
|
</SPAN><SPAN class=any1-reservedword>MEMVAR</SPAN><SPAN class=any1-space> mPrivate
|
|
|
|
</SPAN><SPAN class=any1-reservedword>PROCEDURE</SPAN><SPAN class=any1-space> MAIN
|
|
</SPAN><SPAN class=any1-reservedword>LOCAL</SPAN><SPAN class=any1-space> oLocal
|
|
</SPAN><SPAN class=any1-reservedword>PRIVATE</SPAN><SPAN class=any1-space> mPrivate:=</SPAN><SPAN class=any1-string>'private value in MAIN'
|
|
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 1"
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" No break issued...."
|
|
</SPAN><SPAN class=any1-space> RECOVER
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 1 ..."
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 1"
|
|
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 2"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>Break</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-string>"VALUE 2"</SPAN><SPAN class=any1-space> )
|
|
RECOVER USING oLocal
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 2 using...."</SPAN><SPAN class=any1-symbol>, oLocal
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 2"
|
|
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 3"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>Break
|
|
</SPAN><SPAN class=any1-space> RECOVER USING oLocal
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 3 using...."</SPAN><SPAN class=any1-symbol>, oLocal
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 3"
|
|
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 4"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>Break
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Recovering in 4 using...."</SPAN><SPAN class=any1-symbol>, oLocal
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 4"
|
|
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 5"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break1</SPAN><SPAN class=any1-symbol>( )
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 5 using...."</SPAN><SPAN class=any1-symbol>, oLocal
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 5"
|
|
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 6"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break1</SPAN><SPAN class=any1-symbol>( )
|
|
RECOVER USING oMemvar
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 6 using... "</SPAN><SPAN class=any1-symbol>, oMemvar
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 6"
|
|
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 7"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break2</SPAN><SPAN class=any1-symbol>( )
|
|
RECOVER USING oMemvar
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 7 using... "</SPAN><SPAN class=any1-symbol>, oMemvar
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 7"
|
|
|
|
</SPAN><SPAN class=any1-space> ? M->mPrivate
|
|
</SPAN><SPAN class=any1-function>BREAK</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-string>"exit from MAIN"</SPAN><SPAN class=any1-space> )
|
|
? </SPAN><SPAN class=any1-string>"This text will be not printed"
|
|
</SPAN><SPAN class=any1-space>
|
|
</SPAN><SPAN class=any1-reservedword>RETURN
|
|
|
|
PROCEDURE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break1</SPAN><SPAN class=any1-symbol>()
|
|
</SPAN><SPAN class=any1-reservedword>PRIVATE</SPAN><SPAN class=any1-space> mPrivate:=</SPAN><SPAN class=any1-string>'VALUE from Break1'
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>BREAK</SPAN><SPAN class=any1-space> M->mPrivate
|
|
|
|
</SPAN><SPAN class=any1-reservedword>RETURN
|
|
|
|
PROCEDURE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break2</SPAN><SPAN class=any1-symbol>()
|
|
|
|
</SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 8"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break3</SPAN><SPAN class=any1-symbol>( )
|
|
RECOVER USING oMemvar
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 8 using..."</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-function>EVAL</SPAN><SPAN class=any1-symbol>( oMemvar, </SPAN><SPAN class=any1-string>' eval in 8'</SPAN><SPAN class=any1-space> )
|
|
</SPAN><SPAN class=any1-function>BREAK</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-string>"BREAK from recovery code"</SPAN><SPAN class=any1-space> )
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 8"
|
|
|
|
</SPAN><SPAN class=any1-reservedword>RETURN
|
|
|
|
|
|
PROCEDURE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break3</SPAN><SPAN class=any1-symbol>()
|
|
</SPAN><SPAN class=any1-reservedword>STATIC</SPAN><SPAN class=any1-space> oStatic
|
|
|
|
</SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 9"
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>BEGIN</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>" Inside SEQUENCE 10"
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>Break</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-string>"value from nested SEQUENCE 10"</SPAN><SPAN class=any1-space> )
|
|
RECOVER USING oStatic
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 10 using..."</SPAN><SPAN class=any1-symbol>, oStatic
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 10"
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break4</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-string>" and parameter"</SPAN><SPAN class=any1-space> )
|
|
|
|
RECOVER USING oMemvar
|
|
? </SPAN><SPAN class=any1-string>" Recovering in 9 using..."</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-function>EVAL</SPAN><SPAN class=any1-symbol>( oMemvar, </SPAN><SPAN class=any1-string>' eval in 9'</SPAN><SPAN class=any1-space> )
|
|
</SPAN><SPAN class=any1-function>BREAK</SPAN><SPAN class=any1-symbol>( oMemvar )
|
|
</SPAN><SPAN class=any1-reservedword>END</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-reservedword>SEQUENCE
|
|
</SPAN><SPAN class=any1-space> ? </SPAN><SPAN class=any1-string>"After SEQUENCE 9"
|
|
|
|
</SPAN><SPAN class=any1-reservedword>RETURN
|
|
|
|
|
|
PROCEDURE</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Break4</SPAN><SPAN class=any1-symbol>( cValue )
|
|
</SPAN><SPAN class=any1-reservedword>LOCAL</SPAN><SPAN class=any1-space> oLocal:=</SPAN><SPAN class=any1-string>' detached Break4 '
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>BREAK</SPAN><SPAN class=any1-symbol>( {|x| oLocal + x + cValue} )
|
|
|
|
</SPAN><SPAN class=any1-reservedword>RETURN
|
|
</SPAN></SPAN>
|
|
</CODE></PRE></BODY></HTML>
|