pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.128 2000/03/23 19:05:08 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.129 2000/03/26 14:16:11 grubba Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:2595:   int pike_types_le(struct pike_string *a,struct pike_string *b)   {    check_type_string(a);    check_type_string(b);    clear_markers();    return low_pike_types_le(a->str, b->str, 0, 0);   }         #ifdef DEBUG_MALLOC - #define low_index_type(X,Y,Z) ((struct pike_string *)debug_malloc_touch(debug_low_index_type((X),(Y),(Z)))) + #define low_index_type(X,Y,Z) ((struct pike_string *)debug_malloc_pass(debug_low_index_type((X),(Y),(Z))))   #else   #define low_index_type debug_low_index_type   #endif      /* FIXME, add the index */   static struct pike_string *debug_low_index_type(char *t,    char *index_type,    node *n)   {    struct pike_string *tmp;
pike.git/src/pike_types.c:2819:      struct pike_string *array_value_type(struct pike_string *array_type)   {    struct pike_string *t = low_array_value_type(array_type->str);    if (!t) copy_shared_string(t, mixed_type_string);    return t;   }         #ifdef DEBUG_MALLOC - #define low_key_type(X,Y) ((struct pike_string *)debug_malloc_touch(debug_low_key_type((X),(Y)))) + #define low_key_type(X,Y) ((struct pike_string *)debug_malloc_pass(debug_low_key_type((X),(Y))))   #else   #define low_key_type debug_low_key_type   #endif      /* FIXME, add the index */   static struct pike_string *debug_low_key_type(char *t, node *n)   {    switch(EXTRACT_UCHAR(t++))    {    case T_OBJECT: