fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-09-14 20:18 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* include/common.ch
    % IS*() macros now using hb_Is*() functions instead of 
      ValType() calls.
This commit is contained in:
Viktor Szakats
2008-09-14 18:19:09 +00:00
parent 6bd3dababd
commit 3b262ebaaa
2 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-09-14 20:18 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* include/common.ch
% IS*() macros now using hb_Is*() functions instead of
ValType() calls.
2008-09-14 19:59 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* make_b32.mak
+ Now setting 'HB_BUILD_ST = no' will generate an MT build.

16
harbour/include/common.ch
View File

@@ -61,14 +61,14 @@
/* Type checking macros */
#translate ISNIL( <xValue> ) => ( <xValue> == NIL )
#translate ISARRAY( <xValue> ) => ( ValType( <xValue> ) == "A" )
#translate ISBLOCK( <xValue> ) => ( ValType( <xValue> ) == "B" )
#translate ISCHARACTER( <xValue> ) => ( ValType( <xValue> ) == "C" )
#translate ISDATE( <xValue> ) => ( ValType( <xValue> ) == "D" )
#translate ISLOGICAL( <xValue> ) => ( ValType( <xValue> ) == "L" )
#translate ISMEMO( <xValue> ) => ( ValType( <xValue> ) == "M" )
#translate ISNUMBER( <xValue> ) => ( ValType( <xValue> ) == "N" )
#translate ISOBJECT( <xValue> ) => ( ValType( <xValue> ) == "O" )
#translate ISARRAY( <xValue> ) => hb_IsArray( <xValue> )
#translate ISBLOCK( <xValue> ) => hb_IsBlock( <xValue> )
#translate ISCHARACTER( <xValue> ) => hb_IsString( <xValue> )
#translate ISDATE( <xValue> ) => hb_IsDate( <xValue> )
#translate ISLOGICAL( <xValue> ) => hb_IsLogical( <xValue> )
#translate ISMEMO( <xValue> ) => hb_IsMemo( <xValue> )
#translate ISNUMBER( <xValue> ) => hb_IsNumeric( <xValue> )
#translate ISOBJECT( <xValue> ) => hb_IsObject( <xValue> )
/* DEFAULT and UPDATE commands */
#xcommand DEFAULT <v1> TO <x1> [, <vn> TO <xn> ] => ;