FreeCalypso > hg > freecalypso-tools
view loadtools/ltscript.c @ 145:04b5aaee06c0
rftablewr.c: bug in the il2agc table output
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Mon, 27 Feb 2017 05:22:25 +0000 |
parents | e7502631a0f9 |
children | 6616f4e35579 |
line wrap: on
line source
/* * This module contains the code that implements the loadtool scripting * functionality: init-script setting and the exec command. */ #include <sys/param.h> #include <stdio.h> #include <string.h> #include <strings.h> #include <stdlib.h> extern char default_helpers_dir[]; loadtool_exec_script(script_name) char *script_name; { char pathbuf[MAXPATHLEN], *openfname; FILE *f; char linebuf[512], *cp; int lineno, retval = 0; if (index(script_name, '/')) openfname = script_name; else { sprintf(pathbuf, "%s/%s", default_helpers_dir, script_name); openfname = pathbuf; } f = fopen(openfname, "r"); if (!f) { perror(openfname); return(-1); } for (lineno = 1; fgets(linebuf, sizeof linebuf, f); lineno++) { cp = index(linebuf, '\n'); if (!cp) { fprintf(stderr, "%s line %d: missing newline\n", openfname, lineno); fclose(f); return(-1); } *cp = '\0'; retval = loadtool_dispatch_cmd(linebuf, 1); if (retval) break; } fclose(f); return(retval); } cmd_exec(argc, argv) char **argv; { return loadtool_exec_script(argv[1]); }