pike.git / src / svalue.h

version» Context lines:

pike.git/src/svalue.h:149:    * a non-zero function number in the next 8 bits.    *    * Bit 15 (0x8000) indicates that cdr is a type-node.    *    * Note that this overlaps with the PIKE_T_NO_REF_FLAG,    * but that should be safe, as operators aren't valid    * run-time types.    */    PIKE_T_OPERATOR = 0x0080,    PIKE_T_FIND_LFUN = 0x0180, /* Look up an lfun in an object type. */ +  PIKE_T_SET_CAR = 0x8280, /* Set the CAR of the CAR type to CDR. */ +  PIKE_T_SET_CDR = 0x8380, /* Set the CDR of the CAR type to CDR. */       PIKE_T_TRANSITIVE = 0x00c0, /* Repeatedly apply a function type. */      /*    * The following types are only used in compile-time types and    * as markers in struct identifier.    */       PIKE_T_LARRAY = 236, /* Limited array. Only for serialization. */    PIKE_T_LSTRING = 237, /* Limited string. Only for serialization. */
pike.git/src/svalue.h:396:   #define tName2(X,Y) "\361\2" X "\0\0\0\0" Y   #endif /* PIKE_BYTEORDER == 1234 */      /* Some convenience macros for common attributes. */   #define tSprintfFormat(X) tAttr("sprintf_format", X)   #define tSprintfArgs(X) tAttr("sprintf_args", X)   #define tDeprecated(X) tAttr("deprecated", X)   #define tUtf8Str tAttr("utf8", tStr8)      #define tFindLFun(X, LFUN) "\200\001" X LFUN "\0" + #define tSetCar(X, Y) "\200\202" X Y + #define tSetCdr(X, Y) "\200\203" X Y      #define tTransitive(X, Y) "\300" X Y      #define tSimpleCallable tOr3(tArray,tFunction,tObj)   #define tCallable tOr3(tArr(tSimpleCallable),tFunction,tObj)      #define BIT_ARRAY (1<<PIKE_T_ARRAY)   #define BIT_MAPPING (1<<PIKE_T_MAPPING)   #define BIT_MULTISET (1<<PIKE_T_MULTISET)   #define BIT_OBJECT (1<<PIKE_T_OBJECT)