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.149 2001/02/23 14:44:20 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.150 2001/02/25 13:37:50 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:833: Inside #if defined(PIKE_DEBUG)
   }    printf("\n");   }      void simple_describe_type(struct pike_type *s)   {    stupid_describe_type(s->str,s->len);   }   #endif    - char *low_describe_type(char *t) + static char *low_describe_type(char *t)   {    switch(EXTRACT_UCHAR(t++))    {    case '0': case '1': case '2': case '3': case '4':    case '5': case '6': case '7': case '8': case '9':    my_putchar(EXTRACT_UCHAR(t-1));    break;       case T_ASSIGN:    my_putchar('(');
pike.git/src/pike_types.c:1054:    my_strcat("unknown code(");    sprintf(buf, "%d", EXTRACT_UCHAR(t-1));    my_strcat(buf);    my_strcat(")");    break;    }    }    return t;   }    + void my_describe_type(struct pike_type *type) + { +  low_describe_type(type->str); + } +    struct pike_string *describe_type(struct pike_type *type)   {    check_type_string(type);    if(!type) return make_shared_string("mixed");    init_buf(); -  low_describe_type(type->str); +  my_describe_type(type->str);    return free_buf();   }      static int low_is_same_type(char *a, char *b)   {    if(type_length(a) != type_length(b)) return 0;    return !MEMCMP(a,b,type_length(a));   }      static TYPE_T low_compile_type_to_runtime_type(char *t)