00001 #define strchr(p) ((char *)((p)->c.str.chars)) 00002 /*#define ckstrchr(p) (isstring(p)?strchr(p):(int)error(E_NOSTRING))*/ 00003 #define ckstrlength(p) (isstring(p)?strlength(p):(int)error(E_NOSTRING)) 00004 #define ckstrval(p) ckstrchr(p) 00005 #define fvecfv(p) ((float *)((p)->c.fvec.fv)) 00006 #define ckfvecfv(p) (isfltvector(p)?fvecfv(p):(int)error(E_FLOATVECTOR)) 00007 00008 extern long larg2long(); 00009