static int dir_ctrl(X509_LOOKUP *ctx, int cmd, const char *argp, long argl,
char **retp)
{
int ret=0;
BY_DIR *ld;
char *dir = NULL;
ld=(BY_DIR *)ctx->method_data;
switch (cmd)
{
case X509_L_ADD_DIR:
if (argl == X509_FILETYPE_DEFAULT)
{
dir=(char *)Getenv(X509_get_default_cert_dir_env());
if (dir)
ret=add_cert_dir(ld,dir,X509_FILETYPE_PEM);
else
ret=add_cert_dir(ld,X509_get_default_cert_dir(),
X509_FILETYPE_PEM);
if (!ret)
{
X509err(X509_F_DIR_CTRL,X509_R_LOADING_CERT_DIR);
}
}
else
ret=add_cert_dir(ld,argp,(int)argl);
break;
}
return(ret);
}
static void
setupGNUEmacsInferiorMode()
{ char envbuf[4];
char *s;
int val;
if ( ((s = Getenv("EMACS", envbuf, sizeof(envbuf))) && s[0]) ||
((s = Getenv("INFERIOR", envbuf, sizeof(envbuf))) && streq(s, "yes")) )
{ GET_LD
clearPrologFlagMask(PLFLAG_TTY_CONTROL);
val = TRUE;
} else
{ val = FALSE;
}
PL_set_prolog_flag("emacs_inferior_process", PL_BOOL|FF_READONLY, val);
}
static int by_file_ctrl(X509_LOOKUP *ctx, int cmd, const char *argp, long argl,
char **ret)
{
int ok=0;
char *file;
switch (cmd)
{
case X509_L_FILE_LOAD:
if (argl == X509_FILETYPE_DEFAULT)
{
file = (char *)Getenv(X509_get_default_cert_file_env());
if (file)
ok = (X509_load_cert_crl_file(ctx,file,
X509_FILETYPE_PEM) != 0);
else
ok = (X509_load_cert_crl_file(ctx,X509_get_default_cert_file(),
X509_FILETYPE_PEM) != 0);
if (!ok)
{
X509err(X509_F_BY_FILE_CTRL,X509_R_LOADING_DEFAULTS);
}
}
else
{
if(argl == X509_FILETYPE_PEM)
ok = (X509_load_cert_crl_file(ctx,argp,
X509_FILETYPE_PEM) != 0);
else
ok = (X509_load_cert_file(ctx,argp,(int)argl) != 0);
}
break;
}
return(ok);
}
static char *
findHome(const char *symbols, int argc, const char **argv)
{ const char *home = NULL;
char envbuf[MAXPATHLEN];
char plp[MAXPATHLEN];
const char *val;
if ( (val=longopt("home", argc, argv)) )
{ if ( (home=PrologPath(val, plp, sizeof(plp))) )
return store_string(home);
return NULL;
}
if ( (val = exec_var("homevar")) &&
(home = Getenv(val, envbuf, sizeof(envbuf))) &&
(home = PrologPath(home, plp, sizeof(plp))) )
return store_string(home);
if ( (val = exec_var("home")) &&
(home = PrologPath(val, plp, sizeof(plp))) )
return store_string(home);
#ifdef PLHOMEVAR_1
if ( !(home = Getenv(PLHOMEVAR_1, envbuf, sizeof(envbuf))) )
{
#ifdef PLHOMEVAR_2
home = Getenv(PLHOMEVAR_2, envbuf, sizeof(envbuf));
#endif
}
if ( home &&
(home = PrologPath(home, plp, sizeof(plp))) &&
ExistsDirectory(home) )
return store_string(home);
#endif
#ifdef PLHOMEFILE
if ( (home = symbols) )
{ char buf[MAXPATHLEN];
char parent[MAXPATHLEN];
IOSTREAM *fd;
strcpy(parent, DirName(DirName(AbsoluteFile(home, buf), buf), buf));
Ssprintf(buf, "%s/" PLHOMEFILE, parent);
if ( (fd = Sopen_file(buf, "r")) )
{ if ( Sfgets(buf, sizeof(buf), fd) )
{ size_t l = strlen(buf);
while(l > 0 && buf[l-1] <= ' ')
l--;
buf[l] = EOS;
#if O_XOS
{ char buf2[MAXPATHLEN];
_xos_canonical_filename(buf, buf2, MAXPATHLEN, 0);
strcpy(buf, buf2);
}
#endif
if ( !IsAbsolutePath(buf) )
{ char buf2[MAXPATHLEN];
Ssprintf(buf2, "%s/%s", parent, buf);
home = AbsoluteFile(buf2, plp);
} else
home = AbsoluteFile(buf, plp);
if ( ExistsDirectory(home) )
{ Sclose(fd);
return store_string(home);
}
}
Sclose(fd);
}
}
#endif /*PLHOMEFILE*/
if ( (home = PrologPath(PLHOME, plp, sizeof(plp))) &&
ExistsDirectory(home) )
return store_string(home);
return NULL;
}
