iff AST_COMMON
hdr pthread,stdarg,stddef,stdint,inttypes,types,unistd
sys types
typ long.double,size_t,ssize_t
mac SF_APPEND,SF_CLOSE sys/stat.h sys/socket.h
dll import note{ Microsoft import/export nonsense }end execute{
__declspec(dllimport) int foo;
int main() { return foo == 5 ? 0 : 1; }
int bar = 5;
int* _imp__foo = &bar;
}end
std proto note{ standard C prototypes ok }end compile{
extern int foo(int, int);
bar() { foo(1, 1); }
}end
tst ptr_void note{ standard C void* ok }end compile{
extern void* foo();
void* bar() { return foo(); }
}end
cat{
/* disable non-standard linux/gnu inlines */
#ifdef __GNUC__
# undef __OPTIMIZE_SIZE__
# define __OPTIMIZE_SIZE__ 1
#endif
/* __STD_C indicates that the language is ANSI-C or C++ */
#if !defined(__STD_C) && __STDC__
# define __STD_C 1
#endif
#if !defined(__STD_C) && (__cplusplus || c_plusplus)
# define __STD_C 1
#endif
#if !defined(__STD_C) && _std_proto
# define __STD_C 1
#endif
#if !defined(__STD_C)
# define __STD_C 0
#endif
/* extern symbols must be protected against C++ name mangling */
#ifndef _BEGIN_EXTERNS_
# if __cplusplus || c_plusplus
# define _BEGIN_EXTERNS_ extern "C" {
# define _END_EXTERNS_ }
# else
# define _BEGIN_EXTERNS_
# define _END_EXTERNS_
# endif
#endif
/* _ARG_ simplifies function prototyping among flavors of C */
#ifndef _ARG_
# if __STD_C
# define _ARG_(x) x
# else
# define _ARG_(x) ()
# endif
#endif
/* _NIL_ simplifies defining nil pointers to a given type */
#ifndef _NIL_
# define _NIL_(x) ((x)0)
#endif
/* __INLINE__ is the inline keyword */
#if !defined(__INLINE__) && defined(__cplusplus)
# define __INLINE__ inline
#endif
#if !defined(__INLINE__) && defined(_WIN32) && !defined(__GNUC__)
# define __INLINE__ __inline
#endif
/* Void_t is defined so that Void_t* can address any type */
#ifndef Void_t
# if __STD_C
# define Void_t void
# else
# define Void_t char
# endif
#endif
/* windows variants and veneers */
#if !defined(_WINIX) && (_UWIN || __CYGWIN__ || __EMX__)
# define _WINIX 1
#endif
/* dynamic linked library external scope handling */
#ifdef __DYNAMIC__
# undef __DYNAMIC__
# ifndef _DLL
# define _DLL 1
# endif
#endif
#if _dll_import
# if _BLD_STATIC && !_BLD_DLL
# undef _DLL
# else
# if !_UWIN && !defined(_DLL)
# define _DLL 1
# endif
# endif
# if !defined(__EXPORT__) && _BLD_DLL
# define __EXPORT__ __declspec(dllexport)
# endif
# if !defined(__IMPORT__) && ( _BLD_DLL || defined(_DLL) )
# define __IMPORT__ __declspec(dllimport)
# endif
# if _BLD_DLL && _UWIN
# define __DYNAMIC__(v) (_ast_getdll()->_ast_ ## v)
# endif
#endif
#if !defined(_astimport)
# if defined(__IMPORT__) && defined(_DLL)
# define _astimport __IMPORT__
# else
# define _astimport extern
# endif
#endif
#if _dll_import && ( !_BLD_DLL || _WINIX && !_UWIN )
# ifdef __STDC__
# define __EXTERN__(T,obj) extern T obj; T* _imp__ ## obj = &obj
# define __DEFINE__(T,obj,val) T obj = val; T* _imp__ ## obj = &obj
# else
# define __EXTERN__(T,obj) extern T obj; T* _imp__/**/obj = &obj
# define __DEFINE__(T,obj,val) T obj = val; T* _imp__/**/obj = &obj
# endif
#else
# define __EXTERN__(T,obj) extern T obj
# define __DEFINE__(T,obj,val) T obj = val
#endif
}end
tst ast_LL note{ LL numeric suffix supported }end compile{
int i = 1LL;
unsigned int u = 1ULL; /* NOTE: some compilers choke on 1LLU */
}end
tst - -DN=1 - -DN=2 - -DN=3 - -DN=4 - -DN=5 - -DN=6 - -DN=7 - -DN=8 - -DN=0 output{
#define _BYTESEX_H
#include <string.h>
#include <sys/types.h>
#if _STD_
#if N == 1
#define _ast_int8_t long
#define _ast_int8_str "long"
#endif
#if N == 2
#define _ast_int8_t long long
#define _ast_int8_str "long long"
#endif
#if N == 3
#define _ast_int8_t __int64
#define _ast_int8_str "__int64"
#endif
#if N == 4
#define _ast_int8_t __int64_t
#define _ast_int8_str "__int64_t"
#endif
#if N == 5
#define _ast_int8_t _int64_t
#define _ast_int8_str "_int64_t"
#endif
#if N == 6
#define _ast_int8_t int64_t
#define _ast_int8_str "int64_t"
#endif
#if N == 7
#define _ast_int8_t _int64
#define _ast_int8_str "_int64"
#endif
#if N == 8
#define _ast_int8_t int64
#define _ast_int8_str "int64"
#endif
#endif
#define elementsof(x) (sizeof(x)/sizeof(x[0]))
static char i_char = 1;
static short i_short = 1;
static int i_int = 1;
static long i_long = 1L;
#ifdef _ast_int8_t
#if _ast_LL
static _ast_int8_t i_long_long = 1LL;
static unsigned _ast_int8_t u_long_long = 18446744073709551615ULL;
#else
static _ast_int8_t i_long_long = 1;
static unsigned _ast_int8_t u_long_long = 18446744073709551615;
#endif
#endif
static struct
{
char* name;
int size;
char* swap;
} int_type[] =
{
"char", sizeof(char), (char*)&i_char,
"short", sizeof(short), (char*)&i_short,
"int", sizeof(int), (char*)&i_int,
"long", sizeof(long), (char*)&i_long,
#ifdef _ast_int8_t
_ast_int8_str, sizeof(_ast_int8_t), (char*)&i_long_long,
#endif
};
static int int_size[] = { 1, 2, 4, 8 };
int
main()
{
register int t;
register int s;
register int m = 1;
register int b = 1;
register int w = 0;
#ifdef _ast_int8_t
unsigned _ast_int8_t p;
char buf[64];
if (int_type[elementsof(int_type)-1].size <= 4)
return 1;
p = 0x12345678;
p <<= 32;
p |= 0x9abcdef0;
sprintf(buf, "0x%016llx", p);
if (strcmp(buf, "0x123456789abcdef0"))
return 1;
#endif
for (s = 0; s < elementsof(int_size); s++)
{
for (t = 0; t < elementsof(int_type) && int_type[t].size < int_size[s]; t++);
if (t < elementsof(int_type))
{
m = int_size[s];
#if __INTERIX
if (m == 8)
{
printf("#ifdef _MSC_VER\n");
printf("#define _ast_int8_t __int64\n");
printf("#else\n");
printf("#define _ast_int8_t long long\n");
printf("#endif\n");
}
else
#endif
printf("#define _ast_int%d_t %s\n", m, int_type[t].name);
if (m > 1)
{
if (*int_type[t].swap)
w |= b;
b <<= 1;
}
}
}
printf("#define _ast_intmax_t _ast_int%d_t\n", m);
if (m == sizeof(long))
printf("#define _ast_intmax_long 1\n");
printf("#define _ast_intswap %d\n", w);
printf("\n");
return 0;
}
}end
tst - -DN=1 - -DN=0 output{
#define _BYTESEX_H
#include <string.h>
#include <sys/types.h>
#if !N || !_STD_
#undef _typ_long_double
#endif
#define elementsof(x) (sizeof(x)/sizeof(x[0]))
static struct
{
char* name;
int size;
} flt_type[] =
{
"float", sizeof(float),
"double", sizeof(double),
#ifdef _typ_long_double
"long double", sizeof(long double),
#endif
};
int
main()
{
register int t;
register int m = 1;
#ifdef _typ_long_double
long double p;
char buf[64];
if (flt_type[elementsof(flt_type)-1].size <= sizeof(double))
return 1;
p = 1.12345E-55;
sprintf(buf, "%1.5LE", p);
if (strcmp(buf, "1.12345E-55"))
return 1;
#endif
for (t = 0; t < elementsof(flt_type); t++)
{
while (t < (elementsof(flt_type) - 1) && flt_type[t].size == flt_type[t + 1].size)
t++;
m = flt_type[t].size;
printf("#define _ast_flt%d_t %s\n", flt_type[t].size, flt_type[t].name);
}
printf("#define _ast_fltmax_t _ast_flt%d_t\n", m);
if (m == sizeof(double))
printf("#define _ast_fltmax_double 1\n");
return 0;
}
}end
typ int8_t stdint.h inttypes.h no{
#undef _typ_int8_t
#define _typ_int8_t 1
typedef _ast_int1_t int8_t;
}end
typ uint8_t stdint.h inttypes.h no{
#undef _typ_uint8_t
#define _typ_uint8_t 1
typedef unsigned _ast_int1_t uint8_t;
}end
typ int16_t stdint.h inttypes.h no{
#undef _typ_int16_t
#define _typ_int16_t 1
typedef _ast_int2_t int16_t;
}end
typ uint16_t stdint.h inttypes.h no{
#undef _typ_uint16_t
#define _typ_uint16_t 1
typedef unsigned _ast_int2_t uint16_t;
}end
typ int32_t stdint.h inttypes.h no{
#undef _typ_int32_t
#define _typ_int32_t 1
typedef _ast_int4_t int32_t;
}end
typ uint32_t stdint.h inttypes.h no{
#undef _typ_uint32_t
#define _typ_uint32_t 1
typedef unsigned _ast_int4_t uint32_t;
}end
typ int64_t stdint.h inttypes.h no{
#ifdef _ast_int8_t
#undef _typ_int64_t
#define _typ_int64_t 1
typedef _ast_int8_t int64_t;
#endif
}end
typ uint64_t stdint.h inttypes.h no{
#ifdef _ast_int8_t
#undef _typ_uint64_t
#define _typ_uint64_t 1
typedef unsigned _ast_int8_t uint64_t;
#endif
}end
typ intmax_t stdint.h inttypes.h no{
typedef _ast_intmax_t intmax_t;
}end
typ uintmax_t stdint.h inttypes.h no{
typedef unsigned _ast_intmax_t uintmax_t;
}end
tst - -DTRY=1 - -DTRY=1 -Dvoid=char - -DTRY=2 - -DTRY=3 - -DTRY=4 output{
#if _STD_ && _hdr_stdarg
#include <stdarg.h>
static void
varyfunny(int* p, ...)
{
va_list ap;
va_start(ap, p);
#if TRY == 1
*p = *ap++ != 0;
#endif /*TRY == 1*/
#if TRY == 2
*p = *ap != 0;
#endif /*TRY == 2*/
#if TRY == 3
*p = ap++ != 0;
#endif /*TRY == 3*/
va_end(ap);
}
#else
#include <varargs.h>
static void
varyfunny(va_alist)
va_dcl
{
va_list ap;
int* p;
va_start(ap);
p = va_arg(ap, int*);
#if TRY == 1
*p = *ap++ != 0;
#endif /*TRY == 1*/
#if TRY == 2
*p = *ap != 0;
#endif /*TRY == 2*/
#if TRY == 3
*p = ap++ != 0;
#endif /*TRY == 3*/
va_end(ap);
}
#endif
int
main()
{
int r;
printf("\n#ifndef va_listref\n");
printf("#ifndef va_start\n");
printf("#if __STD_C\n");
printf("#include <stdarg.h>\n");
printf("#else\n");
printf("#include <varargs.h>\n");
printf("#endif\n");
printf("#endif\n");
#if TRY == 4
printf("#define va_listref(p) (&(p))\t");
printf("/* pass va_list to varargs function */\n");
printf("#define va_listval(p) (*(p))\t");
printf("/* retrieve va_list from va_arg(ap,va_listarg) */\n");
printf("#define va_listarg va_list*\t");
printf("/* va_arg() va_list type */\n");
#else
varyfunny(&r);
printf("#define va_listref(p) (p)\t");
printf("/* pass va_list to varargs function */\n");
if (sizeof(va_list) > sizeof(void*))
printf("#define va_listval(p) (*(p))\t");
else
printf("#define va_listval(p) (p)\t");
printf("/* retrieve va_list from va_arg(ap,va_listarg) */\n");
#if TRY == 2
printf("#define va_listarg va_list*\t");
#else
printf("#define va_listarg va_list\t");
#endif /*TRY == 2*/
printf("/* va_arg() va_list type */\n");
#endif /*TRY == 4*/
#if _UWIN
printf("#ifndef va_copy\n");
printf("#define va_copy(to,fr) ((to)=(fr))\t");
printf("/* copy va_list fr -> to */\n");
printf("#endif\n");
#else
#if !defined(va_copy)
#if defined(__va_copy)
printf("#ifndef va_copy\n");
printf("#define va_copy(to,fr) __va_copy(to,fr)\t");
printf("/* copy va_list fr -> to */\n");
printf("#endif\n");
#else
#if TRY == 2
printf("#ifndef va_copy\n");
printf("#define va_copy(to,fr) memcpy(to,fr,sizeof(va_list))\t");
printf("/* copy va_list fr -> to */\n");
printf("#endif\n");
#else
printf("#ifndef va_copy\n");
printf("#define va_copy(to,fr) ((to)=(fr))\t");
printf("/* copy va_list fr -> to */\n");
printf("#endif\n");
#endif
#endif
#endif
#endif
printf("#endif\n");
return 0;
}
}end
cat{
#ifndef _AST_STD_H
# if __STD_C && _hdr_stddef
# include <stddef.h>
# endif
# if _sys_types
# include <sys/types.h>
# endif
# if _hdr_stdint
# include <stdint.h>
# else
# if _hdr_inttypes
# include <inttypes.h>
# endif
# endif
#endif
#if !_typ_size_t
# define _typ_size_t 1
typedef int size_t;
#endif
#if !_typ_ssize_t
# define _typ_ssize_t 1
typedef int ssize_t;
#endif
#ifndef _AST_STD_H
# define _def_map_ast 1
# if !_def_map_ast
# include <ast_map.h>
# endif
#endif
}end
run{
grep __NO_INCLUDE_WARN__ /usr/include/stat.h >/dev/null 2>&1 &&
grep __name_h /usr/include/name.h >/dev/null 2>&1 &&
cat <<!
#ifndef __NO_INCLUDE_WARN__
#define __NO_INCLUDE_WARN__ 1
#endif
/* disable ${HOSTTYPE} <sys/stat.h> <name.h> hijack */
#ifndef __name_h
#define __name_h 1
#endif
!
}end