Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

//
// $Id: hello.prg 1519 1999-10-04 18:46:41Z vszel $
//

// Typical welcome message

function Main()
   altd()
   ? "Hello world!"

return nil

Code: Alles auswählen

/*
 * Harbour 3.0.0 (Rev. 16951)
 * LLVM/Clang C 3.8 (tags/RELEASE_380/final 262564) (64-bit)
 * Generated C source from "hello.prg"
 */

#include "hbvmpub.h"
#include "hbinit.h"


HB_FUNC( HELLO );
HB_FUNC( MAIN );
HB_FUNC_EXTERN( ALTD );
HB_FUNC_EXTERN( QOUT );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_HELLO )
{ "HELLO", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( HELLO )}, NULL },
{ "MAIN", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( MAIN )}, NULL },
{ "ALTD", {HB_FS_PUBLIC}, {HB_FUNCNAME( ALTD )}, NULL },
{ "QOUT", {HB_FS_PUBLIC}, {HB_FUNCNAME( QOUT )}, NULL }
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_HELLO, "hello.prg", 0x0, 0x0003 )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup hb_vm_SymbolInit_HELLO
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY    HB_DATASEG_FUNC( hb_vm_SymbolInit_HELLO )
   #include "hbiniseg.h"
#endif

HB_FUNC( HELLO )
{
	static const HB_BYTE pcode[] =
	{
		7
	};

	hb_vmExecute( pcode, symbols );
}

HB_FUNC( MAIN )
{
	static const HB_BYTE pcode[] =
	{
		36,8,0,176,2,0,20,0,36,9,0,176,3,0,
		106,13,72,101,108,108,111,32,119,111,114,108,100,33,
		0,20,1,36,11,0,100,110,7
	};

	hb_vmExecute( pcode, symbols );
}