|
|
1.1 root 1: /* tai_init.c - */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/dsap/common/RCS/tai_init.c,v 7.0 89/11/23 21:47:52 mrose Rel $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/dsap/common/RCS/tai_init.c,v 7.0 89/11/23 21:47:52 mrose Rel $
9: *
10: *
11: * $Log: tai_init.c,v $
12: * Revision 7.0 89/11/23 21:47:52 mrose
13: * Release 6.0
14: *
15: */
16:
17: /*
18: * NOTICE
19: *
20: * Acquisition, use, and distribution of this module and related
21: * materials are subject to the restrictions of a license agreement.
22: * Consult the Preface in the User's Manual for the full terms of
23: * this agreement.
24: *
25: */
26:
27:
28: /* LINTLIBRARY */
29:
30: #include "quipu/util.h"
31: #include "tailor.h"
32:
33: extern LLog * log_dsap;
34: extern char *tailfile;
35:
36: #define MAXTAIARGS 100
37:
38: extern LLog *log_dsap;
39:
40:
41: dsap_tai_init()
42: {
43: FILE *fp;
44: char *cp;
45: char buf[BUFSIZ];
46:
47: if(!isstr(tailfile)) /* it's compiled in */
48: return(OK);
49:
50: if( (fp = fopen(cp = isodefile(tailfile, 0), "r")) == (FILE *)NULL) {
51: LLOG (log_dsap,LLOG_FATAL,("can't open tailor file '%s'", cp));
52: fatal (-1, "Cannot open tailor file");
53: }
54:
55: while(fgets(buf, sizeof(buf), fp) != NULLCP)
56: if ( (*buf != '#') && (*buf != '\n') )
57: /* not a comment or blank */
58: if (tai_string (buf) == NOTOK)
59: LLOG (log_dsap,LLOG_EXCEPTIONS,("tai_string failed %s",buf));
60:
61:
62: (void) fclose(fp);
63: return OK;
64: }
65:
66:
67: tai_string (str)
68: char * str;
69: {
70: char *args[MAXTAIARGS];
71: char *p, *index();
72: int ac;
73:
74: if( (p = index(str, '\n')) != NULLCP)
75: *p = '\0';
76:
77: if((ac = sstr2arg(str, MAXTAIARGS, args, " \t,")) == NOTOK) {
78: LLOG(log_dsap,LLOG_EXCEPTIONS,("too many tailor parameters"));
79: return(NOTOK);
80: }
81: if(ac <= 1) {
82: LLOG (log_dsap,LLOG_EXCEPTIONS,("no option set '%s'",str));
83: return (NOTOK);
84: }
85: return (dsap_tai(ac, args));
86:
87: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.