/*
* Copyright 2000
* Traakan, Inc., Los Altos, CA
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice unmodified, this list of conditions, and the following
* disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
/*
* Project: NDMJOB
* Ident: $Id: $
*
* Description:
* Stanza files look about like this:
* [stanza name line]
* stanza body lines
*
* These are used for config files.
*/
#include "ndmlib.h"
int
ndmstz_getline (FILE *fp, char *buf, int n_buf)
{
int c;
char * p;
again:
c = getc (fp);
if (c == EOF)
return EOF;
if (c == '[') {
/* end-of-stanza */
ungetc (c, fp);
return -2;
}
if (c == '#') {
/* comment */
while ((c = getc(fp)) != EOF && c != '\n')
continue;
goto again;
}
ungetc (c, fp);
p = buf;
while ((c = getc(fp)) != EOF && c != '\n') {
if (p < &buf[n_buf-1])
*p++ = c;
}
*p = 0;
return p - buf;
}
int
ndmstz_getstanza (FILE *fp, char *buf, int n_buf)
{
int c;
char * p;
again:
c = getc (fp);
if (c == EOF)
return EOF;
if (c == '\n')
goto again; /* blank line */
if (c != '[') {
/* not a stanza header, eat line */
while ((c = getc(fp)) != EOF && c != '\n')
continue;
goto again;
}
p = buf;
while ((c = getc(fp)) != EOF && c != '\n' && c != ']') {
if (p < &buf[n_buf-1])
*p++ = c;
}
*p = 0;
if (c == ']') {
/* eat rest of line */
while ((c = getc(fp)) != EOF && c != '\n')
continue;
}
/* fp is left pointing to begining of first line */
return p - buf;
}
int
ndmstz_parse (char *buf, char *argv[], int max_argv)
{
char * p = buf;
char * q = buf;
int inword = 0;
int inquote = 0;
int argc = 0;
int c;
while ((c = *p++) != 0) {
if (inquote) {
if (c == inquote) {
inquote = 0;
} else {
*q++ = c;
}
continue;
}
if (isspace(c)) {
if (inword) {
*q++ = 0;
inword = 0;
}
continue;
}
if (!inword) {
if (argc > max_argv-1)
break;
argv[argc++] = q;
inword = 1;
}
if (c == '"' || c == '\'') {
inquote = c;
continue;
}
*q++ = c;
}
if (inword)
*q++ = 0;
argv[argc] = 0;
return argc;
}
#ifdef SELF_TEST
int
main (int ac, char *av[])
{
int i, found, argc;
FILE * fp;
char buf[512];
char * argv[100];
if (ac < 2) {
printf ("bad usage\n");
return 1;
}
fp = fopen (av[1], "r");
if (!fp) {
perror (av[1]);
return 2;
}
if (ac == 2) {
while (ndmstz_getstanza (fp, buf, sizeof buf) >= 0)
printf ("%s\n", buf);
} else {
for (i = 2; i < ac; i++) {
rewind (fp);
found = 0;
while (ndmstz_getstanza (fp, buf, sizeof buf) >= 0) {
if (strcmp (av[i], buf) == 0) {
found = 1;
break;
}
}
if (!found) {
printf ("Search for '%s' failed\n", av[i]);
continue;
}
printf ("'%s'\n", buf);
printf ("========================================\n");
while (ndmstz_getline (fp, buf, sizeof buf) >= 0) {
printf ("= %s", buf);
argc = ndmstz_parse (buf, argv, 100);
printf (" [%d]\n", argc);
}
printf ("========================================\n");
}
}
fclose (fp);
return 0;
}
#endif /* SELF_TEST */