static int scan_int(void) {
if(*src == '\'') {
++src;
++yylloc.last_column;
scan_char();
}
else if(*src == '0') {
++src;
++yylloc.last_column;
if(*src == 'x') {
++src;
++yylloc.last_column;
scan_uint(16);
}
else if(*src == 'b') {
++src;
++yylloc.last_column;
scan_uint(2);
}
else {
--src; /* we go one char back to recognize a single '0' */
--yylloc.last_column;
scan_uint(8);
}
}
else if(isdigit(*src))
scan_uint(10);
else
return 0;
#ifdef DEBUG
printf("yylex returns %d\n", yylval.integer);
#endif
return INTEGER;
}
void configfile_getports(FILE *cf, unsigned short *fcmport, unsigned short *fspport)
{
DEBUGPR("entering configfile_getport():, current fcm=0x%hx, fsp=0x%hx\n",*fcmport,*fspport);
if(!cf || !fcmport || !fspport)
return;
if(!*fcmport)
{
rewind(cf);
*fcmport = (unsigned short)scan_uint(cf,"fcmport=%m[^\n]\n");
}
if(!*fspport)
{
rewind(cf);
*fspport = (unsigned short)scan_uint(cf,"fspport=%m[^\n]\n");
}
DEBUGPR("leaving configfile_getports():, current fcm=0x%hx, fsp=0x%hx\n",*fcmport,*fspport);
}
void Parser::scan_value(void) {
int c = read_byte();
switch (c) {
case trace::TYPE_NULL:
case trace::TYPE_FALSE:
case trace::TYPE_TRUE:
break;
case trace::TYPE_SINT:
scan_sint();
break;
case trace::TYPE_UINT:
scan_uint();
break;
case trace::TYPE_FLOAT:
scan_float();
break;
case trace::TYPE_DOUBLE:
scan_double();
break;
case trace::TYPE_STRING:
scan_string();
break;
case trace::TYPE_ENUM:
scan_enum();
break;
case trace::TYPE_BITMASK:
scan_bitmask();
break;
case trace::TYPE_ARRAY:
scan_array();
break;
case trace::TYPE_STRUCT:
scan_struct();
break;
case trace::TYPE_BLOB:
scan_blob();
break;
case trace::TYPE_OPAQUE:
scan_opaque();
break;
case trace::TYPE_REPR:
scan_repr();
break;
case trace::TYPE_WSTRING:
scan_wstring();
break;
default:
std::cerr << "error: unknown type " << c << "\n";
exit(1);
case -1:
break;
}
}
/* continue/break a loop
* ----------------------------------------------------------------------- */
int builtin_break(int argc, char **argv)
{
unsigned int n = 1;
if(argv[1])
{
scan_uint(argv[1], &n);
if(n == 0)
{
sh_error(argv[0]);
buffer_putm(fd_err->w, ": ", argv[1], ": invalid argument");
buffer_putnlflush(fd_err->w);
return 1;
}
}
eval_jump(n, (*argv[0] == 'c'));
return 0;
}
int main(void)
{
unsigned int ind;
unsigned int u;
unsigned long len;
for (ind = 0; ind < sizeof(tests) / sizeof(tests[0]); ++ind) {
u = 0;
len = scan_uint(tests[ind].str, &u);
if (len != tests[ind].len) {
printf("[%u] fail: len %lu != %lu\n", ind, len, tests[ind].len);
return 1;
}
if (u != tests[ind].u) {
printf("[%u] fail: u %u != %u\n", ind, u, tests[ind].u);
return 1;
}
printf("[%u] %s %u\n", ind, tests[ind].str, u);
}
return 0;
}
int main(int argc,char * const *argv) {
const char *hostname;
int opt;
struct servent *se;
char *x;
unsigned long u;
int s;
int t;
io_opt = ssl_io_opt_default;
io_opt.timeout = 3600;
while ((opt = getopt(argc,argv,"46dDvqQhHrR1UXx:t:T:u:g:l:b:B:c:Z:pPoO3IiEeSsaAw:nNyYuUjJ")) != opteof)
switch(opt) {
case 'b': scan_ulong(optarg,&backlog); break;
case 'c': scan_ulong(optarg,&limit); break;
case 'X': flagallownorules = 1; break;
case 'x': fnrules = optarg; break;
case 'B': banner = optarg; break;
case 'd': flagdelay = 1; break;
case 'D': flagdelay = 0; break;
case 'v': verbosity = 2; break;
case 'q': verbosity = 0; break;
case 'Q': verbosity = 1; break;
case 'P': flagparanoid = 0; break;
case 'p': flagparanoid = 1; break;
case 'O': flagkillopts = 1; break;
case 'o': flagkillopts = 0; break;
case 'H': flagremotehost = 0; break;
case 'h': flagremotehost = 1; break;
case 'R': flagremoteinfo = 0; break;
case 'r': flagremoteinfo = 1; break;
case 't': scan_ulong(optarg,&timeout); break;
case 'T': scan_ulong(optarg,&ssltimeout); break;
case 'w': scan_uint(optarg,&io_opt.timeout); break;
case 'U': x = env_get("UID"); if (x) scan_ulong(x,&uid);
x = env_get("GID"); if (x) scan_ulong(x,&gid); break;
case 'u': scan_ulong(optarg,&uid); break;
case 'g': scan_ulong(optarg,&gid); break;
case 'Z': netif=socket_getifidx(optarg); break;
case '1': flag1 = 1; break;
case '4': noipv6 = 1; break;
case '6': forcev6 = 1; break;
case 'l': localhost = optarg; break;
case '3': flag3 = 1; break;
case 'I': flagclientcert = 0; break;
case 'i': flagclientcert = 1; break;
case 'S': flagsslenv = 0; break;
case 's': flagsslenv = 1; break;
case 'E': flagtcpenv = 0; break;
case 'e': flagtcpenv = 1; break;
case 'n': case 'y': flagsslwait = 1; break;
case 'N': case 'Y': flagsslwait = 0; break;
case 'j': io_opt.just_shutdown = 1; break;
case 'J': io_opt.just_shutdown = 0; break;
default: usage();
}
argc -= optind;
argv += optind;
if (!verbosity)
buffer_2->fd = -1;
hostname = *argv++;
if (!hostname) usage();
if (str_equal(hostname,"")) hostname = "0";
x = *argv++;
if (!x) usage();
prog = argv;
if (!*argv) usage();
if (!x[scan_ulong(x,&u)])
localport = u;
else {
se = getservbyname(x,"tcp");
if (!se)
strerr_die3x(111,FATAL,"unable to figure out port number for ",x);
uint16_unpack_big((char*)&se->s_port,&localport);
}
if (x = env_get("VERIFYDEPTH")) {
scan_ulong(x,&u);
verifydepth = u;
}
if (x = env_get("CAFILE")) cafile = x;
if (cafile && str_equal(cafile,"")) cafile = 0;
if (x = env_get("CCAFILE")) ccafile = x;
if (ccafile && str_equal(ccafile,"")) ccafile = 0;
if (!flagclientcert) ccafile = 0;
if (x = env_get("CADIR")) cadir = x;
if (cadir && str_equal(cadir,"")) cadir= 0;
if (x = env_get("CERTFILE")) certfile = x;
if (certfile && str_equal(certfile,"")) certfile = 0;
if (x = env_get("KEYFILE")) keyfile = x;
if (keyfile && str_equal(keyfile,"")) keyfile = 0;
if (x = env_get("DHFILE")) dhfile = x;
if (dhfile && str_equal(dhfile,"")) dhfile = 0;
if (x = env_get("CIPHERS")) ciphers = x;
if (ciphers && str_equal(ciphers,"")) ciphers = 0;
sig_block(sig_child);
sig_catch(sig_child,sigchld);
sig_catch(sig_term,sigterm);
sig_ignore(sig_pipe);
if (str_equal(hostname,"0")) {
byte_zero(localip,sizeof localip);
} else {
if (!stralloc_copys(&tmp,hostname))
strerr_die2x(111,FATAL,"out of memory");
if (dns_ip6_qualify(&addresses,&fqdn,&tmp) == -1)
strerr_die4sys(111,FATAL,"temporarily unable to figure out IP address for ",hostname,": ");
if (addresses.len < 16)
strerr_die3x(111,FATAL,"no IP address for ",hostname);
byte_copy(localip,16,addresses.s);
if (ip6_isv4mapped(localip))
noipv6=1;
}
s = socket_tcp6();
if (s == -1)
strerr_die2sys(111,FATAL,"unable to create socket: ");
if (socket_bind6_reuse(s,localip,localport,netif) == -1)
strerr_die2sys(111,FATAL,"unable to bind: ");
if (socket_local6(s,localip,&localport,&netif) == -1)
strerr_die2sys(111,FATAL,"unable to get local address: ");
if (socket_listen(s,backlog) == -1)
strerr_die2sys(111,FATAL,"unable to listen: ");
ndelay_off(s);
localportstr[fmt_ulong(localportstr,localport)] = 0;
if (flag1) {
buffer_init(&b,buffer_unixwrite,1,bspace,sizeof bspace);
buffer_puts(&b,localportstr);
buffer_puts(&b,"\n");
buffer_flush(&b);
}
if (flag3) read_passwd();
ctx = ssl_server();
ssl_errstr();
if (!ctx) strerr_die2x(111,FATAL,"unable to create SSL context");
switch (ssl_certkey(ctx,certfile,keyfile,passwd_cb)) {
case -1: strerr_die2x(111,FATAL,"unable to load certificate");
case -2: strerr_die2x(111,FATAL,"unable to load key");
case -3: strerr_die2x(111,FATAL,"key does not match certificate");
default: break;
}
if (!ssl_ca(ctx,cafile,cadir,verifydepth))
strerr_die2x(111,FATAL,"unable to load CA list");
if (!ssl_cca(ctx,ccafile))
strerr_die2x(111,FATAL,"unable to load client CA list");
if (!ssl_params(ctx,dhfile,rsalen))
strerr_die2x(111,FATAL,"unable to set cipher parameters");
if (!ssl_ciphers(ctx,ciphers))
strerr_die2x(111,FATAL,"unable to set cipher list");
if (verbosity >= 2) {
strnum[fmt_ulong(strnum,getpid())] = 0;
strnum2[fmt_ulong(strnum2,rsalen)] = 0;
strerr_warn4("sslserver: cafile ",strnum," ",cafile,0);
strerr_warn4("sslserver: ccafile ",strnum," ",ccafile,0);
strerr_warn4("sslserver: cadir ",strnum," ",cadir,0);
strerr_warn4("sslserver: cert ",strnum," ",certfile,0);
strerr_warn4("sslserver: key ",strnum," ",keyfile,0);
strerr_warn6("sslserver: param ",strnum," ",dhfile," ",strnum2,0);
}
close(0); open_read("/dev/null");
close(1); open_append("/dev/null");
printstatus();
for (;;) {
while (numchildren >= limit) sig_pause();
sig_unblock(sig_child);
t = socket_accept6(s,remoteip,&remoteport,&netif);
sig_block(sig_child);
if (t == -1) continue;
++numchildren; printstatus();
switch(fork()) {
case 0:
close(s);
doit(t);
strerr_die4sys(111,DROP,"unable to run ",*argv,": ");
case -1:
strerr_warn2(DROP,"unable to fork: ",&strerr_sys);
--numchildren; printstatus();
}
close(t);
}
}
int main(int argc,char * const *argv) {
const char *hostname;
int opt;
char *x;
unsigned long u;
int s;
int t;
int flagv4 = 1, flagv6 = 1, rc;
struct addrinfo *localai = NULL, hints = {0}, *ai;
while ((opt = getopt(argc,argv,"dDvqQhHrR1UXx:t:T:u:g:l:b:B:c:pPoO3IiEeSsw:nN46")) != opteof)
switch(opt) {
case 'b': scan_ulong(optarg,&backlog); break;
case 'c': scan_ulong(optarg,&limit); break;
case 'X': flagallownorules = 1; break;
case 'x': fnrules = optarg; break;
case 'B': banner = optarg; break;
case 'd': flagdelay = 1; break;
case 'D': flagdelay = 0; break;
case 'v': verbosity = 2; break;
case 'q': verbosity = 0; break;
case 'Q': verbosity = 1; break;
case 'P': flagparanoid = 0; break;
case 'p': flagparanoid = 1; break;
case 'O': flagkillopts = 1; break;
case 'o': flagkillopts = 0; break;
case 'H': flagremotehost = 0; break;
case 'h': flagremotehost = 1; break;
case 'R': flagremoteinfo = 0; break;
case 'r': flagremoteinfo = 1; break;
case 't': scan_ulong(optarg,&timeout); break;
case 'T': scan_ulong(optarg,&ssltimeout); break;
case 'w': scan_uint(optarg,&progtimeout); break;
case 'U': x = env_get("UID"); if (x) scan_ulong(x,&uid);
x = env_get("GID"); if (x) scan_ulong(x,&gid); break;
case 'u': scan_ulong(optarg,&uid); break;
case 'g': scan_ulong(optarg,&gid); break;
case '1': flag1 = 1; break;
case 'l': localhost = optarg; break;
case '3': flag3 = 1; break;
case 'I': flagclientcert = 0; break;
case 'i': flagclientcert = 1; break;
case 'S': flagsslenv = 0; break;
case 's': flagsslenv = 1; break;
case 'E': flagtcpenv = 0; break;
case 'e': flagtcpenv = 1; break;
case 'n': flagsslwait = 1; break;
case 'N': flagsslwait = 0; break;
case '4': flagv6 = 0; break;
case '6': flagv4 = 0; break;
default: usage();
}
if (flagv4 == flagv6) { flagv4 = flagv6 = 1; }
argc -= optind;
argv += optind;
if (!verbosity)
buffer_2->fd = -1;
hostname = *argv++;
if (!hostname) usage();
if (str_equal(hostname,"")) hostname = NULL;
if (str_equal(hostname,"0")) hostname = NULL;
x = *argv++;
if (!x) usage();
prog = argv;
if (!*argv) usage();
hints.ai_family = flagv4 == flagv6 ? AF_UNSPEC : flagv4 ? AF_INET : AF_INET6;
hints.ai_socktype = SOCK_STREAM;
hints.ai_flags = AI_PASSIVE;
if ((rc = getaddrinfo(hostname, x, &hints, &localai))) {
strerr_die(111,FATAL "unable to figure out address for ", hostname ? hostname : "0",
" ",x,": ",gai_strerror(rc),0);
}
if (!localai) {
strerr_die2x(111,FATAL,"address not found");
}
if (x = env_get("VERIFYDEPTH")) {
scan_ulong(x,&u);
verifydepth = u;
}
if (x = env_get("CAFILE")) cafile = x;
if (cafile && str_equal(cafile,"")) cafile = 0;
if (x = env_get("CCAFILE")) ccafile = x;
if (ccafile && str_equal(ccafile,"")) ccafile = 0;
if (!flagclientcert) ccafile = 0;
if (x = env_get("CADIR")) cadir = x;
if (cadir && str_equal(cadir,"")) cadir= 0;
if (x = env_get("CERTCHAINFILE")) certchainfile = x;
if (certchainfile && str_equal(certchainfile,"")) certchainfile = 0;
if (x = env_get("CERTFILE")) certfile = x;
if (certfile && str_equal(certfile,"")) certfile = 0;
if (x = env_get("KEYFILE")) keyfile = x;
if (keyfile && str_equal(keyfile,"")) keyfile = 0;
if (x = env_get("DHFILE")) dhfile = x;
if (dhfile && str_equal(dhfile,"")) dhfile = 0;
if (x = env_get("CIPHERS")) ciphers = x;
if (ciphers && str_equal(ciphers,"")) ciphers = 0;
sig_block(sig_child);
sig_catch(sig_child,sigchld);
sig_catch(sig_term,sigterm);
sig_ignore(sig_pipe);
for (ai = localai; ai; ai = ai->ai_next) {
s = socket_tcp(ai->ai_family, ai->ai_protocol);
if (s == -1)
strerr_die2sys(111,FATAL,"unable to create socket: ");
if (socket_bind_reuse(s,ai) == -1)
strerr_die2sys(111,FATAL,"unable to bind: ");
if (socket_local(s,&localaddr,&localport) == -1)
strerr_die2sys(111,FATAL,"unable to get local address: ");
if (socket_listen(s,backlog) == -1)
strerr_die2sys(111,FATAL,"unable to listen: ");
break;
}
freeaddrinfo(localai); localai = NULL;
ndelay_off(s);
localportstr[fmt_ulong(localportstr,localport)] = 0;
if (flag1) {
buffer_init(&b,buffer_unixwrite,1,bspace,sizeof bspace);
buffer_puts(&b,localportstr);
buffer_puts(&b,"\n");
buffer_flush(&b);
}
if (flag3) read_passwd();
ctx = ssl_server();
ssl_errstr();
if (!ctx) strerr_die2x(111,FATAL,"unable to create SSL context");
if (certchainfile) {
switch (ssl_chainfile(ctx,certchainfile,keyfile,passwd_cb)) {
case -1: strerr_die2x(111,FATAL,"unable to load certificate chain file");
case -2: strerr_die2x(111,FATAL,"unable to load key");
case -3: strerr_die2x(111,FATAL,"key does not match certificate");
default: break;
}
}
else {
switch (ssl_certkey(ctx,certfile,keyfile,passwd_cb)) {
case -1: strerr_die2x(111,FATAL,"unable to load certificate");
case -2: strerr_die2x(111,FATAL,"unable to load key");
case -3: strerr_die2x(111,FATAL,"key does not match certificate");
default: break;
}
}
if (!ssl_ca(ctx,cafile,cadir,verifydepth))
strerr_die2x(111,FATAL,"unable to load CA list");
if (!ssl_cca(ctx,ccafile))
strerr_die2x(111,FATAL,"unable to load client CA list");
if (!ssl_params(ctx,dhfile,rsalen))
strerr_die2x(111,FATAL,"unable to set DH/RSA parameters");
if (!ssl_ciphers(ctx,ciphers))
strerr_die2x(111,FATAL,"unable to set cipher list");
if (verbosity >= 2) {
strnum[fmt_ulong(strnum,getpid())] = 0;
strnum2[fmt_ulong(strnum2,rsalen)] = 0;
strerr_warn4("sslserver: cafile ",strnum," ",cafile,0);
strerr_warn4("sslserver: ccafile ",strnum," ",ccafile,0);
strerr_warn4("sslserver: cadir ",strnum," ",cadir,0);
strerr_warn4("sslserver: chainfile ",strnum," ",certchainfile,0);
strerr_warn4("sslserver: cert ",strnum," ",certfile,0);
strerr_warn4("sslserver: key ",strnum," ",keyfile,0);
strerr_warn6("sslserver: param ",strnum," ",dhfile," ",strnum2,0);
}
close(0); open_read("/dev/null");
close(1); open_append("/dev/null");
printstatus();
for (;;) {
while (numchildren >= limit) sig_pause();
sig_unblock(sig_child);
t = socket_accept(s,&remoteaddr,&remoteport);
sig_block(sig_child);
if (t == -1) continue;
++numchildren; printstatus();
switch(fork()) {
case 0:
close(s);
doit(t);
strerr_die4sys(111,DROP,"unable to run ",*argv,": ");
case -1:
strerr_warn2(DROP,"unable to fork: ",&strerr_sys);
--numchildren; printstatus();
}
close(t);
}
}
StackFrame * Parser::parse_backtrace_frame(Mode mode) {
size_t id = read_uint();
StackFrameState *frame = lookup(frames, id);
if (!frame) {
frame = new StackFrameState;
int c = read_byte();
while (c != trace::BACKTRACE_END &&
c != -1) {
switch (c) {
case trace::BACKTRACE_MODULE:
frame->module = read_string();
break;
case trace::BACKTRACE_FUNCTION:
frame->function = read_string();
break;
case trace::BACKTRACE_FILENAME:
frame->filename = read_string();
break;
case trace::BACKTRACE_LINENUMBER:
frame->linenumber = read_uint();
break;
case trace::BACKTRACE_OFFSET:
frame->offset = read_uint();
break;
default:
std::cerr << "error: unknown backtrace detail "
<< c << "\n";
exit(1);
}
c = read_byte();
}
frame->fileOffset = file->currentOffset();
frames[id] = frame;
} else if (file->currentOffset() < frame->fileOffset) {
int c = read_byte();
while (c != trace::BACKTRACE_END &&
c != -1) {
switch (c) {
case trace::BACKTRACE_MODULE:
scan_string();
break;
case trace::BACKTRACE_FUNCTION:
scan_string();
break;
case trace::BACKTRACE_FILENAME:
scan_string();
break;
case trace::BACKTRACE_LINENUMBER:
scan_uint();
break;
case trace::BACKTRACE_OFFSET:
scan_uint();
break;
default:
std::cerr << "error: unknown backtrace detail "
<< c << "\n";
exit(1);
}
c = read_byte();
}
}
return frame;
}
int main(int argc,char * const *argv) {
int opt;
const char *path;
mode_t m;
iopause_fd x;
struct taia deadline;
struct taia stamp;
int pid = 0;
char ch;
int wstat;
while ((opt = getopt(argc,argv,"wWdDt:")) != opteof)
switch(opt) {
case 't': scan_uint(optarg,&timeout); break;
case 'w': flagwait = 1; break;
case 'W': flagwait = 0; break;
case 'd': flagdelete = 1; break;
case 'D': flagdelete = 0; break;
default: usage();
}
argv += optind;
path = *argv++;
if (!path) usage();
if (flagdelete) {
m = umask(0);
unlink(path);
fifo_make(path,0666);
umask(m);
}
fdr = open_read(path);
if (fdr == -1)
strerr_die4sys(111,FATAL,"cannot read ",path,": ");
ndelay_on(fdr);
fdw = open_write(path);
if (fdw == -1)
strerr_die4sys(111,FATAL,"cannot write ",path,": ");
if (*argv) {
pid = fork();
switch (pid) {
case 0:
close(fdr); close(fdw);
pathexec(argv);
strerr_die4sys(111,FATAL,"cannot run ",*argv,": ");
case -1:
strerr_die4sys(111,FATAL,"cannot fork ",*argv,": ");
break;
default:
break;
}
}
else
flagwait = 0;
x.fd = fdr;
x.events = IOPAUSE_READ;
taia_now(&stamp);
taia_uint(&deadline,timeout);
taia_add(&deadline,&stamp,&deadline);
for (;;) {
taia_now(&stamp);
iopause(&x,1,&deadline,&stamp);
if (x.revents) {
waiting = 0;
break;
}
if (taia_less(&deadline,&stamp)) {
waiting = 99;
break;
}
}
if (!waiting)
if (read(fdr,&ch,1) != 1)
waiting = 0;
if (flagwait)
if (wait_pid(&wstat,pid) != pid)
strerr_die2x(111,FATAL,"cannot reap child process");
_exit(waiting);
}
