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.163 2001/03/18 00:59:34 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.164 2001/03/18 14:32:16 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:4075:       case T_TUPLE:    case T_MAPPING:    case T_OR:    case T_AND:    my_putchar(t->type);    low_type_to_string(t->car);    t = t->cdr;    goto recurse;    +  case '0': +  case '1': +  case '2': +  case '3': +  case '4': +  case '5': +  case '6': +  case '7': +  case '8': +  case '9':    case T_PROGRAM:    case T_STRING:    case T_FLOAT:    case T_ZERO:    case T_VOID:    case T_MIXED:    my_putchar(t->type);    break;       case T_OBJECT:
pike.git/src/pike_types.c:4127:    low_type_to_string(t->car);    t = t->cdr;    goto recurse;       case T_SCOPE:    case T_ASSIGN:    my_putchar(t->type);    my_putchar('0' + (ptrdiff_t)t->car);    t = t->cdr;    goto recurse; +  +  default: +  Pike_error("low_type_to_string(): Unsupported node: %d\n", t->type); +  break;    }   }      #else /* !USE_PIKE_TYPE */      static void internal_parse_type(char **s);   static ptrdiff_t type_length(const char *t);   static int low_pike_types_le(char *a, char *b,    int array_cnt, unsigned int flags);   static int low_check_indexing(char *type, char *index_type, node *n);