#define foobarbaz /*
# A shell script within a source file. Ugly, but it works...
TRGT=${0/.c/}
for i in $@ ; do
if [ "$i" = "--make-compiled" ] ; then
echo "Compiling '$TRGT', please wait..."
gcc -W -Wall -O2 -o $TRGT $0
exit $?
fi
done
gcc -W -Wall -Werror -o /tmp/$TRGT "$0" && { "/tmp/$TRGT" `for i in $@ ; do echo "$i" ; done` ; RET=$? ; rm -f "/tmp/$TRGT" ; exit $RET ; }
exit $?
*/
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#ifdef _WIN32
static void setenv(const char *env, const char *val, int overwrite)
{
static char buf[64*1024];
if(!overwrite && getenv(env))
return;
snprintf(buf, sizeof(buf), "%s=%s", env, val);
_putenv(buf);
}
static void unsetenv(const char *env)
{
setenv(env, "", 1);
}
#ifdef _MSC_VER
#define strcasecmp stricmp
#define strncasecmp strnicmp
#define snprintf _snprintf
#endif
#endif /* Win32 */
#define INVOKE_BKP_SIZE 16
struct {
FILE *f;
char *fname;
char *bkp_lbuf;
char *bkp_nextline;
int bkp_line;
int bkp_did_else;
int bkp_did_cmds;
int bkp_do_level;
} invoke_backup[INVOKE_BKP_SIZE];
static char **argv;
static int argc;
static FILE *f;
static char *fname;
static struct stat statbuf;
static char linebuf[64*1024];
static char buffer[64*1024];
static char *loaded_files;
static char *sources;
static char obj[64];
#define SRC_PATH_SIZE 32
static char *src_paths[SRC_PATH_SIZE];
static int curr_line = 0;
static char *nextline;
/* getvar: Safely gets an environment variable, returning an empty string
* instead of NULL
*/
static const char *getvar(const char *env)
{
const char *var;
var = getenv(env);
return (var?var:"");
}
/* find_src: Attempts to find the named sourcefile by searching the paths
* listed in src_paths. It returns the passed string if the file exists as-is,
* or if it couldn't be found.
*/
static char *find_src(char *src)
{
static char buf[64];
struct stat statbuf;
int i;
if(stat(src, &statbuf) == 0 || !src_paths[0])
return src;
for(i = 0;src_paths[i] && i < SRC_PATH_SIZE;++i)
{
snprintf(buf, sizeof(buf), "%s/%s", src_paths[i], src);
if(stat(buf, &statbuf) == 0)
return buf;
}
return src;
}
/* check_obj_deps: Checks a file's dependancy list. The dependancy file is a
* file expected to be in dep_dir and with the same name, but with a different
* extension. The format of the file is simply: 'file.o: dependancies...' where
* a '\' at the end of the line can be used as a next-line continuation. If the
* dependancy file exists, none of the dependancies are missing, and none have
* a modification time after 'obj_time', the function will return 0. Otherwise
* 1 is returned denoting a rebuild may be required.
*/
static int check_obj_deps(char *src, time_t obj_time)
{
static char dep[64];
char *buf;
int bufsize;
struct stat statbuf;
char *ptr = obj;
FILE *df;
ptr = strrchr(src, '/');
if(!ptr) ptr = src;
ptr = strrchr(ptr, '.');
if(ptr) *ptr = 0;
snprintf(dep, sizeof(dep), "%s/%s%s", getvar("DEP_DIR"), src,
getvar("DEP_EXT"));
if(ptr) *ptr = '.';
df = fopen(dep, "r");
if(!df)
{
if(stat(src, &statbuf) != 0 || statbuf.st_mtime-obj_time > 0)
return 1;
return 0;
}
fseek(df, 0, SEEK_END);
bufsize = ftell(df)+1;
buf = malloc(bufsize);
if(!buf)
{
fclose(df);
return 1;
}
fseek(df, 0, SEEK_SET);
fread(buf, 1, bufsize, df);
buf[bufsize-1] = 0;
fclose(df);
ptr = strchr(buf, ':');
if(!ptr)
{
free(buf);
return 1;
}
++ptr;
while(1)
{
char *stp;
while(*ptr && *ptr != '\n' && isspace(*ptr))
{
if(ptr[0] == '\\' && ptr[1] == '\n')
{
memmove(ptr, ptr+1, strlen(ptr));
ptr[0] = ' ';
}
++ptr;
}
if(!(*ptr) || *ptr == '\n')
{
free(buf);
return 0;
}
stp = ptr;
while(*stp && !isspace(*stp))
{
if(stp[0] == '\\' && stp[1] != 0)
memmove(stp, stp+1, strlen(stp));
++stp;
}
*(stp++) = 0;
if(strcmp(ptr, "\n") != 0 && (stat(ptr, &statbuf) != 0 ||
statbuf.st_mtime > obj_time))
{
free(buf);
return 1;
}
ptr = stp;
}
}
/* copy_file: Copies the source file 'sf' to 'df', preserving the source's
* file mode and permissions, if possible.
*/
static int copy_file(const char *sf, const char *df)
{
struct stat statbuf;
FILE *src, *dst;
int ret, i;
int fd;
if(stat(sf, &statbuf) != 0)
return 1;
#ifdef O_BINARY
fd = open(df, O_WRONLY|O_BINARY|O_TRUNC|O_CREAT, statbuf.st_mode);
#else
fd = open(df, O_WRONLY|O_TRUNC|O_CREAT, statbuf.st_mode);
#endif
if(fd < 0)
return 1;
dst = fdopen(fd, "wb");
if(!dst)
{
close(fd);
return 1;
}
src = fopen(sf, "rb");
if(!src)
{
fclose(dst);
return 1;
}
ret = 0;
do {
i = fread(buffer, 1, sizeof(buffer), src);
if(i > 0)
i = fwrite(buffer, 1, i, dst);
if(i < 0)
ret = 1;
} while(i > 0);
fclose(src);
fclose(dst);
return ret;
}
static int libify_name(char *buf, size_t buflen, char *name)
{
int i;
char *curr = strrchr(name, '/');
if(curr)
{
*curr = 0;
i = snprintf(buf, buflen, "%s/%s%s%s", name, getvar("LIB_PRE"),
curr+1, getvar("LIB_EXT"));
*curr = '/';
}
else
i = snprintf(buf, buflen, "%s%s%s", getvar("LIB_PRE"), name,
getvar("LIB_EXT"));
return i;
}
static struct {
char *ext;
char *cmd;
} *associations;
static size_t num_assocs;
static void add_association(const char *ext, const char *cmd)
{
size_t i;
for(i = 0;i < num_assocs;++i)
{
if(associations[i].cmd[0] == 0 ||
strcasecmp(ext, associations[i].ext) == 0)
break;
}
if(i == num_assocs)
{
void *tmp = realloc(associations, (i+1)*sizeof(*associations));
if(!tmp)
{
exit(-1);
}
associations = tmp;
associations[i].ext = NULL;
associations[i].cmd = NULL;
++num_assocs;
}
free(associations[i].ext);
free(associations[i].cmd);
associations[i].ext = strdup(ext);
associations[i].cmd = strdup(cmd);
if(!associations[i].ext || !associations[i].cmd)
{
exit(-1);
}
}
static int build_command(char *buffer, size_t bufsize, char *barename,
const char *srcname, const char *objname)
{
char dummy[2] = ".";
const char *ptr;
char *ext;
size_t i;
ext = strrchr(barename, '.');
if(strchr(ext, '/') || !ext)
ext = dummy;
for(i = 0;i < num_assocs;++i)
{
if(strcasecmp(ext+1, associations[i].ext) == 0)
break;
}
if(i == num_assocs)
return 1;
*ext = 0;
ptr = associations[i].cmd;
while(*ptr && i+1 < bufsize)
{
if(strncasecmp(ptr, "<*>", 3) == 0)
{
i += snprintf(buffer+i, bufsize-i, "%s", barename);
ptr += 3;
}
else if(strncasecmp(ptr, "<!>", 3) == 0)
{
i += snprintf(buffer+i, bufsize-i, "\"%s\"", srcname);
ptr += 3;
}
else if(strncasecmp(ptr, "<@>", 3) == 0)
{
i += snprintf(buffer+i, bufsize-i, "\"%s\"", objname);
ptr += 3;
}
else
{
if(ptr[0] == '\\' && ptr[1] != 0 && i+2 < bufsize)
buffer[i++] = *(ptr++);
buffer[i++] = *(ptr++);
buffer[i] = 0;
}
}
*ext = '.';
return 0;
}
/* grab_word: Gets a word starting at the string pointed to by 'str'. If
* the word begins with a ' or " character, everything until that same
* character will be considered part of the word. Otherwise, the word ends at
* the first encountered whitespace. Returns the beginning of the next word,
* or the end of the string.
*/
static char *grab_word(char **str)
{
char *end;
char c;
c = **str;
if(!c)
return *str;
if(c == '\'' || c == '"')
{
++(*str);
end = *str;
while(*end && *end != c)
++end;
}
else
{
end = *str;
while(!isspace(*end) && *end)
++end;
}
if(*end) *(end++) = 0;
while(isspace(*end) && *end)
++end;
return end;
}
/*
*/
static char *expand_string(char *str, char *stp, size_t len, int fillmore)
{
static char buf[64*1024];
char *ptr, *last_pos;
int i;
last_pos = str;
do {
ptr = last_pos;
while(1)
{
if(!(*ptr))
{
if(fillmore)
{
if(fgets(ptr, len+str-ptr, f) == NULL)
{
ptr = NULL;
break;
}
++curr_line;
}
}
i = 0;
do {
if(*ptr == stp[i])
{
ptr = NULL;
break;
}
} while(stp[i++]);
if(!ptr)
break;
if(*ptr == '$')
{
if(ptr[1] == '{' || ptr[1] == '(')
break;
}
else if(*ptr == '#')
{
char *next = strchr(ptr, '\n');
if(!next) next = "";
memmove(ptr, next, strlen(next)+1);
continue;
}
else if(*ptr == '\\')
{
if(ptr[1] != 0)
++ptr;
}
++ptr;
}
if(!ptr)
break;
last_pos = ptr;
++ptr;
/* Insert the environment var named between the {} */
if(*ptr == '{')
{
char *end = expand_string(ptr+1, "}", len+ptr-str-1,
fillmore);
int use_hard_quotes = 0;
if(*end) *(end++) = 0;
*(ptr-1) = 0;
++ptr;
if(*ptr == '\'')
{
char *endquote = strchr(++ptr, '\'');
if(endquote) *endquote = 0;
use_hard_quotes = 1;
}
if(*ptr >= '0' && *ptr <= '9')
{
const char *val = "";
int i = atoi(ptr);
if(i < argc && i >= 0)
val = argv[i];
if(use_hard_quotes)
snprintf(buf, sizeof(buf), "%s'%s'%s", str, val, end);
else
snprintf(buf, sizeof(buf), "%s%s%s", str, val, end);
}
else
{
if(use_hard_quotes)
snprintf(buf, sizeof(buf), "%s'%s'%s", str,
getvar(ptr), end);
else
snprintf(buf, sizeof(buf), "%s%s%s", str,
getvar(ptr), end);
}
strcpy(str, buf);
continue;
}
/* Run a special command, replacing the section */
if(*ptr == '(')
{
char *opt = NULL;
char *next = expand_string(ptr+1, ")", len+ptr-str-1,
fillmore);
*(next++) = 0;
*(ptr-1) = 0;
++ptr;
opt = ptr;
while(!isspace(*opt) && *opt)
++opt;
if(*opt) *(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
if(!(*opt))
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed sub-command!\n\n", fname,
curr_line);
exit(1);
}
/* Replaces the section with the specified command line
* option's value (in the format 'option=value') */
if(strcasecmp(ptr, "getoptval") == 0)
{
const char *val = "";
int len, i;
len = snprintf(buf, sizeof(buf), "%s", opt);
for(i = 1;i < argc;++i)
{
if(strncasecmp(buf, argv[i], len) == 0)
{
if(argv[i][len] == '=')
val = argv[i]+len+1;
else if(argv[i][len] == 0)
val = argv[i+1];
else
continue;
break;
}
}
snprintf(buf, sizeof(buf), "%s%s%s", str,
val, next);
strcpy(str, buf);
continue;
}
if(strcasecmp(ptr, "add")==0 || strcasecmp(ptr, "sub") == 0 ||
strcasecmp(ptr, "mult")==0 || strcasecmp(ptr, "div") == 0)
{
long val1, val2;
char *sep = strchr(opt, ',');
if(!sep)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed '%s' sub-command!\n\n", fname,
curr_line, ptr);
exit(1);
}
*(sep++) = 0;
val1 = atoi(opt);
val2 = atoi(sep);
if(strcasecmp(ptr, "add") == 0)
val1 += val2;
else if(strcasecmp(ptr, "sub") == 0)
val1 -= val2;
else if(strcasecmp(ptr, "mult") == 0)
val1 *= val2;
else if(strcasecmp(ptr, "div") == 0)
{
if(!val2)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Divide-by-0 attempted!\n\n", fname,
curr_line);
exit(1);
}
val1 /= val2;
}
snprintf(buf, sizeof(buf), "%s%ld%s", str, val1, next);
strcpy(str, buf);
continue;
}
/* Returns a library-style name from the specified
* filename */
if(strcasecmp(ptr, "libname") == 0)
{
libify_name(obj, sizeof(obj), opt);
snprintf(buf, sizeof(buf), "%s%s%s", str,
obj, next);
strcpy(str, buf);
continue;
}
/* Finds an executable command by searching the PATH and
returns the full absolute path plus the filename, or an
empty string if it can't be found */
if(strcasecmp(ptr, "which") == 0)
{
char *path = strdup(getvar("PATH"));
char *direc;
char sep = ':';
int i;
if(strchr(path, ';') != NULL || (tolower(path[0]) >= 'a' &&
tolower(path[0]) <= 'z' &&
path[1] == ':'))
sep = ';';
i = snprintf(buf, sizeof(buf), "%s", str);
direc = path;
while(direc && *direc)
{
struct stat statbuf;
char *next = strchr(direc, sep);
if(next) *(next++) = 0;
snprintf(buf+i, sizeof(buf)-i, "%s/%s", direc, opt);
if(stat(buf+i, &statbuf) == 0)
{
i = strlen(buf);
break;
}
direc = next;
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
free(path);
continue;
}
if(strcasecmp("ifeq", ptr) == 0)
{
char *var2;
char *val;
var2 = strchr(opt, ',');
if(!var2)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'ifeq' sub-command!\n\n",
fname, curr_line);
exit(1);
}
*(var2++) = 0;
val = strchr(var2, ',');
if(!val)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'ifeq' sub-command!\n\n",
fname, curr_line);
exit(1);
}
*(val++) = 0;
if(strcmp(opt, var2) == 0)
{
char *sep = strchr(val, ',');
if(sep) *sep = 0;
}
else
{
val = strchr(val, ',');
if(val) ++val;
}
snprintf(buf, sizeof(buf), "%s%s%s", str,
(val?val:""), next);
strcpy(str, buf);
continue;
}
if(strcasecmp("suffix", ptr) == 0)
{
char *val;
int i;
i = snprintf(buf, sizeof(buf), "%s", str);
while(*opt)
{
char *next_word = grab_word(&opt);
val = strrchr(opt, '/');
if(!val)
val = opt;
val = strrchr(val, '.');
if(val)
i += snprintf(buf+i, sizeof(buf)-i, "%s", val);
opt = next_word;
if(*opt)
i += snprintf(buf+i, sizeof(buf)-i, " ");
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
continue;
}
if(strcasecmp("basename", ptr) == 0)
{
char *val;
int i;
i = snprintf(buf, sizeof(buf), "%s", str);
while(*opt)
{
char *next_word = grab_word(&opt);
val = strrchr(opt, '/');
if(!val)
val = opt;
val = strrchr(val, '.');
if(val) *val = 0;
i += snprintf(buf+i, sizeof(buf)-i, "%s", opt);
opt = next_word;
if(*opt)
i += snprintf(buf+i, sizeof(buf)-i, " ");
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
continue;
}
if(strcasecmp("addprefix", ptr) == 0)
{
char *val;
int i;
val = opt;
opt = strchr(val, ',');
if(!opt)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'addprefix' sub-command!\n\n",
fname, curr_line);
exit(1);
}
*(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
i = snprintf(buf, sizeof(buf), "%s", str);
while(*opt)
{
char *next_word = grab_word(&opt);
i += snprintf(buf+i, sizeof(buf)-i, "%s%s", val, opt);
opt = next_word;
if(*opt)
i += snprintf(buf+i, sizeof(buf)-i, " ");
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
continue;
}
if(strcasecmp("addsuffix", ptr) == 0)
{
char *val;
int i;
val = opt;
opt = strchr(val, ',');
if(!opt)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'addprefix' sub-command!\n\n",
fname, curr_line);
exit(1);
}
*(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
i = snprintf(buf, sizeof(buf), "%s", str);
while(*opt)
{
char *next_word = grab_word(&opt);
i += snprintf(buf+i, sizeof(buf)-i, "%s%s", opt, val);
opt = next_word;
if(*opt)
i += snprintf(buf+i, sizeof(buf)-i, " ");
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
continue;
}
if(strcasecmp("join", ptr) == 0)
{
char *val;
int i;
val = opt;
opt = strchr(val, ',');
if(!opt)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'addprefix' sub-command!\n\n",
fname, curr_line);
exit(1);
}
*(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
i = snprintf(buf, sizeof(buf), "%s", str);
while(*opt || *val)
{
char *next_word = grab_word(&opt);
char *next_word2 = grab_word(&val);
i += snprintf(buf+i, sizeof(buf)-i, "%s%s", val, opt);
opt = next_word;
val = next_word2;
if(*opt || *val)
i += snprintf(buf+i, sizeof(buf)-i, " ");
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
continue;
}
if(strcasecmp("dir", ptr) == 0)
{
char *val;
int i;
i = snprintf(buf, sizeof(buf), "%s", str);
while(*opt)
{
char *next_word = grab_word(&opt);
val = strrchr(opt, '/');
if(val)
{
val[1] = 0;
i += snprintf(buf+i, sizeof(buf)-i, "%s", opt);
}
else
i += snprintf(buf+i, sizeof(buf)-i, "./");
opt = next_word;
if(*opt)
i += snprintf(buf+i, sizeof(buf)-i, " ");
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
continue;
}
if(strcasecmp("notdir", ptr) == 0)
{
char *val;
int i;
i = snprintf(buf, sizeof(buf), "%s", str);
while(*opt)
{
char *next_word = grab_word(&opt);
val = strrchr(opt, '/');
if(!val)
val = opt;
else
++val;
opt = next_word;
if(val[0])
i += snprintf(buf+i, sizeof(buf)-i, "%s%s", val,
((*opt)?" ":""));
}
snprintf(buf+i, sizeof(buf)-i, "%s", next);
strcpy(str, buf);
continue;
}
printf("\n\n!!! %s error, line %d !!!\n"
"Unknown sub-command '%s'\n\n", fname, curr_line, ptr);
exit(1);
}
} while(1);
ptr = str;
while(1)
{
i = 0;
do {
if(*ptr == stp[i])
return ptr;
} while(stp[i++]);
if(ptr[0] == '\\' && ptr[1] != 0)
memcpy(ptr, ptr+1, strlen(ptr));
++ptr;
}
}
/* extract_word: Extract a word starting at the string pointed to by 'str'. If
* the word begins with a ' or " character, everything until that same
* character will be considered part of the word. Otherwise, the word ends at
* the first encountered whitespace. Returns the beginning of the next word,
* or the end of the string.
*/
static char *extract_word(char *str, size_t len)
{
char *end = str;
char c;
if(!(*end))
return end;
do {
c = *end;
if(c == '\'')
{
memmove(end, end+1, strlen(end));
while(*end != c)
{
if(!(*end))
{
if(fgets(end, len+str-end, f) == NULL)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Unterminated quote!\n\n", fname,
curr_line);
exit(1);
}
++curr_line;
}
if(end[0] == '\\' && end[1] != 0)
memmove(end, end+1, strlen(end));
++end;
}
if(*end == c)
memmove(end, end+1, strlen(end));
}
else if(c == '"')
{
memmove(end, end+1, strlen(end));
end = expand_string(end, "\"", len+str-end, 1);
if(*end == '"')
memmove(end, end+1, strlen(end));
}
else
end = expand_string(end, " '\"\t\n", len+str-end, 1);
} while(*end && !isspace(*end));
if(*end && *end != '\n')
*(end++) = 0;
while(*end && *end != '\n' && isspace(*end))
++end;
if(*end == '\n')
{
if(end[1] != 0)
nextline = strdup(end+1);
*end = 0;
}
return end;
}
static void extract_line(char *str, size_t len)
{
char *end = str;
char c;
if(!(*end))
return;
do {
c = *end;
if(c == '\'')
{
memmove(end, end+1, strlen(end));
while(*end != c)
{
if(!(*end))
{
if(fgets(end, len+str-end, f) == NULL)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Unterminated quote!\n\n", fname,
curr_line);
exit(1);
}
++curr_line;
}
if(end[0] == '\\' && end[1] != 0)
memmove(end, end+1, strlen(end));
++end;
}
if(*end == c)
memmove(end, end+1, strlen(end));
}
else if(c == '"')
{
memmove(end, end+1, strlen(end));
end = expand_string(end, "\"", len+str-end, 1);
if(*end == '"')
memmove(end, end+1, strlen(end));
}
else
end = expand_string(end, "'\"\n", len+str-end, 1);
} while(*end && *end != '\n');
if(end[0] == '\n' && end[1] != 0)
nextline = strdup(end+1);
*end = 0;
/* end = expand_string(str, "\n", len, 1);
if(*end)
{
*(end++) = 0;
if(end[0] != 0)
nextline = strdup(end);
}*/
}
/* build_obj_list: Builds a list of object files from the list of sources. If
* any of the objects don't exist or have a modification time later than
* 'base_time', the variable pointed to by 'do_link' will be set non-zero.
*/
static int build_obj_list(char *buffer, size_t bufsize, time_t base_time,
int *do_link)
{
static char buf[64];
struct stat statbuf;
char *next = sources;
char *ptr;
int i = 0;
while(*(ptr=next))
{
char *ext;
char c = ' ';
next = grab_word(&ptr);
if(ptr > sources)
{
c = *(ptr-1);
if(c != '"' && c != '\'')
c = ' ';
}
ext = strrchr(ptr, '/');
if(!ext) ext = ptr;
ext = strrchr(ext, '.');
if(ext) *ext = 0;
snprintf(buf, sizeof(buf), "%s/%s%s", getvar("OBJ_DIR"), ptr,
getvar("OBJ_EXT"));
if(ext) *ext = '.';
if(!(*do_link) && (stat(buf, &statbuf) != 0 ||
base_time < statbuf.st_mtime))
*do_link = 1;
i += snprintf(buffer+i, bufsize-i, " \"%s\"", buf);
ptr += strlen(ptr);
if(next > ptr)
*ptr = c;
}
return i;
}
void cleanup()
{
size_t i;
fflush(stdout);
i = 0;
while(i < SRC_PATH_SIZE && src_paths[i])
free(src_paths[i++]);
i = 0;
while(i < INVOKE_BKP_SIZE && invoke_backup[i].f)
{
fclose(invoke_backup[i].f);
free(invoke_backup[i].fname);
free(invoke_backup[i].bkp_lbuf);
free(invoke_backup[i].bkp_nextline);
++i;
}
for(i = 0;i < num_assocs;++i)
{
free(associations[i].ext);
free(associations[i].cmd);
}
free(associations);
free(loaded_files);
free(nextline);
free(sources);
free(fname);
fclose(f);
}
int main(int _argc, char **_argv)
{
unsigned int do_level = 0;
unsigned int did_cmds = 0, did_else = 0;
unsigned int wait_for_done = 0;
char *ptr, *nextcmd = NULL;
int ret = 0, tmp = 0, i;
int ignored_errors = 0;
int verbose = 0;
int shh;
argc = _argc;
argv = _argv;
atexit(cleanup);
setenv("CC", "gcc", 0);
setenv("CXX", "g++", 0);
setenv("LD", "gcc", 0);
setenv("OUT_OPT", "-o ", 0);
setenv("SRC_OPT", "-c ", 0);
setenv("DEP_OPT", "-MMD -MF ", 0);
setenv("OBJ_EXT", ".o", 0);
setenv("OBJ_DIR", ".", 0);
setenv("DEP_EXT", ".d", 0);
setenv("DEP_DIR", ".", 0);
#if (defined __WIN32__ || defined __DOS__)
setenv("EXE_EXT", ".exe", 0);
#else
setenv("EXE_EXT", "", 0);
#endif
setenv("AR", "ar", 0);
setenv("AR_OPT", "", 0);
setenv("LIB_PRE", "lib", 0);
setenv("LIB_EXT", ".a", 0);
setenv("CPPFLAGS", "", 0);
setenv("CFLAGS", "", 0);
setenv("CXXFLAGS", "", 0);
setenv("LDFLAGS", "", 0);
/* Open the default file */
fname = strdup("default.cbd");
f = fopen(fname, "r");
if(!f)
{
fprintf(stderr, "\n\n\n*** Critical Error ***\n"
"Could not open '%s'!\n\n", fname);
exit(1);
}
main_loop_start:
while(1)
{
int ignore_err = 0;
int has_do = 0;
int reverse;
if(nextcmd)
{
memmove(linebuf, nextcmd, strlen(nextcmd)+1);
nextcmd = NULL;
}
else if(nextline)
{
/* If we already have the next line set, go do it */
strncpy(linebuf, nextline, strlen(nextline)+1);
free(nextline);
nextline = NULL;
}
else
{
/* Grab the next line and increment the line count */
if(fgets(linebuf, sizeof(linebuf), f) == NULL)
{
/* If end of file, check if we should uninvoke and continue */
snprintf(linebuf, sizeof(linebuf), "uninvoke 0\n");
goto reparse;
}
++curr_line;
}
reparse:
reverse = 0;
shh = 0;
/* Chew up leading whitespace */
for(i = 0;linebuf[i];++i)
{
if(!isspace(linebuf[i]))
{
if(i > 0)
{
memmove(linebuf, linebuf+i, strlen(linebuf)+1-i);
i = 0;
}
break;
}
}
if(!linebuf[i])
continue;
ptr = expand_string(linebuf, " =\t\n", sizeof(linebuf), 1);
if(isspace(linebuf[0]))
goto reparse;
if(!linebuf[0] || ptr == linebuf)
continue;
if(*ptr && *ptr != '=') *(ptr++) = 0;
while(*ptr && isspace(*ptr))
++ptr;
/* Check for special 'leveling' commands */
/* The 'do' command pushes us up a level, and checks for the next
* if-type command, which itself will let us know if we should start
* ignoring commands */
if(strcasecmp("do", linebuf) == 0)
{
++do_level;
if(do_level >= sizeof(int)*8)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Too many 'do' commands enountered (max: %d)!\n\n",
fname, curr_line, sizeof(int)*8 - 1);
exit(1);
}
has_do = 1;
memmove(linebuf, ptr, strlen(ptr)+1);
goto reparse;
}
/* 'else' toggles ignoring commands at the current level */
if(strcasecmp("else", linebuf) == 0)
{
if(do_level <= 0)
do_level = 1;
/* allow another if-type command to follow an else on the same
* level */
if(!(wait_for_done & (1<<(do_level-1))))
{
wait_for_done |= 1<<(do_level-1);
did_cmds |= 1<<(do_level-1);
has_do = 0;
}
if(!(did_cmds & (1<<(do_level-1))))
{
wait_for_done &= ~(1<<(do_level-1));
has_do = 1;
}
memmove(linebuf, ptr, strlen(ptr)+1);
goto reparse;
}
/* 'done' takes us down a level */
if(strcasecmp("done", linebuf) == 0)
{
if(do_level > 0)
{
wait_for_done &= ~(1<<(--do_level));
did_else &= ~(1<<do_level);
did_cmds &= ~(1<<do_level);
}
continue;
}
if((wait_for_done & ((1<<do_level)-1)))
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
continue;
}
/* The if command checks if 'val1 = val2' is true and processes the
* rest of the line if so. */
if(strcasecmp("if", linebuf) == 0)
value_check:
{
char *next, *var2;
var2 = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(*var2 != '=')
{
next = var2;
var2 = strchr(ptr, '=');
if(!var2)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'if' command!\n\n", fname, curr_line);
exit(1);
}
*(var2++) = 0;
while(*var2 && isspace(*var2))
++var2;
}
else
next = extract_word(var2, sizeof(linebuf)+linebuf-var2);
if(strcmp(ptr, var2) == 0)
nextcmd = next;
if(reverse)
nextcmd = (char*)((long)nextcmd ^ (long)next);
if(has_do)
wait_for_done |= (nextcmd?0:1)<<(do_level-1);
continue;
}
/* Same as above, except if the comparison is false or it equates 0 */
if(strcasecmp("ifnot", linebuf) == 0)
{
reverse = 1;
goto value_check;
}
/* Checks the last command's return value against the supplied value,
* and runs the rest of the line if they're equal */
if(strcasecmp("ifret", linebuf) == 0)
retval_check:
{
char *next;
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(atoi(ptr) == ret)
nextcmd = next;
if(reverse)
nextcmd = (char*)((long)nextcmd ^ (long)next);
if(has_do)
wait_for_done |= (nextcmd?0:1)<<(do_level-1);
continue;
}
if(strcasecmp("ifnret", linebuf) == 0 )
{
reverse = 1;
goto retval_check;
}
/* Checks the platform we're running on against the user supplied
* value */
if(strcasecmp("ifplat", linebuf) == 0)
platform_check:
{
char *next;
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
/* Throw in a dummy if() so the following ifs can use else if and
* avoid multiple checks for platforms where multiple targets apply
*/
if(0 == 1)
nextcmd = NULL;
#if defined(_AIX) || defined(__TOS_AIX__)
else if(strcasecmp("aix", ptr) == 0)
nextcmd = next;
#endif
#if defined(AMIGA) || defined(__amigaos__)
else if(strcasecmp("amigaos", ptr) == 0)
nextcmd = next;
#endif
#if defined(__BEOS__)
else if(strcasecmp("beos", ptr) == 0)
nextcmd = next;
#endif
#if defined(_UNICOS)
else if(strcasecmp("unicos", ptr) == 0)
nextcmd = next;
#endif
#if defined(DGUX) || defined(__DGUX__) || defined(__dgux__)
else if(strcasecmp("dgux", ptr) == 0)
nextcmd = next;
#endif
#if defined(_SEQUENT_) || defined(sequent)
else if(strcasecmp("dynix", ptr) == 0)
nextcmd = next;
#endif
#ifdef __FreeBSD__
else if(strcasecmp("freebsd", ptr) == 0)
nextcmd = next;
#endif
#if defined(__GNU__)
else if(strcasecmp("gnuhurd", ptr) == 0)
nextcmd = next;
#endif
#if defined(hpux) || defined (_hpux) || defined(_HPUX_SOURCE)
else if(strcasecmp("hpux", ptr) == 0)
nextcmd = next;
#endif
#if defined(sgi) || defined(__sgi) || defined(mips) || defined(_SGI_SOURCE)
else if(strcasecmp("irix", ptr) == 0)
nextcmd = next;
#endif
#if defined(linux) || defined(__linux)
else if(strcasecmp("linux", ptr) == 0)
nextcmd = next;
#endif
#if defined(__MACOSX__) || defined(__APPLE__)
else if(strcasecmp("macosx", ptr) == 0)
nextcmd = next;
#endif
#if defined(mpeix) || defined(__mpexl)
else if(strcasecmp("mpeix", ptr) == 0)
nextcmd = next;
#endif
#if defined(MSDOS) || defined(__MSDOS__) || defined(_MSDOS) || defined(__DOS__)
else if(strcasecmp("msdos", ptr) == 0)
nextcmd = next;
#endif
#if defined(__NetBSD__)
else if(strcasecmp("netbsd", ptr) == 0)
nextcmd = next;
#endif
#if defined(__OpenBSD__)
else if(strcasecmp("openbsd", ptr) == 0)
nextcmd = next;
#endif
#if defined(OS2) || defined(_OS2) || defined(__OS2__) || defined(__TOS_OS2__)
else if(strcasecmp("os2", ptr) == 0)
nextcmd = next;
#endif
#if defined(pyr)
else if(strcasecmp("pyramiddc", ptr) == 0)
nextcmd = next;
#endif
#if defined(__QNX__)
else if(strcasecmp("qnx4", ptr) == 0)
nextcmd = next;
#endif
#if defined(__QNXNTO__)
else if(strcasecmp("qnx6", ptr) == 0)
nextcmd = next;
#endif
#if defined(sinix)
else if(strcasecmp("reliantunix", ptr) == 0)
nextcmd = next;
#endif
#if defined(M_I386) || defined(M_XENIX) || defined(_SCO_DS) || defined(_SCO_C_DIALECT)
else if(strcasecmp("scoopenserver", ptr) == 0)
nextcmd = next;
#endif
#if defined(sun) || defined(__sun)
# if defined(__SVR4) || defined(__svr4__)
else if(strcasecmp("solaris", ptr) == 0)
nextcmd = next;
# else
else if(strcasecmp("sunos", ptr) == 0)
nextcmd = next;
# endif
#elif defined(__SUNPRO_C)
else if(strcasecmp("solaris", ptr) == 0)
nextcmd = next;
#endif
#if defined(__SYMBIAN32__)
else if(strcasecmp("symbian", ptr) == 0)
nextcmd = next;
#endif
#if defined(__osf__) || defined(__osf)
else if(strcasecmp("osf1", ptr) == 0 ||
strcasecmp("tru64", ptr) == 0)
nextcmd = next;
#endif
#if defined(ultrix) || defined(__ultrix) || defined(__ultrix__) || (defined(unix) && defined(vax))
else if(strcasecmp("ultrix", ptr) == 0)
nextcmd = next;
#endif
#if defined(sco) || defined(_UNIXWARE7)
else if(strcasecmp("unixware", ptr) == 0)
nextcmd = next;
#endif
#if defined(VMS) || defined(__VMS)
else if(strcasecmp("vms", ptr) == 0)
nextcmd = next;
#endif
#if defined(_WIN32) || defined(__WIN32__) || defined(__TOS_WIN32__)
else if(strcasecmp("win32", ptr) == 0)
nextcmd = next;
#endif
#if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__bsdi__) || defined(_SYSTYPE_BSD)
else if(strcasecmp("bsd", ptr) == 0)
nextcmd = next;
#endif
#if defined(__sysv__) || defined(__SVR4) || defined(__svr4__) || defined(_SYSTYPE_SVR4)
else if(strcasecmp("svr4", ptr) == 0)
nextcmd = next;
#endif
#if defined(unix) || defined(__unix) || defined(__unix__)
else if(strcasecmp("unix", ptr) == 0)
nextcmd = next;
#endif
#if defined(_UWIN)
else if(strcasecmp("uwin", ptr) == 0)
nextcmd = next;
#endif
#if defined(_WINDU_SOURCE)
else if(strcasecmp("windu", ptr) == 0)
nextcmd = next;
#endif
#ifdef __i386__
else if(strcasecmp("i386", ptr) == 0)
nextcmd = next;
#endif
if(reverse)
nextcmd = (char*)((long)nextcmd ^ (long)next);
if(has_do)
wait_for_done |= (nextcmd?0:1)<<(do_level-1);
continue;
}
if(strcasecmp("ifnplat", linebuf) == 0)
{
reverse = 1;
goto platform_check;
}
/* Checks if the supplied option name was specified on the command
* line */
if(strcasecmp("ifopt", linebuf) == 0)
option_check:
{
char *next;
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
for(i = 1;i < argc;++i)
{
if(strcasecmp(ptr, argv[i]) == 0)
{
nextcmd = next;
break;
}
}
if(reverse)
nextcmd = (char*)((long)nextcmd ^ (long)next);
if(has_do)
wait_for_done |= (nextcmd?0:1)<<(do_level-1);
continue;
}
if(strcasecmp("ifnopt", linebuf) == 0)
{
reverse = 1;
goto option_check;
}
/* Checks if a file or directory exists */
if(strcasecmp("ifexist", linebuf) == 0)
file_dir_check:
{
struct stat statbuf;
char *next;
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(stat(ptr, &statbuf) == 0)
nextcmd = next;
if(reverse)
nextcmd = (char*)((long)nextcmd ^ (long)next);
if(has_do)
wait_for_done |= (nextcmd?0:1)<<(do_level-1);
continue;
}
if(strcasecmp("ifnexist", linebuf) == 0)
{
reverse = 1;
goto file_dir_check;
}
/* Set an environment variable. The value is space sensitive, so if you
* wish to use spaces, encapsulate the value in ''s. Using '?=' instead
* of '=' will only set the variable if it isn't already set. */
if(strncmp(ptr, "+=", 2) == 0 || strncmp(ptr, "-=", 2) == 0 ||
strncmp(ptr, "?=", 2) == 0 || ptr[0] == '=')
{
char *val = ptr;
int ovr = 1;
if(val[0] != '=')
++val;
ptr = linebuf;
if(*(val-1) == '+')
{
*(val-1) = 0;
++val;
while(*val && isspace(*val))
++val;
extract_line(val, sizeof(linebuf)+linebuf-val);
if(*val)
{
snprintf(buffer, sizeof(buffer), "%s%s", getvar(ptr), val);
setenv(ptr, buffer, 1);
}
continue;
}
if(*(val-1) == '-')
{
char *pos;
int len;
*(val-1) = 0;
++val;
while(*val && isspace(*val))
++val;
extract_line(val, sizeof(linebuf)+val-linebuf);
len = strlen(val);
if(len <= 0)
continue;
snprintf(buffer, sizeof(buffer), "%s", getvar(ptr));
while((pos=strstr(buffer, val)) != NULL)
{
int len = strlen(val);
memmove(pos, pos+len, strlen(pos+len)+1);
}
setenv(ptr, buffer, 1);
continue;
}
if(*(val-1) == '?')
{
*(val-1) = 0;
if(*getvar(ptr))
ovr = 0;
}
else
*val = 0;
++val;
while(*val && isspace(*val))
++val;
extract_line(val, sizeof(linebuf)+linebuf-val);
if(*val)
setenv(ptr, val, ovr);
else if(ovr)
unsetenv(ptr);
continue;
}
/* Reset the return value and 'do' status */
has_do = 0;
ret = 0;
/* Don't display normal output */
if(linebuf[0] == '@')
{
shh = 1;
memmove(linebuf, linebuf+1, strlen(linebuf));
}
/* Set error suppression level */
if(linebuf[0] == '!')
{
ignore_err = 2;
memmove(linebuf, linebuf+1, strlen(linebuf));
}
else if(linebuf[0] == '-')
{
ignore_err = 1;
memmove(linebuf, linebuf+1, strlen(linebuf));
}
/* Call an external program via the system() function. Parameters are
* passed along as-is. */
if(strcasecmp("call", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
if(!shh)
{
printf("%s\n", ptr);
fflush(stdout);
}
if((ret=system(ptr)) != 0)
{
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
{
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
}
continue;
}
/* Re-invokes the current script, possibly passing a different set of
* command line options, before resuming. Pass '.' to indicate no
* arguments */
if(strcasecmp("reinvoke", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
snprintf(buffer, sizeof(buffer), "%s %s", argv[0],
((strcmp(ptr, ".")==0)?"":ptr));
if((ret=system(buffer)) != 0)
{
if(ignore_err < 2)
printf("!!! %s error, line %d !!!\n"
"'reinvoke' returned with exitcode %d!\n",
fname, ++ignored_errors, ret);
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
continue;
}
/* Invokes an alternate script within the same context, and returns
* control when it exits. All variables and command-line options will
* persists into and out of invoked scripts. Errors and exit calls will
* cause all scripts to abort. To safely exit from an invoked script
* before the end of the file, and continue the previous, use
* 'uninvoke' */
if(strcasecmp("invoke", linebuf) == 0)
{
int i;
FILE *f2;
char *fname2;
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
f2 = f;
fname2 = fname;
f = fopen(ptr, "r");
if(!f)
{
f = f2;
ret = 1;
if(!ignore_err)
{
printf("Could not open script '%s'!\n", ptr);
exit(ret);
}
if(ignore_err < 2)
{
printf("Could not open script '%s'!\n"
"--- Error %d ignored. ---\n\n", ptr,
++ignored_errors);
fflush(stdout);
}
continue;
}
fname = strdup(ptr);
for(i = 0;i < INVOKE_BKP_SIZE;++i)
{
if(!invoke_backup[i].f)
{
invoke_backup[i].f = f2;
invoke_backup[i].fname = fname2;
invoke_backup[i].bkp_lbuf = strdup(linebuf);
invoke_backup[i].bkp_nextline = nextline;
invoke_backup[i].bkp_line = curr_line;
invoke_backup[i].bkp_did_else = did_else;
invoke_backup[i].bkp_did_cmds = did_cmds;
invoke_backup[i].bkp_do_level = do_level;
break;
}
}
nextline = NULL;
curr_line = 0;
did_else = 0;
did_cmds = 0;
do_level = 0;
continue;
}
/* Compiles a list of source files, and stores them in a list to be
* linked later. Compiled files are placed in the 'OBJ_DIR' with the
* extension changed to 'OBJ_EXT'. C and C++ files are compiled by the
* programs stored in 'CC' and 'CXX' respectively, using the flags
* stored in 'CPPFLAGS', 'CFLAGS', and 'CXXFLAGS' as expected. Unknown
* file types are silently ignored. */
if(strcasecmp("compile", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
free(sources);
sources = strdup(ptr);
if(!sources)
{
fprintf(stderr, "\n\n\n** Critical Error **\n"
"Out of memory duplicating string '%s'\n\n",
ptr);
exit(-1);
}
ptr = sources;
compile_more_sources:
tmp = 0;
while(ptr && *ptr)
{
char *src, *ext, *next, c;
struct stat statbuf;
next = grab_word(&ptr);
c = *(ptr-1);
if(c != '\'' && c != '"')
c = ' ';
ext = strrchr(ptr, '/');
if(!ext) ext = ptr;
ext = strrchr(ext, '.');
if(!ext)
goto next_src_file;
*ext = 0;
snprintf(obj, sizeof(obj), "%s/%s%s", getvar("OBJ_DIR"),
ptr, getvar("OBJ_EXT"));
*ext = '.';
src = find_src(ptr);
if(stat(obj, &statbuf) == 0)
{
if(!check_obj_deps(ptr, statbuf.st_mtime))
goto next_src_file;
}
i = 0;
if(build_command(buffer, sizeof(buffer), ptr, src, obj) == 0)
goto compile_it;
if(strcasecmp(ext+1, "c") == 0)
i += snprintf(buffer+i, sizeof(buffer)-i,
"${CC} ${CPPFLAGS} ${CFLAGS}");
else if(strcasecmp(ext+1, "cc") == 0 ||
strcasecmp(ext+1, "cpp") == 0 ||
strcasecmp(ext+1, "cxx") == 0)
i += snprintf(buffer+i, sizeof(buffer)-i,
"${CXX} ${CPPFLAGS} ${CXXFLAGS}");
else
goto next_src_file;
if(*getvar("DEP_OPT"))
{
if(ext) *ext = 0;
i += snprintf(buffer+i, sizeof(buffer)-i,
" ${DEP_OPT}\"${DEP_DIR}/%s${DEP_EXT}\"",
ptr);
if(ext) *ext = '.';
}
i += snprintf(buffer+i, sizeof(buffer)-i,
" ${SRC_OPT}\"%s\"", src);
i += snprintf(buffer+i, sizeof(buffer)-i,
" ${OUT_OPT}\"%s\"", obj);
compile_it:
expand_string(buffer, "", sizeof(buffer), 0);
if(!shh)
{
if(verbose)
printf("%s\n", buffer);
else
printf("Compiling %s...\n", src);
fflush(stdout);
}
if((ret=system(buffer)) != 0)
{
tmp = ret;
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
{
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
}
next_src_file:
ptr += strlen(ptr);
if(*next)
{
*(ptr++) = c;
if(ptr < next)
memmove(ptr, next, strlen(next)+1);
}
}
ret = tmp;
continue;
}
/* Adds more source files to the list, and compiles them as above */
if(strcasecmp("compileadd", linebuf) == 0)
{
int pos = 0;
char *t;
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
if(sources)
pos = strlen(sources);
t = realloc(sources, pos + strlen(ptr) + 2);
if(!t)
{
fprintf(stderr, "\n\n\n** Critical Error **\n"
"Out of memory appending string '%s'\n\n",
ptr);
exit(-1);
}
sources = t;
sources[pos] = ' ';
strcpy(sources+pos+1, ptr);
ptr = sources+pos+1;
goto compile_more_sources;
}
/* Links an executable file, using the previously-compiled source
* files. The executable will have 'EXE_EXT' appended. */
if(strcasecmp("linkexec", linebuf) == 0)
{
struct stat statbuf;
time_t exe_time = 0;
int do_link = 1;
if(!sources)
{
ret = 1;
if(ignore_err < 2)
fprintf(stderr, "\n\n!!! %s error, line %d !!!\n"
"Trying to build %s with undefined "
"sources!\n\n", fname, curr_line, ptr);
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
continue;
}
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
snprintf(obj, sizeof(obj), "%s%s", ptr, getvar("EXE_EXT"));
if(stat(obj, &statbuf) == 0)
{
exe_time = statbuf.st_mtime;
do_link = 0;
}
i = 0;
i += snprintf(buffer+i, sizeof(buffer)-i, "%s", getvar("LD"));
i += snprintf(buffer+i, sizeof(buffer)-i, " %s\"%s\"",
getvar("OUT_OPT"), obj);
i += build_obj_list(buffer+i, sizeof(buffer)-i, exe_time,
&do_link);
if(!do_link)
continue;
i += snprintf(buffer+i, sizeof(buffer)-i, " %s",
getvar("LDFLAGS"));
if(!shh)
{
if(verbose)
printf("%s\n", buffer);
else
printf("Linking %s%s...\n", ptr, getvar("EXE_EXT"));
fflush(stdout);
}
if((ret=system(buffer)) != 0)
{
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
{
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
}
continue;
}
/* Links a standard archive library, using the previously-compiled
* source files. The file will have 'LIB_PRE' prepended, and is
* sub-directory-aware, as well as have 'LIB_EXT' appended. */
if(strcasecmp("linklib", linebuf) == 0)
{
struct stat statbuf;
time_t lib_time = 0;
int do_link = 1;
if(!sources)
{
ret = 1;
if(ignore_err < 2)
fprintf(stderr, "\n\n!!! %s error, line %d !!!\n"
"Trying to build %s with undefined "
"sources!\n\n", fname, curr_line, ptr);
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
continue;
}
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
libify_name(obj, sizeof(obj), ptr);
if(stat(obj, &statbuf) == 0)
{
lib_time = statbuf.st_mtime;
do_link = 0;
}
i = 0;
i += snprintf(buffer+i, sizeof(buffer)-i, "%s %s", getvar("AR"),
getvar("AR_OPT"));
i += snprintf(buffer+i, sizeof(buffer)-i, " \"%s\"", obj);
i += build_obj_list(buffer+i, sizeof(buffer)-i, lib_time,
&do_link);
if(!do_link)
continue;
libify_name(obj, sizeof(obj), ptr);
remove(obj);
if(!shh)
{
if(verbose)
printf("%s\n", buffer);
else
printf("Linking %s...\n", obj);
fflush(stdout);
}
if((ret=system(buffer)) != 0)
{
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
{
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
}
continue;
}
/* Loads a list of words into a buffer, to later execute an action on
* them */
if(strcasecmp("loadlist", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
free(loaded_files);
loaded_files = strdup(ptr);
if(!loaded_files)
{
fprintf(stderr, "\n\n\n** Critical Error **\n"
"Out of memory duplicating string '%s'\n\n",
ptr);
exit(-1);
}
continue;
}
/* Executes a command on the loaded file list */
if(strcasecmp("execlist", linebuf) == 0)
{
char *curr, *next;
if(!loaded_files)
{
ret = 1;
if(ignore_err < 2)
printf("\n\n!!! %s error, line %d !!!\n"
"'loadexec' called with no files!\n\n", fname,
curr_line);
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
continue;
}
next = loaded_files;
tmp = 0;
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
while(*(curr=next))
{
char *cmd_ptr = ptr;
char c = ' ';
int i;
next = grab_word(&curr);
if(curr > sources)
{
c = *(curr-1);
if(c != '"' && c != '\'')
c = ' ';
}
i = 0;
while(*cmd_ptr && i+1 < (signed)sizeof(buffer))
{
if(strncasecmp(cmd_ptr, "<@>", 3) == 0)
{
i += snprintf(buffer+i, sizeof(buffer)-i, "%s",
curr);
cmd_ptr += 3;
}
else
{
if(cmd_ptr[0] == '\\' && cmd_ptr[1] != 0 &&
i+2 < (signed)sizeof(buffer))
buffer[i++] = *(cmd_ptr++);
buffer[i++] = *(cmd_ptr++);
buffer[i] = 0;
}
}
if(!shh)
{
printf("%s\n", buffer);
fflush(stdout);
}
if((ret=system(buffer)) != 0)
{
tmp = ret;
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
curr += strlen(curr);
if(next > curr)
*curr = c;
}
ret = tmp;
continue;
}
/* Prints a string to the console. If a '.' char is used at the
* beginning of string, it will be skipped */
if(strcasecmp("echo", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
printf("%s\n", ptr);
fflush(stdout);
continue;
}
/* Prints a string to the console without a newline. If a '.' char is
* used at the beginning of string, it will be skipped */
if(strcasecmp("put", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
printf("%s", ptr);
fflush(stdout);
continue;
}
/* Creates/truncates a file and writes a string to it */
if(strcasecmp("writefile", linebuf) == 0)
{
char *str;
FILE *o;
str = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
o = fopen(ptr, "w");
if(!o)
{
ret = 1;
if(!ignore_err)
{
printf("Could not create file '%s'!\n", ptr);
exit(ret);
}
if(ignore_err < 2)
{
printf("Could not create file '%s'!\n"
"--- Error %d ignored. ---\n\n", ptr,
++ignored_errors);
fflush(stdout);
}
continue;
}
extract_line(str, sizeof(linebuf)+linebuf-str);
fprintf(o, "%s\n", str);
fclose(o);
continue;
}
/* Appends a string to a file */
if(strcasecmp("appendfile", linebuf) == 0)
{
char *str;
FILE *o;
str = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
o = fopen(ptr, "a");
if(!o)
{
ret = 1;
if(!ignore_err)
{
printf("Could not create file '%s'!\n", ptr);
exit(ret);
}
if(ignore_err < 2)
{
printf("Could not create file '%s'!\n"
"--- Error %d ignored. ---\n\n", ptr,
++ignored_errors);
fflush(stdout);
}
continue;
}
extract_line(str, sizeof(linebuf)+linebuf-str);
fprintf(o, "%s\n", str);
fclose(o);
continue;
}
/* Jumps to the specified label. A label is denoted by a '#:' combo
* prepended to it at the beginning of a line */
if(strcasecmp("goto", linebuf) == 0)
{
int src_line;
char *lbl;
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
lbl = strdup(ptr);
if(!lbl)
{
fprintf(stderr, "\n\n\n** Critical Error **\n"
"Out of memory duplicating string '%s'\n\n",
lbl);
exit(-1);
}
rewind(f);
src_line = curr_line;
curr_line = 0;
wait_for_done = 0;
did_else = 0;
did_cmds = 0;
do_level = 0;
while(fgets(linebuf, sizeof(linebuf), f) != NULL)
{
++curr_line;
if(linebuf[0] == '#' && linebuf[1] == ':')
{
ptr = strpbrk(linebuf, "\r\n");
if(ptr) *ptr = 0;
if(strcasecmp(linebuf+2, lbl) == 0)
{
free(lbl);
free(nextline);
nextline = NULL;
goto main_loop_start;
}
}
}
fprintf(stderr, "\n\n!!! %s error, line %d !!!\n"
"Label target '%s' not found!\n\n", fname,
src_line, lbl);
free(lbl);
exit(1);
}
/* Stores a list of paths to look for source files in. Passing only
* '.' clears the list. */
if(strcasecmp("src_paths", linebuf) == 0)
{
unsigned int count = 0;
char *next;
while(count < SRC_PATH_SIZE && src_paths[count])
{
free(src_paths[count]);
src_paths[count] = NULL;
++count;
}
count = 0;
while(*ptr)
{
if(count >= SRC_PATH_SIZE)
{
printf("\n\n!!! %s error, line %d !!!\n"
"Too many source paths specified!\n\n", fname,
curr_line);
exit(-1);
}
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(count == 0 && (strcmp(ptr, ".") == 0 || strlen(ptr) == 0))
break;
src_paths[count] = strdup(ptr);
if(!src_paths[count])
{
fprintf(stderr, "\n\n\n** Critical Error **\n"
"Out of memory duplicating string "
"'%s'\n\n", ptr);
exit(-1);
}
++count;
ptr = next;
}
continue;
}
/* Deletes the specified executables, appending 'EXE_EXT' to the names
* as needed */
if(strcasecmp("rmexec", linebuf) == 0)
{
char *next = ptr;
while(*(ptr=next))
{
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
snprintf(buffer, sizeof(buffer), "%s%s", ptr,
getvar("EXE_EXT"));
if(stat(buffer, &statbuf) == -1 && errno == ENOENT)
continue;
if(!shh)
{
if(verbose) printf("remove(\"%s\");\n", buffer);
else printf("Deleting %s...\n", buffer);
fflush(stdout);
}
if((ret=remove(buffer)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not delete file !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
}
continue;
}
/* Deletes the specified libraries, prepending 'LIB_PRE' to the
* filename portions and appending with 'LIB_EXT' */
if(strcasecmp("rmlib", linebuf) == 0)
{
char *next = ptr;
while(*(ptr=next))
{
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
libify_name(buffer, sizeof(buffer), ptr);
if(stat(buffer, &statbuf) == -1 && errno == ENOENT)
continue;
if(!shh)
{
if(verbose) printf("remove(\"%s\");\n", buffer);
else printf("Deleting %s...\n", buffer);
fflush(stdout);
}
if((ret=remove(buffer)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not delete file !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
} while(*(ptr=next));
continue;
}
/* Removes a list of object files and their associated dependancy
* files, replacing the extension of the named file as necesarry */
if(strcasecmp("rmobj", linebuf) == 0)
{
char *ext;
char *next = ptr;
while(*(ptr=next))
{
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
ext = strrchr(ptr, '/');
if(!ext) ext = ptr;
ext = strrchr(ext, '.');
if(ext) *ext = 0;
snprintf(buffer, sizeof(buffer), "%s/%s%s", getvar("OBJ_DIR"),
ptr, getvar("OBJ_EXT"));
if(ext) *ext = '.';
if(stat(buffer, &statbuf) == 0 || errno != ENOENT)
{
if(!shh)
{
if(verbose) printf("remove(\"%s\");\n", buffer);
else printf("Deleting %s...\n", buffer);
fflush(stdout);
}
if((ret=remove(buffer)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not delete file !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
}
}
if(ext) *ext = 0;
snprintf(buffer, sizeof(buffer), "%s/%s%s", getvar("DEP_DIR"),
ptr, getvar("DEP_EXT"));
if(ext) *ext = '.';
if(stat(buffer, &statbuf) == -1 && errno == ENOENT)
continue;
if(!shh)
{
if(verbose) printf("remove(\"%s\");\n", buffer);
else printf("Deleting %s...\n", buffer);
fflush(stdout);
}
if((ret=remove(buffer)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not delete file !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
}
continue;
}
/* Removes a list of files or empty directories */
if(strcasecmp("rm", linebuf) == 0)
{
char *next = ptr;
while(*(ptr=next))
{
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(stat(ptr, &statbuf) == -1 && errno == ENOENT)
continue;
if(!shh)
{
if(verbose) printf("remove(\"%s\");\n", ptr);
else printf("Deleting %s...\n", ptr);
fflush(stdout);
}
if((ret=remove(ptr)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not delete !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
}
continue;
}
/* Creates a directory (with mode 700 in Unix) */
if(strcasecmp("mkdir", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
if(!shh)
{
if(!verbose) printf("Creating directory %s/...\n", ptr);
#ifdef _WIN32
else printf("mkdir(\"%s\");\n", ptr);
fflush(stdout);
}
if((ret=mkdir(ptr)) != 0)
#else
else printf("mkdir(\"%s\", S_IRWXU);\n", ptr);
fflush(stdout);
}
if((ret=mkdir(ptr, S_IRWXU)) != 0)
#endif
{
if(ignore_err < 2)
printf("!!! Could not create directory !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
continue;
}
/* Enables/disables command verboseness */
if(strcasecmp("verbose", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
if(*ptr)
verbose = atoi(ptr);
continue;
}
/* Leaves the current script, falling back to the previous if the
* current was started with the invoke command. Otherwise, it behaves
* like exit */
if(strcasecmp("uninvoke", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
ret = atoi(ptr);
if(!invoke_backup[0].f)
exit(ret);
for(i = 1;i <= INVOKE_BKP_SIZE;++i)
{
if(i == INVOKE_BKP_SIZE || !invoke_backup[i].f)
{
--i;
fclose(f);
f = invoke_backup[i].f;
invoke_backup[i].f = NULL;
free(fname);
fname = invoke_backup[i].fname;
strcpy(linebuf, invoke_backup[i].bkp_lbuf);
free(invoke_backup[i].bkp_lbuf);
free(nextline);
nextline = invoke_backup[i].bkp_nextline;
curr_line = invoke_backup[i].bkp_line;
did_else = invoke_backup[i].bkp_did_else;
did_cmds = invoke_backup[i].bkp_did_cmds;
do_level = invoke_backup[i].bkp_do_level;
break;
}
}
if(ret != 0)
{
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
continue;
}
/* Copies a file */
if(strcasecmp("copy", linebuf) == 0)
{
char *dfile, *end;
dfile = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(!(*dfile))
{
if(ignore_err < 2)
printf("\n\n!!! %s error, line %d !!! \n"
"Improper arguments to 'copy'!\n", fname,
curr_line);
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n", ++ignored_errors);
fflush(stdout);
continue;
}
end = extract_word(dfile, sizeof(linebuf)+linebuf-dfile);
if(dfile[strlen(dfile)-1] == '/')
{
char *fn = strrchr(ptr, '/');
snprintf(obj, sizeof(obj), "%s%s", dfile, (fn?(fn+1):ptr));
dfile = obj;
}
if(!shh)
{
if(verbose) printf("copy_file(\"%s\", \"%s\");\n", ptr, dfile);
else printf("Copying '%s' to '%s'...\n", ptr, dfile);
fflush(stdout);
}
if((ret=copy_file(ptr, dfile)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not copy !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
extract_line(end, sizeof(linebuf)+linebuf-end);
continue;
}
/* Copies a library file, prepending and appending the names as
* necesarry */
if(strcasecmp("copylib", linebuf) == 0)
{
char *dfile, *end;
dfile = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(!(*dfile))
{
if(ignore_err < 2)
printf("\n\n!!! %s error, line %d !!! \n"
"Improper arguments to 'copylib'!\n", fname,
curr_line);
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n", ++ignored_errors);
fflush(stdout);
continue;
}
end = extract_word(dfile, sizeof(linebuf)+linebuf-dfile);
if(dfile[strlen(dfile)-1] == '/')
{
char *fn = strrchr(ptr, '/');
snprintf(obj, sizeof(obj), "%s%s", dfile, (fn?(fn+1):ptr));
libify_name(buffer, sizeof(buffer), obj);
}
else
libify_name(buffer, sizeof(buffer), dfile);
libify_name(obj, sizeof(obj), ptr);
if(!shh)
{
if(verbose) printf("copy_file(\"%s\", \"%s\");\n", obj, buffer);
else printf("Copying '%s' to '%s'...\n", obj, buffer);
fflush(stdout);
}
if((ret=copy_file(obj, buffer)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not copy !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
extract_line(end, sizeof(linebuf)+linebuf-end);
continue;
}
/* Copies an executable file, appending the names as necesarry */
if(strcasecmp("copyexec", linebuf) == 0)
{
char *dfile, *end;
dfile = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(!(*dfile))
{
if(ignore_err < 2)
printf("\n\n!!! %s error, line %d !!! \n"
"Improper arguments to 'copyexec'!\n", fname,
curr_line);
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n", ++ignored_errors);
fflush(stdout);
continue;
}
end = extract_word(dfile, sizeof(linebuf)+linebuf-dfile);
if(dfile[strlen(dfile)-1] == '/')
{
char *fn = strrchr(ptr, '/');
snprintf(obj, sizeof(obj), "%s%s", dfile, (fn?(fn+1):ptr));
snprintf(buffer, sizeof(buffer), "%s%s", obj,
getvar("EXE_EXT"));
}
else
snprintf(buffer, sizeof(buffer), "%s%s", dfile,
getvar("EXE_EXT"));
libify_name(obj, sizeof(obj), ptr);
snprintf(obj, sizeof(obj), "%s%s", ptr, getvar("EXE_EXT"));
if(!shh)
{
if(verbose) printf("copy_file(\"%s\", \"%s\");\n", obj, buffer);
else printf("Copying '%s' to '%s'...\n", obj, buffer);
fflush(stdout);
}
if((ret=copy_file(obj, buffer)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not copy !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
extract_line(end, sizeof(linebuf)+linebuf-end);
continue;
}
if(strcasecmp("chdir", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
if(!shh)
{
if(verbose) printf("chdir(\"%s\");\n", ptr);
else printf("Moving to directory '%s'\n", ptr);
fflush(stdout);
}
if((ret=chdir(ptr)) != 0)
{
if(ignore_err < 2)
printf("!!! Could not change directory !!!\n");
if(!ignore_err)
exit(ret);
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
continue;
}
/* Creates an association between a file extension and a command to
* compile files with that association via the compile command */
if(strcasecmp("associate", linebuf) == 0)
{
char *cmd = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
extract_line(cmd, sizeof(linebuf)+linebuf-cmd);
add_association(ptr, cmd);
continue;
}
/* Yay for DOS/Windows allowing \ as a directory seperator. Modify the
* named environment variable to replace \ with / */
if(strcasecmp("fixpath", linebuf) == 0)
{
char *str, *val;
char *end = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
extract_line(end, sizeof(linebuf)+linebuf-ptr);
val = strdup(getvar(ptr));
str = val;
while((str=strchr(str, '\\')) != NULL)
*(str++) = '/';
setenv(ptr, val, 1);
free(val);
continue;
}
/* Exits the script with the specified exitcode */
if(strcasecmp("exit", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
exit(atoi(ptr));
}
printf("\n\n!!! %s error, line %d !!!\n"
"Unknown command '%s'\n\n", fname, curr_line, linebuf);
break;
}
return ret;
}
RSS Feed