|
From: Martin R. <ru...@us...> - 2004-08-09 01:42:20
|
Update of /cvsroot/foo/foo/elkfoo/include In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28479/include Modified Files: elkfoo.h Log Message: cleaned up ObjC message passing stuff Index: elkfoo.h =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/include/elkfoo.h,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** elkfoo.h 8 Aug 2004 17:47:50 -0000 1.3 --- elkfoo.h 9 Aug 2004 01:42:04 -0000 1.4 *************** *** 107,147 **** extern SchemeObject Null_Pointer; ! #define C_base 0 ! ! #define C_char (C_base + 1) ! #define C_short (C_base + 2) ! #define C_int (C_base + 3) ! #define C_long (C_base + 4) ! #define C_unsigned_char (C_base + 5) ! #define C_unsigned_short (C_base + 6) ! #define C_unsigned_int (C_base + 7) ! #define C_unsigned_long (C_base + 8) ! #define C_float (C_base + 9) ! #define C_double (C_base + 10) ! #define C_pointers (C_double + 1) ! #define C_VOID (C_pointers + 0) ! #define C_CHAR (C_pointers + 1) ! #define C_SHORT (C_pointers + 2) ! #define C_INT (C_pointers + 3) ! #define C_LONG (C_pointers + 4) ! #define C_UNSIGNED_CHAR (C_pointers + 5) ! #define C_UNSIGNED_SHORT (C_pointers + 6) ! #define C_UNSIGNED_INT (C_pointers + 7) ! #define C_UNSIGNED_LONG (C_pointers + 8) ! #define C_FLOAT (C_pointers + 9) ! #define C_DOUBLE (C_pointers + 10) ! #define C_ID (C_pointers + 11) ! #define C_CLASS (C_pointers + 12) ! #define C_SEL (C_pointers + 13) ! #define C_STRUCT (C_pointers + 14) ! #define C_UNION (C_pointers + 15) ! #define C_ARRAY (C_pointers + 16) ! #define C_undef (C_pointers + 17) ! #define C_CHARPTR (C_pointers + 18) ! #define C_UNDEF (C_pointers + 19) ! #define C_last C_UNDEF --- 107,191 ---- extern SchemeObject Null_Pointer; ! /* ! * types ! */ ! typedef enum ! { ! C_base = 0, ! C_char = 1, ! C_short = 2, ! C_int = 3, ! C_long = 4, ! C_unsigned_char = 5, ! C_unsigned_short = 6, ! C_unsigned_int = 7, ! C_unsigned_long = 8, ! C_float = 9, ! C_double = 10, ! /* pointer types from here */ ! C_VOID = 11, ! C_CHAR = 12, ! C_SHORT = 13, ! C_INT = 14, ! C_LONG = 15, ! C_UNSIGNED_CHAR = 16, ! C_UNSIGNED_SHORT = 17, ! C_UNSIGNED_INT = 18, ! C_UNSIGNED_LONG = 19, ! C_FLOAT = 20, ! C_DOUBLE = 21, ! C_ID = 22, ! C_CLASS = 23, ! C_SEL = 24, ! C_STRUCT = 25, ! C_UNION = 26, ! C_ARRAY = 27, ! C_undef = 28, ! C_CHARPTR = 29, ! C_UNDEF = 30 ! } elkfoo_type_t; ! #define C_pointers C_VOID ! #define C_last C_UNDEF ! /* type names */ ! static char *elkfoo_type_names[] = ! { /* corresponds to enum above */ ! "DUMMY", /* 0 */ ! "char", /* 1 */ ! "short", /* 2 */ ! "int", /* 3 */ ! "long", /* 4 */ ! "uchar", /* 5 */ ! "ushort", /* 6 */ ! "uint", /* 7 */ ! "ulong", /* 8 */ ! "float", /* 9 */ ! "double", /* 10 */ ! "void*", /* 11 */ ! "char*", /* 12 */ ! "short*", /* 13 */ ! "int*", /* 14 */ ! "long*", /* 15 */ ! "uchar*", /* 16 */ ! "ushort*", /* 17 */ ! "uint*", /* 18 */ ! "ulong*", /* 19 */ ! "float*", /* 20 */ ! "double*", /* 21 */ ! "id", /* 22 */ ! "class", /* 23 */ ! "sel", /* 24 */ ! "struct*", /* 25 */ ! "union*", /* 26 */ ! "array*", /* 27 */ ! "undefined", /* 28 */ ! "char**", /* 29 */ ! "undefined*", /* 30 */ ! }; ! extern elkfoo_type_t A_Map_ObjC_Type (const char *); ! extern int A_Get_Buffer_From_Object (void *, SchemeObject, elkfoo_type_t); ! extern SchemeObject A_Get_Object_From_Buffer (void *, elkfoo_type_t); |