www.FiveTechSoft.com
https://forums.fivetechsoft.com/
Code: Select all
//----------------------------------------------------------------------------//
// AUTOR.....: Manuel Exp¢sito Su rez Soft 4U '98 //
// e-Mail....: maex14@dipusevilla.es //
// CLASE.....: Obj2Hb.CH //
// FECHA MOD.: 10/11/2000 //
// VERSION...: 9.00 //
// PROPOSITO.: Compatibiliza HARBOUR OOP con Objects //
//----------------------------------------------------------------------------//
#ifdef __HARBOUR__
#xtranslate AS ALL => AS ANYTYPE // Compatible con OBJECTS
#xtranslate AS BLOCK => AS CODEBLOCK
// Extraido de Objects.ch
#xcommand DEFAULT <Desc> [, <DescN> ] => ;
__DFT__( <Desc> ) [ ; __DFT__( <DescN> ) ]
#xtranslate __DFT__( <Var> := <Dft> ) => ;
if( <Var> == nil, <Var> := <Dft>, )
#xtranslate __DFT__( <Var> = <Dft> ) => ;
__DFT__( <Var> := <Dft> )
#xtranslate BYNAME <V> [, <VN> ] => ::<V> := <V> [; ::<VN> := <VN> ]
#xtranslate BYNAME <V> DEFAULT <Val> => ::<V> := BYDEFAULT <V>, <Val>
#xtranslate BYDEFAULT <V>, <Val> => if( <V> == NIL, <Val>, <V> )
#xtranslate BYNAME <V> IFNONIL => ;
if <V> != NIL ;;
::<V> := <V> ;;
end
#xtranslate BYDEFAULT <V>, <Val> => if( <V> == NIL, <Val>, <V> )
#include "HBClass.ch"
#else
#include "Objects.ch"
#endif
//----------------------------------------------------------------------------//