pike.git / src / constants.c

version» Context lines:

pike.git/src/constants.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: constants.c,v 1.46 2003/03/26 18:53:46 nilsson Exp $ + || $Id: constants.c,v 1.47 2003/04/02 19:22:42 mast Exp $   */      #include "global.h"   #include "constants.h"   #include "pike_macros.h"   #include "program.h"   #include "pike_types.h"   #include "stralloc.h"   #include "pike_memory.h"   #include "interpret.h"   #include "mapping.h"   #include "pike_error.h"   #include "security.h"   #include "block_alloc.h"    - RCSID("$Id: constants.c,v 1.46 2003/03/26 18:53:46 nilsson Exp $"); + RCSID("$Id: constants.c,v 1.47 2003/04/02 19:22:42 mast Exp $");      struct mapping *builtin_constants = 0;      PMOD_EXPORT struct mapping *get_builtin_constants(void)   {    return builtin_constants;   }      void low_add_efun(struct pike_string *name, struct svalue *fun)   {
pike.git/src/constants.c:68:    EXIT_PIKE_MEMOBJ(X); \   }while(0)   BLOCK_ALLOC_FILL_PAGES(callable,2)      int global_callable_flags=0;      /* Eats one ref to 'type' and 'name' */   PMOD_EXPORT struct callable *low_make_callable(c_fun fun,    struct pike_string *name,    struct pike_type *type, -  INT16 flags, +  int flags,    optimize_fun optimize,    docode_fun docode)   {    struct callable *f=alloc_callable();    INIT_PIKE_MEMOBJ(f);    f->function=fun;    f->name=name;    f->type=type;    f->flags=flags;    f->docode=docode;
pike.git/src/constants.c:97: Inside #if defined(PIKE_DEBUG)
   }    f->runs=0;    f->compiles=0;   #endif    return f;   }      PMOD_EXPORT struct callable *make_callable(c_fun fun,    const char *name,    const char *type, -  INT16 flags, +  int flags,    optimize_fun optimize,    docode_fun docode)   {    return low_make_callable(fun, make_shared_string(name), parse_type(type),    flags, optimize, docode);   }      PMOD_EXPORT struct callable *add_efun2(const char *name,    c_fun fun,    const char *type, -  INT16 flags, +  int flags,    optimize_fun optimize,    docode_fun docode)   {    struct svalue s;    struct pike_string *n;    struct callable *ret;       n=make_shared_string(name);    s.type=T_FUNCTION;    s.subtype=FUNCTION_BUILTIN;    ret=s.u.efun=make_callable(fun, name, type, flags, optimize, docode);    low_add_efun(n, &s);    free_svalue(&s);    free_string(n);    return ret;   }    - PMOD_EXPORT struct callable *add_efun(const char *name, c_fun fun, const char *type, INT16 flags) + PMOD_EXPORT struct callable *add_efun(const char *name, c_fun fun, const char *type, int flags)   {    return add_efun2(name,fun,type,flags,0,0);   }      PMOD_EXPORT struct callable *quick_add_efun(const char *name, ptrdiff_t name_length,    c_fun fun,    const char *type, ptrdiff_t type_length, -  INT16 flags, +  int flags,    optimize_fun optimize,    docode_fun docode)   {    struct svalue s;    struct pike_string *n;    struct pike_type *t;    struct callable *ret;       n = make_shared_binary_string(name, name_length);    t = make_pike_type(type);