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.45 1998/08/19 07:37:59 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.46 1998/09/28 22:30:15 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:1421:    return !!low_match_types(string_type_string->str, index_type,0);    }else{    return 1;    }    }       case T_MULTISET:    case T_MAPPING:    return !!low_match_types(type,index_type,0);    +  case T_PROGRAM: +  // FIXME: Should check that the index is a string. +  return 1; +     case T_MIXED:    return 1;       default:    return 0;    }   }      int check_indexing(struct pike_string *type,    struct pike_string *index_type,