007f42f3b1
- contrib/hbmysql/utils
- contrib/hbmysql/utils/dbf2mysq.prg
- contrib/hbmysql/utils/hbmk.hbm
+ contrib/hbmysql/tests/dbf2mysq.prg
* moved to tests (in sync with hbpgsql)
* src/rtl/hbi18n2.prg
! fixed to use HB_ASCAN() instead of ASCAN() when 5th
extension parameter is used.
* src/debug/debugger.prg
* contrib/hbfbird/tfirebrd.prg
* contrib/hbnf/clrsel.prg
* contrib/hbmysql/tmysql.prg
* contrib/hbmysql/tests/dbf2mysq.prg
* contrib/hbtip/ftpcli.prg
* extras/hbdoc/hbdoc.prg
* extras/hbdoc/tmplates.prg
! use HB_ASCAN( x, y,,, .T. ) to avoid relying on _SET_EXACT
% use ASCAN() instead of HB_ASCAN() if Harbour extension are not used (hbdoc)
* contrib/gtwvg/tests/modal.prg
! use HB_ASCAN( x, y,,, .T. ) to avoid relying on _SET_EXACT
! use HB_KEYCHAR() instead of CHR() on key codes
* contrib/xhb/tedit.prg
* contrib/xhb/thtm.prg
* contrib/xhb/xhbole.prg
* tests/fortest.prg
* tests/initexit.prg
* tests/statinit.prg
* tests/vidtest.prg
* tests/rddtest/rddtst.prg
* extras/hbdoc/hbdoc.prg
* renamed STATIC vars to start with 's_'
* renamed PUBLIC/PRIVATE vars to start with 'p_'
* renamed STATIC "const" vars to start with 'sc_'
* contrib/hbsqlit3/hdbcsqlt.prg
* contrib/xhb/tedit.prg
* hbformatted
* contrib/sddmy/tests/test1.prg
* contrib/xhb/tcgi.prg
* contrib/xhb/thtm.prg
* tests/brwpos.prg
* formatting
27 lines
460 B
Plaintext
27 lines
460 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// ; Donated to the public domain by
|
|
// Viktor Szakats (harbour syenar.net)
|
|
|
|
MEMVAR p_cMyPubVar
|
|
|
|
STATIC s_bBlock1 := {|| Hello() }
|
|
STATIC s_bBlock2 := {|| p_cMyPubVar }
|
|
|
|
PROCEDURE Main()
|
|
|
|
PUBLIC p_cMyPubVar := "Printed from a PUBLIC var from a codeblock assigned to a static variable."
|
|
|
|
Eval( s_bBlock1 )
|
|
? Eval( s_bBlock2 )
|
|
|
|
RETURN
|
|
|
|
FUNCTION Hello()
|
|
|
|
? "Printed from a codeblock assigned to a static variable."
|
|
|
|
RETURN NIL
|