pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: program.c,v 1.558 2004/03/13 19:50:23 grubba Exp $ + || $Id: program.c,v 1.559 2004/03/14 05:45:00 nilsson Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.558 2004/03/13 19:50:23 grubba Exp $"); + RCSID("$Id: program.c,v 1.559 2004/03/14 05:45:00 nilsson Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:6915:    MAKE_CONST_STRING(this_program_string,"this_program");    MAKE_CONST_STRING(this_string,"this");    MAKE_CONST_STRING(UNDEFINED_string,"UNDEFINED");       lfun_ids = allocate_mapping(NUM_LFUNS);    lfun_types = allocate_mapping(NUM_LFUNS);    for (i=0; i < NELEM(lfun_names); i++) {    lfun_strings[i] = make_shared_string(lfun_names[i]);       id.type = T_INT; +  id.subtype = NUMBER_NUMBER;    id.u.integer = i;    key.type = T_STRING;    key.u.string = lfun_strings[i];    mapping_insert(lfun_ids, &key, &id);       val.type = T_TYPE;    val.u.type = make_pike_type(raw_lfun_types[i]);    mapping_insert(lfun_types, &key, &val);    free_type(val.u.type);    }