8d2b4bd7f0
* include/hberrors.h
* source/compiler/hbgenerr.c
+ Added: "Unterminated inline block in function: \'%s\'" and "Too many inline blocks"
* include/hbcomp.h
* source/compiler/harbour.c
+ Added hb_compInlineNew(), hb_compInlineAdd(), and hb_compInlineFind()
* source/pp/ppcomp.c
* source/compiler/harbour.slx
* source/compiler/genc.c
+ Added support for inline C code blocks.
+ tests/inline_c.prg
+ Added new test to demonstrate new inline C support.
29 lines
435 B
Plaintext
29 lines
435 B
Plaintext
Function Main()
|
|
|
|
LOCAL cVar := "Hello"
|
|
|
|
cVar := HB_INLINE( cVar )
|
|
{
|
|
if( ISCHAR(1) )
|
|
{
|
|
char *szPar1 = hb_parc(1);
|
|
|
|
if( strcmp( szPar1, "Hello") == 0 )
|
|
{
|
|
hb_retc( "It was Hello" );
|
|
}
|
|
else
|
|
{
|
|
hb_retc( "No, it was not Hello" );
|
|
}
|
|
}
|
|
else
|
|
{
|
|
hb_retc( "No Param passed" );
|
|
}
|
|
}
|
|
|
|
? cVar
|
|
|
|
RETURN NIL
|