pike.git
/
src
/
operators.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/operators.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" #include <math.h>
-
RCSID("$Id: operators.c,v 1.
100
2000/08/
17
19
:
07
:
13
grubba Exp $");
+
RCSID("$Id: operators.c,v 1.
101
2000/08/
31
14
:
43
:
00
grubba Exp $");
#include "interpret.h" #include "svalue.h" #include "multiset.h" #include "mapping.h" #include "array.h" #include "stralloc.h" #include "opcodes.h" #include "operators.h" #include "language.h" #include "pike_memory.h"
pike.git/src/operators.c:2742:
ADD_EFUN2("`()",f_call_function,tFuncV(tMix,tMix,tMix),OPT_SIDE_EFFECT | OPT_EXTERNAL_DEPEND,0,generate_call_function); /* This one should be removed */ /* function(mixed,mixed ...:mixed) */ ADD_EFUN2("call_function",f_call_function,tFuncV(tMix,tMix,tMix),OPT_SIDE_EFFECT | OPT_EXTERNAL_DEPEND,0,generate_call_function); start_new_program(); ADD_STORAGE(struct string_assignment_storage); /* function(int:int) */
-
ADD_
FUNCTION
("`[]",f_string_assignment_index,tFunc(tInt,tInt),0);
+
ADD_
FUNCTION2
("`[]",
f_string_assignment_index,
tFunc(tInt,tInt),
0
,
+
OPT_EXTERNAL_DEPEND
);
/* function(int,int:int) */
-
ADD_
FUNCTION
("`[]=",f_string_assignment_assign_index,tFunc(tInt tInt,tInt),0);
+
ADD_
FUNCTION2
("`[]=",
f_string_assignment_assign_index,
+
tFunc(tInt tInt,tInt),
0
, OPT_SIDE_EFFECT
);
set_init_callback(init_string_assignment_storage); set_exit_callback(exit_string_assignment_storage); string_assignment_program=end_program(); } void exit_operators(void) { if(string_assignment_program) { free_program(string_assignment_program); string_assignment_program=0; } }