pike.git/ src/ builtin_functions.c

1996-11-08

1996-11-08 04:57:40 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• d2c608fc1d502911105fec8e5b5091a06a762031 (18 lines) (+2/-16) ^{[ Show | Annotate ]}
  Branch: 7.9

object(foo), prog(), 'constant' and class foo {} implemented

Rev: src/ChangeLog:1.18
Rev: src/builtin_functions.c:1.9
Rev: src/builtin_functions.h:1.2
Rev: src/docode.c:1.3
Rev: src/interpret.c:1.8
Rev: src/language.yacc:1.6
Rev: src/lex.c:1.6
Rev: src/object.c:1.3
Rev: src/object.h:1.3
Rev: src/pike_types.c:1.5
Rev: src/program.c:1.4
Rev: src/program.h:1.2
Rev: src/testsuite.in:1.6

262:    }   }    - void f_clone(INT32 args) - { -  struct object *o; -  -  if(args<1) -  error("Too few arguments to clone.\n"); -  -  if(sp[-args].type != T_PROGRAM) -  error("Bad argument 1 to clone.\n"); -  -  o=clone(sp[-args].u.program,args-1); -  pop_stack(); -  push_object(o); - } -  +    void f_call_function(INT32 args)   {    INT32 expected_stack=sp-args+2-evaluator_stack;
1454:    add_efun("arrayp", f_arrayp, "function(mixed:int)",0);    add_efun("backtrace",f_backtrace,"function(:array(array(function|int|string)))",OPT_EXTERNAL_DEPEND);    add_efun("call_function",f_call_function,"function(mixed,mixed ...:mixed)",OPT_SIDE_EFFECT | OPT_EXTERNAL_DEPEND); -  add_efun("clone",f_clone,"function(program,mixed...:object)",OPT_EXTERNAL_DEPEND); +     add_efun("column",f_column,"function(array,mixed:array)",0);    add_efun("combine_path",f_combine_path,"function(string,string:string)",0);    add_efun("compile_file",f_compile_file,"function(string:program)",OPT_EXTERNAL_DEPEND);