static char *
filter_quotes(const char *s)
{
int i, l = strlen(s);
int quote = 0;
int backquote = 0;
int doubquote = 0;
char *str, *t;
for (i=0; i < l; i++)
switch(s[i])
{
case '\'': quote++; break;
case '`' : backquote++; break;
case '"' : doubquote++;
}
str = (char*)pari_malloc(l + quote * (strlen(QUOTE)-1)
+ doubquote * (strlen(DOUBQUOTE)-1)
+ backquote * (strlen(BACKQUOTE)-1) + 1);
t = str;
for (i=0; i < l; i++)
switch(s[i])
{
case '\'': t = _cat(t, QUOTE); break;
case '`' : t = _cat(t, BACKQUOTE); break;
case '"' : t = _cat(t, DOUBQUOTE); break;
default: *t++ = s[i];
}
*t = 0; return str;
}
/* Look for [._]gprc: $GPRC, then in $HOME, ., /etc, pari_datadir */
static FILE *
gprc_get(void)
{
FILE *f = NULL;
const char *gprc = os_getenv("GPRC");
if (gprc) f = gprc_chk(gprc);
if (!f)
{
int free_it = 0;
const char *home = get_home(&free_it);
char *str, *s, c;
long l;
l = strlen(home); c = home[l-1];
/* + "/gprc.txt" + \0*/
str = strcpy((char*)pari_malloc(l+10), home);
if (free_it) pari_free((void*)home);
s = str + l;
if (c != '/' && c != '\\') *s++ = '/';
#ifndef _WIN32
strcpy(s, ".gprc");
#else
strcpy(s, "gprc.txt");
#endif
f = gprc_chk(str); /* in $HOME */
if (!f) f = gprc_chk(s); /* in . */
#ifndef _WIN32
if (!f) f = gprc_chk("/etc/gprc");
#else
if (!f) /* in basedir */
{
const char *basedir = win32_basedir();
char *t = (char *) pari_malloc(strlen(basedir)+strlen(s)+2);
sprintf(t, "%s/%s", basedir, s);
f = gprc_chk(t); free(t);
}
#endif
pari_free(str);
}
return f;
}
/* return $HOME or the closest we can find */
static const char *
get_home(int *free_it)
{
char *drv, *pth = os_getenv("HOME");
if (pth) return pth;
if ((drv = os_getenv("HOMEDRIVE"))
&& (pth = os_getenv("HOMEPATH")))
{ /* looks like WinNT */
char *buf = (char*)pari_malloc(strlen(pth) + strlen(drv) + 1);
sprintf(buf, "%s%s",drv,pth);
*free_it = 1; return buf;
}
pth = pari_get_homedir("");
return pth? pth: ".";
}
void
pari_var_init(void)
{
long i;
varentries = (entree**) pari_calloc((MAXVARN+1)*sizeof(entree*));
varpriority = (long*)pari_malloc((MAXVARN+2)*sizeof(long)) + 1;
varpriority[-1] = 1-LONG_MAX;
h_polvar = hash_create_str(100, 0);
nvar = 0; max_avail = MAXVARN;
max_priority = min_priority = 0;
(void)fetch_user_var("x");
(void)fetch_user_var("y");
/* initialize so that people can use pol_x(i) directly */
for (i = 2; i <= (long)MAXVARN; i++) varpriority[i] = -i;
/* reserve varnum 1..9 for static temps with predictable priority wrt x */
nvar = 10;
min_priority = -MAXVARN;
}
void
name_var(long n, const char *s)
{
entree *ep;
char *u;
if (n < pari_var_next())
pari_err(e_MISC, "renaming a GP variable is forbidden");
if (n > (long)MAXVARN)
pari_err_OVERFLOW("variable number");
ep = (entree*)pari_malloc(sizeof(entree) + strlen(s) + 1);
u = (char *)initial_value(ep);
ep->valence = EpVAR;
ep->name = u; strcpy(u,s);
ep->value = gen_0; /* in case geval is called */
varentries_reset(n, ep);
}
static char *
add_prefix(const char *name, const char *text, long junk)
{
char *s = strncpy((char*)pari_malloc(strlen(name)+1+junk),text,junk);
strcpy(s+junk,name); return s;
}
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);
}
