pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:13:   #include "multiset.h"   #include "pike_types.h"   #include "pike_memory.h"   #include "threads.h"   #include <math.h>   #include <ctype.h>   #include "module_support.h"   #include "cyclic.h"   #include "bignum.h"   #include "main.h" + #include "operators.h"         PIKEFUN array column(array tmp, mixed val)    efun;    optflags OPT_TRY_OPTIMIZE;   {    INT32 e;    struct array *a;       DECLARE_CYCLIC();
pike.git/src/builtin.cmod:138:    RETURN implements(p,p2);   }      PIKEFUN int program_inherits(program p, program p2)    errname Program.inherits;    optflags OPT_TRY_OPTIMIZE;   {    RETURN !!low_get_storage(p2,p);   }    + PIKEFUN string program_defined(program p) +  errname Program.defined; +  optflags OPT_TRY_OPTIMIZE; + { +  if(p && p->num_linenumbers) +  { +  char *tmp; +  INT32 line; +  if((tmp=get_line(p->program, p, &line))) +  { +  struct pike_string *tmp2; +  tmp2=make_shared_string(tmp); +  pop_n_elems(args); +  +  push_string(tmp2); +  if(line > 1) +  { +  push_constant_text(":"); +  push_int(line); +  f_add(3); +  } +  return; +  } +  } +  +  pop_n_elems(args); +  push_int(0); + } +    PIKEFUN int string_width(string s)    errname String.width;    optflags OPT_TRY_OPTIMIZE;   {    RETURN 8 * (1 << s->size_shift);   }      void init_builtin(void)   {   INIT   }