pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.75 1999/03/02 03:13:21 hubbe Exp $"); + RCSID("$Id: las.c,v 1.76 1999/03/04 06:05:01 hubbe Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:468:    res->token = F_CONSTANT;    copy_shared_string(res->type, float_type_string);    res->u.sval.type = T_FLOAT;   #ifdef __CHECKER__    res->u.sval.subtype = 0;   #endif    res->u.sval.u.float_number = foo;    return res;   }    +  + node *mkprgnode(struct program *p) + { +  struct svalue s; +  s.u.program=p; +  s.type=T_PROGRAM; +  return mkconstantsvaluenode(&s); + } +    node *mkapplynode(node *func,node *args)   {    return mknode(F_APPLY, func, args);   }      node *mkefuncallnode(char *function, node *args)   {    struct pike_string *name;    node *n;    name = findstring(function);