f4d02db8f1
* tests/ac_test.prg
* tests/ac_test2.prg
* tests/begin.prg
* tests/box.prg
* tests/byref.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/ifinline.prg
* tests/memvar.prg
* tests/menutest.prg
* tests/readhrb.prg
* tests/speed.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/switch.prg
* tests/testbrw.prg
* tests/testcdx.prg
* tests/testdecl.prg
* tests/testhrb.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/tstalias.prg
* tests/tstmacro.prg
* tests/varparam.prg
* more cleanups. (assignment operator and string quote usage)
56 lines
1.3 KiB
Plaintext
56 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// see also exthrb.prg
|
|
|
|
#include "hbhrb.ch"
|
|
|
|
PROCEDURE Main( x )
|
|
|
|
LOCAL pHrb, cExe := "Msg2()", n
|
|
|
|
n := iif( x == NIL, 0, Val( x ) )
|
|
|
|
? "calling Msg ... From exe here !"
|
|
Msg()
|
|
? "========================="
|
|
|
|
// ? "Loading('exthrb.hrb' )"
|
|
// pHrb := hb_HrbLoad("exthrb.hrb" )
|
|
|
|
// ? "Loading(HB_HRB_BIND_DEFAULT,'exthrb.hrb' )"
|
|
// pHrb := hb_HrbLoad(HB_HRB_BIND_DEFAULT,"exthrb.hrb" )
|
|
|
|
// ? "Loading(HB_HRB_BIND_LOCAL,'exthrb.hrb' )"
|
|
// pHrb := hb_HrbLoad(HB_HRB_BIND_LOCAL,"exthrb.hrb" )
|
|
|
|
? "Loading(" + iif( n == 0, "HB_HRB_BIND_DEFAULT", iif( n == 1,"HB_HRB_BIND_LOCAL","HB_HRB_BIND_OVERLOAD" ) ) + ",'exthrb.hrb' )"
|
|
pHrb := hb_hrbLoad( n, "exthrb.hrb" )
|
|
|
|
? "========================="
|
|
|
|
? "calling Msg ... DEFAULT=From exe, LOCAL=From exe, OVERLOAD=From HRB"
|
|
Msg()
|
|
? "========================="
|
|
|
|
? "calling Msg ... DEFAULT=From exe, LOCAL=From HRB, OVERLOAD=From HRB"
|
|
&cExe //
|
|
? "========================="
|
|
|
|
hb_hrbUnload( pHrb ) // should do nothing in case of OVERLOAD
|
|
|
|
? "calling Msg ... DEFAULT=From exe, LOCAL=From exe, OVERLOAD=From HRB"
|
|
Msg() // test unload protection when using OVERLOAD ... then .hrb not anymore unloadable
|
|
? "========================="
|
|
|
|
? "END"
|
|
|
|
RETURN
|
|
|
|
FUNCTION Msg()
|
|
|
|
? "Function called from Exe"
|
|
|
|
RETURN .T.
|