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.11 1996/12/07 03:23:46 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.12 1997/01/04 05:09:25 hubbe 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:1072:    push_type(s->type);    return pop_type();    }   }         char *get_name_of_type(int t)   {    switch(t)    { -  case T_LVALUE: return "lvalue"; -  case T_INT: return "int"; -  case T_STRING: return "string"; +     case T_ARRAY: return "array"; -  case T_OBJECT: return "object"; +  case T_FLOAT: return "float"; +  case T_FUNCTION: return "function"; +  case T_INT: return "int"; +  case T_LVALUE: return "lvalue";    case T_MAPPING: return "mapping";    case T_MULTISET: return "multiset"; -  case T_FUNCTION: return "function"; -  case T_FLOAT: return "float"; +  case T_OBJECT: return "object"; +  case T_PROGRAM: return "program"; +  case T_STRING: return "string";    default: return "unknown";    }   }      void cleanup_pike_types()   {    free_string(string_type_string);    free_string(int_type_string);    free_string(float_type_string);    free_string(function_type_string);    free_string(object_type_string);    free_string(program_type_string);    free_string(array_type_string);    free_string(multiset_type_string);    free_string(mapping_type_string);    free_string(mixed_type_string);    free_string(void_type_string);    free_string(any_type_string);   }