9500012b64
* tests/testhrb.prg
* tests/exthrb.prg
! Fixed missing SVN props.
* ChangeLog
! Removed conflict marker from ChangeLog from a recent commit.
; NOTE: I'd encourage everyone to check doc/howtosvn.txt
before committing.
* doc/howtosvn.txt
+ Added link to svn cmdline tools.
+ Added link to svn online documentation (a complete free book)
! Fixed a few svn commands written in uppercase.
55 lines
1.2 KiB
Plaintext
55 lines
1.2 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_DEFAULT,'exthrb.hrb' )"
|
|
// pHrb := hb_HrbLoad(HB_HRB_DEFAULT,"exthrb.hrb" )
|
|
|
|
// ? "Loading(HB_HRB_KEEP_LOCAL,'exthrb.hrb' )"
|
|
// pHrb := hb_HrbLoad(HB_HRB_KEEP_LOCAL,"exthrb.hrb" )
|
|
|
|
? "Loading("+iif(n=0,"HB_HRB_DEFAULT",iif(n=1,"HB_HRB_KEEP_LOCAL","HB_HRB_KEEP_GLOBAL"))+",'exthrb.hrb' )"
|
|
pHrb := hb_HrbLoad(n,"exthrb.hrb" )
|
|
|
|
? "========================="
|
|
|
|
? "calling Msg ... DEFAULT=From exe, LOCAL=From exe, GLOBAL=From HRB"
|
|
Msg()
|
|
? "========================="
|
|
|
|
? "calling Msg ... DEFAULT=From exe, LOCAL=From HRB, GLOBAL=From HRB"
|
|
&cExe //
|
|
? "========================="
|
|
|
|
hb_HrbUnload( pHrb ) // should do nothing in case of GLOBAL
|
|
|
|
? "calling Msg ... DEFAULT=From exe, LOCAL=From exe, GLOBAL=From HRB"
|
|
Msg() // test unload protection when using GLOBAL ... then Hrb not anymore unloadable
|
|
? "========================="
|
|
|
|
? "END"
|
|
|
|
Return
|
|
|
|
|
|
Function Msg()
|
|
? "Function called from Exe"
|
|
Return .T.
|