FreeCalypso > hg > freecalypso-tools

comparison loadtools/initscript.c @ 0:e7502631a0f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import from freecalypso-sw rev 1033:5ab737ac3ad7
author Mychaela Falconia <falcon@freecalypso.org>
date Sat, 11 Jun 2016 00:13:35 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:e7502631a0f9
1 /*
2 * This module has been copied from ltscript.c, ltdispatch.c and ltpassthru.c:
3 * here we implement the init-script functionality for fc-xram.
4 */
5
6 #include <sys/param.h>
7 #include <stdio.h>
8 #include <string.h>
9 #include <strings.h>
10 #include <stdlib.h>
11
12 extern char default_helpers_dir[];
13
14 extern int cmd_baud();
15
16 static
17 loadagent_cmd(argc, argv)
18 char **argv;
19 {
20 if (tpinterf_make_cmd(argv) < 0) {
21 fprintf(stderr, "error: unable to form target command\n");
22 return(-1);
23 }
24 if (tpinterf_send_cmd() < 0)
25 return(-1);
26 return tpinterf_pass_output(1);
27 }
28
29 static struct cmdtab {
30 char *cmd;
31 int minargs;
32 int maxargs;
33 int (*func)();
34 } cmdtab[] = {
35 {"baud", 1, 1, cmd_baud},
36 {"w8", 2, 2, loadagent_cmd},
37 {"w16", 2, 2, loadagent_cmd},
38 {"w32", 2, 2, loadagent_cmd},
39 {0, 0, 0, 0}
40 };
41
42 static
43 dispatch_cmd(cmd)
44 char *cmd;
45 {
46 char *argv[10];
47 char *cp, **ap;
48 struct cmdtab *tp;
49
50 for (cp = cmd; isspace(*cp); cp++)
51 ;
52 if (!*cp || *cp == '#')
53 return(0);
54 printf("init-script command: %s\n", cp);
55 argv[0] = cp;
56 while (*cp && !isspace(*cp))
57 cp++;
58 if (*cp)
59 *cp++ = '\0';
60 for (tp = cmdtab; tp->cmd; tp++)
61 if (!strcmp(tp->cmd, argv[0]))
62 break;
63 if (!tp->func) {
64 fprintf(stderr, "error: no such command\n");
65 return(-1);
66 }
67 for (ap = argv + 1; ; ) {
68 while (isspace(*cp))
69 cp++;
70 if (!*cp || *cp == '#')
71 break;
72 if (ap - argv - 1 >= tp->maxargs) {
73 fprintf(stderr, "error: too many arguments\n");
74 return(-1);
75 }
76 *ap++ = cp;
77 while (*cp && !isspace(*cp))
78 cp++;
79 if (*cp)
80 *cp++ = '\0';
81 }
82 if (ap - argv - 1 < tp->minargs) {
83 fprintf(stderr, "error: too few arguments\n");
84 return(-1);
85 }
86 *ap = 0;
87 return tp->func(ap - argv, argv);
88 }
89
90 exec_init_script(script_name)
91 char *script_name;
92 {
93 char pathbuf[MAXPATHLEN], *openfname;
94 FILE *f;
95 char linebuf[512], *cp;
96 int lineno, retval = 0;
97
98 if (index(script_name, '/'))
99 openfname = script_name;
100 else {
101 sprintf(pathbuf, "%s/%s", default_helpers_dir, script_name);
102 openfname = pathbuf;
103 }
104 f = fopen(openfname, "r");
105 if (!f) {
106 perror(openfname);
107 return(-1);
108 }
109 for (lineno = 1; fgets(linebuf, sizeof linebuf, f); lineno++) {
110 cp = index(linebuf, '\n');
111 if (!cp) {
112 fprintf(stderr, "%s line %d: missing newline\n",
113 openfname, lineno);
114 fclose(f);
115 return(-1);
116 }
117 *cp = '\0';
118 retval = dispatch_cmd(linebuf);
119 if (retval)
120 break;
121 }
122 fclose(f);
123 return(retval);
124 }