euslocal.h
Go to the documentation of this file.
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 


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Sep 3 2015 10:36:19