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.93 1999/12/13 21:42:29 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.94 1999/12/13 23:49:08 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:69:   struct pike_string *function_type_string;   struct pike_string *object_type_string;   struct pike_string *program_type_string;   struct pike_string *array_type_string;   struct pike_string *multiset_type_string;   struct pike_string *mapping_type_string;   struct pike_string *mixed_type_string;   struct pike_string *void_type_string;   struct pike_string *zero_type_string;   struct pike_string *any_type_string; - struct pike_string *weak_type_string; /* array|mapping|multiset */ + struct pike_string *weak_type_string; /* array|mapping|multiset|function */      static struct pike_string *a_markers[10],*b_markers[10];      static void clear_markers(void)   {    unsigned int e;    for(e=0;e<NELEM(a_markers);e++)    {    if(a_markers[e])    {
pike.git/src/pike_types.c:120:    program_type_string = CONSTTYPE(tPrg);    float_type_string = CONSTTYPE(tFloat);    mixed_type_string=CONSTTYPE(tMix);    array_type_string=CONSTTYPE(tArray);    multiset_type_string=CONSTTYPE(tMultiset);    mapping_type_string=CONSTTYPE(tMapping);    function_type_string=CONSTTYPE(tFunction);    void_type_string=CONSTTYPE(tVoid);    zero_type_string=CONSTTYPE(tZero);    any_type_string=CONSTTYPE(tOr(tVoid,tMix)); -  weak_type_string=CONSTTYPE(tOr3(tArray,tMultiset,tMapping)); +  weak_type_string=CONSTTYPE(tOr4(tArray,tMultiset,tMapping,tFunction));   }      static int type_length(char *t)   {    char *q=t;   one_more_type:    switch(EXTRACT_UCHAR(t++))    {    default:    fatal("error in type string %d.\n",EXTRACT_UCHAR(t-1));