static void
commands(long n)
{
long i;
entree *ep;
char **t_L;
pari_stack s_L;
pari_stack_init(&s_L, sizeof(*t_L), (void**)&t_L);
for (i = 0; i < functions_tblsz; i++)
for (ep = functions_hash[i]; ep; ep = ep->next)
{
long m;
switch (EpVALENCE(ep))
{
case EpVAR:
if (typ((GEN)ep->value) == t_CLOSURE) break;
/* fall through */
case EpNEW: continue;
}
m = ep->menu;
if (m == n || (n < 0 && m && m <= MAX_SECTION))
pari_stack_pushp(&s_L, (void*)ep->name);
}
pari_stack_pushp(&s_L, NULL);
print_fun_list(t_L, term_height()-4);
pari_stack_delete(&s_L);
}
void
gp_load_gprc(void)
{
pari_stack sA;
char **A;
long i;
pari_stack_init(&sA,sizeof(*A),(void**)&A);
gp_initrc(&sA);
for (i = 0; i < sA.n; pari_free(A[i]),i++)
{
pari_CATCH(CATCH_ALL) { err_printf("... skipping file '%s'\n", A[i]); }
pari_TRY { gp_read_file(A[i]); } pari_ENDCATCH;
}
pari_stack_delete(&sA);
}
void
paridroid_init()
{
static const entree functions_gp[]={
{"quit",0,(void*)paridroid_quit,11,"vD0,L,","quit({status = 0}): quit, return to the system with exit status 'status'."},
{"help",0,(void*)help,11,"vr","help(fun): display help for function fun"},
{NULL,0,NULL,0,NULL,NULL}};
pari_init(paridroid_stack_size, paridroid_maxprime);
pari_add_module(functions_gp);
cb_pari_err_recover = gp_err_recover;
pari_stack_init(&s_droidStr,sizeof(*droidStr),(void**)&droidStr);
pariOut=&droidOut;
pariErr=&droidOut;
print_version("v1.5");
}
void
gp_initrc(pari_stack *p_A)
{
FILE *file = gprc_get();
Buffer *b;
filtre_t F;
VOLATILE long c = 0;
jmp_buf *env;
pari_stack s_env;
if (!file) return;
b = filtered_buffer(&F);
pari_stack_init(&s_env, sizeof(*env), (void**)&env);
(void)pari_stack_new(&s_env);
for(;;)
{
char *nexts, *s, *t;
if (setjmp(env[s_env.n-1])) err_printf("...skipping line %ld.\n", c);
c++;
if (!get_line_from_file(NULL,&F,file)) break;
s = b->buf;
if (*s == '#')
{ /* preprocessor directive */
int z, NOT = 0;
s++;
if (strncmp(s,"if",2)) err_gprc("unknown directive",s,b->buf);
s += 2;
if (!strncmp(s,"not",3)) { NOT = !NOT; s += 3; }
if (*s == '!') { NOT = !NOT; s++; }
t = s;
z = get_preproc_value(&s);
if (z < 0) err_gprc("unknown preprocessor variable",t,b->buf);
if (NOT) z = !z;
if (!*s)
{ /* make sure at least an expr follows the directive */
if (!get_line_from_file(NULL,&F,file)) break;
s = b->buf;
}
if (!z) continue; /* dump current line */
}
/* parse line */
for ( ; *s; s = nexts)
{
nexts = next_expr(s);
if (!strncmp(s,"read",4) && (s[4] == ' ' || s[4] == '\t' || s[4] == '"'))
{ /* read file */
s += 4;
t = (char*)pari_malloc(strlen(s) + 1);
if (*s == '"') (void)pari_translate_string(s, t, s-4); else strcpy(t,s);
pari_stack_pushp(p_A,t);
}
else
{ /* set default */
parse_key_val(s, &s,&t);
(void)setdefault(s,t,d_INITRC);
}
}
}
pari_stack_delete(&s_env);
pop_buffer();
if (!(GP_DATA->flags & gpd_QUIET)) err_printf("Done.\n\n");
fclose(file);
}
void
pari_init_buffers(void)
{ pari_stack_init(&s_bufstack, sizeof(Buffer*), (void**)&bufstack); }