pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:704:
f_aggregate_mapping(0); apply_low(x->u.object, fun + p->inherits[SUBTYPEOF(*x)].identifier_level, 2); if(TYPEOF(Pike_sp[-1]) == T_STRING) { stack_swap(); pop_stack(); return; } else if (UNSAFE_IS_ZERO(Pike_sp-1)) { pop_n_elems(2);
-
push_
constant_text
(
"
object
"
);
+
ref_
push_
string(literal
_object
_string
);
return; } else { Pike_error("Non-string returned from _sprintf()\n"); } } } pop_stack(); switch(t) {
-
case T_ARRAY: push_
constant_text
(
"
array
"
); break;
-
case T_FLOAT: push_
constant_text
(
"
float
"
); break;
-
case T_FUNCTION: push_
constant_text
(
"
function
"
); break;
-
case T_INT: push_
constant_text
(
"
int
"
); break;
-
case T_MAPPING: push_
constant_text
(
"
mapping
"
); break;
-
case T_MULTISET: push_
constant_text
(
"
multiset
"
); break;
-
case T_OBJECT: push_
constant_text
(
"
object
"
); break;
-
case T_PROGRAM: push_
constant_text
(
"
program
"
); break;
-
case T_STRING: push_
constant_text
(
"
string
"
); break;
-
case T_TYPE: push_
constant_text
(
"
type
"
); break;
+
case T_ARRAY:
ref_
push_
string(literal
_array
_string
); break;
+
case T_FLOAT:
ref_
push_
string(literal
_float
_string
); break;
+
case T_FUNCTION:
ref_
push_
string(literal
_function
_string
); break;
+
case T_INT:
ref_
push_
string(literal
_int
_string
); break;
+
case T_MAPPING:
ref_
push_
string(literal
_mapping
_string
); break;
+
case T_MULTISET:
ref_
push_
string(literal
_multiset
_string
); break;
+
case T_OBJECT:
ref_
push_
string(literal
_object
_string
); break;
+
case T_PROGRAM:
ref_
push_
string(literal
_program
_string
); break;
+
case T_STRING:
ref_
push_
string(literal
_string
_string
); break;
+
case T_TYPE:
ref_
push_
string(literal
_type
_string
); break;
case T_ZERO: push_constant_text("zero"); break; case T_VOID: push_constant_text("void"); break; /* The following are internal and shouldn't be applicable in normal use. */ case T_SVALUE_PTR: push_text("svalue_ptr"); break; case T_OBJ_INDEX: push_text("obj_index"); break; case T_MAPPING_DATA: push_text("mapping_data"); break; case T_PIKE_FRAME: push_text("pike_frame"); break; case T_MULTISET_DATA: push_text("multiset_data"); break; default: push_text("unknown"); break; }