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);
}
}
