+++ /dev/null
-iff AST_COMMON
-hdr pthread
-hdr stddef
-hdr types
-sys types
-typ size_t,ssize_t
-typ long.double
-
-mac SF_CLOSE sys/socket.h
-mac SF_APPEND sys/stat.h
-
-proto stdc note{ Standard-C prototypes ok }end compile{
- extern int foo(int, int);
- bar()
- { foo(1, 1);
- }
-}end
-
-dll import note{ Microsoft import/export nonsense }end execute{
- __declspec(dllimport) int foo;
- main() { return foo == 5 ? 0 : 1; }
- int bar = 5;
- int* _imp__foo = &bar;
-}end
-
-xopen stdio note{ Stdio fseek/fflush are X/Open-compliant }end execute{
- #include <stdio.h>
- #define Failed(file) (unlink(file),1)
- main(int argc, char** argv)
- { FILE *f1, *f2;
- char file[1024], buf[1024], *f, *t;
- int i, fd;
-
- /* create file */
- for(f = argv[0], t = file; (*t = *f++) != 0; )
- t++;
- *t++ = '.'; *t++ = 'D'; *t++ = 0;
- if((fd = creat(file,0666)) < 0)
- return 1;
-
- for (i = 0; i < sizeof(buf); ++i)
- buf[i] = '0' + (i%10);
- for (i = 0; i < 16; ++i)
- if (write(fd,buf,sizeof(buf)) != sizeof(buf))
- return Failed(file);
- close(fd);
-
- if(!(f1 = fopen(file,"r+")) ||
- (fd = dup(fileno(f1))) < 0 ||
- !(f2 = fdopen(fd,"r+")) )
- return Failed(file);
-
- if(fread(buf, 1, 7, f2) != 7 || ftell(f2) != 7)
- return Failed(file);
-
- if(fseek(f1, 1010, 0) < 0 || ftell(f1) != 1010)
- return Failed(file);
-
- fflush(f2); /* this should set the seek location to 1010 */
- if(ftell(f2) != 1010)
- return Failed(file);
-
- unlink(file);
- return 0;
- }
-}end
-
-cat{
-
- /* __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) && _proto_stdc
- #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 /*_BEGIN_EXTERNS_*/
-
- /* _ARG_ simplifies function prototyping among flavors of C */
- #ifndef _ARG_
- #if __STD_C
- #define _ARG_(x) x
- #else
- #define _ARG_(x) ()
- #endif
- #endif /*_ARG_*/
-
- /* __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 /*Void_t*/
-
- /* dynamic linked library external scope handling */
- #undef extern
- #if _dll_import && !defined(__EXPORT__) && _DLL_BLD
- #define __EXPORT__ __declspec(dllexport)
- #endif
- #if _dll_import && !defined(__IMPORT__)
- #define __IMPORT__ __declspec(dllimport)
- #endif
- #if !defined(_astimport)
- #if defined(__IMPORT__) && _DLL_BLD
- #define _astimport __IMPORT__
- #else
- #define _astimport extern
- #endif
- #endif /*_astimport*/
-}end
-
-cat{
- #if !_DLL_BLD && _dll_import
- #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
- #define __DEFINE__(T,obj,val) T obj = val
- #endif
-}end
-
-cat{
- #ifndef _AST_STD_H
- # if _hdr_stddef
- # include <stddef.h>
- # endif
- # if _sys_types
- # include <sys/types.h>
- # 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
-}end
-
-tst - -DN=0 - -DN=1 - -DN=2 - -DN=3 - -DN=4 - -DN=5 - -DN=6 - -DN=7 - -DN=8 output{
- #define _BYTESEX_H
-
- #if _STD_
- #include <stddef.h>
- #else
- #include <sys/types.h>
- #endif
-
- _BEGIN_EXTERNS_
- extern int printf _ARG_((const char*, ...));
- _END_EXTERNS_
-
- #if N == 0
- #define _ast_int8_t long
- #define _ast_int8_str "long"
- #endif
- #if N == 1
- #define _ast_int8_t long long
- #define _ast_int8_str "long long"
- #endif
- #if N == 2
- #define _ast_int8_t __int64_t
- #define _ast_int8_str "__int64_t"
- #endif
- #if N == 3
- #define _ast_int8_t _int64_t
- #define _ast_int8_str "_int64_t"
- #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
- #define _ast_int8_str "__int64"
- #endif
- #if N == 6
- #define _ast_int8_t _int64
- #define _ast_int8_str "_int64"
- #endif
- #if N == 7
- #define _ast_int8_t int64
- #define _ast_int8_str "int64"
- #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 = 1;
- #ifdef _ast_int8_t
- static _ast_int8_t i_long_long = 1;
- #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 struct
- {
- char* name;
- int size;
- } flt_type[] =
- {
- "float", sizeof(float),
- "double", sizeof(double),
- #ifdef _typ_long_double
- "long double", sizeof(long double),
- #endif
- };
-
- static int int_size[] = { 1, 2, 4, 8 };
-
- main()
- {
- register int t;
- register int s;
- register int m = 1;
- register int b = 1;
- register int w = 0;
-
- #ifdef _ast_int8_t
- if (int_type[elementsof(int_type)-1].size <= 4)
- return 1;
- #endif
- for (s = 0; s < elementsof(int_size); s++)
- {
- for (t = 0; t < elementsof(int_type); t++)
- if(int_type[t].size >= int_size[s])
- break;
- if (t < elementsof(int_type))
- {
- m = int_size[s];
- printf("#define _ast_int%d_t\t\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");
- for (t = 0; t < elementsof(flt_type); t++)
- {
- for(; t < elementsof(flt_type); t++)
- if(flt_type[t].size != flt_type[t + 1].size)
- break;
- m = flt_type[t].size;
- printf("#define _ast_flt%d_t\t\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
-
-tst - -DTRY=1 - -DTRY=1 -Dvoid=char - -DTRY=2 - -DTRY=3 - -DTRY=4 output{
- #define printf ______printf
- #ifdef __STDC__
- #include <stdarg.h>
- #else
- #include <varargs.h>
- #endif
- #undef printf
- _BEGIN_EXTERNS_
- extern int printf _ARG_((const char*, ...));
- _END_EXTERNS_
- static va_list ap;
- main()
- {
- #if TRY == 4
- printf("\n#ifndef va_listref\n");
- 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
- #if TRY == 1
- *ap++;
- #endif /*TRY == 1*/
- #if TRY == 2
- *ap;
- #endif /*TRY == 2*/
- #if TRY == 3
- ap++;
- #endif /*TRY == 3*/
-
- printf("\n#ifndef va_listref\n");
- 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");
- #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 defined(_WIN32) || !defined(va_copy)
- printf("#ifndef va_copy\n");
- #if TRY == 2
- printf("#define va_copy(to,fr) memcpy(to,fr,sizeof(va_list))\t");
- printf("/* copy va_list fr -> to */\n");
- #else
- printf("#define va_copy(to,fr) ((to)=(fr))\t");
- printf("/* copy va_list fr -> to */\n");
- #endif
- printf("#endif\n");
- #endif
-
- printf("#undef _ast_va_list\n");
- printf("#ifdef va_start\n");
- printf("#define _ast_va_list va_list\n");
- printf("#else\n");
- #if TRY == 1 || TRY == 2
- printf("#define _ast_va_list void*\t");
- #else
- #if TRY == 3
- if (sizeof(va_list) == sizeof(long))
- printf("#define _ast_va_list long\t");
- else if (sizeof(va_list) == sizeof(short))
- printf("#define _ast_va_list short\t");
- else
- printf("#define _ast_va_list int\t");
- #else
- printf("#define _ast_va_list ...\t");
- #endif
- #endif
- printf("/* va_list that avoids #include */\n");
- printf("#endif\n\n");
- printf("#endif\n");
- return 0;
- }
-}end
projects / graphviz / commitdiff