topic-45963

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

sugerencia para fivewin.ch
Posted: Sun Sep 21, 2025 06:23 PM

Antonio, recientemente he tenido que compilar tsbrowse version 9 y he tnido problemas con la definicion de isnum y ischar en el propio fuente de tsbrowse, esto es por las macros definidas en fivewin.ch, he tenido que hacer una modificacion en fivewin.ch:

Code: Select all Collapse

...
// for Clean Code
//for legancy code define __MISSING_IS_FW_MACROS__ before include fivewin.ch
#ifndef __MISSING_IS_FW_MACROS__
#xtranslate IsArray( <var> )          => ( ValType( <var> ) == "A" )
#xtranslate IsEmptyArray( <var> )     => ( ValType( <var> ) == "A" .AND. Empty( <var> ) )
#xtranslate IsNotEmptyArray( <var> )  => ( ValType( <var> ) == "A" .AND. Len( <var> ) > 0 )
#xtranslate IsBlock( <var> )          => ( ValType( <var> ) == "B" )
#xtranslate IsChar( <var> )           => ( ValType( <var> ) == "C" )
#xtranslate IsString( <var> )         => ( ValType( <var> ) == "C" )
#xtranslate IsEmptyChar( <var> )      => ( ValType( <var> ) == "C" .AND. Empty( <var> ) )
#xtranslate IsEmptyString( <var> )    => ( ValType( <var> ) == "C" .AND. Empty( <var> ) )
#xtranslate IsNotEmptyChar( <var> )   => ( ValType( <var> ) == "C" .AND. ! Empty( <var> ) )
#xtranslate IsNotEmptyString( <var> ) => ( ValType( <var> ) == "C" .AND. ! Empty( <var> ) )
#xtranslate IsDate( <var> )           => ( ValType( <var> ) == "D" )
#xtranslate IsHash( <var> )           => ( ValType( <var> ) == "H" )
#xtranslate IsLogic( <var> )          => ( ValType( <var> ) == "L" )
#xtranslate IsFalse( <var> )          => ( ValType( <var> ) == "L" ) .AND. ( <var> == .f. )
#xtranslate IsTrue( <var> )           => ( ValType( <var> ) == "L" ) .AND. ( <var> == .t. )
#xtranslate IsMemo( <var> )           => ( ValType( <var> ) == "M" )
#xtranslate IsNum( <var> )            => ( ValType( <var> ) == "N" )
#xtranslate IsFloat( <var> )          => ( ValType( <var> ) == "N" .AND. RAt( ".", Str( <var> ) ) > 0 )
#xtranslate IsInteger( <var> )        => ( ValType( <var> ) == "N" .AND. RAt( ".", Str( <var> ) ) == 0 )
#xtranslate IsObj( <var> )            => ( ValType( <var> ) == "O" )
#xtranslate IsTime( <var> )           => ( ValType( <var> ) == "T" )
#xtranslate IsNil( <var> )            => ( <var> == nil )            // or ( ValType( <var> ) == "U" )
#endif

...

y en los fuentes de tsbrowse.prg y fwcalen.prg modificarlos:

Code: Select all Collapse

...
#define __MISSING_IS_FW_MACROS__
#include "fivewin.ch"
...

con esto solucione el inconveniente.

salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Continue the discussion