df2b7a9ebd
* include/harbour.hbx
* fixes/changes to some function names
* config/hb_c.cfg
+ updated to do better vertical aligment in
structs, var declarations and assignments
; TODO: move this to /bin folder and add to 'install'-ed
file list, rename to 'harbour.ucf'
* src/debug/*.prg
* src/rdd/*.prg
* src/rdd/hbsix/*.prg
* src/rdd/usrrdd/rdds/*.prg
* src/rtl/*.prg
* src/vm/*.prg
* utils/hbi18n/hbi18n.prg
* utils/hbmk2/hbmk2.prg
* utils/hbmk2/examples/*.hb
* contrib/hbblat/blatcls.prg
* contrib/gtwvg/*.prg
* contrib/gtwvg/tests/*.prg
* contrib/hbblink/*.prg
* contrib/hbcairo/tests/*.prg
* contrib/hbcomm/*.prg
* contrib/hbcomm/tests/*.prg
* contrib/hbcups/tests/*.prg
* contrib/hbcurl/tests/*.prg
* contrib/hbexpat/*.prg
* contrib/hbexpat/tests/*.prg
* contrib/hbfbird/*.prg
* contrib/hbfbird/tests/*.prg
* contrib/hbfoxpro/*.prg
* contrib/hbfship/*.prg
* contrib/hbgd/*.prg
* contrib/hbgd/tests/*.prg
* contrib/hbgs/tests/*.prg
* contrib/hbhpdf/*.prg
* contrib/hbhpdf/tests/*.prg
* contrib/hbhttpd/*.prg
* contrib/hbhttpd/tests/*.prg
* contrib/hblzf/tests/*.prg
* contrib/hbmagic/tests/*.prg
* contrib/hbmisc/*.prg
* contrib/hbmisc/tests/*.prg
* contrib/hbct/*.prg
* contrib/hbct/tests/*.prg
* contrib/hbmlzo/tests/*.prg
* contrib/hbmxml/*.prg
* contrib/hbmxml/tests/*.prg
* contrib/hbmysql/*.prg
* contrib/hbmysql/tests/*.prg
* contrib/hboslib/*.prg
* contrib/hbsms/*.prg
* contrib/hbtinymt/tests/*.prg
* contrib/hbtpathy/*.prg
* contrib/hbtpathy/tests/*.prg
* contrib/hbunix/tests/*.prg
* contrib/hbxdiff/tests/*.prg
* contrib/hbzebra/tests/*.prg
* contrib/hbziparc/*.prg
* contrib/hbziparc/tests/*.prg
* contrib/rddads/*.prg
* contrib/rddads/tests/*.prg
* contrib/hbodbc/*.prg
* contrib/hbodbc/tests/*.prg
* contrib/hbpgsql/*.prg
* contrib/hbpgsql/tests/*.prg
* contrib/hbsqlit3/*.prg
* contrib/hbsqlit3/tests/*.prg
* contrib/hbwin/*.prg
* contrib/hbwin/tests/*.prg
* contrib/hbxpp/*.prg
* contrib/hbxpp/tests/*.prg
* contrib/hbxhb/*.prg
* contrib/hbxhb/tests/*.prg
* contrib/hbnetio/*.prg
* contrib/hbnetio/utils/hbnetio/*.hb
* contrib/hbnetio/utils/hbnetio/*.prg
* contrib/hbtip/*.prg
* contrib/hbtip/tests/*.prg
* tests/usrrdd/*.prg
* tests/funcarr.prg
* extras/gfspell/spell.prg
* extras/gtwvw/tests/*.prg
* extras/guestbk/*.prg
* extras/hbdoc/*.prg
* extras/rddado/*.prg
* extras/rddado/tests/*.prg
* extras/hbxlsxml/*.prg
* extras/httpsrv/*.prg
* extras/httpsrv/modules/*.prg
* extras/hbsuper/*.prg
* extras/hbvpdf/*.prg
* extras/hbvpdf/tests/*.prg
* tests/*.prg (except some which are well formatted but in different/fast-typing style)
* tests/*.hb
* bin/*.hb
* contrib/*.hb
* config/*.hb
* some manual formatting to better be able to verify
changes made by hbformat and be friendlier with hbformat.
* most files reformatted with hbformat using Maurizio's
patch, with mostly minor manual corrections and verification.
All hbformat changes for revised one-by-one.
! __DIR(): fixed to be unicode compatible
! __hbdoc_ToSource(): make sure to not generate line ending
spaces in output.
+ hbmk2/hbrun: HBMK_WITH_GTXWC built-time option to include
GTXWC. Useful for hbrun.
* hbct tests: change to not use [] as string delimiter
+ added full prototypes to Array class declaration
; NOTE: Only these were not or not fully formatted:
contrib/hbnetio/tests/*.prg
tests/hbpptest/*.prg
tests/mt/*.prg
tests/multifnc/*.prg
tests/rddtest/*.prg
utils/hbmk2/hbmk2.prg (for the most part)
src/rtl/tbrowse.prg (for the most part)
utils/hbtest/*.prg
*.ch, *.c, *.h
* src/rtl/cdpapihb.c
* src/rtl/hbadler.c
* src/rtl/hbsocket.c
* src/rtl/sha1.c
* src/vm/classes.c
* src/vm/dynsym.c
* src/vm/garbage.c
* src/debug/dbgentry.c
* do not end macros with ';' to avoid uncrustify warning
and wrong formatting as a consequence
* src/compiler/cmdcheck.c
* minor changes for uncrustify-friendliness
* contrib/hbformat/utils/hbfmtcls.prg
* contrib/hbformat/utils/hbformat.prg
% optimizations in hbformat.prg
! fixed mask/filename handling to be
multiplatform in hbformat.prg
+ added 'HBXList=' hbformat.ini parameter allowing
to add any .hbx file for proper function name
casing.
! fixed progress bar to display correctly
* tests/speedstr.prg
! fixed to run as intended in unicode code
* hbformatted
- contrib/hbwin/tests/dlg.xml
* contrib/hbwin/tests/dlg.rc
- extras/gtwvw/tests/wvwtest9.xml
+ extras/gtwvw/tests/wvwtest9.mft
* extras/gtwvw/tests/wvwtest9.rc
* renamed manifest to have .mft extension
% deleted unnecessary manifest
* "Win32 API" -> "Windows API"
! deleted CPU arch from manifest
* package/harb_win.mft
* formatting
* src/common/hbver.c
+ added version detection for win 8 and win server 2012
* minor formatting/code cleanup
* tests/gfx.prg
* updated to run in script mode.
; TOFIX: it doesn't draw anything with GTWVT
* tests/gfx.prg
* tests/gtwin.prg
* tests/gtxfnt.prg
* tests/wvt_fs.prg
* tests/wvtext.prg
+ support for GTXWC when run as script
* doc/en/*.txt
* contrib/hbct/doc/en/*.txt
* contrib/hbgd/doc/en/*.txt
* contrib/hbgt/doc/en/*.txt
* contrib/hbmisc/doc/en/*.txt
* contrib/hbnf/doc/en/*.txt
* contrib/hbziparc/doc/en/*.txt
* contrib/rddads/doc/en/*.txt
! fixed few broken tags reported by Carlos
% deleted line ending spaces
* some minor formatting
* contrib/hbnf/*.c
* contrib/hbnf/*.h
* extras/gfspell/spellc.c
* uncrustified with updated hb_c.cfg
* contrib/hbnf/*.prg
* contrib/hbnf/tests/*.prg
* hbformatted with Mauriozo's patch.
* a few manual corrections (avoiding #translates, using hb_ColorIndex())
in general and to make hbformat happy.
+ contrib/hbnf/tests/menuto.prg
+ added sample code for MENU TO (adatped from docs)
- src/rdd/dbfntx/dbfntx0.prg
- deleted unused file with no enabled code in it
* contrib/hbtip/tests/dbtohtml.prg
* contrib/hbtip/tests/loadhtml.prg
* contrib/hbtip/tests/tipmmail.prg
* minor cleanups
* contrib/hbtip/thtml.prg
! fixed typo due to s&r
% use hb_memowrit()
* src/rtl/tbrowse.prg
* conditional code sorted to be hbformat friendly
* some formatting
* INSTALL
* package/harbour.rb
* package/mpkg_src_nightly.sh
* package/mpkg_win_nightly.bat
* package/updt_web_nightly.sh
* website/changelog.html
* website/faq/harbour17.html
* website/faq/harbour27.html
* website/index.html
* website/menu/harbour-menu.js
* updated repository URL to new sf.net one
* tests/function.cfm
* contrib/hbhttpd/tests/tpl/_main.tpl
* contrib/hbtip/tests/tipmmail.prg
* website/faq/*.html
* website/samples/*.html
* use utf-8 in html and email
* contrib/hbrun/hbrun.hbp
+ support for HBMK_WITH_GTXWC
* tests/rto_get.prg
* tests/onidle.prg
* tests/mousetst.prg
* tests/wcecon.prg
* tests/vmasort.prg
- contrib/hbnf/tests/metaph.prg
* minor cleanups
* contrib/hbmysql/tests/test.prg
* contrib/hbmysql/tests/dbf2mysq.prg
% minor optimization, deleted outdated comment/line
* src/compiler/harbour.yyc
* src/compiler/harbour.y
* minor formatting
131 lines
2.4 KiB
Plaintext
131 lines
2.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// This files demonstrates the use of BEGIN/RECOVER/END SEQUENCE
|
|
// and BREAK statement
|
|
|
|
MEMVAR m_oMemvar
|
|
MEMVAR m_cPrivate
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL oLocal
|
|
PRIVATE m_cPrivate := "private value in MAIN"
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 1"
|
|
? " No break issued...."
|
|
RECOVER
|
|
? " Recovering in 1 ..."
|
|
END SEQUENCE
|
|
? "After SEQUENCE 1"
|
|
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 2"
|
|
Break( "VALUE 2" )
|
|
RECOVER USING oLocal
|
|
? " Recovering in 2 using....", oLocal
|
|
END SEQUENCE
|
|
? "After SEQUENCE 2"
|
|
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 3"
|
|
Break
|
|
RECOVER USING oLocal
|
|
? " Recovering in 3 using....", oLocal
|
|
END SEQUENCE
|
|
? "After SEQUENCE 3"
|
|
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 4"
|
|
Break
|
|
? " Recovering in 4 using....", oLocal
|
|
END SEQUENCE
|
|
? "After SEQUENCE 4"
|
|
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 5"
|
|
Break1()
|
|
? " Recovering in 5 using....", oLocal
|
|
END SEQUENCE
|
|
? "After SEQUENCE 5"
|
|
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 6"
|
|
Break1()
|
|
RECOVER USING m_oMemvar
|
|
? " Recovering in 6 using... ", m_oMemvar
|
|
END SEQUENCE
|
|
? "After SEQUENCE 6"
|
|
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 7"
|
|
Break2()
|
|
RECOVER USING m_oMemvar
|
|
? " Recovering in 7 using... ", m_oMemvar
|
|
END SEQUENCE
|
|
? "After SEQUENCE 7"
|
|
|
|
? M->m_cPrivate
|
|
Break( "exit from MAIN" )
|
|
? "This text will be not printed"
|
|
|
|
RETURN
|
|
|
|
PROCEDURE Break1()
|
|
|
|
PRIVATE m_cPrivate := "VALUE from Break1"
|
|
|
|
BREAK M->m_cPrivate
|
|
|
|
PROCEDURE Break2()
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 8"
|
|
Break3()
|
|
RECOVER USING m_oMemvar
|
|
? " Recovering in 8 using...", Eval( m_oMemvar, " eval in 8" )
|
|
Break( "BREAK from recovery code" )
|
|
END SEQUENCE
|
|
? "After SEQUENCE 8"
|
|
|
|
RETURN
|
|
|
|
PROCEDURE Break3()
|
|
|
|
STATIC s_oStatic
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 9"
|
|
|
|
BEGIN SEQUENCE
|
|
? " Inside SEQUENCE 10"
|
|
Break( "value from nested SEQUENCE 10" )
|
|
RECOVER USING s_oStatic
|
|
? " Recovering in 10 using...", s_oStatic
|
|
END SEQUENCE
|
|
? "After SEQUENCE 10"
|
|
|
|
Break4( " and parameter" )
|
|
|
|
RECOVER USING m_oMemvar
|
|
? " Recovering in 9 using...", Eval( m_oMemvar, " eval in 9" )
|
|
Break( m_oMemvar )
|
|
END SEQUENCE
|
|
? "After SEQUENCE 9"
|
|
|
|
RETURN
|
|
|
|
PROCEDURE Break4( cValue )
|
|
|
|
LOCAL oLocal := " detached Break4 "
|
|
|
|
Break( {| x | oLocal + x + cValue } )
|