9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke#pragma prototyped

a7be28e157e9ceeec73a8fd0e642c36ea29d4218Christian Maeder

a7be28e157e9ceeec73a8fd0e642c36ea29d4218Christian Maederstatic const char usage[] =

9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke

a7be28e157e9ceeec73a8fd0e642c36ea29d4218Christian Maeder

9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke

9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke "{"

9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke "[+_AST_FEATURES?Process local writable values that are "

a7be28e157e9ceeec73a8fd0e642c36ea29d4218Christian Maeder "different from the default are stored in the \b_AST_FEATURES\b "

9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke "environment variable. The \b_AST_FEATURES\b value is a "

9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke "space-separated list of \aname\a \apath\a \avalue\a 3-tuples, "

9f93539f2fa4f5b9d935c7baa22fcd750806def9Klaus Hartke "where \aname\a is the system configuration name, \apath\a is "

"the corresponding path, \b-\b if no path is applicable, and "

"\avalue\a is the system configuration value. \b_AST_FEATURES\b "

"is an implementation detail of process inheritance; it may "

"change or vanish in the future; don't rely on it.]"

"}"

;

#include <cmd.h>

#include <proc.h>

#include <ls.h>

typedef struct Path_s

{

const char* path;

int len;

} Path_t;

b_getconf(int argc, char** argv, Shbltin_t* context)

{

register char* name;

register char* path;

register char* value;

register const char* s;

register const char* t;

char* pattern;

char* native;

char* cmd;

Path_t* e;

Path_t* p;

int flags;

int n;

int i;

int m;

int q;

char** oargv;

char buf[PATH_MAX];

Path_t std[64];

struct stat st0;

struct stat st1;

static const char empty[] = "-";

static const Path_t equiv[] = { { "/bin", 4 }, { "/usr/bin", 8 } };

cmdinit(argc, argv, context, ERROR_CATALOG, 0);

oargv = argv;

if (*(native = astconf("GETCONF", NiL, NiL)) != '/')

native = 0;

flags = 0;

name = 0;

pattern = 0;

for (;;)

{

switch (optget(argv, usage))

{

case 'a':

if (native)

goto defer;

continue;

case 'b':

flags |= ASTCONF_base;

continue;

case 'c':

flags |= ASTCONF_matchcall;

pattern = opt_info.arg;

continue;

case 'd':

flags |= ASTCONF_defined;

continue;

case 'l':

flags |= ASTCONF_lower;

continue;

case 'n':

flags |= ASTCONF_matchname;

pattern = opt_info.arg;

continue;

case 'p':

flags |= ASTCONF_parse;

continue;

case 'q':

flags |= ASTCONF_quote;

continue;

case 'r':

flags |= ASTCONF_read;

continue;

case 's':

flags |= ASTCONF_matchstandard;

pattern = opt_info.arg;

continue;

case 't':

flags |= ASTCONF_table;

continue;

case 'v':

if (native)

goto defer;

continue;

case 'w':

flags |= ASTCONF_write;

continue;

case ':':

if (native)

goto defer;

error(2, "%s", opt_info.arg);

break;

case '?':

error(ERROR_usage(2), "%s", opt_info.arg);

break;

}

break;

}

argv += opt_info.index;

if (!(name = *argv))

path = 0;

else if (streq(name, empty))

{

name = 0;

if (path = *++argv)

{

argv++;

if (streq(path, empty))

path = 0;

}

}

if (error_info.errors || !name && *argv)

error(ERROR_usage(2), "%s", optusage(NiL));

if (!name)

astconflist(sfstdout, path, flags, pattern);

else

{

if (native)

flags |= (ASTCONF_system|ASTCONF_error);

do

{

if (!(path = *++argv))

value = 0;

else

{

if (streq(path, empty))

{

path = 0;

flags = 0;

}

if ((value = *++argv) && (streq(value, empty)))

{

value = 0;

flags = 0;

}

}

s = astgetconf(name, path, value, flags, errorf);

if (error_info.errors)

break;

if (!s)

{

if (native)

goto defer;

error(2, "%s: unknown name", name);

break;

}

if (!value)

{

if (flags & ASTCONF_write)

{

sfputr(sfstdout, name, ' ');

sfputr(sfstdout, path ? path : empty, ' ');

}

sfputr(sfstdout, s, '\n');

}

} while (*argv && (name = *++argv));

}

return error_info.errors != 0;

defer:

/*

if ((cmd = oargv[0]) && *cmd == '/' && !access(cmd, X_OK))

goto found;

/*

e = std;

s = astconf("PATH", NiL, NiL);

q = !stat(equiv[0].path, &st0) && !stat(equiv[1].path, &st1) && st0.st_ino == st1.st_ino && st0.st_dev == st1.st_dev;

m = 0;

do

{

for (t = s; *s && *s != ':'; s++);

if ((n = s - t) && *t == '/')

{

if (q)

for (i = 0; i < 2; i++)

if (n == equiv[i].len && !strncmp(t, equiv[i].path, n))

{

if (m & (i+1))

t = 0;

else

{

m |= (i+1);

if (!(m & (!i+1)))

{

m |= (!i+1);

e->path = t;

e->len = n;

e++;

if (e >= &std[elementsof(std)])

break;

t = equiv[!i].path;

n = equiv[!i].len;

}

}

}

if (t)

{

e->path = t;

e->len = n;

e++;

}

}

while (*s == ':')

s++;

} while (*s && e < &std[elementsof(std)]);

if (e < &std[elementsof(std)])

{

e->len = strlen(e->path = "/usr/sbin");

if (++e < &std[elementsof(std)])

{

e->len = strlen(e->path = "/sbin");

e++;

}

}

if (s = getenv("PATH"))

do

{

for (t = s; *s && *s != ':'; s++);

if ((n = s - t) && *t == '/')

{

for (p = std; p < e; p++)

if (p->len == n && !strncmp(t, p->path, n))

{

sfsprintf(buf, sizeof(buf), "%-*.*s/%s", n, n, t, error_info.id);

if (!access(buf, X_OK))

{

cmd = buf;

goto found;

}

}

}

while (*s == ':')

s++;

} while (*s);

/*

for (p = std; p < e; p++)

{

sfsprintf(buf, sizeof(buf), "%-*.*s/%s", p->len, p->len, p->path, error_info.id);

if (!access(buf, X_OK))

{

cmd = buf;

goto found;

}

}

/*

if (name)

error(4, "%s: unknown name -- no native getconf(1) to defer to", name);

else

error(4, "no native getconf(1) to defer to");

return 2;

found:

/*

oargv[0] = cmd;

if ((n = sh_run(context, argc, oargv)) >= EXIT_NOEXEC)

error(ERROR_SYSTEM|2, "%s: exec error [%d]", cmd, n);

return n;

}