Beispiel #1
0
// A - CREATE a new INTERCAL instruction
static void finger_IFFI_create(instructionPointer * ip)
{
    // arguments: line number on TOS, signature as 0gnirts beneath it
	funge_cell l = stack_pop(ip->stack);
	unsigned char * restrict str = stack_pop_string(ip->stack, NULL);
	ick_create((const char*)str, l);
}
float stack_pop_float(object store, string name)
{
    return StringToFloat(stack_pop_string(store,name));
}
int stack_pop_int(object store, string name)
{
    return StringToInt(stack_pop_string(store,name));
}