int Winapi ec_exec_string( char *callstring, ec_ref varsref) /* NULL is allowed */ { pword vars; dident exec_string_2 = enter_dict("exec_string",2); vars = ec_newvar(); if (varsref) ec_ref_set(varsref, vars); ec_post_goal(ec_term(ec_.d.colon, ec_atom(ec_.d.kernel_sepia), ec_term(exec_string_2, ec_string(callstring), vars))); return ec_resume1(0); }
void print_procs(char *name, int arity) { dident d = enter_dict(name, arity); if (d == D_UNKNOWN) { p_fprintf(current_output_,"No such did"); ec_newline(current_output_); } else if (! d->procedure) { p_fprintf(current_output_,"No procedures"); ec_newline(current_output_); } else { pri *pd; for (pd=d->procedure; pd; pd=pd->nextproc) print_pri(pd); } }