00001
00010 #ifndef _TYPE_H_
00011 #define _TYPE_H_
00012
00013 #define VALUE_INFERENCE(wanted_type, retval, arg)\
00014 ({\
00015 register gboolean __retok;\
00016 \
00017 switch(wanted_type)\
00018 {\
00019 case T_INT : __retok = int_inference(retval, arg); break;\
00020 case T_FLOAT : __retok = float_inference(retval, arg); break;\
00021 case T_BOOL : __retok = bool_inference(retval, arg); break;\
00022 case T_STRING: __retok = string_inference(retval, arg); break;\
00023 default : __retok = NULL;\
00024 }\
00025 \
00026 __retok;\
00027 })
00028 #endif