54ef385941
* include/hbpcode.h
+ Comment added about adding new pcodes at the end of
the list for compatibility.
* source/rtl/filesys.c
+ Added hb_fsSetDevMode() Unix branch added (thx Przemek)
* tests/mathtest.prg
* source/rtl/math.c
! Fixed prev commit to comply with 10char function name
rule:
HB_MATHERRMODE() -> HB_MATHERMODE()
HB_MATHERRORBLOCK() -> HB_MATHERBLOCK()
* source/rtl/seconds.c
! hb_secondsCPU() move inside FlagShip guard instead
of HB_EXTENSION.
* hb_secondsCPU() made static (Harbour level function
helper only with non-std name).
* source/vm/dynlibhb.c
* include/hbextern.ch
* LIBLOAD(), LIBFREE() moved (back) to Harbour namespace:
HB_LIBLOAD(), HB_LIBFREE()
+ Added these functions to hbextern.ch
* source/rtl/symbol.prg
* source/vm/dynsym.c
* include/hbextern.ch
* Internal function names renamed to comply and to
not collide with existing ones (mistake in prev
commit).
+ tests/symbolt.prg
; Missed from prev commit.
28 lines
527 B
Plaintext
28 lines
527 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Class(y) Class Symbol documentation is located at:
|
|
// http://www.clipx.net/ng/classy/ngdebc.php
|
|
|
|
function Main()
|
|
|
|
local oSym := Symbol():New( "QOUT" )
|
|
|
|
? "Now test the :Exec() method"
|
|
|
|
oSym:Exec( "This string is being printed by QOUT" )
|
|
oSym:Exec( "which is being invoked by the :Exec()" )
|
|
oSym:Exec( "method in the Symbol class." )
|
|
|
|
?
|
|
? "symbol name: ", oSym:name
|
|
|
|
? "Comparing QOut symbol with xOut symbol"
|
|
? oSym:IsEqual( Symbol():New( "xOut" ) )
|
|
|
|
? "done!"
|
|
?
|
|
|
|
return nil
|