void
initlcconf()
{
lcconf = racoon_calloc(1, sizeof(*lcconf));
if (lcconf == NULL)
errx(1, "failed to allocate local conf.");
setdefault();
lcconf->racoon_conf = LC_DEFAULT_CF;
}
void gpgdo()
{
if (*cgi("delpub"))
delkey(cgi("pubkeyname"), 0);
else if (*cgi("delsec") && *cgi("really"))
delkey(cgi("seckeyname"), 1);
else if (*cgi("sign"))
signkey(cgi("pubkeyname"), cgi("seckeyname"),
cgi("signlevel"));
else if (*cgi("setdefault"))
setdefault(cgi("seckeyname"));
}
void
initlcconf()
{
if (lcconf == NULL) {
lcconf = racoon_calloc(1, sizeof(*lcconf));
if (lcconf == NULL)
errx(1, "failed to allocate local conf.");
// Important: assure all pointers within lcconf to be NULL.
memset(lcconf, 0, sizeof(*lcconf));
}
setdefault();
lcconf->racoon_conf = LC_DEFAULT_CF;
}
void
flushlcconf()
{
int i;
setdefault();
myaddr_flush();
for (i = 0; i < LC_PATHTYPE_MAX; i++) {
if (lcconf->pathinfo[i]) {
racoon_free(lcconf->pathinfo[i]);
lcconf->pathinfo[i] = NULL;
}
}
}
void
flushlcconf()
{
int i;
setdefault();
clear_myaddr(&lcconf->myaddrs);
for (i = 0; i < LC_PATHTYPE_MAX; i++) {
if (lcconf->pathinfo[i]) {
racoon_free(lcconf->pathinfo[i]);
lcconf->pathinfo[i] = NULL;
}
}
for (i = 0; i < LC_IDENTTYPE_MAX; i++) {
if (lcconf->ident[i])
vfree(lcconf->ident[i]);
lcconf->ident[i] = NULL;
}
}
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);
}
bool term_nonp::check(term & t)
{
if ( (t.varnames.size()<=2) && (t.options.size() >= 1)
&& (t.options.size() <= 100) )
{
bool f = false;
unsigned j=0;
unsigned namespos=0;
while ( (j<termnames.size()) && (f == false) )
{
if (t.options[0] == termnames[j])
{
namespos=j;
f = true;
}
j ++;
}
if (f==false)
{
setdefault();
return false;
}
optionlist optlist;
optlist.push_back(°ree);
optlist.push_back(&numberknots);
optlist.push_back(&difforder);
optlist.push_back(&lambda);
optlist.push_back(&a);
optlist.push_back(&b);
optlist.push_back(&nocenter);
optlist.push_back(&map);
optlist.push_back(&lambda_re);
optlist.push_back(&a_re);
optlist.push_back(&b_re);
optlist.push_back(&internal_mult);
optlist.push_back(&samplemult);
optlist.push_back(&constraints);
optlist.push_back(&round);
optlist.push_back(¢ermethod);
optlist.push_back(&internal_multexp);
optlist.push_back(&pvalue);
optlist.push_back(&meaneffect);
optlist.push_back(&binning);
optlist.push_back(&update);
optlist.push_back(&nu);
optlist.push_back(&maxdist);
optlist.push_back(&ccovariate);
optlist.push_back(&sum2);
optlist.push_back(&derivative);
optlist.push_back(&samplederivative);
optlist.push_back(&samplef);
optlist.push_back(&shrinkage);
optlist.push_back(&shrinkagefix);
optlist.push_back(&shrinkageweight);
optlist.push_back(&adaptiveshrinkage);
optlist.push_back(&tau2);
optlist.push_back(&meaneffectconst);
optlist.push_back(&prior);
optlist.push_back(&knotpath);
optlist.push_back(&datasetref);
optlist.push_back(&lambdaconst);
optlist.push_back(&abeta);
optlist.push_back(&bbeta);
optlist.push_back(&r);
optlist.push_back(&v);
optlist.push_back(&aQ);
optlist.push_back(&bQ);
optlist.push_back(®iterates);
optlist.push_back(¢er);
unsigned i;
bool rec = true;
for (i=1;i<t.options.size();i++)
{
if (optlist.parse(t.options[i],true) == 0)
rec = false;
if (optlist.geterrormessages().size() > 0)
{
setdefault();
return false;
}
}
if (rec == false)
{
setdefault();
return false;
}
t.options.erase(t.options.begin(),t.options.end());
t.options = vector<ST::string>(100);
t.options[0] = termnames[namespos];
t.options[1] = ST::inttostring(degree.getvalue());
t.options[2] = ST::inttostring(numberknots.getvalue());
t.options[3] = ST::inttostring(difforder.getvalue());
t.options[4] = ST::doubletostring(lambda.getvalue());
t.options[5] = ST::doubletostring(a.getvalue());
t.options[6] = ST::doubletostring(b.getvalue());
if(nocenter.getvalue() == false)
t.options[7] = "false";
else
t.options[7] = "true";
t.options[8] = map.getvalue();
t.options[9] = ST::doubletostring(lambda_re.getvalue());
t.options[10] = ST::doubletostring(a_re.getvalue());
t.options[11] = ST::doubletostring(b_re.getvalue());
if(internal_mult.getvalue() == false)
t.options[12] = "false";
else
t.options[12] = "true";
if(samplemult.getvalue() == false)
t.options[13] = "false";
else
t.options[13] = "true";
t.options[14] = constraints.getvalue();
t.options[15] = ST::doubletostring(round.getvalue());
t.options[16] = centermethod.getvalue();
if(internal_multexp.getvalue() == false)
t.options[17] = "false";
else
t.options[17] = "true";
if(pvalue.getvalue() == false)
t.options[18] = "false";
else
t.options[18] = "true";
if(meaneffect.getvalue() == false)
t.options[19] = "false";
else
t.options[19] = "true";
t.options[20] = ST::doubletostring(binning.getvalue());
t.options[21] = update.getvalue();
t.options[22] = nu.getvalue();
t.options[23] = ST::doubletostring(maxdist.getvalue());
if(ccovariate.getvalue() == false)
t.options[24] = "false";
else
t.options[24] = "true";
t.options[25] = ST::doubletostring(sum2.getvalue());
if(derivative.getvalue() == false)
t.options[26] = "false";
else
t.options[26] = "true";
if(samplederivative.getvalue() == false)
t.options[27] = "false";
else
t.options[27] = "true";
if(samplef.getvalue() == false)
t.options[28] = "false";
else
t.options[28] = "true";
t.options[29] = ST::doubletostring(shrinkage.getvalue());
if(shrinkagefix.getvalue() == false)
t.options[30] = "false";
else
t.options[30] = "true";
t.options[31] = ST::doubletostring(shrinkageweight.getvalue());
if(adaptiveshrinkage.getvalue() == false)
t.options[32] = "false";
else
t.options[32] = "true";
t.options[33] = ST::doubletostring(tau2.getvalue());
t.options[34] = ST::doubletostring(meaneffectconst.getvalue());
t.options[35] = prior.getvalue();
t.options[36] = knotpath.getvalue();
t.options[37] = datasetref.getvalue();
if(lambdaconst.getvalue() == false)
t.options[38] = "false";
else
t.options[38] = "true";
t.options[39] = ST::doubletostring(abeta.getvalue());
t.options[40] = ST::doubletostring(bbeta.getvalue());
t.options[41] = ST::doubletostring(r.getvalue());
t.options[42] = ST::doubletostring(v.getvalue());
t.options[43] = ST::doubletostring(aQ.getvalue());
t.options[44] = ST::doubletostring(bQ.getvalue());
t.options[45] = ST::inttostring(regiterates.getvalue());
if (center.getvalue() == false)
t.options[46] = "false";
else
t.options[46] = "true";
setdefault();
return true;
}
else
{
setdefault();
return false;
}
}
