gzdoom-gles/cbuild.c

3989 lines
89 KiB
C
Raw Normal View History

#define foobarbaz /*
# A shell script within a source file. Ugly, but it works...
TRGT=${0/.c/.exe}
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" $@ ; RET=$? ; rm -f "/tmp/$TRGT" ; exit $RET ; }
exit $?
*/
/* CBuild written by Chris Robinson, copyright 2005-2006
*
* Notice of Terms of Use
*
* CBuild is provided as-is for personal use. You may use and redistribute it
* in any manner, with the following terms and conditions:
*
* * You MAY NOT sell it, or otherwise redistribute it for profit, unless it is
* bundled with a seperate commercial product and is used to build said
* product.
* * You MAY modify it without recompense or notification to the author, as
* long as it is clearly marked as a derivitive work.
* * You MAY NOT claim it as your own sole work.
* * You MAY NOT remove or modify this notice.
*/
/* Despite what some people may think, no, the name CBuild did not come from my
* first name. I got the name from the fact that it uses pure C, and only C. ;)
*/
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <errno.h>
#include <setjmp.h>
#ifdef __unix__
#include <unistd.h>
#endif
#if defined(__unix__) || defined(__GNUC__)
#include <sys/param.h>
#include <dirent.h>
#endif
#ifdef _WIN32
#include <io.h>
#ifdef _MSC_VER
// MSVC Sucks
#define strcasecmp stricmp
#define strncasecmp strnicmp
#define snprintf _snprintf
#define PATH_MAX _MAX_PATH
#define lstat slat
#define S_ISDIR(m) (((m) & _S_IFMT) == _S_IFDIR)
#define S_ISREG(m) (((m) & _S_IFMT) == _S_IFREG)
#define S_IRUSR _S_IREAD
#define S_IWUSR _S_IWRITE
#define S_IXUSR _S_IEXEC
#define S_IRWXU (_S_IREAD | _S_IWRITE | _S_IEXEC)
struct dirent {
char *d_name;
};
typedef struct {
long handle; /* -1 for failed rewind */
struct _finddata_t info;
struct dirent result; /* d_name null iff first time */
char *name; /* null-terminated char string */
} DIR;
DIR *opendir(const char *name)
{
DIR *dir = 0;
if(name && name[0])
{
/* search pattern must end with suitable wildcard */
size_t base_length = strlen(name);
const char *all = strchr("/\\", name[base_length - 1]) ? "*" : "/*";
if((dir=(DIR*)malloc(sizeof(*dir))) != 0 &&
(dir->name=(char*)malloc(base_length+strlen(all)+1)) != 0)
{
strcat(strcpy(dir->name, name), all);
if((dir->handle = (long) _findfirst(dir->name, &dir->info)) != -1)
{
dir->result.d_name = 0;
}
else /* rollback */
{
free(dir->name);
free(dir);
dir = NULL;
}
}
else /* rollback */
{
free(dir);
dir = NULL;
errno = ENOMEM;
}
}
else
errno = EINVAL;
return dir;
}
int closedir(DIR *dir)
{
int result = -1;
if(dir)
{
if(dir->handle != -1)
result = _findclose(dir->handle);
free(dir->name);
free(dir);
}
if(result == -1) /* map all errors to EBADF */
errno = EBADF;
return result;
}
struct dirent *readdir(DIR *dir)
{
struct dirent *result = 0;
if(dir && dir->handle != -1)
{
if(!dir->result.d_name || _findnext(dir->handle, &dir->info) != -1)
{
result = &dir->result;
result->d_name = dir->info.name;
}
}
else
errno = EBADF;
return result;
}
void rewinddir(DIR *dir)
{
if(dir && dir->handle != -1)
{
_findclose(dir->handle);
dir->handle = (long)_findfirst(dir->name, &dir->info);
dir->result.d_name = 0;
}
else
errno = EBADF;
}
#endif /* _MSC_VER */
static int setenv(const char *env, const char *val, int overwrite)
{
static char buf[64*1024];
if(!overwrite && getenv(env))
return 0;
if(val && *val)
snprintf(buf, sizeof(buf), "%s=%s", env, val);
else
snprintf(buf, sizeof(buf), "%s", env);
return _putenv(buf);
}
static int unsetenv(const char *env)
{
return setenv(env, "", 1);
}
#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 *infile;
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[PATH_MAX];
#define SRC_PATH_SIZE 32
static char *src_paths[SRC_PATH_SIZE];
static int curr_line = 0;
static char *nextline;
static jmp_buf jmpbuf;
static int libify_name(char *buf, size_t buflen, char *name);
/* getvar: Safely gets an environment variable, returning an empty string
* instead of NULL
*/
static const char *getvar(const char *env)
{
const char *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[PATH_MAX];
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;
}
/* 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 *term)
{
char *end;
char c;
c = **str;
if(!c)
{
if(term)
*term = 0;
return *str;
}
if(c == '\'' || c == '"')
{
++(*str);
end = *str;
while(*end && *end != c)
++end;
}
else
{
end = *str;
while(!isspace(*end) && *end)
++end;
}
if(term)
*term = *end;
if(*end) *(end++) = 0;
while(isspace(*end) && *end)
++end;
return end;
}
#define BUF_SIZE (64*1024)
/*
*/
static char *expand_string(char *str, const char *stp, size_t len,
int fillmore)
{
char *buf, *ptr, *last_pos;
int in_quotes = 0;
int use_hard_quotes = 0;
char *end;
int i;
if(!(*str) && !fillmore)
return str;
buf = malloc(BUF_SIZE);
if(!buf)
{
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
last_pos = str;
do {
ptr = last_pos;
while(1)
{
if(!(*ptr))
{
if(fillmore)
{
if(fgets(ptr, len+str-ptr, f) == NULL)
{
free(buf);
fprintf(stderr, "\n\n!!! Premature EOF !!!\n%s\n",
(in_quotes?"!!! Unterminated string !!!\n":
""));
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
++curr_line;
}
}
if(!in_quotes)
{
i = 0;
do {
if((stp[i] == ' ' && isspace(*ptr)) ||
(stp[i] == '^' && !isalpha(*ptr)) ||
*ptr == stp[i])
{
free(buf);
return ptr;
}
} while(stp[i++]);
}
if(*ptr == '$')
{
if(in_quotes != '\'')
break;
}
else if(*ptr == '#')
{
if(!in_quotes)
{
char *next = strchr(ptr, '\n');
if(!next) next = "";
memmove(ptr, next, strlen(next)+1);
continue;
}
}
else if(*ptr == '&')
{
if(in_quotes != '\'')
{
unsigned long val = '?';
end = NULL;
if(ptr[1] != '#')
{
static struct {
char *name;
unsigned long val;
} val_tab[] = {
{ "Aacute", 0x00C1 }, { "aacute", 0x00E1 },
{ "Acirc", 0x00C2 }, { "acirc", 0x00E2 },
{ "acute", 0x00B4 }, { "AElig", 0x00C6 },
{ "aelig", 0x00E6 }, { "Agrave", 0x00C0 },
{ "agrave", 0x00E0 }, { "alefsym", 0x2135 },
{ "Alpha", 0x0391 }, { "alpha", 0x03B1 },
{ "amp", 0x0026 }, { "and", 0x2227 },
{ "ang", 0x2220 }, { "Aring", 0x00C5 },
{ "aring", 0x00E5 }, { "asymp", 0x2248 },
{ "Atilde", 0x00C3 }, { "atilde", 0x00E3 },
{ "Auml", 0x00C4 }, { "auml", 0x00E4 },
{ "bdquo", 0x201E }, { "Beta", 0x0392 },
{ "beta", 0x03B2 }, { "brvbar", 0x00A6 },
{ "bull", 0x2022 }, { "cap", 0x2229 },
{ "Ccedil", 0x00C7 }, { "ccedil", 0x00E7 },
{ "cedil", 0x00B8 }, { "cent", 0x00A2 },
{ "Chi", 0x03A7 }, { "chi", 0x03C7 },
{ "circ", 0x02C6 }, { "clubs", 0x2663 },
{ "cong", 0x2245 }, { "copy", 0x00A9 },
{ "crarr", 0x21B5 }, { "cup", 0x222A },
{ "curren", 0x00A4 }, { "Dagger", 0x2021 },
{ "dagger", 0x2020 }, { "dArr", 0x21D3 },
{ "darr", 0x2193 }, { "deg", 0x00B0 },
{ "Delta", 0x0394 }, { "delta", 0x03B4 },
{ "diams", 0x2666 }, { "divide", 0x00F7 },
{ "Eacute", 0x00C9 }, { "eacute", 0x00E9 },
{ "Ecirc", 0x00CA }, { "ecirc", 0x00EA },
{ "Egrave", 0x00C8 }, { "egrave", 0x00E8 },
{ "empty", 0x2205 }, { "emsp", 0x2003 },
{ "ensp", 0x2002 }, { "Epsilon", 0x0395 },
{ "epsilon", 0x03B5 }, { "equiv", 0x2261 },
{ "Eta", 0x0397 }, { "eta", 0x03B7 },
{ "ETH", 0x00D0 }, { "eth", 0x00F0 },
{ "Euml", 0x00CB }, { "euml", 0x00EB },
{ "euro", 0x20AC }, { "exist", 0x2203 },
{ "fnof", 0x0192 }, { "forall", 0x2200 },
{ "frac12", 0x00BD }, { "frac14", 0x00BC },
{ "frac34", 0x00BE }, { "frasl", 0x2044 },
{ "Gamma", 0x0393 }, { "gamma", 0x03B3 },
{ "ge", 0x2265 }, { "gt", 0x003E },
{ "hArr", 0x21D4 }, { "harr", 0x2194 },
{ "hearts", 0x2665 }, { "hellip", 0x2026 },
{ "Iacute", 0x00CD }, { "iacute", 0x00ED },
{ "Icirc", 0x00CE }, { "icirc", 0x00EE },
{ "iexcl", 0x00A1 }, { "Igrave", 0x00CC },
{ "igrave", 0x00EC }, { "image", 0x2111 },
{ "infin", 0x221E }, { "int", 0x222B },
{ "Iota", 0x0399 }, { "iota", 0x03B9 },
{ "iquest", 0x00BF }, { "isin", 0x2208 },
{ "Iuml", 0x00CF }, { "iuml", 0x00EF },
{ "Kappa", 0x039A }, { "kappa", 0x03BA },
{ "Lambda", 0x039B }, { "lambda", 0x03BB },
{ "lang", 0x2329 }, { "laquo", 0x00AB },
{ "lArr", 0x21D0 }, { "larr", 0x2190 },
{ "lceil", 0x2308 }, { "ldquo", 0x201C },
{ "le", 0x2264 }, { "lfloor", 0x230A },
{ "lowast", 0x2217 }, { "loz", 0x25CA },
{ "lrm", 0x200E }, { "lsaquo", 0x2039 },
{ "lsquo", 0x2018 }, { "lt", 0x003C },
{ "macr", 0x00AF }, { "mdash", 0x2014 },
{ "micro", 0x00B5 }, { "middot", 0x00B7 },
{ "minus", 0x2212 }, { "Mu", 0x039C },
{ "mu", 0x03BC }, { "nabla", 0x2207 },
{ "nbsp", 0x00A0 }, { "ndash", 0x2013 },
{ "ne", 0x2260 }, { "ni", 0x220B },
{ "not", 0x00AC }, { "notin", 0x2209 },
{ "nsub", 0x2284 }, { "Ntilde", 0x00D1 },
{ "ntilde", 0x00F1 }, { "Nu", 0x039D },
{ "nu", 0x03BD }, { "Oacute", 0x00D3 },
{ "oacute", 0x00F3 }, { "Ocirc", 0x00D4 },
{ "ocirc", 0x00F4 }, { "OElig", 0x0152 },
{ "oelig", 0x0153 }, { "Ograve", 0x00D2 },
{ "ograve", 0x00F2 }, { "oline", 0x203E },
{ "Omega", 0x03A9 }, { "omega", 0x03C9 },
{ "Omicron", 0x039F }, { "omicron", 0x03BF },
{ "oplus", 0x2295 }, { "or", 0x2228 },
{ "ordf", 0x00AA }, { "ordm", 0x00BA },
{ "Oslash", 0x00D8 }, { "oslash", 0x00F8 },
{ "Otilde", 0x00D5 }, { "otilde", 0x00F5 },
{ "otimes", 0x2297 }, { "Ouml", 0x00D6 },
{ "ouml", 0x00F6 }, { "para", 0x00B6 },
{ "part", 0x2202 }, { "permil", 0x2030 },
{ "perp", 0x22A5 }, { "Phi", 0x03A6 },
{ "phi", 0x03C6 }, { "Pi", 0x03A0 },
{ "pi", 0x03C0 }, { "piv", 0x03D6 },
{ "plusmn", 0x00B1 }, { "pound", 0x00A3 },
{ "Prime", 0x2033 }, { "prime", 0x2032 },
{ "prod", 0x220F }, { "prop", 0x221D },
{ "Psi", 0x03A8 }, { "psi", 0x03C8 },
{ "quot", 0x0022 }, { "radic", 0x221A },
{ "rang", 0x232A }, { "raquo", 0x00BB },
{ "rArr", 0x21D2 }, { "rarr", 0x2192 },
{ "rceil", 0x2309 }, { "rdquo", 0x201D },
{ "real", 0x211C }, { "reg", 0x00AE },
{ "rfloor", 0x230B }, { "Rho", 0x03A1 },
{ "rho", 0x03C1 }, { "rlm", 0x200F },
{ "rsaquo", 0x203A }, { "rsquo", 0x2019 },
{ "sbquo", 0x201A }, { "Scaron", 0x0160 },
{ "scaron", 0x0161 }, { "sdot", 0x22C5 },
{ "sect", 0x00A7 }, { "shy", 0x00AD },
{ "Sigma", 0x03A3 }, { "sigma", 0x03C3 },
{ "sigmaf", 0x03C2 }, { "sim", 0x223C },
{ "spades", 0x2660 }, { "sub", 0x2282 },
{ "sube", 0x2286 }, { "sum", 0x2211 },
{ "sup", 0x2283 }, { "sup1", 0x00B9 },
{ "sup2", 0x00B2 }, { "sup3", 0x00B3 },
{ "supe", 0x2287 }, { "szlig", 0x00DF },
{ "Tau", 0x03A4 }, { "tau", 0x03C4 },
{ "there4", 0x2234 }, { "Theta", 0x0398 },
{ "theta", 0x03B8 }, { "thetasym", 0x03D1 },
{ "thinsp", 0x2009 }, { "THORN", 0x00DE },
{ "thorn", 0x00FE }, { "tilde", 0x02DC },
{ "times", 0x00D7 }, { "trade", 0x2122 },
{ "Uacute", 0x00DA }, { "uacute", 0x00FA },
{ "uArr", 0x21D1 }, { "uarr", 0x2191 },
{ "Ucirc", 0x00DB }, { "ucirc", 0x00FB },
{ "Ugrave", 0x00D9 }, { "ugrave", 0x00F9 },
{ "uml", 0x00A8 }, { "upsih", 0x03D2 },
{ "Upsilon", 0x03A5 }, { "upsilon", 0x03C5 },
{ "Uuml", 0x00DC }, { "uuml", 0x00FC },
{ "weierp", 0x2118 }, { "Xi", 0x039E },
{ "xi", 0x03BE }, { "Yacute", 0x00DD },
{ "yacute", 0x00FD }, { "yen", 0x00A5 },
{ "Yuml", 0x0178 }, { "yuml", 0x00FF },
{ "Zeta", 0x0396 }, { "zeta", 0x03B6 },
{ "zwj", 0x200D }, { "zwnj", 0x200C },
{ NULL, '?' }
};
int i;
end = expand_string(ptr+1, " ;", len+str-ptr-1,
fillmore);
if(*end == ';')
*(end++) = 0;
for(i = 0;val_tab[i].name;++i)
{
if(strncmp(val_tab[i].name, ptr+1, end-ptr-1) == 0)
break;
}
val = val_tab[i].val;
}
else
{
val = strtoul(ptr+2, &end, 0);
if(*end == ';')
++end;
if(end == ptr+2)
val = '?';
}
if(val <= 0x7F)
{
if(val > 0)
*(ptr++) = val;
}
else if(val <= 0x7FF)
{
*(ptr++) = 0xC0 | (val>>6);
*(ptr++) = 0x80 | (val&0x3F);
}
else if(val <= 0xFFFF)
{
*(ptr++) = 0xE0 | (val>>12);
*(ptr++) = 0x80 | ((val>>6)&0x3F);
*(ptr++) = 0x80 | (val&0x3F);
}
else if(val <= 0x10FFFF)
{
*(ptr++) = 0xF0 | (val>>18);
*(ptr++) = 0x80 | ((val>>12)&0x3F);
*(ptr++) = 0x80 | ((val>>6)&0x3F);
*(ptr++) = 0x80 | (val&0x3F);
}
if(end != ptr)
memmove(ptr, end, strlen(end)+1);
continue;
}
}
else if(*ptr == '"' || *ptr == '\'')
{
if(!in_quotes || in_quotes == *ptr)
{
in_quotes = *ptr ^ in_quotes;
memmove(ptr, ptr+1, strlen(ptr));
continue;
}
}
else if(*ptr == '\\')
memmove(ptr, ptr+1, strlen(ptr));
if(*ptr) ++ptr;
}
last_pos = ptr;
*(ptr++) = 0;
use_hard_quotes = 0;
/* Run a special command, replacing the section */
if(*ptr == '(')
{
char *next = NULL;
char *opt;
++ptr;
if(*ptr == '*')
{
use_hard_quotes = 1;
++ptr;
}
opt = expand_string(ptr, " )", len+str-ptr, fillmore);
if(!(*opt) || !isspace(*opt))
{
*opt = 0;
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed '%s' sub-command!\n\n", fname,
curr_line, ptr);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
if(use_hard_quotes)
i = snprintf(buf, BUF_SIZE, "%s'", str);
else
i = snprintf(buf, BUF_SIZE, "%s", str);
/* 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 optlen, idx;
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
optlen = strlen(opt);
for(idx = 1;idx < argc;++idx)
{
if(strncasecmp(opt, argv[idx], optlen) == 0)
{
if(argv[idx][optlen] == '=')
val = argv[idx]+optlen+1;
else if(argv[idx][optlen] == 0)
val = argv[idx+1];
else
continue;
break;
}
}
snprintf(buf+i, BUF_SIZE-i, "%s", val);
}
else if(strcasecmp(ptr, "word") == 0)
{
unsigned long val;
char *sep = expand_string(opt, ",)", len+str-opt, fillmore);
if(*sep != ',')
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed '%s' sub-command!\n\n", fname,
curr_line, ptr);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(sep++) = 0;
val = strtoul(opt, NULL, 0);
opt = sep;
while(isspace(*opt))
++opt;
while(1)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
--val;
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
next = next_word;
if(*next) *(next++) = 0;
if(val == 0)
snprintf(buf+i, BUF_SIZE-i, "%s", opt);
break;
}
if(val == 0)
{
snprintf(buf+i, BUF_SIZE-i, "%s", opt);
opt = next_word;
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
break;
}
opt = next_word;
}
}
/* else if(strcasecmp(ptr, "popfront") == 0)
{
char *front_word;
char *varstr;
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
varstr = malloc(65536);
if(!varstr)
{
free(buf);
exit(-1);
}
strncpy(varstr, getvar(opt), 65536);
front_word = varstr;
while(*varstr && isspace(*varstr))
++varstr;
if(front_word != varstr)
memmove(front_word, varstr, strlen(varstr)+1);
varstr = expand_string(front_word, " ", 65536, 0);
if(*varstr) *(varstr++) = 0;
while(*varstr && isspace(*varstr))
++varstr;
snprintf(buf+i, BUF_SIZE-i, "%s", front_word);
setenv(opt, varstr, 1);
free(front_word);
}*/
else if(strcasecmp(ptr, "add")==0 || strcasecmp(ptr, "sub") == 0 ||
strcasecmp(ptr, "mult")==0 || strcasecmp(ptr, "div") == 0)
{
long val1, val2;
char *sep = expand_string(opt, ",)", len+str-opt, fillmore);
if(*sep != ',')
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed '%s' sub-command!\n\n", fname,
curr_line, ptr);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(sep++) = 0;
next = expand_string(sep, ")", len+str-sep, fillmore);
if(*next) *(next++) = 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);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
val1 /= val2;
}
snprintf(buf+i, BUF_SIZE-i, "%ld", val1);
}
/* Returns a library-style name from the specified
* filename */
else if(strcasecmp(ptr, "libname") == 0)
{
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
libify_name(obj, sizeof(obj), opt);
snprintf(buf+i, BUF_SIZE-i, "%s", obj);
}
/* Returns the full filename for the specified source file by
* searching src_path */
else if(strcasecmp(ptr, "findsrc") == 0)
{
int inc = i;
int loop = 1;
while(loop)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s ",
find_src(opt));
opt = next_word;
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
/* Returns the string, lower-cased */
else if(strcasecmp(ptr, "tolower") == 0)
{
int inc = i;
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
snprintf(buf+i, BUF_SIZE-i, "%s", opt);
while(buf[inc])
{
buf[inc] = tolower(buf[inc]);
++inc;
}
}
/* Returns the string, upper-cased */
else if(strcasecmp(ptr, "toupper") == 0)
{
int inc = i;
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
snprintf(buf+i, BUF_SIZE-i, "%s", opt);
while(buf[inc])
{
buf[inc] = toupper(buf[inc]);
++inc;
}
}
else if(strcasecmp("ifeq", ptr) == 0)
{
char *var2;
char *val;
var2 = expand_string(opt, ",)", len+str-opt, fillmore);
if(*var2 != ',')
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'ifeq' sub-command!\n\n",
fname, curr_line);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(var2++) = 0;
val = expand_string(var2, ",)", len+str-var2, fillmore);
if(*val != ',')
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'ifeq' sub-command!\n\n",
fname, curr_line);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(val++) = 0;
if(strcmp(opt, var2) == 0)
{
char *sep = expand_string(val, ",)", len+str-val,
fillmore);
if(*sep) *(sep++) = 0;
next = expand_string(sep, ")", len+str-sep, fillmore);
if(*next) *(next++) = 0;
}
else
{
val = expand_string(val, ",)", len+str-val, fillmore);
if(*val == ',') ++val;
next = expand_string(val, ")", len+str-val, fillmore);
if(*next) *(next++) = 0;
}
if(val)
snprintf(buf+i, BUF_SIZE-i, "%s", val);
}
else if(strcasecmp("suffix", ptr) == 0)
{
char *val;
int inc = i;
int loop = 1;
while(loop)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
val = strrchr(opt, '/');
if(!val)
val = opt;
val = strrchr(val, '.');
if(val)
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s ", val);
opt = next_word;
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
else if(strcasecmp("basename", ptr) == 0)
{
char *val;
int inc = i;
int loop = 1;
while(loop)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
val = strrchr(opt, '/');
if(!val)
val = opt;
val = strrchr(val, '.');
if(val) *val = 0;
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s ", opt);
opt = next_word;
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
else if(strcasecmp("addprefix", ptr) == 0)
{
char *val;
int inc = i;
int loop = 1;
val = opt;
opt = expand_string(opt, ",)", len+str-opt, fillmore);
if(*opt != ',')
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'addprefix' sub-command!\n\n",
fname, curr_line);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
while(loop)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s%s ", val,
opt);
opt = next_word;
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
else if(strcasecmp("addsuffix", ptr) == 0)
{
char *val;
int inc = i;
int loop = 1;
val = opt;
opt = expand_string(opt, ",)", len+str-opt, fillmore);
if(*opt != ',')
{
printf("\n\n!!! %s error, line %d !!!\n"
"Malformed 'addprefix' sub-command!\n\n",
fname, curr_line);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
while(loop)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s%s ", opt,
val);
opt = next_word;
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
/* else if(strcasecmp("join", ptr) == 0)
{
char *val;
int inc = 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);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
*(opt++) = 0;
while(isspace(*opt) && *opt)
++opt;
while(*opt || *val)
{
char *next_word = grab_word(&opt, NULL);
char *next_word2 = grab_word(&val, NULL);
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s%s ", val,
opt);
opt = next_word;
val = next_word2;
}
if(inc > i) buf[inc-1] = 0;
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
}*/
else if(strcasecmp("dir", ptr) == 0)
{
char *val;
int inc = i;
int loop = 1;
while(loop)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
val = strrchr(opt, '/');
if(val)
{
val[1] = 0;
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s ", opt);
}
else
inc += snprintf(buf+inc, BUF_SIZE-inc, "./ ");
opt = next_word;
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
else if(strcasecmp("notdir", ptr) == 0)
{
char *val;
int inc = i;
int loop = 1;
while(loop)
{
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
val = strrchr(opt, '/');
if(!val)
val = opt;
else
++val;
opt = next_word;
if(val[0])
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s ", val);
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
/* 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 */
else if(strcasecmp(ptr, "which") == 0)
{
char *path = strdup(getvar("PATH"));
char *direc;
char sep = ':';
next = expand_string(opt, ")", len+str-opt, fillmore);
if(*next) *(next++) = 0;
if(strchr(path, ';') != NULL || (tolower(path[0]) >= 'a' &&
tolower(path[0]) <= 'z' &&
path[1] == ':'))
sep = ';';
if(*opt)
{
direc = path;
while(direc && *direc)
{
struct stat statbuf;
char *slash;
char *next = strchr(direc, sep);
if(next) *(next++) = 0;
snprintf(buf+i, BUF_SIZE-i, "%s/%s", direc, opt);
while((slash=strchr(buf+i, '\\')) != NULL)
*slash = '/';
if(stat(buf+i, &statbuf) == 0)
break;
buf[i] = 0;
direc = next;
}
}
free(path);
}
else if(strcasecmp("ls", ptr) == 0 || strcasecmp("lsa", ptr) == 0)
{
struct stat st;
int inc = i;
int show_hidden = 0;
int loop = 1;
if(strcasecmp("lsa", ptr) == 0)
show_hidden = 1;
while(loop)
{
DIR *dp;
char *next_word = expand_string(opt, " )", len+str-opt,
fillmore);
if(isspace(*next_word) && *next_word)
{
*(next_word++) = 0;
while(isspace(*next_word) && *next_word)
++next_word;
}
else
{
if(*next_word) *(next_word++) = 0;
loop = 0;
}
dp = opendir(opt);
if(dp)
{
struct dirent *ent;
char *slash = strrchr(opt, '/');
if(slash && !slash[1]) *slash = 0;
while((ent=readdir(dp)) != NULL)
{
int i;
if(!show_hidden && ent->d_name[0] == '.')
continue;
i = snprintf(buf+inc, BUF_SIZE-inc, "%s/%s",
opt, ent->d_name);
if(stat(buf+inc, &st) == 0 &&
S_ISDIR(st.st_mode))
i += snprintf(buf+inc+i, BUF_SIZE-inc-i,
"/ ");
else
i += snprintf(buf+inc+i, BUF_SIZE-inc-i,
" ");
inc += i;
}
closedir(dp);
}
else
{
if(show_hidden || opt[0] != '.')
{
if(stat(opt, &st) == 0)
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s ",
opt);
}
}
opt = next_word;
}
if(inc > i) buf[inc-1] = 0;
next = opt;
}
else
{
printf("\n\n!!! %s error, line %d !!!\n"
"Unknown sub-command '%s'\n\n", fname, curr_line, ptr);
free(buf);
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 1);
}
end = next;
}
else
{
/* Insert the named environment var (in the form $FOO or ${FOO}) */
if(*ptr == '{')
{
++ptr;
if(*ptr == '\'')
{
use_hard_quotes = 1;
++ptr;
end = "'}";
}
else
end = "}";
end = expand_string(ptr, end, len+str-ptr, fillmore);
if(*end == '\'')
{
*(end++) = 0;
end = expand_string(end, "}", len+str-ptr, fillmore);
}
if(*end)
*(end++) = 0;
}
else
end = expand_string(ptr, "^", len+str-ptr, fillmore);
if(use_hard_quotes)
i = snprintf(buf, BUF_SIZE, "%s'", str);
else
i = snprintf(buf, BUF_SIZE, "%s", str);
if(*ptr >= '0' && *ptr <= '9')
{
const char *val = "";
int idx = atoi(ptr);
if(idx < argc && idx >= 0)
val = argv[idx];
snprintf(buf+i, BUF_SIZE-i, "%s", val);
}
else if(strncmp("*", ptr, end-ptr) == 0 ||
(use_hard_quotes && strncmp("@", ptr, end-ptr) == 0))
{
int idx = 1;
int inc = i;
while(idx < argc)
{
inc += snprintf(buf+inc, BUF_SIZE-inc, "%s ", argv[idx]);
++idx;
}
if(inc > i) buf[inc-1] = 0;
}
else if(strncmp("@", ptr, end-ptr) == 0)
{
int idx = 1;
while(idx < argc)
{
i += snprintf(buf+i, BUF_SIZE-i, "${'%d'}", idx);
++idx;
if(idx < argc)
i += snprintf(buf+i, BUF_SIZE-i, " ");
}
snprintf(buf+i, BUF_SIZE-i, "%s", end);
strcpy(str, buf);
continue;
}
else
{
char c = *end;
*end = 0;
snprintf(buf+i, BUF_SIZE-i, "%s", getvar(ptr));
*end = c;
}
}
while(buf[i])
{
if(buf[i] == '&' || buf[i] == '\'' || buf[i] == '"' ||
buf[i] == '\\')
{
memmove(buf+i+1, buf+i, BUF_SIZE-i-1);
buf[i] = '\\';
++i;
}
++i;
}
if(use_hard_quotes)
snprintf(buf+i, BUF_SIZE-i, "'%s", end);
else
snprintf(buf+i, BUF_SIZE-i, "%s", end);
strcpy(str, buf);
} while(1);
}
/* 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;
if(!(*end))
return end;
end = expand_string(end, " \n", len+str-end, 1);
if(*end && *end != '\n')
*(end++) = 0;
while(*end && isspace(*end))
{
if(*end == '\n')
{
if(end[1] != 0)
nextline = strdup(end+1);
*end = 0;
break;
}
++end;
}
return end;
}
static void extract_line(char *str, size_t len)
{
char *end = str;
if(!(*end))
return;
end = expand_string(end, "\n", len+str-end, 1);
if(end[0] == '\n' && end[1] != 0)
nextline = strdup(end+1);
*end = 0;
}
/* 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: dependancy list...'. 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 *base, char *src, time_t obj_time)
{
static char dep[PATH_MAX];
char *buf;
int bufsize;
struct stat statbuf;
char *ptr = obj;
FILE *df;
ptr = strrchr(base, '/');
if(!ptr) ptr = base;
ptr = strrchr(ptr, '.');
if(ptr) *ptr = 0;
snprintf(dep, sizeof(dep), "${DEP_DIR}/'%s'${DEP_EXT}", base);
expand_string(dep, "", sizeof(dep), 0);
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(*ptr && *ptr != '\n' && isspace(*ptr))
++ptr;
while(*ptr)
{
char *stp = ptr;
while(*stp && !isspace(*stp))
{
if(*stp == '\\')
memmove(stp, stp+1, strlen(stp));
if(*stp) ++stp;
}
if(*stp) *(stp++) = 0;
while(*stp && isspace(*stp))
++stp;
if(strcmp(ptr, "\n") != 0 && (stat(ptr, &statbuf) != 0 ||
statbuf.st_mtime > obj_time))
{
free(buf);
return 1;
}
ptr = stp;
}
free(buf);
buf = (char*)getvar("EXTRA_SRC_DEPS");
if(*buf)
{
char *ptr = malloc(BUF_SIZE);
strncpy(ptr, buf, BUF_SIZE);
buf = ptr;
while(*ptr)
{
char *next = expand_string(ptr, " ", BUF_SIZE+ptr-buf, 0);
if(*next) *(next++) = 0;
while(*next && isspace(*next))
++next;
if(strcmp(ptr, "\n") != 0 && (stat(ptr, &statbuf) != 0 ||
statbuf.st_mtime > obj_time))
{
free(buf);
return 1;
}
ptr = next;
}
free(buf);
}
return 0;
}
/* 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'/${LIB_PRE}'%s'${LIB_EXT}", name,
curr+1);
*curr = '/';
}
else
i = snprintf(buf, buflen, "${LIB_PRE}'%s'${LIB_EXT}", name);
expand_string(buf, "", buflen, 0);
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)
{
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 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)
{
strcpy(linebuf, "exit -1\n");
longjmp(jmpbuf, 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;
}
/* 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[PATH_MAX];
struct stat statbuf;
char *next = sources;
char *ptr;
int i = 0;
while(*(ptr=next))
{
char *ext;
char c;
next = grab_word(&ptr, &c);
ext = strrchr(ptr, '/');
if(!ext) ext = ptr;
ext = strrchr(ext, '.');
if(ext) *ext = 0;
snprintf(buf, sizeof(buf), "${OBJ_DIR}/'%s'${OBJ_EXT}", ptr);
expand_string(buf, "", sizeof(buf), 0);
if(ext) *ext = '.';
if(!(*do_link) && (stat(buf, &statbuf) != 0 ||
base_time < statbuf.st_mtime))
*do_link = 1;
if(ext) *ext = 0;
i += snprintf(buffer+i, bufsize-i,
" \\\"${OBJ_DIR}/'%s'${OBJ_EXT}\\\"", ptr);
if(ext) *ext = '.';
ptr += strlen(ptr);
if(next > ptr)
*ptr = c;
}
return i;
}
static struct {
char *name;
char *val;
} *defines;
static size_t num_defines;
#define MAX_CMD_ARGC 32
static char *cmd_argv[MAX_CMD_ARGC+1];
static size_t cmd_argc;
void cleanup(void)
{
size_t i;
fflush(stdout);
for(i = 0;i < cmd_argc;++i)
{
free(cmd_argv[i]);
cmd_argv[i] = NULL;
}
cmd_argc = 0;
for(i = 0;i < num_defines;++i)
{
free(defines[i].name);
free(defines[i].val);
}
free(defines);
defines = NULL;
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);
if(f)
fclose(f);
if(infile && infile != stdin)
fclose(infile);
}
unsigned int do_level = 0;
unsigned int did_cmds = 0, did_else = 0;
unsigned int wait_for_done = 0;
int ret = 0, tmp = 0;
int ignored_errors = 0;
int verbose = 0;
int shh = 0;
int ignore_err = 0;
int has_do = 0;
int main(int _argc, char **_argv)
{
char *ptr;
int i;
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 default.cbd!\n\n");
exit(1);
}
argc = _argc;
argv = _argv;
infile = stdin;
atexit(cleanup);
if(setjmp(jmpbuf))
{
free(nextline);
nextline = NULL;
goto reparse;
}
main_loop_start:
while(1)
{
int reverse;
ignore_err = 0;
has_do = 0;
if(nextline)
{
/* If we already have the next line set, go do it */
strncpy(linebuf, nextline, strlen(nextline)+1);
free(nextline);
nextline = NULL;
goto reparse;
}
/* 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, " =\n", sizeof(linebuf), 1);
if(isspace(linebuf[0]))
goto reparse;
if(!linebuf[0] || ptr == linebuf || linebuf[0] == ':')
{
extract_line(linebuf, sizeof(linebuf));
continue;
}
while(*ptr && isspace(*ptr))
{
if(*ptr == '\n')
{
*ptr = 0;
if(ptr[1] != 0)
nextline = strdup(ptr+1);
break;
}
*(ptr++) = 0;
}
/* 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"
2006-06-01 00:05:03 +00:00
"Too many 'do' commands enountered (max: %lud)!\n\n",
fname, curr_line, (unsigned long)(sizeof(int)*8 - 1));
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
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);
snprintf(linebuf, sizeof(linebuf), "exit 1\n");
goto reparse;
}
*(var2++) = 0;
while(*var2 && isspace(*var2))
++var2;
}
else
next = extract_word(var2, sizeof(linebuf)+linebuf-var2);
if((strcmp(ptr, var2) == 0) != !!reverse)
{
memmove(linebuf, next, strlen(next)+1);
goto reparse;
}
if(has_do)
wait_for_done |= 1 << (do_level-1);
extract_line(next, sizeof(linebuf)+linebuf-next);
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) != !!reverse)
{
memmove(linebuf, next, strlen(next)+1);
goto reparse;
}
if(has_do)
wait_for_done |= 1 << (do_level-1);
extract_line(next, sizeof(linebuf)+linebuf-next);
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 = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
int pass = 0;
/* 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)
pass = 0;
#if defined(_AIX) || defined(__TOS_AIX__)
else if(strcasecmp("aix", ptr) == 0)
pass = 1;
#endif
#if defined(AMIGA) || defined(__amigaos__)
else if(strcasecmp("amigaos", ptr) == 0)
pass = 1;
#endif
#if defined(__BEOS__)
else if(strcasecmp("beos", ptr) == 0)
pass = 1;
#endif
#if defined(_UNICOS)
else if(strcasecmp("unicos", ptr) == 0)
pass = 1;
#endif
#if defined(DGUX) || defined(__DGUX__) || defined(__dgux__)
else if(strcasecmp("dgux", ptr) == 0)
pass = 1;
#endif
#if defined(_SEQUENT_) || defined(sequent)
else if(strcasecmp("dynix", ptr) == 0)
pass = 1;
#endif
#ifdef __FreeBSD__
else if(strcasecmp("freebsd", ptr) == 0)
pass = 1;
#endif
#if defined(__GNU__)
else if(strcasecmp("gnuhurd", ptr) == 0)
pass = 1;
#endif
#if defined(hpux) || defined (_hpux) || defined(_HPUX_SOURCE)
else if(strcasecmp("hpux", ptr) == 0)
pass = 1;
#endif
#if defined(sgi) || defined(__sgi) || defined(mips) || defined(_SGI_SOURCE)
else if(strcasecmp("irix", ptr) == 0)
pass = 1;
#endif
#if defined(linux) || defined(__linux)
else if(strcasecmp("linux", ptr) == 0)
pass = 1;
#endif
#if defined(__MACOSX__) || defined(__APPLE__)
else if(strcasecmp("macosx", ptr) == 0)
pass = 1;
#endif
#if defined(mpeix) || defined(__mpexl)
else if(strcasecmp("mpeix", ptr) == 0)
pass = 1;
#endif
#if defined(MSDOS) || defined(__MSDOS__) || defined(_MSDOS) || defined(__DOS__)
else if(strcasecmp("msdos", ptr) == 0)
pass = 1;
#endif
#if defined(__NetBSD__)
else if(strcasecmp("netbsd", ptr) == 0)
pass = 1;
#endif
#if defined(__OpenBSD__)
else if(strcasecmp("openbsd", ptr) == 0)
pass = 1;
#endif
#if defined(OS2) || defined(_OS2) || defined(__OS2__) || defined(__TOS_OS2__)
else if(strcasecmp("os2", ptr) == 0)
pass = 1;
#endif
#if defined(pyr)
else if(strcasecmp("pyramiddc", ptr) == 0)
pass = 1;
#endif
#if defined(__QNX__)
else if(strcasecmp("qnx4", ptr) == 0)
pass = 1;
#endif
#if defined(__QNXNTO__)
else if(strcasecmp("qnx6", ptr) == 0)
pass = 1;
#endif
#if defined(sinix)
else if(strcasecmp("reliantunix", ptr) == 0)
pass = 1;
#endif
#if defined(M_I386) || defined(M_XENIX) || defined(_SCO_DS) || defined(_SCO_C_DIALECT)
else if(strcasecmp("scoopenserver", ptr) == 0)
pass = 1;
#endif
#if defined(sun) || defined(__sun)
# if defined(__SVR4) || defined(__svr4__)
else if(strcasecmp("solaris", ptr) == 0)
pass = 1;
# else
else if(strcasecmp("sunos", ptr) == 0)
pass = 1;
# endif
#elif defined(__SUNPRO_C)
else if(strcasecmp("solaris", ptr) == 0)
pass = 1;
#endif
#if defined(__SYMBIAN32__)
else if(strcasecmp("symbian", ptr) == 0)
pass = 1;
#endif
#if defined(__osf__) || defined(__osf)
else if(strcasecmp("osf1", ptr) == 0 ||
strcasecmp("tru64", ptr) == 0)
pass = 1;
#endif
#if defined(ultrix) || defined(__ultrix) || defined(__ultrix__) || (defined(unix) && defined(vax))
else if(strcasecmp("ultrix", ptr) == 0)
pass = 1;
#endif
#if defined(sco) || defined(_UNIXWARE7)
else if(strcasecmp("unixware", ptr) == 0)
pass = 1;
#endif
#if defined(VMS) || defined(__VMS)
else if(strcasecmp("vms", ptr) == 0)
pass = 1;
#endif
#if defined(_WIN32) || defined(__WIN32__) || defined(__TOS_WIN32__)
else if(strcasecmp("win32", ptr) == 0)
pass = 1;
#endif
#if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__bsdi__) || defined(_SYSTYPE_BSD)
else if(strcasecmp("bsd", ptr) == 0)
pass = 1;
#endif
#if defined(__sysv__) || defined(__SVR4) || defined(__svr4__) || defined(_SYSTYPE_SVR4)
else if(strcasecmp("svr4", ptr) == 0)
pass = 1;
#endif
#if defined(unix) || defined(__unix) || defined(__unix__)
else if(strcasecmp("unix", ptr) == 0)
pass = 1;
#endif
#if defined(_UWIN)
else if(strcasecmp("uwin", ptr) == 0)
pass = 1;
#endif
#if defined(_WINDU_SOURCE)
else if(strcasecmp("windu", ptr) == 0)
pass = 1;
#endif
#if defined(__i386__) || defined(__i386) || (_M_IX86 > 300)
else if(strcasecmp("i386", ptr) == 0)
pass = 1;
#endif
#if defined(__ia64__) || defined(_M_IA64)
else if(strcasecmp("ia64", ptr) == 0)
pass = 1;
#endif
#if defined(__powerpc__) || defined(_M_PPC)
else if(strcasecmp("powerpc", ptr) == 0)
pass = 1;
#endif
#if defined(__sparc__) || defined(__sparc)
else if(strcasecmp("sparc", ptr) == 0)
pass = 1;
#endif
if((pass != 0) != !!reverse)
{
memmove(linebuf, next, strlen(next)+1);
goto reparse;
}
if(has_do)
wait_for_done |= 1 << (do_level-1);
extract_line(next, sizeof(linebuf)+linebuf-next);
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 = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
int pass = 0;
for(i = 1;i < argc;++i)
{
size_t len = strlen(ptr);
char *eq = strrchr(argv[i], '=');
if(eq && (size_t)(eq-argv[i]) != len)
continue;
if(strncasecmp(ptr, argv[i], len) == 0)
{
pass = 1;
break;
}
}
if((pass != 0) != !!reverse)
{
memmove(linebuf, next, strlen(next)+1);
goto reparse;
}
if(has_do)
wait_for_done |= 1 << (do_level-1);
extract_line(next, sizeof(linebuf)+linebuf-next);
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) != !!reverse)
{
memmove(linebuf, next, strlen(next)+1);
goto reparse;
}
if(has_do)
wait_for_done |= 1 << (do_level-1);
extract_line(next, sizeof(linebuf)+linebuf-next);
continue;
}
if(strcasecmp("ifnexist", linebuf) == 0)
{
reverse = 1;
goto file_dir_check;
}
/* Checks if we have write permissions to the specified file or
* directory */
if(strcasecmp("ifwrite", linebuf) == 0)
dir_write_check:
{
char *next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
int val = 1;
#ifdef __unix__
{
struct stat stbuf;
val = 0;
if(stat(ptr, &stbuf) == 0)
{
if(stbuf.st_uid == getuid())
{
if((stbuf.st_mode&S_IWUSR))
val = 1;
}
else if(stbuf.st_gid == getgid())
{
if((stbuf.st_mode&S_IWGRP))
val = 1;
}
else if((stbuf.st_mode&S_IWOTH))
val = 1;
}
}
#endif
if((val != 0) != !!reverse)
{
memmove(linebuf, next, strlen(next)+1);
goto reparse;
}
if(has_do)
wait_for_done |= 1 << (do_level-1);
extract_line(next, sizeof(linebuf)+linebuf-next);
continue;
}
if(strcasecmp("ifnwrite", linebuf) == 0)
{
reverse = 1;
goto dir_write_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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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);
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
{
printf("Could not open script '%s'!\n"
"--- Error %d ignored. ---\n\n", ptr,
++ignored_errors);
fflush(stdout);
}
continue;
}
ret = 0;
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;
}
if(strcasecmp(linebuf, "popfront") == 0)
{
char *front_word;
char *varstr;
char *next;
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
extract_word(next, sizeof(linebuf)+linebuf-next);
varstr = malloc(65536);
if(!varstr)
{
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
strncpy(varstr, getvar(ptr), 65536);
front_word = varstr;
while(*varstr && isspace(*varstr))
++varstr;
if(front_word != varstr)
memmove(front_word, varstr, strlen(varstr)+1);
varstr = expand_string(front_word, " ", 65536, 0);
while(isspace(*varstr))
++varstr;
setenv(ptr, varstr, 1);
free(front_word);
continue;
}
if(strcasecmp("define", linebuf) == 0)
{
char *val = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
extract_line(val, sizeof(linebuf)+linebuf-val);
if(*val == 0)
{
for(i = 0;(size_t)i < num_defines;++i)
{
if(strcasecmp(ptr, defines[i].name) != 0)
continue;
free(defines[i].name);
free(defines[i].val);
--num_defines;
if((size_t)i < num_defines)
memmove(&defines[i], &defines[i+1], sizeof(defines[0])*
(num_defines-i-1));
defines = realloc(defines, sizeof(defines[0])*num_defines);
break;
}
}
else
{
for(i = 0;(size_t)i < num_defines;++i)
{
if(strcasecmp(ptr, defines[i].name) == 0)
break;
}
if((size_t)i == num_defines)
{
void *tmp = realloc(defines, sizeof(defines[0])*
(num_defines+1));
if(!tmp)
{
fprintf(stderr, "\n\n\n*** Critical Error ***\n"
2006-06-01 00:05:03 +00:00
"Out of memory allocating %lud defines!\n\n",
(unsigned long)(num_defines+1));
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
++num_defines;
defines = tmp;
defines[i].val = NULL;
defines[i].name = strdup(ptr);
if(!defines[i].name)
{
fprintf(stderr, "\n\n\n*** Critical Error ***\n"
"Out of memory duplicating string '%s'!!\n\n",
val);
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
}
free(defines[i].val);
defines[i].val = strdup(val);
if(!defines[i].val)
{
fprintf(stderr, "\n\n\n*** Critical Error ***\n"
"Out of memory duplicating string '%s'!!\n\n",
val);
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
}
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);
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
compile_more_sources:
tmp = 0;
while(ptr && *ptr)
{
char *src, *ext, *next, c;
struct stat statbuf;
next = grab_word(&ptr, &c);
ext = strrchr(ptr, '/');
if(!ext) ext = ptr;
ext = strrchr(ext, '.');
if(!ext)
goto next_src_file;
*ext = 0;
snprintf(obj, sizeof(obj), "${OBJ_DIR}/'%s'${OBJ_EXT}", ptr);
expand_string(obj, "", sizeof(obj), 0);
*ext = '.';
src = find_src(ptr);
if(stat(obj, &statbuf) == 0)
{
if(!check_obj_deps(ptr, src, 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;
*ext = 0;
if(*getvar("DEP_OPT"))
i += snprintf(buffer+i, sizeof(buffer)-i,
" ${DEP_OPT}\\\"${DEP_DIR}/'%s'${DEP_EXT}\\\"",
ptr);
i += snprintf(buffer+i, sizeof(buffer)-i,
" ${OUT_OPT}\\\"${OBJ_DIR}/'%s'${OBJ_EXT}\\\"",
ptr);
*ext = '.';
i += snprintf(buffer+i, sizeof(buffer)-i,
" ${SRC_OPT}\\\"'%s'\\\"", src);
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
{
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
}
next_src_file:
ptr += strlen(ptr);
if(*next)
*(ptr++) = c;
}
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);
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
sources = t;
sources[pos] = ' ';
strcpy(sources+pos+1, ptr);
ptr = sources+pos+1;
for(i = 0;isspace(sources[i]);++i)
;
if(i > 0)
{
memmove(sources, sources+i, strlen(sources+i)+1);
ptr -= i;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
continue;
}
ret = 0;
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
snprintf(obj, sizeof(obj), "'%s'${EXE_EXT}", ptr);
expand_string(obj, "", sizeof(obj), 0);
if(stat(obj, &statbuf) == 0)
{
exe_time = statbuf.st_mtime;
do_link = 0;
}
i = 0;
i += snprintf(buffer+i, sizeof(buffer)-i, "${LD}");
i += snprintf(buffer+i, sizeof(buffer)-i, " ${OUT_OPT}'\"%s\"'",
obj);
i += build_obj_list(buffer+i, sizeof(buffer)-i, exe_time,
&do_link);
if(!do_link)
{
char *buf = (char*)getvar("EXTRA_LD_DEPS");
if(*buf)
{
char *ptr = malloc(BUF_SIZE);
strncpy(ptr, buf, BUF_SIZE);
buf = ptr;
while(*ptr)
{
char *next = expand_string(ptr, " ", BUF_SIZE+ptr-buf, 0);
if(*next) *(next++) = 0;
while(*next && isspace(*next))
++next;
if(strcmp(ptr, "\n") != 0 && (stat(ptr, &statbuf) != 0 ||
statbuf.st_mtime > exe_time))
{
free(buf);
buf = NULL;
do_link = 1;
break;
}
ptr = next;
}
free(buf);
}
if(!do_link)
continue;
}
i += snprintf(buffer+i, sizeof(buffer)-i, " ${LDFLAGS}");
expand_string(buffer, "", sizeof(buffer), 0);
if(!shh)
{
if(verbose)
printf("%s\n", buffer);
else
printf("Linking %s...\n", obj);
fflush(stdout);
}
if((ret=system(buffer)) != 0)
{
if(!ignore_err)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
continue;
}
ret = 0;
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, "${AR} ${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;
remove(obj);
expand_string(buffer, "", sizeof(buffer), 0);
if(!shh)
{
if(verbose)
printf("%s\n", buffer);
else
printf("Linking %s...\n", obj);
fflush(stdout);
}
if((ret=system(buffer)) != 0)
{
if(!ignore_err)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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);
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
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 list!\n\n", fname,
curr_line);
if(!ignore_err)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
continue;
}
ret = 0;
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, &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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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);
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
{
printf("Could not create file '%s'!\n"
"--- Error %d ignored. ---\n\n", ptr,
++ignored_errors);
fflush(stdout);
}
continue;
}
ret = 0;
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);
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
{
printf("Could not create file '%s'!\n"
"--- Error %d ignored. ---\n\n", ptr,
++ignored_errors);
fflush(stdout);
}
continue;
}
ret = 0;
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;
lbl = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
extract_line(lbl, 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);
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
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;
while(linebuf[0])
{
int i;
extract_line(linebuf, sizeof(linebuf));
for(i = 0;isspace(linebuf[i]);++i)
;
memmove(linebuf, &linebuf[i], strlen(&linebuf[i])+1);
if(linebuf[0] == ':' && strcasecmp(linebuf+1, lbl) == 0)
{
free(lbl);
goto main_loop_start;
}
if(!nextline)
break;
strcpy(linebuf, nextline);
free(nextline);
nextline = NULL;
}
}
fprintf(stderr, "\n\n!!! %s error, line %d !!!\n"
"Label target '%s' not found!\n\n", fname,
src_line, lbl);
free(lbl);
snprintf(linebuf, sizeof(linebuf), "exit 1\n");
goto reparse;
}
/* 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);
snprintf(linebuf, sizeof(linebuf), "exit 1\n");
goto reparse;
}
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);
snprintf(linebuf, sizeof(linebuf), "exit -1\n");
goto reparse;
}
++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'${EXE_EXT}", ptr);
expand_string(buffer, "", sizeof(buffer), 0);
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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), "${OBJ_DIR}/'%s'${OBJ_EXT}",
ptr);
expand_string(buffer, "", sizeof(buffer), 0);
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
}
}
if(ext) *ext = 0;
snprintf(buffer, sizeof(buffer), "${DEP_DIR}/'%s'${DEP_EXT}",
ptr);
expand_string(buffer, "", sizeof(buffer), 0);
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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);
#if defined(_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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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;
struct stat st;
dfile = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
if(!(*dfile))
{
ret = 1;
if(ignore_err < 2)
printf("\n\n!!! %s error, line %d !!! \n"
"Improper arguments to 'copy'!\n", fname,
curr_line);
if(!ignore_err)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n", ++ignored_errors);
fflush(stdout);
continue;
}
ret = 0;
end = extract_word(dfile, sizeof(linebuf)+linebuf-dfile);
if(dfile[strlen(dfile)-1] == '/' || (stat(dfile, &st) == 0 &&
S_ISDIR(st.st_mode)))
{
char *fn = strrchr(ptr, '/');
snprintf(obj, sizeof(obj), "%s%s%s", dfile,
((dfile[strlen(dfile)-1]=='/')?"":"/"),
(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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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))
{
ret = 1;
if(ignore_err < 2)
printf("\n\n!!! %s error, line %d !!! \n"
"Improper arguments to 'copylib'!\n", fname,
curr_line);
if(!ignore_err)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n", ++ignored_errors);
fflush(stdout);
continue;
}
ret = 0;
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
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;
}
/* Our "special" rem command. Using this, you can make a cbuild script
* double as a DOS/Windows .bat file. */
if(strcasecmp("rem", linebuf) == 0)
{
memmove(linebuf, ptr, strlen(ptr)+1);
goto reparse;
}
/* Changes the file to read input from. Pass nothing to switch to
* stdin. */
if(strcasecmp("setinput", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
if(infile != stdin)
fclose(infile);
ret = 0;
if(*ptr)
{
infile = fopen(ptr, "r");
if(!infile)
{
ret = 1;
if(ignore_err < 2)
printf("!!! Could not open file '%s' to read !!!\n",
ptr);
if(!ignore_err)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n",
++ignored_errors);
fflush(stdout);
}
}
else
infile = stdin;
continue;
}
/* Reads keyboard input and stores the string in the named var. The
* trailing newline is stripped. */
if(strcasecmp("read", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
if(!(*ptr))
{
ret = 1;
if(ignore_err < 2)
printf("!!! No storage specified for read (line %d) !!!\n",
curr_line);
if(!ignore_err)
{
snprintf(linebuf, sizeof(linebuf), "exit %d\n", ret);
goto reparse;
}
if(ignore_err < 2)
printf("--- Error %d ignored. ---\n\n", ++ignored_errors);
fflush(stdout);
}
ret = 0;
buffer[0] = 0;
if(!infile || fgets(buffer, sizeof(buffer), infile) == NULL)
ret = 1;
while(strlen(buffer) > 0 && (buffer[strlen(buffer)-1] == '\n' ||
buffer[strlen(buffer)-1] == '\r'))
buffer[strlen(buffer)-1] = 0;
if(!strlen(buffer))
ret |= unsetenv(ptr);
else
ret |= setenv(ptr, buffer, 1);
continue;
}
/* Exits the script with the specified exitcode */
if(strcasecmp("exit", linebuf) == 0)
{
static int already_exited = 0;
int inc = 0;
int retval;
if(already_exited)
{
printf("\n\n*** Critical error ***\n"
"Recursive exit call, aborting now!\n\n");
exit(-1);
}
already_exited = 1;
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
retval = atoi(ptr);
for(i = num_defines-1;(size_t)i < num_defines;--i)
{
if(strncasecmp(defines[i].name, "atexit_", 7) == 0)
inc += snprintf(linebuf+inc, sizeof(linebuf)-inc, "%s\n",
defines[i].val);
}
snprintf(linebuf+inc, sizeof(linebuf)-inc, "__really_exit %d\n",
retval);
free(nextline);
nextline = NULL;
goto reparse;
}
/* Does nothing. Ignores the line */
if(strcasecmp("noop", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
continue;
}
if(strcasecmp("__reset_cmd_args__", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
for(i = 0;(size_t)i < cmd_argc;++i)
{
free(cmd_argv[i]);
cmd_argv[i] = NULL;
}
cmd_argc = 0;
argv = _argv;
argc = _argc;
continue;
}
/* Exits the script with the specified exitcode */
if(strcasecmp("__really_exit", linebuf) == 0)
{
extract_line(ptr, sizeof(linebuf)+linebuf-ptr);
exit(atoi(ptr));
}
for(i = 0;(size_t)i < num_defines;++i)
{
char *next;
if(strcasecmp(defines[i].name, linebuf) != 0)
continue;
cmd_argv[cmd_argc++] = strdup(linebuf);
while(*ptr != 0)
{
next = extract_word(ptr, sizeof(linebuf)+linebuf-ptr);
cmd_argv[cmd_argc++] = strdup(ptr);
ptr = next;
}
cmd_argv[cmd_argc] = NULL;
argv = cmd_argv;
argc = cmd_argc;
snprintf(linebuf, sizeof(linebuf), "%s\n__reset_cmd_args__\n%s\n",
defines[i].val, (nextline?nextline:""));
free(nextline);
nextline = NULL;
goto reparse;
}
printf("\n\n!!! %s error, line %d !!!\n"
"Unknown command '%s'\n\n", fname, curr_line, linebuf);
break;
}
return ret;
}