a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
26 lines
462 B
Plaintext
26 lines
462 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* new Hb_inLine {} test
|
|
*
|
|
* Copyright 2006 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
proc main()
|
|
local hb_inLine := " (var) "
|
|
|
|
? hb_inLine { hb_retc("inLine"); } + hb_inLine(" parameter ") {
|
|
hb_retc( hb_parc( 1 ) );
|
|
} + "!" + hb_inLine + hb_inLine() { hb_retc( ":-)" ); } + ;
|
|
hb_inLine() + "{}"
|
|
|
|
return
|
|
|
|
function hb_inLine()
|
|
return " func() "
|