302 lines
7.8 KiB
C
302 lines
7.8 KiB
C
/* ----------------------------------------------------------------------- */
|
|
#if C2STR
|
|
|
|
/* with -D C2STR: convert tccdefs.h to C-strings */
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
/* replace native host macros by compile-time versions */
|
|
const char *platform_macros[] = {
|
|
"__i386__", "TCC_TARGET_I386",
|
|
"__x86_64__", "TCC_TARGET_X86_64",
|
|
"_WIN32", "TCC_TARGET_PE",
|
|
"__arm__", "TCC_TARGET_ARM",
|
|
"__ARM_EABI__", "TCC_ARM_EABI",
|
|
"__aarch64__", "TCC_TARGET_ARM64",
|
|
"__riscv", "TCC_TARGET_RISCV64",
|
|
"__APPLE__", "TCC_TARGET_MACHO",
|
|
"__FreeBSD__", "TARGETOS_FreeBSD",
|
|
"__FreeBSD_kernel__", "TARGETOS_FreeBSD_kernel",
|
|
"__OpenBSD__", "TARGETOS_OpenBSD",
|
|
"__NetBSD__", "TARGETOS_NetBSD",
|
|
"__linux__", "TARGETOS_Linux",
|
|
"__SIZEOF_POINTER__", "PTR_SIZE",
|
|
"__SIZEOF_LONG__", "LONG_SIZE",
|
|
0
|
|
};
|
|
|
|
int isid(int c)
|
|
{
|
|
return (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')
|
|
|| (c >= '0' && c <= '9') || c == '_';
|
|
}
|
|
|
|
int isspc(int c)
|
|
{
|
|
return (unsigned char)c <= ' ' && c != 0;
|
|
}
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
char l[1000], l2[1000], *p, *q, *p0;
|
|
FILE *fp, *op;
|
|
int c, e, f, s, cmt, cmt_n;
|
|
const char *r;
|
|
|
|
if (argc < 3)
|
|
return 1;
|
|
|
|
fp = fopen(argv[1], "rb");
|
|
op = fopen(argv[2], "wb");
|
|
if (!fp || !op) {
|
|
fprintf(stderr, "c2str: file error\n");
|
|
return 1;
|
|
}
|
|
|
|
cmt = cmt_n = 0;
|
|
for (;;) {
|
|
p = l;
|
|
append:
|
|
if (fgets(p, sizeof l - (p - l), fp)) {
|
|
p = strchr(p, 0);
|
|
while (p > l && isspc(p[-1]))
|
|
--p;
|
|
*p = 0;
|
|
} else if (p == l)
|
|
break;
|
|
|
|
/* check for continuation */
|
|
if (p > l && p[-1] == '\\') {
|
|
p[-1] = ' ';
|
|
goto append;
|
|
}
|
|
|
|
/* count & skip leading spaces */
|
|
p = l, q = l2, f = 0;
|
|
while (*p && isspc(*p))
|
|
++p, ++f;
|
|
|
|
/* handle comments */
|
|
if (p[0] == '/' && cmt == 0) {
|
|
if (p[1] == '*')
|
|
cmt = 2;
|
|
if (p[1] == '/')
|
|
cmt = 1;
|
|
}
|
|
if (cmt) {
|
|
fprintf(op, "%s", l);
|
|
if (++cmt_n == 1)
|
|
fprintf(op, " (converted, do not edit this file)");
|
|
fprintf(op, "\n");
|
|
if (cmt == 1)
|
|
cmt = 0;
|
|
if (cmt == 2) {
|
|
p = strchr(l, 0);
|
|
if (p >= l + 2 && p[-1] == '/' && p[-2] == '*')
|
|
cmt = 0;
|
|
}
|
|
continue;
|
|
}
|
|
|
|
if (f < 4) {
|
|
do {
|
|
/* replace machine/os macros by compile-time counterparts */
|
|
for (e = f = 0; (r = platform_macros[f]); f += 2) {
|
|
c = strlen(r);
|
|
/* remove 'defined' */
|
|
//e = memcmp(p, "defined ", 8) ? 0 : 8;
|
|
if (0 == memcmp(p + e, r, c)) {
|
|
p += e + c;
|
|
q = strchr(strcpy(q, platform_macros[f + 1]), 0);
|
|
break;
|
|
}
|
|
|
|
}
|
|
if (r)
|
|
continue;
|
|
} while (!!(*q++ = *p++));
|
|
/* output as is */
|
|
fprintf(op, "%s\n", l2);
|
|
continue;
|
|
|
|
} else {
|
|
s = e = f = 0, p0 = p;
|
|
for (;;) {
|
|
c = *p++;
|
|
|
|
if (isspc(c)) {
|
|
s = 1;
|
|
continue;
|
|
}
|
|
if (c == '/' && (p[0] == '/' || p[0] == '*'))
|
|
c = 0; /* trailing comment detected */
|
|
else if (s && q > l2
|
|
&& ((isid(q[-1]) && isid(c))
|
|
// keep space after macro name
|
|
|| (q >= l2 + 2
|
|
&& l2[0] == '#'
|
|
&& l2[1] == 'd'
|
|
&& f < 2 && !e
|
|
)))
|
|
*q++ = ' ', ++f;
|
|
s = 0;
|
|
|
|
if (c == '(')
|
|
++e;
|
|
if (c == ')')
|
|
--e;
|
|
if (c == '\\' || c == '\"')
|
|
*q++ = '\\';
|
|
*q++ = c;
|
|
if (c == 0)
|
|
break;
|
|
p0 = p;
|
|
}
|
|
/* output with quotes */
|
|
fprintf(op, " \"%s\\n\"%s\n", l2, p0);
|
|
}
|
|
}
|
|
|
|
fclose(fp);
|
|
fclose(op);
|
|
return 0;
|
|
}
|
|
|
|
/* ----------------------------------------------------------------------- */
|
|
#elif 1
|
|
|
|
/* get some information from the host compiler for configure */
|
|
|
|
#include <stdio.h>
|
|
|
|
#if defined(_WIN32)
|
|
#include <fcntl.h>
|
|
#endif
|
|
|
|
/* Define architecture */
|
|
#if defined(__i386__) || defined _M_IX86
|
|
# define TRIPLET_ARCH "i386"
|
|
#elif defined(__x86_64__) || defined _M_AMD64
|
|
# define TRIPLET_ARCH "x86_64"
|
|
#elif defined(__arm__)
|
|
# define TRIPLET_ARCH "arm"
|
|
#elif defined(__aarch64__)
|
|
# define TRIPLET_ARCH "aarch64"
|
|
#elif defined(__riscv) && defined(__LP64__)
|
|
# define TRIPLET_ARCH "riscv64"
|
|
#else
|
|
# define TRIPLET_ARCH "unknown"
|
|
#endif
|
|
|
|
/* Define OS */
|
|
#if defined (__linux__)
|
|
# define TRIPLET_OS "linux"
|
|
#elif defined (__FreeBSD__) || defined (__FreeBSD_kernel__)
|
|
# define TRIPLET_OS "kfreebsd"
|
|
#elif defined(__NetBSD__)
|
|
# define TRIPLET_OS "netbsd"
|
|
#elif defined(__OpenBSD__)
|
|
# define TRIPLET_OS "openbsd"
|
|
#elif defined(_WIN32)
|
|
# define TRIPLET_OS "win32"
|
|
#elif defined(__APPLE__)
|
|
# define TRIPLET_OS "darwin"
|
|
#elif !defined (__GNU__)
|
|
# define TRIPLET_OS "unknown"
|
|
#endif
|
|
|
|
/* Define calling convention and ABI */
|
|
#if defined (__ARM_EABI__)
|
|
# if defined (__ARM_PCS_VFP)
|
|
# define TRIPLET_ABI "gnueabihf"
|
|
# else
|
|
# define TRIPLET_ABI "gnueabi"
|
|
# endif
|
|
#else
|
|
# define TRIPLET_ABI "gnu"
|
|
#endif
|
|
|
|
#if defined _WIN32
|
|
# define TRIPLET TRIPLET_ARCH "-" TRIPLET_OS
|
|
#elif defined __GNU__
|
|
# define TRIPLET TRIPLET_ARCH "-" TRIPLET_ABI
|
|
#else
|
|
# define TRIPLET TRIPLET_ARCH "-" TRIPLET_OS "-" TRIPLET_ABI
|
|
#endif
|
|
|
|
#if defined(_WIN32)
|
|
int _CRT_glob = 0;
|
|
#endif
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
#if defined(_WIN32)
|
|
_setmode(_fileno(stdout), _O_BINARY); /* don't translate \n to \r\n */
|
|
#endif
|
|
switch(argc == 2 ? argv[1][0] : 0) {
|
|
case 'b'://igendian
|
|
{
|
|
volatile unsigned foo = 0x01234567;
|
|
puts(*(unsigned char*)&foo == 0x67 ? "no" : "yes");
|
|
break;
|
|
}
|
|
#if defined(__clang__)
|
|
case 'm'://inor
|
|
printf("%d\n", __clang_minor__);
|
|
break;
|
|
case 'v'://ersion
|
|
printf("%d\n", __clang_major__);
|
|
break;
|
|
#elif defined(__TINYC__)
|
|
case 'v'://ersion
|
|
puts("0");
|
|
break;
|
|
case 'm'://inor
|
|
printf("%d\n", __TINYC__);
|
|
break;
|
|
#elif defined(_MSC_VER)
|
|
case 'v'://ersion
|
|
puts("0");
|
|
break;
|
|
case 'm'://inor
|
|
printf("%d\n", _MSC_VER);
|
|
break;
|
|
#elif defined(__GNUC__) && defined(__GNUC_MINOR__)
|
|
/* GNU comes last as other compilers may add 'GNU' compatibility */
|
|
case 'm'://inor
|
|
printf("%d\n", __GNUC_MINOR__);
|
|
break;
|
|
case 'v'://ersion
|
|
printf("%d\n", __GNUC__);
|
|
break;
|
|
#else
|
|
case 'm'://inor
|
|
case 'v'://ersion
|
|
puts("0");
|
|
break;
|
|
#endif
|
|
case 't'://riplet
|
|
puts(TRIPLET);
|
|
break;
|
|
case 'c'://ompiler
|
|
#if defined(__clang__)
|
|
puts("clang");
|
|
#elif defined(__TINYC__)
|
|
puts("tcc");
|
|
#elif defined(_MSC_VER)
|
|
puts("msvc");
|
|
#elif defined(__GNUC__)
|
|
puts("gcc");
|
|
#else
|
|
puts("unknown");
|
|
#endif
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* ----------------------------------------------------------------------- */
|
|
#endif
|