# Ausgabe aller Definitionen aus lispbibl.d, die an externe Module # exportiert werden. # Bruno Haible 21.6.1995 #include "lispbibl.c" #include # Ausgabe von Strings mit eingebetteten Zahlen, wie printf(). # Nur daß die Zahlen auch vom Typ `unsigned long long' sein können. # Wir vermeiden es, oder vorauszusetzen. typedef struct { char base; # 'd' für dezimal, 'x' für hexadezimal int size; union { uint8 val8; uint16 val16; uint32 val32; #ifdef HAVE_LONGLONG uint64 val64; #endif } value; } printf_arg; #ifdef HAVE_LONGLONG #define fill_printf_arg(where,expr) \ where.size = sizeof(expr); \ if (sizeof(expr) == sizeof(uint8)) { where.value.val8 = (uint8)(expr); } \ elif (sizeof(expr) == sizeof(uint16)) { where.value.val16 = (uint16)(expr); } \ elif (sizeof(expr) == sizeof(uint32)) { where.value.val32 = (uint32)(expr); } \ elif (sizeof(expr) == sizeof(uint64)) { where.value.val64 = (uint64)(expr); } \ else abort(); #else #define fill_printf_arg(where,expr) \ where.size = sizeof(expr); \ if (sizeof(expr) == sizeof(uint8)) { where.value.val8 = (uint8)(expr); } \ elif (sizeof(expr) == sizeof(uint16)) { where.value.val16 = (uint16)(expr); } \ elif (sizeof(expr) == sizeof(uint32)) { where.value.val32 = (uint32)(expr); } \ else abort(); #endif local char* Lsuffix = #ifdef ANSI "L" #else "" #endif ; local char* ULsuffix = #ifdef ANSI "UL" #else "" #endif ; #ifdef HAVE_LONGLONG local char* ULLsuffix = #ifdef ANSI "ULL" #else "" #endif ; #endif global void print_printf_arg (printf_arg* arg); global void print_printf_arg(arg) var reg1 printf_arg* arg; { switch (arg->size) { case sizeof(uint8): printf(arg->base=='d' ? "%u" : "0x%X", (unsigned int)(arg->value.val8)); break; case sizeof(uint16): printf(arg->base=='d' ? "%u" : "0x%X", (unsigned int)(arg->value.val16)); break; case sizeof(uint32): printf(arg->base=='d' ? "%lu%s" : "0x%lX%s", (unsigned long)(arg->value.val32), ULsuffix); break; #ifdef HAVE_LONGLONG case sizeof(uint64): #if (long_bitsize == 64) if (!(sizeof(uint64) == sizeof(unsigned long))) { abort(); } printf("0x%lX%s", (unsigned long)(arg->value.val64), ULsuffix); #else if (!(sizeof(uint32) == sizeof(unsigned long))) { abort(); } printf("0x%lX%08lX%s", (unsigned long)(arg->value.val64 >> 32), (unsigned long)(arg->value.val64 & 0xFFFFFFFFUL), ULLsuffix ); #endif break; #endif default: abort(); } } global void printf_with_args (char* string, int argcount, printf_arg* args); global void printf_with_args(string,argcount,args) var reg1 char* string; var reg3 int argcount; var reg2 printf_arg* args; { while (*string) { if (string[0]=='%') { if (!(string[1]=='d' || string[1]=='x')) { abort(); } if (!(argcount > 0)) { abort(); } args->base = string[1]; print_printf_arg(args); string+=2; args++; argcount--; } else { putchar(*string); string++; } } } #define printf0(string) printf(string) #define printf1(string,arg0) \ { var printf_arg args[1]; \ fill_printf_arg(args[0],arg0); \ printf_with_args(string,1,args); \ } #define printf2(string,arg0,arg1) \ { var printf_arg args[2]; \ fill_printf_arg(args[0],arg0); \ fill_printf_arg(args[1],arg1); \ printf_with_args(string,2,args); \ } #define printf3(string,arg0,arg1,arg2) \ { var printf_arg args[3]; \ fill_printf_arg(args[0],arg0); \ fill_printf_arg(args[1],arg1); \ fill_printf_arg(args[2],arg2); \ printf_with_args(string,3,args); \ } #define printf4(string,arg0,arg1,arg2,arg3) \ { var printf_arg args[4]; \ fill_printf_arg(args[0],arg0); \ fill_printf_arg(args[1],arg1); \ fill_printf_arg(args[2],arg2); \ fill_printf_arg(args[3],arg3); \ printf_with_args(string,4,args); \ } #define printf5(string,arg0,arg1,arg2,arg3,arg4) \ { var printf_arg args[5]; \ fill_printf_arg(args[0],arg0); \ fill_printf_arg(args[1],arg1); \ fill_printf_arg(args[2],arg2); \ fill_printf_arg(args[3],arg3); \ fill_printf_arg(args[4],arg4); \ printf_with_args(string,5,args); \ } #define printf6(string,arg0,arg1,arg2,arg3,arg4,arg5) \ { var printf_arg args[6]; \ fill_printf_arg(args[0],arg0); \ fill_printf_arg(args[1],arg1); \ fill_printf_arg(args[2],arg2); \ fill_printf_arg(args[3],arg3); \ fill_printf_arg(args[4],arg4); \ fill_printf_arg(args[5],arg5); \ printf_with_args(string,6,args); \ } #define printf7(string,arg0,arg1,arg2,arg3,arg4,arg5,arg6) \ { var printf_arg args[7]; \ fill_printf_arg(args[0],arg0); \ fill_printf_arg(args[1],arg1); \ fill_printf_arg(args[2],arg2); \ fill_printf_arg(args[3],arg3); \ fill_printf_arg(args[4],arg4); \ fill_printf_arg(args[5],arg5); \ fill_printf_arg(args[6],arg6); \ printf_with_args(string,7,args); \ } global int main() { char* glue = #ifdef ANSI "##" #else "/**/" #endif ; printf("#ifndef _CLISP_H\n"); printf("#define _CLISP_H\n"); printf("\n"); printf("#include \"config.h\"\n"); # Wir setzen Unix voraus. # printf("\n"); # printf("#include \"machine.h\"\n"); # printf("\n"); # #ifdef LANGUAGE_STATIC # printf1("#define ENGLISH %d\n",ENGLISH); # printf1("#define DEUTSCH %d\n",DEUTSCH); # printf1("#define FRANCAIS %d\n",FRANCAIS); # #else # printf1("#define ENGLISH (language==%d)\n",language_english); # printf1("#define DEUTSCH (language==%d)\n",language_deutsch); # printf1("#define FRANCAIS (language==%d)\n",language_francais); # #endif # printf1("#define BIG_ENDIAN_P %d\n",BIG_ENDIAN_P); # #if !defined(ANSI) && !defined(UNIXCONF) # printf("#define const\n"); # #endif # #if !defined(ANSI) # printf("#define volatile\n"); # #endif # #if !defined(ANSI) && !defined(__CHAR_UNSIGNED__) # printf("#define signed\n"); # #endif #if !defined(ANSI) && !defined(UNIXCONF) printf("#define void char\n"); #endif # #if !defined(GNU) && !defined(UNIXCONF) # printf("#define inline\n"); # #endif printf("#ifdef __cplusplus\n"); printf("#define BEGIN_DECLS extern \"C\" {\n"); printf("#define END_DECLS }\n"); printf("#else\n"); printf("#define BEGIN_DECLS\n"); printf("#define END_DECLS\n"); printf("#endif\n"); printf("#define CONCAT_(xxx,yyy) xxx%syyy\n",glue); printf("#define CONCAT3_(aaa,bbb,ccc) aaa%sbbb%sccc\n",glue,glue); # printf("#define CONCAT4_(aaa,bbb,ccc,ddd) aaa%sbbb%sccc%sddd\n",glue,glue,glue); # printf("#define CONCAT5_(aaa,bbb,ccc,ddd,eee) aaa%sbbb%sccc%sddd%seee\n",glue,glue,glue,glue); printf("#define CONCAT(xxx,yyy) CONCAT_(xxx,yyy)\n"); printf("#define CONCAT3(aaa,bbb,ccc) CONCAT3_(aaa,bbb,ccc)\n"); # printf("#define CONCAT4(aaa,bbb,ccc,ddd) CONCAT4_(aaa,bbb,ccc,ddd)\n"); # printf("#define CONCAT5(aaa,bbb,ccc,ddd,eee) CONCAT5_(aaa,bbb,ccc,ddd,eee)\n"); #ifdef ANSI printf("#define STRING(token) #token\n"); #else printf("#define STRING(token) \"token\"\n"); #endif printf("#define STRINGIFY(token) STRING(token)\n"); printf("#define global\n"); # printf("#define local static\n"); #ifdef GNU printf("#define nonreturning __volatile__\n"); #else printf("#define nonreturning\n"); #endif printf("#define maygc\n"); #ifdef ANSI printf("#define _ARGS(x) x\n"); #else printf("#define _ARGS(x) ()\n"); #endif #ifdef GNU #ifdef ANSI printf("#define nonreturning_function(storclass,funname,arguments) \\\n"); printf(" typedef void CONCAT3(funname,_function_,__LINE__) arguments; \\\n"); printf(" storclass nonreturning CONCAT3(funname,_function_,__LINE__) funname\n"); #else printf("typedef void void_function ();\n"); printf("#define nonreturning_function(storclass,funname,arguments) \\\n"); printf(" storclass nonreturning void_function funname\n"); #endif #else #ifdef ANSI printf("#define nonreturning_function(storclass,funname,arguments) \\\n"); printf(" storclass void funname arguments\n"); #else printf("#define nonreturning_function(storclass,funname,arguments) \\\n"); printf(" storclass void funname()\n"); #endif #endif printf("#define var\n"); { int i; for (i=1; i<=10; i++) { if (regvarcount>=i) printf("#define reg%d register\n",i); else printf("#define reg%d\n",i); } } # printf("#define elif else if\n"); # printf("#define loop while (1)\n"); # printf("#define until(expression) while(!(expression))\n"); # printf("#define NOTREACHED fehler_notreached(__FILE__,__LINE__);\n"); # printf("#define ASSERT(expr) { if (!(expr)) { NOTREACHED } }\n"); # #if defined(GNU) && !defined(RISCOS) && !defined(CONVEX) # printf("#define alloca __builtin_alloca\n"); # #elif defined(HAVE_ALLOCA_H) || defined(RISCOS) # printf("#include \n"); # #ifndef alloca # #ifdef UNIX_OSF # printf("extern char* alloca _ARGS((int size));\n"); # #else # printf("extern void* alloca _ARGS((int size));\n"); # #endif # #endif # #elif defined(_AIX) # printf("#pragma alloca\n"); # #elif defined(WATCOM) # printf("#include \n"); # #elif !defined(NO_ALLOCA) # printf("extern void* alloca _ARGS((int size));\n"); # #endif #ifdef __CHAR_UNSIGNED__ printf("typedef signed char CLISP_BYTE;\n"); #else printf("typedef char CLISP_BYTE;\n"); #endif printf("typedef unsigned char CLISP_UBYTE;\n"); printf("typedef short CLISP_WORD;\n"); printf("typedef unsigned short CLISP_UWORD;\n"); #if (long_bitsize==32) printf("typedef long CLISP_LONG;\n"); printf("typedef unsigned long CLISP_ULONG;\n"); #elif (int_bitsize==32) printf("typedef int CLISP_LONG;\n"); printf("typedef unsigned int CLISP_ULONG;\n"); #endif #if (long_bitsize==64) printf("typedef long CLISP_LONGLONG;\n"); printf("typedef unsigned long CLISP_ULONGLONG;\n"); #elif defined(HAVE_LONGLONG) printf("typedef long long CLISP_LONGLONG;\n"); printf("typedef unsigned long long CLISP_ULONGLONG;\n"); #endif printf("#define TRUE 1\n"); printf("#define FALSE 0\n"); printf("typedef unsigned int boolean;\n"); printf("#undef NULL\n"); printf("#define NULL ((void*) 0L)\n"); #if defined(GNU) printf("#define unspecified 0\n"); #else printf("#define unspecified 1\n"); #endif #if !(defined(GNU) || (pointer_bitsize > 32)) printf("#define pointerplus(pointer,offset) ((void*)((CLISP_ULONG)(pointer)+(offset)))\n"); #else printf("#define pointerplus(pointer,offset) ((CLISP_UBYTE*)(pointer)+(offset))\n"); #endif printf("#define bit(n) (1%s<<(n))\n",Lsuffix); # printf("#define bitm(n) (2%s<<((n)-1))\n",Lsuffix); #if !defined(SPARC) printf("#define bit_test(x,n) ((x) & bit(n))\n"); #else #if !defined(GNU) printf("#define bit_test(x,n) ((n)<12 ? ((x) & bit(n)) : ((sint32)((uint32)(x) << (31-(n))) < 0))\n"); #else printf("#define bit_test(x,n) ((((n)<12) && ((x) & bit(n))) || (((n)>=12) && ((sint32)((uint32)(x) << (31-(n))) < 0)))\n"); #endif #endif # printf("#define minus_bit(n) (-1%s<<(n))\n",Lsuffix); # printf("#define minus_bitm(n) (-2%s<<((n)-1))\n",Lsuffix); # printf("#define floor(a_from_floor,b_from_floor) ((a_from_floor) / (b_from_floor))\n"); # printf("#define ceiling(a_from_ceiling,b_from_ceiling) (((a_from_ceiling) + (b_from_ceiling) - 1) / (b_from_ceiling))\n"); # printf("#define round_down(a_from_round,b_from_round) (floor(a_from_round,b_from_round)*(b_from_round))\n"); # printf("#define round_up(a_from_round,b_from_round) (ceiling(a_from_round,b_from_round)*(b_from_round))\n"); # #if defined(GNU) # #ifdef DECALPHA # printf("#define DYNAMIC_ARRAY(regdecl,arrayvar,arrayeltype,arraysize) arrayeltype arrayvar[(arraysize)+1]\n"); # #else # printf("#define DYNAMIC_ARRAY(regdecl,arrayvar,arrayeltype,arraysize) arrayeltype arrayvar[arraysize]\n"); # #endif # printf("#define FREE_DYNAMIC_ARRAY(arrayvar)\n"); # #elif (defined(UNIX) && (defined(HAVE_ALLOCA_H) || defined(_AIX) || !defined(NO_ALLOCA))) || defined(WATCOM) || defined(RISCOS) # printf("#define DYNAMIC_ARRAY(regdecl,arrayvar,arrayeltype,arraysize) regdecl arrayeltype* arrayvar = (arrayeltype*)alloca((arraysize)*sizeof(arrayeltype))\n"); # printf("#define FREE_DYNAMIC_ARRAY(arrayvar)\n"); # #else # #ifdef HAVE_STDLIB_H # printf("#include \n"); # #else # printf("#include \n"); # #endif # printf("extern void* malloca _ARGS((size_t size));\n"); # printf("extern void freea _ARGS((void* ptr));\n"); # printf("#define DYNAMIC_ARRAY(regdecl,arrayvar,arrayeltype,arraysize) regdecl arrayeltype* arrayvar = (arrayeltype*)malloca((arraysize)*sizeof(arrayeltype))\n"); # printf("#define FREE_DYNAMIC_ARRAY(arrayvar) freea(arrayvar)\n"); # #endif { int i; for (i=1; i<=8; i++) { printf("typedef CLISP_UBYTE uint%d;\n",i); printf("typedef CLISP_BYTE sint%d;\n",i); } for (i=9; i<=16; i++) { printf("typedef CLISP_UWORD uint%d;\n",i); printf("typedef CLISP_WORD sint%d;\n",i); } for (i=17; i<=32; i++) { printf("typedef CLISP_ULONG uint%d;\n",i); printf("typedef CLISP_LONG sint%d;\n",i); } #ifdef HAVE_LONGLONG for (i=33; i<=64; i++) if ((i==33) || (i==48) || (i==64)) { printf("typedef CLISP_ULONGLONG uint%d;\n",i); printf("typedef CLISP_LONGLONG sint%d;\n",i); } #endif } # printf("typedef sint%d sintB;\n",intBsize); printf("typedef uint%d uintB;\n",intBsize); # printf("typedef sint%d sintW;\n",intWsize); printf("typedef uint%d uintW;\n",intWsize); printf("typedef sint%d sintL;\n",intLsize); printf("typedef uint%d uintL;\n",intLsize); # #ifdef intQsize # printf("typedef sint%d sintQ;\n",intQsize); # printf("typedef uint%d uintQ;\n",intQsize); # #else # printf("typedef struct { sintL hi; uintL lo; } sintL2;\n"); # printf("typedef struct { uintL hi; uintL lo; } uintL2;\n"); # #endif printf("typedef sint%d sintP;\n",pointer_bitsize); # printf("typedef uint%d uintP;\n",pointer_bitsize); # printf("typedef sint%d sintBW;\n",intBWsize); # printf("typedef uint%d uintBW;\n",intBWsize); # printf("typedef sint%d sintWL;\n",intWLsize); printf("typedef uint%d uintWL;\n",intWLsize); # printf("typedef sint%d sintBWL;\n",intBWLsize); printf("typedef uint%d uintBWL;\n",intBWLsize); # #ifdef fast_dotimesW # #if (__GNUC__<2) # printf("#define dotimesW(countvar_from_dotimesW,count_from_dotimesW,statement_from_dotimesW) \\\n"); # printf(" { countvar_from_dotimesW = (count_from_dotimesW); \\\n"); # printf(" if (!(countvar_from_dotimesW==0)) \\\n"); # printf(" { countvar_from_dotimesW--; \\\n"); # printf(" do {statement_from_dotimesW} \\\n"); # printf(" until ((sintW)--countvar_from_dotimesW==-1); \\\n"); # printf(" } }\n"); # printf("#define dotimespW(countvar_from_dotimespW,count_from_dotimespW,statement_from_dotimespW) \\\n"); # printf(" { countvar_from_dotimespW = (count_from_dotimespW)-1; \\\n"); # printf(" do {statement_from_dotimespW} until ((sintW)--countvar_from_dotimespW==-1); \\\n"); # printf(" }\n"); # #else # printf("#define dotimesW(countvar_from_dotimesW,count_from_dotimesW,statement_from_dotimesW) \\\n"); # printf(" { countvar_from_dotimesW = (count_from_dotimesW); \\\n"); # printf(" if (!(countvar_from_dotimesW==0)) \\\n"); # printf(" { countvar_from_dotimesW--; \\\n"); # printf(" do {statement_from_dotimesW} \\\n"); # printf(" until ((sintW)(--countvar_from_dotimesW)+1==0); \\\n"); # printf(" } }\n"); # printf("#define dotimespW(countvar_from_dotimespW,count_from_dotimespW,statement_from_dotimespW) \\\n"); # printf(" { countvar_from_dotimespW = (count_from_dotimespW)-1; \\\n"); # printf(" do {statement_from_dotimespW} until ((sintW)(--countvar_from_dotimespW)+1==0); \\\n"); # printf(" }\n"); # #endif # #else # printf("#define dotimesW(countvar_from_dotimesW,count_from_dotimesW,statement_from_dotimesW) \\\n"); # printf(" { countvar_from_dotimesW = (count_from_dotimesW); \\\n"); # printf(" until (countvar_from_dotimesW==0) \\\n"); # printf(" {statement_from_dotimesW; countvar_from_dotimesW--; } \\\n"); # printf(" }\n"); # printf("#define dotimespW(countvar_from_dotimespW,count_from_dotimespW,statement_from_dotimespW) \\\n"); # printf(" { countvar_from_dotimespW = (count_from_dotimespW); \\\n"); # printf(" do {statement_from_dotimespW} until (--countvar_from_dotimespW==0); \\\n"); # printf(" }\n"); # #endif # #ifdef fast_dotimesL # printf("#define dotimesL(countvar_from_dotimesL,count_from_dotimesL,statement_from_dotimesL) \\\n"); # printf(" { countvar_from_dotimesL = (count_from_dotimesL); \\\n"); # printf(" if (!(countvar_from_dotimesL==0)) \\\n"); # printf(" { countvar_from_dotimesL--; \\\n"); # printf(" do {statement_from_dotimesL} \\\n"); # printf(" until ((sintL)(--countvar_from_dotimesL) == -1); \\\n"); # printf(" } }\n"); # printf("#define dotimespL(countvar_from_dotimespL,count_from_dotimespL,statement_from_dotimespL) \\\n"); # printf(" { countvar_from_dotimespL = (count_from_dotimespL)-1; \\\n"); # printf(" do {statement_from_dotimespL} until ((sintL)(--countvar_from_dotimespL) == -1); \\\n"); # printf(" }\n"); # #else # printf("#define dotimesL(countvar_from_dotimesL,count_from_dotimesL,statement_from_dotimesL) \\\n"); # printf(" { countvar_from_dotimesL = (count_from_dotimesL); \\\n"); # printf(" until (countvar_from_dotimesL==0) \\\n"); # printf(" {statement_from_dotimesL; countvar_from_dotimesL--; } \\\n"); # printf(" }\n"); # printf("#define dotimespL(countvar_from_dotimespL,count_from_dotimespL,statement_from_dotimespL) \\\n"); # printf(" { countvar_from_dotimespL = (count_from_dotimespL); \\\n"); # printf(" do {statement_from_dotimespL} until (--countvar_from_dotimespL==0); \\\n"); # printf(" }\n"); # #endif printf("#define uintC uintWL\n"); # printf("#define sintC sintWL\n"); # #if (intCsize==intWsize) # printf("#define dotimesC dotimesW\n"); # printf("#define dotimespC dotimespW\n"); # #endif # #if (intCsize==intLsize) # printf("#define dotimesC dotimesL\n"); # printf("#define dotimespC dotimespL\n"); # #endif # printf("typedef sint%d sintD;\n",intDsize); printf("typedef uint%d uintD;\n",intDsize); # #ifdef WIDE_HARD # printf("#define WIDE_HARD\n"); # #endif # #ifdef WIDE_SOFT # printf("#define WIDE_SOFT\n"); # #endif # #ifdef WIDE # printf("#define WIDE\n"); # #endif #if !defined(WIDE) #ifdef OBJECT_STRUCT printf("typedef struct { uintL one; } object;\n"); #else printf("typedef void * object;\n"); #endif printf("typedef uintL oint;\n"); # printf("typedef sintL soint;\n"); #else printf("typedef uint64 oint;\n"); # printf("typedef sint64 soint;\n"); #ifdef WIDE_STRUCT printf("typedef union {\n"); #if BIG_ENDIAN_P==WIDE_ENDIANNESS printf(" struct { /* tint */ uintL type; /* aint */ uintL addr; } both;\n"); #else printf(" struct { /* aint */ uintL addr; /* tint */ uintL type; } both;\n"); #endif printf(" oint one"); #ifdef GENERATIONAL_GC printf(" __attribute__ ((aligned(8)))"); #endif printf("; }\n"); printf(" object;\n"); #else printf("typedef oint object;\n"); #endif #endif #if defined(WIDE_STRUCT) || defined(OBJECT_STRUCT) printf("#define as_oint(expr) ((expr).one)\n"); printf("#define as_object(o) ((object){one:(o)})\n"); #else printf("#define as_oint(expr) (oint)(expr)\n"); printf("#define as_object(o) (object)(o)\n"); #endif # printf1("#define addressbus_mask %x\n",(oint)addressbus_mask); # printf("#define oint_type_shift %d\n",oint_type_shift); # printf("#define oint_type_len %d\n",oint_type_len); # printf1("#define oint_type_mask %x\n",(oint)oint_type_mask); # printf("#define oint_addr_shift %d\n",oint_addr_shift); # printf("#define oint_addr_len %d\n",oint_addr_len); # printf1("#define oint_addr_mask %x\n",(oint)oint_addr_mask); # printf("#define oint_data_shift %d\n",oint_data_shift); # printf("#define oint_data_len %d\n",oint_data_len); # printf1("#define oint_data_mask %x\n",(oint)oint_data_mask); # printf("#define addr_shift %d\n",addr_shift); # #ifdef vm_addr_mask # printf1("#define vm_addr_mask %x\n",(oint)vm_addr_mask); # #endif printf("typedef uint%d tint;\n",oint_type_len); printf("typedef uint%d aint;\n",oint_addr_len); # printf("typedef sint%d saint;\n",oint_addr_len); # printf1("#define tint_type_mask %x\n",(tint)tint_type_mask); #if !(defined(WIDE_SOFT) || defined(OBJECT_STRUCT)) printf("#define objectplus(obj,offset) ((object)pointerplus(obj,offset))\n"); #else printf("#define objectplus(obj,offset) as_object(as_oint(obj)+(soint)(offset))\n"); #endif #if !defined(WIDE_SOFT) # printf("#define wbit bit\n"); # printf("#define wbitm bitm\n"); printf("#define wbit_test bit_test\n"); # printf("#define minus_wbit minus_bit\n"); #else printf("#define wbit(n) (1LL<<(n))\n"); # printf("#define wbitm(n) (2LL<<((n)-1))\n"); printf("#define wbit_test(x,n) ((x) & wbit(n))\n"); # printf("#define minus_wbit(n) (-1LL<<(n))\n"); #endif #if !(exact_uint_size_p(oint_type_len) && (tint_type_mask == bit(oint_type_len)-1)) printf2("#define typecode(expr) ((tint)(as_oint(expr) >> %d) & %x)\n",oint_type_shift,(oint)(oint_type_mask >> oint_type_shift)); # printf("#define mtypecode(expr) typecode(expr)\n"); #else #if defined(MC68000) && defined(GNU) && !defined(NO_ASM) && (oint_type_shift==24) && (oint_type_len==8) printf("#define typecode(expr) ({var tint __typecode; __asm__ (\"roll #8,%%0\" : \"=d\" (__typecode) : \"0\" (as_oint(expr)) ); __typecode; })\n"); #elif defined(SPARC) && !defined(WIDE) printf("#define typecode(expr) ((as_oint(expr) << %d) >> %d)\n",32-oint_type_len-oint_type_shift,32-oint_type_len); #elif defined(WIDE) && defined(WIDE_STRUCT) printf("#define typecode(expr) ((expr).both.type)\n"); #else printf("#define typecode(expr) ((tint)(as_oint(expr) >> %d))\n",oint_type_shift); #endif # #ifdef fast_mtypecode # #ifndef WIDE # printf("#define mtypecode(expr) (*(tint*)&(expr)+%d)\n",3*((oint_type_shift==0)==BIG_ENDIAN_P)); # #endif # #ifdef WIDE # #ifdef WIDE_STRUCT # printf("#define mtypecode(expr) ((expr).both.type)\n"); # #elif (oint_type_len==16) # printf("#define mtypecode(expr) (*((tint*)&(expr)+%d))\n",3*((oint_type_shift==0)==BIG_ENDIAN_P)); # #elif (oint_type_len==32) # printf("#define mtypecode(expr) (*((tint*)&(expr)+%d))\n",((oint_type_shift==0)==BIG_ENDIAN_P)); # #endif # #endif # #else # printf("#define mtypecode(expr) typecode(expr)\n"); # #endif #endif # #if defined(WIDE) && defined(WIDE_STRUCT) # printf("#define untype(expr) ((expr).both.addr)\n"); # #elif !(defined(SPARC) && (oint_addr_len+oint_addr_shift<32)) # printf2("#define untype(expr) ((aint)(as_oint(expr) >> %d) & %x)\n",oint_addr_shift,(oint)(oint_addr_mask >> oint_addr_shift)); # #else # printf("#define untype(expr) ((aint)((as_oint(expr) << %d) >> %d))\n",32-oint_addr_len-oint_addr_shift,32-oint_addr_len); # #endif #if defined(WIDE) && defined(WIDE_STRUCT) #if BIG_ENDIAN_P==WIDE_ENDIANNESS printf("#define type_untype_object(type,address) ((object){{(tint)(type),(aint)(address)}})\n"); #else printf("#define type_untype_object(type,address) ((object){{(aint)(address),(tint)(type)}})\n"); #endif #elif !(oint_addr_shift==0) printf("#define type_untype_object(type,address) (as_object(((oint)(tint)(type) << %d) + ((oint)(aint)(address) << %d)))\n",oint_type_shift,oint_addr_shift); #else #if defined(WIDE_SOFT) printf("#define type_untype_object(type,address) objectplus((oint)(aint)(address),(oint)(tint)(type)<<%d)\n",oint_type_shift); #elif defined(OBJECT_STRUCT) printf("#define type_untype_object(type,address) as_object((oint)pointerplus((address),(oint)(tint)(type)<<%d))\n",oint_type_shift); #else printf("#define type_untype_object(type,address) as_object(pointerplus((address),(oint)(tint)(type)<<%d))\n",oint_type_shift); #endif #endif #if defined(WIDE) && defined(WIDE_STRUCT) #if BIG_ENDIAN_P==WIDE_ENDIANNESS printf("#define type_data_object(type,address) ((object){{(tint)(type),(aint)(address)}})\n"); #else printf("#define type_data_object(type,address) ((object){{(aint)(address),(tint)(type)}})\n"); #endif #elif !(oint_addr_shift==0) printf("#define type_data_object(type,data) (as_object(((oint)(tint)(type) << %d) + ((oint)(aint)(data) << %d)))\n",oint_type_shift,oint_addr_shift); #else printf("#define type_data_object(type,data) (as_object(((oint)(tint)(type) << %d) + (oint)(aint)(data)))\n",oint_type_shift); #endif #if (addr_shift==0) printf("#define upointer untype\n"); #else printf("#define optimized_upointer(obj) ((aint)((as_oint(obj) << %d) >> %d))\n",32-oint_addr_len-oint_addr_shift,32-oint_addr_len-addr_shift); printf("#define upointer(obj) (untype(obj)<<%d)\n",addr_shift); #endif #if (addr_shift==0) printf("#define type_pointer_object(type,address) type_untype_object(type,address)\n"); #elif defined(WIDE_SOFT) && !defined(WIDE_STRUCT) printf("#define type_pointer_object(type,address) type_untype_object(type,(aint)(address)>>%d)\n",addr_shift); #else printf("#define type_pointer_object(type,address) (as_object(((oint)(tint)(type) << %d) + ((oint)(aint)(address) << %d)))\n",oint_type_shift,oint_addr_shift-addr_shift); #endif printf("#define type_constpointer_object(type,address) type_pointer_object(type,address)\n"); #if defined(WIDE_SOFT) && defined(WIDE_STRUCT) printf("#define type_zero_oint(type) as_oint(type_untype_object(type,0))\n"); #else printf("#define type_zero_oint(type) ((oint)(tint)(type) << %d)\n",oint_type_shift); #endif # printf("typedef struct { object cdr; object car; } cons_;\n"); # printf("typedef cons_ * Cons;\n"); # printf("typedef struct { object rt_num; object rt_den; } ratio_;\n"); # printf("typedef ratio_ * Ratio;\n"); # printf("typedef struct { object c_real; object c_imag; } complex_;\n"); # printf("typedef complex_ * Complex;\n"); printf("#define VAROBJECT_HEADER object GCself;\n"); printf("typedef struct { VAROBJECT_HEADER object symvalue; object symfunction; object proplist; object pname; object homepackage; } symbol_;\n"); # printf("typedef symbol_ * Symbol;\n"); printf("typedef uint%d cint;\n",char_int_len); printf1("#define int_char(int_from_int_char) type_data_object(%d,(aint)(cint)(int_from_int_char))\n",(tint)char_type); #if !((oint_data_shift==0) && (char_int_len<=oint_data_len) && (exact_uint_size_p(char_int_len))) printf("#define char_int(char_from_char_int) ((cint)(untype(char_from_char_int)))\n"); #else printf("#define char_int(char_from_char_int) ((cint)as_oint(char_from_char_int))\n"); #endif #if !(char_code_shift_c==0) printf("#define code_char(code_from_code_char) int_char((cint)(code_from_code_char)<<%d)\n",char_code_shift_c); #else printf("#define code_char(code_from_code_char) int_char((cint)(code_from_code_char))\n"); #endif #if !((char_code_shift_c==0)&&(char_code_len_c==8)) printf2("#define char_code(char_from_char_code) ((uintB)((char_int(char_from_char_code)&%x)>>%d))\n",(cint)char_code_mask_c,char_code_shift_c); #else printf("#define char_code(char_from_char_code) ((uintB)(char_int(char_from_char_code)))\n"); #endif printf1("#define fixnum(x) type_data_object(%d,x)\n",(tint)fixnum_type); # printf("#define Fixnum_0 fixnum(0)\n"); # printf("#define Fixnum_1 fixnum(1)\n"); # printf2("#define Fixnum_minus1 type_data_object(%d,%x)\n",(tint)(fixnum_type | bit(sign_bit_t)),(aint)(bitm(oint_data_len)-1)); #if !(defined(SPARC) && (oint_data_len+oint_data_shift<32)) printf2("#define posfixnum_to_L(obj) ((uintL)((as_oint(obj)&%x)>>%d))\n",(oint)(wbitm(oint_data_len+oint_data_shift)-1),oint_data_shift); #else printf("#define posfixnum_to_L(obj) ((uintL)((as_oint(obj) << %d) >> %d))\n",32-oint_data_len-oint_data_shift,32-oint_data_len); #endif # printf1("#define negfixnum_to_L(obj) (posfixnum_to_L(obj) | %x)\n",(uintL)(-bitm(oint_data_len))); #if (oint_data_len>=intLsize) printf("#define fixnum_to_L(obj) (sintL)posfixnum_to_L(obj)\n"); #elif (sign_bit_o == oint_data_len+oint_data_shift) printf("#define fixnum_to_L(obj) (((sintL)as_oint(obj) << %d) >> %d)\n",intLsize-1-sign_bit_o,intLsize-1-sign_bit_o+oint_data_shift); #else #if !defined(SPARC) printf5("#define fixnum_to_L(obj) (sintL)( ((((sintL)as_oint(obj) >> %d) << %d) >> %d) | ((uintL)((as_oint(obj) & %x) >> %d)) )\n",sign_bit_o,intLsize-1,intLsize-1-oint_data_len,(oint)wbitm(oint_data_len+oint_data_shift)-1,oint_data_shift); #else printf("#define fixnum_to_L(obj) (sintL)( ((((sintL)as_oint(obj) >> %d) << %d) >> %d) | (((uintL)as_oint(obj) << %d) >> %d) )\n",sign_bit_o,intLsize-1,intLsize-1-oint_data_len,intLsize-oint_data_len-oint_data_shift,intLsize-oint_data_len); #endif #endif # printf("#define fixnum_inc(obj,delta) objectplus(obj, (soint)(delta) << %d)\n",oint_data_shift); # printf("#define posfixnum(x) fixnum_inc(Fixnum_0,x)\n"); # printf("#define negfixnum(x) fixnum_inc(fixnum_inc(Fixnum_minus1,1),x)\n"); # printf("#define sfixnum(x) ((x)>=0 ? posfixnum(x) : negfixnum(x))\n"); printf("typedef struct { VAROBJECT_HEADER uintC length; uintD data[unspecified]; } bignum_;\n"); printf("typedef bignum_ * Bignum;\n"); printf("typedef uint32 ffloat;\n"); printf("typedef union { ffloat explicit_; } ffloatjanus;\n"); #ifdef intQsize printf("typedef uint64 dfloat;\n"); #else #if BIG_ENDIAN_P printf("typedef struct {uint32 semhi,mlo;} dfloat;\n"); #else printf("typedef struct {uint32 mlo,semhi;} dfloat;\n"); #endif #endif printf("typedef union { dfloat explicit_; } dfloatjanus;\n"); # printf("typedef struct { VAROBJECT_HEADER uintL length; } sarray_;\n"); # printf("typedef sarray_ * Sarray;\n"); # printf("typedef struct { VAROBJECT_HEADER uintL length; uint8 data[unspecified]; } sbvector_;\n"); # printf("typedef sbvector_ * Sbvector;\n"); # printf("typedef struct { VAROBJECT_HEADER uintL length; uintB data[unspecified]; } sstring_;\n"); # printf("typedef sstring_ * Sstring;\n"); # printf("typedef struct { VAROBJECT_HEADER uintL length; object data[unspecified]; } svector_;\n"); # printf("typedef svector_ * Svector;\n"); # printf("typedef struct { VAROBJECT_HEADER uintB recflags; sintB rectype; uintW recfiller; object recdata[unspecified]; } record_;\n"); # printf("typedef record_ * Record;\n"); # printf("#define SRECORD_HEADER VAROBJECT_HEADER uintB recflags; sintB rectype; uintW reclength;\n"); # printf("typedef struct { SRECORD_HEADER object recdata[unspecified]; } srecord_;\n"); # printf("typedef srecord_ * Srecord;\n"); # printf("#define XRECORD_HEADER VAROBJECT_HEADER uintB recflags; sintB rectype; uintB reclength; uintB recxlength;\n"); # printf("typedef struct { XRECORD_HEADER object recdata[unspecified]; } xrecord_;\n"); # printf("typedef xrecord_ * Xrecord;\n"); # printf("typedef struct { XRECORD_HEADER object pack_external_symbols; object pack_internal_symbols; object pack_shadowing_symbols; object pack_use_list; object pack_used_by_list; object pack_name; object pack_nicknames; } * Package;\n"); # printf("typedef Srecord Structure;\n"); # printf("#define structure_types recdata[0]\n"); # printf("typedef struct { SRECORD_HEADER object class; object other[unspecified]; } * Instance;\n"); printf("typedef void Values;\n"); printf("typedef Values (*lisp_function)();\n"); printf("typedef struct { lisp_function function; object name; object keywords; uintW argtype; uintW req_anz; uintW opt_anz; uintB rest_flag; uintB key_flag; uintW key_anz; } subr_;\n"); # printf("typedef subr_ * Subr;\n"); printf("typedef enum { subr_norest, subr_rest } subr_rest_;\n"); printf("typedef enum { subr_nokey, subr_key, subr_key_allow } subr_key_;\n"); # printf3("#define make_system(data) type_data_object(%d,%x | (%x & (data)))\n",(tint)system_type,(oint)(bit(oint_data_len-1) | bit(0)),(oint)(bit(oint_data_len)-1)); # printf1("#define unbound make_system(%x)\n",0xFFFFFFUL); #if !((oint_addr_shift==0) && (addr_shift==0)) printf("#define pointable(obj) ((void*)upointer(obj))\n"); #else #if !(((tint_type_mask<car)\n"); # printf("#define Cdr(obj) (TheCons(obj)->cdr)\n"); # printf("#define Symbol_value(obj) (TheSymbol(obj)->symvalue)\n"); # printf("#define Symbol_function(obj) (TheSymbol(obj)->symfunction)\n"); # printf("#define Symbol_plist(obj) (TheSymbol(obj)->proplist)\n"); # printf("#define Symbol_name(obj) (TheSymbol(obj)->pname)\n"); # printf("#define Symbol_package(obj) (TheSymbol(obj)->homepackage)\n"); #if defined(WIDE_STRUCT) || defined(OBJECT_STRUCT) printf("#define eq(obj1,obj2) (as_oint(obj1) == as_oint(obj2))\n"); #else printf("#define eq(obj1,obj2) ((obj1) == (obj2))\n"); #endif printf("#define nullp(obj) (eq(obj,NIL))\n"); # #if defined(cons_bit_o) # #ifdef fast_mtypecode # #ifdef WIDE_STRUCT # printf("#define consp(obj) (typecode(obj) & bit(%d))\n",cons_bit_t); # printf("#define atomp(obj) ((typecode(obj) & bit(%d))==0)\n",cons_bit_t); # #else # printf("#define consp(obj) (wbit_test(as_oint(obj),%d))\n",cons_bit_o); # printf("#define atomp(obj) (!wbit_test(as_oint(obj),%d))\n",cons_bit_o); # #endif # printf("#define mconsp(obj) (mtypecode(obj) & bit(%d))\n",cons_bit_t); # printf("#define matomp(obj) ((mtypecode(obj) & bit(%d))==0)\n",cons_bit_t); # #else # printf("#define consp(obj) (wbit_test(as_oint(obj),%d))\n",cons_bit_o); # printf("#define atomp(obj) (!wbit_test(as_oint(obj),%d))\n",cons_bit_o); # printf("#define mconsp(obj) consp(obj)\n"); # printf("#define matomp(obj) atomp(obj)\n"); # #endif # #else # printf2("#define consp(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)imm_cons_mask,(tint)cons_type); # printf2("#define atomp(obj) (!((typecode(obj) & ~%d) == %d))\n",(tint)imm_cons_mask,(tint)cons_type); # printf2("#define mconsp(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)imm_cons_mask,(tint)cons_type); # printf2("#define matomp(obj) (!((mtypecode(obj) & ~%d) == %d))\n",(tint)imm_cons_mask,(tint)cons_type); # #endif # printf("#define listp(obj) (nullp(obj) || consp(obj))\n"); # #if defined(symbol_bit_o) # #ifdef fast_mtypecode # #ifdef WIDE_STRUCT # printf("#define symbolp(obj) (typecode(obj) & bit(%d))\n",symbol_bit_t); # #else # printf("#define symbolp(obj) (wbit_test(as_oint(obj),%d))\n",symbol_bit_o); # #endif # printf("#define msymbolp(obj) (mtypecode(obj) & bit(%d))\n",symbol_bit_t); # #else # printf("#define symbolp(obj) (wbit_test(as_oint(obj),%d))\n",symbol_bit_o); # printf("#define msymbolp(obj) symbolp(obj)\n"); # #endif # #else # printf1("#define symbolp(obj) (typecode(obj) == %d)\n",(tint)symbol_type); # printf1("#define msymbolp(obj) (mtypecode(obj) == %d)\n",(tint)symbol_type); # #endif # #ifdef fast_mtypecode # #ifdef WIDE_STRUCT # printf("#define numberp(obj) (typecode(obj) & bit(%d))\n",number_bit_t); # #else # printf("#define numberp(obj) (wbit_test(as_oint(obj),%d))\n",number_bit_o); # #endif # printf("#define mnumberp(obj) (mtypecode(obj) & bit(%d))\n",number_bit_t); # #else # printf("#define numberp(obj) (wbit_test(as_oint(obj),%d))\n",number_bit_o); # printf("#define mnumberp(obj) numberp(obj)\n"); # #endif # printf2("#define vectorp(obj) ((tint)((typecode(obj) & ~%d)-1) <= (tint)%d)\n",(tint)(imm_array_mask | bit(notsimple_bit_t)),(tint)(svector_type-1)); # printf2("#define mvectorp(obj) ((tint)((mtypecode(obj) & ~%d)-1) <= (tint)%d)\n",(tint)(imm_array_mask | bit(notsimple_bit_t)),(tint)(svector_type-1)); # printf2("#define simple_vector_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)imm_array_mask,(tint)svector_type); # printf2("#define m_simple_vector_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)imm_array_mask,(tint)svector_type); # printf2("#define general_vector_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)(imm_array_mask | bit(notsimple_bit_t)),(tint)svector_type); # printf2("#define m_general_vector_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)(imm_array_mask | bit(notsimple_bit_t)),(tint)svector_type); # printf2("#define simple_string_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)imm_array_mask,(tint)sstring_type); # printf2("#define m_simple_string_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)imm_array_mask,(tint)sstring_type); # printf2("#define stringp(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)(imm_array_mask | bit(notsimple_bit_t)),(tint)sstring_type); # printf2("#define mstringp(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)(imm_array_mask | bit(notsimple_bit_t)),(tint)sstring_type); # printf2("#define simple_bit_vector_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)imm_array_mask,(tint)sbvector_type); # printf2("#define m_simple_bit_vector_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)imm_array_mask,(tint)sbvector_type); # printf("#define bit_vector_p(obj) \\\n"); # printf4(" (((typecode(obj) & ~%d) == %d) || (((typecode(obj) & ~%d) == %d) \\\n",(tint)imm_array_mask,(tint)sbvector_type,(tint)imm_array_mask,(tint)bvector_type); # printf(" && ((TheArray(obj)->flags & %d) == %d) \\\n",arrayflags_atype_mask,Atype_Bit); # printf(" ) )\n"); # printf("#define m_bit_vector_p(obj) \\\n"); # printf4(" (((mtypecode(obj) & ~%d) == %d) || (((mtypecode(obj) & ~%d) == %d) \\\n",(tint)imm_array_mask,(tint)sbvector_type,(tint)imm_array_mask,(tint)bvector_type); # printf(" && ((TheArray(obj)->flags & %d) == %d) \\\n",arrayflags_atype_mask,Atype_Bit); # printf(" ) )\n"); # printf2("#define arrayp(obj) ((tint)((typecode(obj) & ~%d) - 1) <= (tint)%d)\n",(tint)imm_array_mask,(tint)(vector_type-1)); # printf1("#define instancep(obj) (typecode(obj)==%d)\n",(tint)instance_type); # printf1("#define minstancep(obj) (mtypecode(obj)==%d)\n",(tint)instance_type); # #ifdef case_structure # printf1("#define structurep(obj) (typecode(obj)==%d)\n",(tint)structure_type); # printf1("#define mstructurep(obj) (mtypecode(obj)==%d)\n",(tint)structure_type); # #else # printf("#define structurep(obj) (orecordp(obj) && (TheRecord(obj)->rectype == %d))\n",Rectype_Structure); # printf("#define mstructurep(obj) (morecordp(obj) && (TheRecord(obj)->rectype == %d))\n",Rectype_Structure); # #endif # printf1("#define orecordp(obj) (typecode(obj)==%d)\n",(tint)orecord_type); # printf1("#define morecordp(obj) (mtypecode(obj)==%d)\n",(tint)orecord_type); # printf("#define packagep(obj) (orecordp(obj) && (TheRecord(obj)->rectype == %d))\n",Rectype_Package); # printf1("#define charp(obj) (typecode(obj)==%d)\n",(tint)char_type); # printf1("#define mcharp(obj) (mtypecode(obj)==%d)\n",(tint)char_type); # printf2("#define string_char_p(obj) ((as_oint(obj) & ~%x) == type_zero_oint(%d))\n",((oint)char_code_mask_c) << oint_data_shift,(tint)char_type); # printf2("#define integerp(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)((fixnum_type|bignum_type|bit(sign_bit_t)) & ~fixnum_type),(tint)fixnum_type); # printf2("#define mintegerp(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)((fixnum_type|bignum_type|bit(sign_bit_t)) & ~fixnum_type),(tint)fixnum_type); # printf2("#define fixnump(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)fixnum_type); # printf2("#define mfixnump(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)fixnum_type); printf1("#define posfixnump(obj) (typecode(obj) == %d)\n",(tint)fixnum_type); # printf1("#define mposfixnump(obj) (mtypecode(obj) == %d)\n",(tint)fixnum_type); # printf2("#define bignump(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)bignum_type); # printf2("#define mbignump(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)bignum_type); # printf2("#define ratiop(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)ratio_type); # printf2("#define mratiop(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)ratio_type); # printf2("#define floatp(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)((sfloat_type|ffloat_type|dfloat_type|lfloat_type|bit(sign_bit_t)) & ~sfloat_type),(tint)sfloat_type); # printf2("#define mfloatp(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)((sfloat_type|ffloat_type|dfloat_type|lfloat_type|bit(sign_bit_t)) & ~sfloat_type),(tint)sfloat_type); # printf2("#define short_float_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)sfloat_type); # printf2("#define m_short_float_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)sfloat_type); # printf2("#define single_float_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)ffloat_type); # printf2("#define m_single_float_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)ffloat_type); # printf2("#define double_float_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)dfloat_type); # printf2("#define m_double_float_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)dfloat_type); # printf2("#define long_float_p(obj) ((typecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)lfloat_type); # printf2("#define m_long_float_p(obj) ((mtypecode(obj) & ~%d) == %d)\n",(tint)bit(sign_bit_t),(tint)lfloat_type); # printf1("#define complexp(obj) (typecode(obj) == %d)\n",(tint)complex_type); # printf1("#define mcomplexp(obj) (mtypecode(obj) == %d)\n",(tint)complex_type); #ifdef fast_mtypecode #ifdef WIDE_STRUCT printf("#define positivep(obj) ((typecode(obj) & bit(%d)) == 0)\n",sign_bit_t); #else printf("#define positivep(obj) (!wbit_test(as_oint(obj),%d))\n",sign_bit_o); #endif # printf("#define mpositivep(obj) ((mtypecode(obj) & bit(%d)) == 0)\n",sign_bit_t); #else printf("#define positivep(obj) (!wbit_test(as_oint(obj),%d))\n",sign_bit_o); # printf("#define mpositivep(obj) positivep(obj)\n"); #endif printf2("#define uint8_p(obj) ((as_oint(obj) & ~%x) == %x)\n",(oint)0xFF << oint_data_shift,as_oint(Fixnum_0)); printf3("#define sint8_p(obj) (((as_oint(obj) ^ (positivep(obj) ? 0 : %x)) & ~%x) == %x)\n",as_oint(Fixnum_minus1)^as_oint(Fixnum_0),(oint)0x7F << oint_data_shift,as_oint(Fixnum_0)); printf2("#define uint16_p(obj) ((as_oint(obj) & ~%x) == %x)\n",(oint)0xFFFF << oint_data_shift,as_oint(Fixnum_0)); printf3("#define sint16_p(obj) (((as_oint(obj) ^ (positivep(obj) ? 0 : %x)) & ~%x) == %x)\n",as_oint(Fixnum_minus1)^as_oint(Fixnum_0),(oint)0x7FFF << oint_data_shift,as_oint(Fixnum_0)); #if (oint_data_len>=32) printf2("#define uint32_p(obj) ((as_oint(obj) & ~%x) == %x)\n",(oint)0xFFFFFFFF << oint_data_shift,as_oint(Fixnum_0)); #else printf5("#define uint32_p(obj) ((typecode(obj)==%d) || ((typecode(obj)==%d) && (TheBignum(obj)->length <= %d) && ((TheBignum(obj)->length < %d) || (TheBignum(obj)->data[0] < (uintD)bit(%d)) )))\n",(tint)fixnum_type,(tint)bignum_type,ceiling(33,intDsize),ceiling(33,intDsize),32%intDsize); #endif #if (oint_data_len>=31) printf3("#define sint32_p(obj) (((as_oint(obj) ^ (positivep(obj) ? 0 : %x)) & ~%x) == %x)\n",as_oint(Fixnum_minus1)^as_oint(Fixnum_0),(oint)0x7FFFFFFF << oint_data_shift,as_oint(Fixnum_0)); #else printf7("#define sint32_p(obj) (((typecode(obj) & ~%d) == %d) || (((typecode(obj) & ~%d) == %d) && (TheBignum(obj)->length <= %d) && ((TheBignum(obj)->length < %d) || ((TheBignum(obj)->data[0] ^ (positivep(obj) ? (uintD)0 : ~(uintD)0)) < (uintD)bit(%d)) )))\n",(tint)bit(sign_bit_t),(tint)fixnum_type,(tint)bit(sign_bit_t),(tint)bignum_type,ceiling(32,intDsize),ceiling(32,intDsize),31%intDsize); #endif printf5("#define uint64_p(obj) ((typecode(obj)==%d) || ((typecode(obj)==%d) && (TheBignum(obj)->length <= %d) && ((TheBignum(obj)->length < %d) || (TheBignum(obj)->data[0] < (uintD)bit(%d)) )))\n",(tint)fixnum_type,(tint)bignum_type,ceiling(65,intDsize),ceiling(65,intDsize),64%intDsize); printf7("#define sint64_p(obj) (((typecode(obj) & ~%d) == %d) || (((typecode(obj) & ~%d) == %d) && (TheBignum(obj)->length <= %d) && ((TheBignum(obj)->length < %d) || ((TheBignum(obj)->data[0] ^ (positivep(obj) ? (uintD)0 : ~(uintD)0)) < (uintD)bit(%d)) )))\n",(tint)bit(sign_bit_t),(tint)fixnum_type,(tint)bit(sign_bit_t),(tint)bignum_type,ceiling(64,intDsize),ceiling(64,intDsize),63%intDsize); # #if (int_bitsize==16) # printf("#define uint_p uint16_p\n"); # printf("#define sint_p sint16_p\n"); # #else # printf("#define uint_p uint32_p\n"); # printf("#define sint_p sint32_p\n"); # #endif # #if (long_bitsize==32) # printf("#define ulong_p uint32_p\n"); # printf("#define slong_p sint32_p\n"); # #else # printf("#define ulong_p uint64_p\n"); # printf("#define slong_p sint64_p\n"); # #endif #if defined(GNU) && defined(I80Z86) && !defined(NO_ASM) printf("#define SP() ({var aint __SP; __asm__ __volatile__ (\"movl %%esp,%0\" : \"=g\" (__SP) : ); __SP; })\n"); #endif #ifndef STACK_register printf("extern object* STACK;\n"); #else /* With g++: "global register variable follows a function definition" */ printf("#ifndef IN_MODULE_CC\n"); printf(" register object* STACK __asm__(\"%s\");\n",STACK_register); #ifdef HAVE_SAVED_REGISTERS printf(" register long STACK_reg __asm__(\"%s\");\n",STACK_register); #endif printf("#endif\n"); #endif #if defined(HAVE_SAVED_STACK) printf("extern object* saved_STACK;\n"); printf("#define begin_call() saved_STACK = STACK\n"); printf("#define end_call() saved_STACK = (object*)NULL\n"); #ifdef HAVE_SAVED_REGISTERS printf("extern struct registers\n"); printf(" {\n"); printf(" long STACK_register_contents;\n"); printf(" long mv_count_register_contents;\n"); printf(" long value1_register_contents;\n"); printf(" struct registers *prev;\n"); printf(" } *callback_saved_registers;\n"); printf("#define begin_callback() \\\n"); printf(" { struct registers *registers = alloca(sizeof(struct registers)); \\\n"); printf(" registers->prev = callback_saved_registers; \\\n"); printf(" registers->STACK_register_contents = STACK_reg; \\\n"); printf(" registers->mv_count_register_contents = mv_count_reg; \\\n"); printf(" registers->value1_register_contents = value1_reg; \\\n"); printf(" callback_saved_registers = registers; \\\n"); printf(" STACK = saved_STACK; end_call(); \\\n"); printf(" }\n"); printf("#define end_callback() \\\n"); printf(" { struct registers *registers = callback_saved_registers; \\\n"); printf(" begin_call(); \\\n"); printf(" STACK_reg = registers->STACK_register_contents;\\\n"); printf(" mv_count_reg = registers->mv_count_register_contents;\\\n"); printf(" value1_reg = registers->value1_register_contents;\\\n"); printf(" callback_saved_registers = registers->prev;\\\n"); printf(" }\n"); #else printf("#define begin_callback() setSTACK(STACK = saved_STACK); end_call()\n"); printf("#define end_callback() begin_call()\n"); #endif #elif defined(EMUNIX) && defined(WINDOWS) printf("#define begin_call() if ((aint)SP() > (aint)SP_start) alloca((aint)SP() - (aint)SP_start)\n"); printf("#define end_call()\n"); printf("#define begin_callback()\n"); printf("#define end_callback()\n"); #else #if defined(HAVE_SAVED_SUBR_SELF) printf("extern object saved_subr_self;\n"); printf("#define begin_call() saved_subr_self = subr_self\n"); printf("#define end_call() subr_self = saved_subr_self\n"); printf("#define begin_callback() end_call()\n"); printf("#define end_callback() begin_call()\n"); #else printf("#define begin_call()\n"); printf("#define end_call()\n"); printf("#define begin_callback() end_call()\n"); printf("#define end_callback() begin_call()\n"); #endif #endif # #if defined(AMIGAOS) || defined(NO_ASYNC_INTERRUPTS) || !defined(HAVE_SAVED_STACK) # printf("#define begin_system_call()\n"); # printf("#define end_system_call()\n"); # #else # printf("#define begin_system_call() begin_call()\n"); # printf("#define end_system_call() end_call()\n"); # #endif #if (defined(EMUNIX) && defined(WINDOWS)) extern void* SP_start; #endif # printf("#define check_STACK() if (STACK_overflow()) STACK_ueber()\n"); # #ifdef STACK_DOWN # printf("#define STACK_overflow() ( (aint)STACK < (aint)STACK_bound )\n"); # printf("#define get_space_on_STACK(n) if ( (aint)STACK < (aint)STACK_bound + (aint)(n) ) STACK_ueber()\n"); # #else # printf("#define STACK_overflow() ( (aint)STACK > (aint)STACK_bound )\n"); # printf("#define get_space_on_STACK(n) if ( (aint)STACK + (aint)(n) > (aint)STACK_bound ) STACK_ueber()\n"); # #endif # printf("extern void* STACK_bound;\n"); # printf("nonreturning_function(extern, STACK_ueber, (void));\n"); # printf("nonreturning_function(extern, fehler_notreached, (const char * file, uintL line));\n"); # #ifndef LANGUAGE_STATIC # printf("extern uintL language;\n"); # #endif # printf("extern void asciz_out _ARGS((const char * asciz));\n"); # printf("#define dez_out(x) dez_out_((uintL)(x))\n"); # printf("extern void dez_out_ _ARGS((uintL zahl));\n"); # printf("#define hex_out(x) hex_out_((uintL)(x))\n"); # printf("extern void hex_out_ _ARGS((uintL zahl));\n"); # printf("extern void mem_hex_out _ARGS((void* buf, uintL count));\n"); # printf("extern object allocate_cons _ARGS((void));\n"); # printf("extern object make_symbol _ARGS((object string));\n"); # printf("extern object allocate_vector _ARGS((uintL len));\n"); # printf("extern object allocate_bit_vector _ARGS((uintL len));\n"); # printf("extern object allocate_string _ARGS((uintL len));\n"); # printf("extern object make_string _ARGS((const uintB* charptr, uintL len));\n"); # #ifdef asciz_length # #if defined(GNU) && (SAFETY < 2) && (__GNUC__ >= 2) # printf("#define asciz_length(a) ((uintL)__builtin_strlen(a))\n"); # #else # printf("#define asciz_length(a) ((uintL)strlen(a))\n"); # #endif # #else # printf("extern uintL asciz_length _ARGS((const char * asciz));\n"); # #endif # #ifdef asciz_length # printf("#define asciz_equal(a1,a2) (__builtin_strcmp(a1,a2)==0)\n"); # #else # printf("extern boolean asciz_equal _ARGS((const char * asciz1, const char * asciz2));\n"); # #endif printf("extern object asciz_to_string _ARGS((const char * asciz));\n"); # printf("extern object string_to_asciz _ARGS((object obj));\n"); # printf("#define TheAsciz(obj) ((char*)(&TheSstring(obj)->data[0]))\n"); # printf("typedef Values subr_norest_function _ARGS((void));\n"); # printf("typedef Values subr_rest_function _ARGS((reg4 uintC argcount, reg3 object* rest_args_pointer));\n"); printf("extern struct subr_tab_ {\n"); #undef LISPFUN #define LISPFUN(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords) \ printf(" subr_ %s;\n",STRING(D_##name)); #include "subr.c" #undef LISPFUN printf("} subr_tab_data;\n"); # #if !defined(MAP_MEMORY_TABLES) # printf("#define subr_tab subr_tab_data\n"); # printf1("#define subr_tab_ptr_as_object(subr_addr) (type_constpointer_object(%d,subr_addr))\n",(tint)subr_type); # printf("#define L(name) subr_tab_ptr_as_object(&subr_tab.D_%sname)\n",glue); # #else # printf1("#define subr_tab_addr ((struct subr_tab_ *)type_zero_oint(%d))\n",(tint)subr_type); # printf("#define subr_tab (*subr_tab_addr)\n"); # printf("#define subr_tab_ptr_as_object(subr_addr) (as_object((oint)(subr_addr)))\n"); # printf("#define L(name) subr_tab_ptr_as_object(&subr_tab_addr->D_%sname)\n",glue); # #endif printf("extern struct symbol_tab_ {\n"); #define LISPSYM(name,printname,package) \ printf(" symbol_ %s;\n",STRING(S_##name)); #include "constsym.c" #undef LISPSYM printf("} symbol_tab_data;\n"); printf("#define S(name) S_help_(S_%sname)\n",glue); #if !defined(MAP_MEMORY_TABLES) printf("#define symbol_tab symbol_tab_data\n"); printf1("#define S_help_(name) (type_constpointer_object(%d,&symbol_tab.name))\n",(tint)symbol_type); #else printf1("#define symbol_tab_addr ((struct symbol_tab_ *)type_zero_oint(%d))\n",(tint)symbol_type); # printf("#define symbol_tab (*symbol_tab_addr)\n"); printf("#define S_help_(name) (as_object((oint)(&symbol_tab_addr->name)))\n"); #endif printf("#define NIL S(nil)\n"); printf("#define T S(t)\n"); printf("extern struct object_tab_ object_tab;\n"); printf("extern uintC module_count;\n"); printf("typedef struct { char* packname; char* symname; } subr_initdata;\n"); printf("typedef struct { char* initstring; } object_initdata;\n"); printf("typedef struct module_ { char* name; subr_* stab; uintC* stab_size; object* otab; uintC* otab_size; boolean initialized; subr_initdata* stab_initdata; object_initdata* otab_initdata; void (*initfunction1) _ARGS((struct module_ *)); void (*initfunction2) _ARGS((struct module_ *));"); #ifdef DYNAMIC_MODULES printf(" struct module_ * next;"); #endif printf(" } module_;\n"); #ifdef DYNAMIC_MODULES printf("BEGIN_DECLS\n"); printf("extern void add_module (module_ * new_module);\n"); printf("END_DECLS\n"); #else printf("extern module_ modules[];\n"); #endif #ifdef STACK_DOWN printf("#define STACK_(n) (STACK[(sintP)(n)])\n"); printf("#define skipSTACKop +=\n"); # printf("#define STACKop +\n"); #else printf("#define STACK_(n) (STACK[-1-(sintP)(n)])\n"); printf("#define skipSTACKop -=\n"); # printf("#define STACKop -\n"); #endif #if defined(GNU) && defined(MC680X0) && !defined(NO_ASM) && !defined(WIDE) #ifdef STACK_DOWN printf("#define pushSTACK(obj) ({ __asm__ __volatile__ (\"movel %%0,%s%s@-\" : : \"g\" ((object)(obj)) : \"%s\" ); })\n",REGISTER_PREFIX,STACK_register,STACK_register); printf("#define popSTACK() ({var object __result; __asm__ __volatile__ (\"movel %s%s@+,%%0\" : \"=g\" (__result) : : \"%s\" ); __result; })\n",REGISTER_PREFIX,STACK_register,STACK_register); #else printf("#define pushSTACK(obj) ({ __asm__ __volatile__ (\"movel %%0,%s%s@+\" : : \"g\" ((object)(obj)) : \"%s\" ); })\n",REGISTER_PREFIX,STACK_register,STACK_register); printf("#define popSTACK() ({var object __result; __asm__ __volatile__ (\"movel %s%s@-,%%0\" : \"=g\" (__result) : : \"%s\" ); __result; })\n",REGISTER_PREFIX,STACK_register,STACK_register); #endif #else printf("#define pushSTACK(obj) (STACK_(-1) = (obj), STACK skipSTACKop -1)\n"); printf("#define popSTACK() (STACK skipSTACKop 1, STACK_(-1))\n"); #endif # printf("#define skipSTACK(n) (STACK skipSTACKop (sintP)(n))\n"); # { int i; # for (i=0; i<=10; i++) printf("#define STACK_%d (STACK_(%d))\n",i,i); # } # printf("#define mv_limit %d\n",mv_limit); #if !defined(mv_count_register) printf("extern uintC mv_count;\n"); #else printf("#ifndef IN_MODULE_CC\n"); printf("register uintC mv_count __asm__(\"%s\");\n",mv_count_register); #if defined(HAVE_SAVED_REGISTERS) printf("register long mv_count_reg __asm__(\"%s\");\n",mv_count_register); #endif printf("#endif\n"); #endif printf("extern object mv_space [%d];\n",mv_limit-1); #if !defined(value1_register) printf("#define value1 mv_space[0]\n"); #else printf("#ifndef IN_MODULE_CC\n"); printf(" register object value1 __asm__(\"%s\");\n",value1_register); #if defined(HAVE_SAVED_REGISTERS) printf(" register long value1_reg __asm__(\"%s\");\n",value1_register); #endif printf("#endif\n"); #endif # printf("#define value2 mv_space[1]\n"); # printf("#define value3 mv_space[2]\n"); # printf("nonreturning_function(extern, fehler_mv_zuviel, (object caller));\n"); #if !defined(subr_self_register) printf("extern object subr_self;\n"); #else # printf("#ifndef IN_MODULE_CC\n"); printf(" register object subr_self __asm__(\"%s\");\n",subr_self_register); #if defined(HAVE_SAVED_REGISTERS) printf(" register long subr_self_reg __asm__(\"%s\");\n",subr_self_register); #endif printf("#endif\n"); #endif # printf("#define args_end_pointer STACK\n"); # printf("#define set_args_end_pointer(new_args_end_pointer) STACK = (new_args_end_pointer)\n"); # #ifdef STACK_DOWN # printf("#define NEXT(argpointer) (*(--(argpointer)))\n"); # printf("#define BEFORE(argpointer) (*((argpointer)++))\n"); # #else # printf("#define NEXT(argpointer) (*((argpointer)++))\n"); # printf("#define BEFORE(argpointer) (*(--(argpointer)))\n"); # #endif # printf("#define Next(pointer) (*(STACKpointable(pointer) STACKop -1))\n"); # printf("#define Before(pointer) (*(STACKpointable(pointer) STACKop 0))\n"); # printf("extern Values apply _ARGS((object fun, uintC args_on_stack, object other_args));\n"); printf("extern Values funcall _ARGS((object fun, uintC argcount));\n"); # printf("extern Values eval _ARGS((object form));\n"); printf("#define LISPFUNN(name,req_anz) LISPFUN(name,req_anz,0,norest,nokey,0,NIL)\n"); printf("#define LISPFUN_B(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords) global Values C_%sname subr_%srest_flag%s_function_args\n",glue,glue,glue); #ifdef ANSI printf("#define subr_norest_function_args (void)\n"); printf("#define subr_rest_function_args (reg4 uintC argcount, reg3 object* rest_args_pointer)\n"); #else printf("#define subr_norest_function_args ()\n"); printf("#define subr_rest_function_args (argcount,rest_args_pointer) var reg4 uintC argcount; var reg3 object* rest_args_pointer;\n"); #endif printf("#define LISPFUN_F(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords) { (lisp_function)(&C_%sname), 0, 0, 0, req_anz, opt_anz, (uintB)subr_%srest_flag, (uintB)subr_%skey_flag, key_anz, },\n",glue,glue,glue); printf("#define LISPFUN LISPFUN_B\n"); # printf("extern object allocate_bit_vector_0 _ARGS((uintL len));\n"); # printf("extern uintB up_case _ARGS((uintB ch));\n"); # printf("extern uintB down_case _ARGS((uintB ch));\n"); # printf("extern uintB* unpack_string _ARGS((object string, uintL* len));\n"); # printf("extern object make_list _ARGS((uintL len));\n"); # printf("extern object listof _ARGS((uintC len));\n"); # printf("typedef enum { condition, serious_condition, error, program_error, control_error, arithmetic_error, division_by_zero, floating_point_overflow, floating_point_underflow, cell_error, unbound_variable, undefined_function, type_error, package_error, print_not_readable, stream_error, end_of_file, file_error, storage_condition, warning, } conditiontype;\n"); # printf("nonreturning_function(extern, fehler, (conditiontype errortype, const char * errorstring));\n"); # printf("nonreturning_function(extern, fehler_list, (object obj));\n"); # printf("nonreturning_function(extern, fehler_symbol, (object obj));\n"); # printf("nonreturning_function(extern, fehler_kein_svector, (object caller, object obj));\n"); # printf("nonreturning_function(extern, fehler_vector, (object obj));\n"); # printf("nonreturning_function(extern, fehler_char, (object obj));\n"); # printf("nonreturning_function(extern, fehler_string_char, (object obj));\n"); # printf("nonreturning_function(extern, fehler_string, (object obj));\n"); # printf("nonreturning_function(extern, fehler_sstring, (object obj));\n"); printf("#define check_string_char(obj) if (!string_char_p(obj)) { fehler_string_char(obj); }\n"); printf("#define check_uint8(obj) if (!uint8_p(obj)) { fehler_uint8(obj); }\n"); printf("#define check_sint8(obj) if (!sint8_p(obj)) { fehler_sint8(obj); }\n"); printf("#define check_uint16(obj) if (!uint16_p(obj)) { fehler_uint16(obj); }\n"); printf("#define check_sint16(obj) if (!sint16_p(obj)) { fehler_sint16(obj); }\n"); printf("#define check_uint32(obj) if (!uint32_p(obj)) { fehler_uint32(obj); }\n"); printf("#define check_sint32(obj) if (!sint32_p(obj)) { fehler_sint32(obj); }\n"); printf("#define check_uint64(obj) if (!uint64_p(obj)) { fehler_uint64(obj); }\n"); printf("#define check_sint64(obj) if (!sint64_p(obj)) { fehler_sint64(obj); }\n"); printf("#define check_uint(obj) if (!uint_p(obj)) { fehler_uint(obj); }\n"); printf("#define check_sint(obj) if (!sint_p(obj)) { fehler_sint(obj); }\n"); printf("#define check_ulong(obj) if (!ulong_p(obj)) { fehler_ulong(obj); }\n"); printf("#define check_slong(obj) if (!slong_p(obj)) { fehler_slong(obj); }\n"); printf("#define check_ffloat(obj) if (!single_float_p(obj)) { fehler_ffloat(obj); }\n"); printf("#define check_dfloat(obj) if (!double_float_p(obj)) { fehler_dfloat(obj); }\n"); printf("nonreturning_function(extern, fehler_uint8, (object obj));\n"); printf("nonreturning_function(extern, fehler_sint8, (object obj));\n"); printf("nonreturning_function(extern, fehler_uint16, (object obj));\n"); printf("nonreturning_function(extern, fehler_sint16, (object obj));\n"); printf("nonreturning_function(extern, fehler_uint32, (object obj));\n"); printf("nonreturning_function(extern, fehler_sint32, (object obj));\n"); printf("nonreturning_function(extern, fehler_uint64, (object obj));\n"); printf("nonreturning_function(extern, fehler_sint64, (object obj));\n"); printf("nonreturning_function(extern, fehler_uint, (object obj));\n"); printf("nonreturning_function(extern, fehler_sint, (object obj));\n"); printf("nonreturning_function(extern, fehler_ulong, (object obj));\n"); printf("nonreturning_function(extern, fehler_slong, (object obj));\n"); printf("nonreturning_function(extern, fehler_sfloat, (object obj));\n"); printf("nonreturning_function(extern, fehler_dfloat, (object obj));\n"); # printf("extern object find_package _ARGS((object string));\n"); # printf("extern uintBWL intern _ARGS((object string, object pack, object* sym_));\n"); # printf("extern object intern_keyword _ARGS((object string));\n"); # printf("extern boolean eql _ARGS((object obj1, object obj2));\n"); # printf("extern boolean equal _ARGS((object obj1, object obj2));\n"); # printf("extern boolean equalp _ARGS((object obj1, object obj2));\n"); # printf("extern object get _ARGS((object symbol, object key));\n"); printf("extern object L_to_I _ARGS((sint32 wert));\n"); #if (intLsize<=oint_data_len) printf("#define UL_to_I(wert) fixnum((uintL)(wert))\n"); #else printf("extern object UL_to_I _ARGS((uintL wert));\n"); #endif printf("extern object L2_to_I _ARGS((sint32 wert_hi, uint32 wert_lo));\n"); printf("extern object UL2_to_I _ARGS((uint32 wert_hi, uint32 wert_lo));\n"); #ifdef intQsize printf("extern object Q_to_I (sint64 wert);\n"); printf("extern object UQ_to_I (uint64 wert);\n"); #endif printf("#define uint8_to_I(val) fixnum((uint8)(val))\n"); printf("#define sint8_to_I(val) L_to_I((sint32)(sint8)(val))\n"); printf("#define uint16_to_I(val) fixnum((uint16)(val))\n"); printf("#define sint16_to_I(val) L_to_I((sint32)(sint16)(val))\n"); printf("#define uint32_to_I(val) UL_to_I((uint32)(val))\n"); printf("#define sint32_to_I(val) L_to_I((sint32)(val))\n"); #ifdef intQsize printf("#define uint64_to_I(val) UQ_to_I((uint64)(val))\n"); printf("#define sint64_to_I(val) Q_to_I((sint64)(val))\n"); #else printf("#define uint64_to_I(val) UL2_to_I((uint32)((val)>>32),(uint32)(val))\n"); printf("#define sint64_to_I(val) L2_to_I((sint32)((val)>>32),(uint32)(val))\n"); #endif #if (int_bitsize==16) printf("#define uint_to_I(val) uint16_to_I(val)\n"); printf("#define sint_to_I(val) sint16_to_I(val)\n"); #else # (int_bitsize==32) printf("#define uint_to_I(val) uint32_to_I(val)\n"); printf("#define sint_to_I(val) sint32_to_I(val)\n"); #endif #if (long_bitsize==32) printf("#define ulong_to_I(val) uint32_to_I(val)\n"); printf("#define slong_to_I(val) sint32_to_I(val)\n"); #else # (long_bitsize==64) printf("#define ulong_to_I(val) uint64_to_I(val)\n"); printf("#define slong_to_I(val) sint64_to_I(val)\n"); #endif printf("extern uintL I_to_UL _ARGS((object obj));\n"); printf("extern sintL I_to_L _ARGS((object obj));\n"); #ifdef HAVE_LONGLONG printf("extern uint64 I_to_UQ _ARGS((object obj));\n"); printf("extern sint64 I_to_Q _ARGS((object obj));\n"); #endif printf("#define I_to_uint8(obj) (uint8)(as_oint(obj) >> %d)\n",oint_data_shift); printf("#define I_to_sint8(obj) (sint8)(as_oint(obj) >> %d)\n",oint_data_shift); printf("#define I_to_uint16(obj) (uint16)(as_oint(obj) >> %d)\n",oint_data_shift); printf("#define I_to_sint16(obj) (sint16)(as_oint(obj) >> %d)\n",oint_data_shift); #if (oint_data_len>=32) printf("#define I_to_uint32(obj) (uint32)(as_oint(obj) >> %d)\n",oint_data_shift); #else printf("#define I_to_uint32(obj) I_to_UL(obj)\n"); #endif #if (oint_data_len>=31) printf("#define I_to_sint32(obj) (sint32)(as_oint(obj) >> %d)\n",oint_data_shift); #else printf("#define I_to_sint32(obj) I_to_L(obj)\n"); #endif printf("#define I_to_uint64(obj) I_to_UQ(obj)\n"); printf("#define I_to_sint64(obj) I_to_Q(obj)\n"); #if (int_bitsize==16) printf("#define I_to_uint I_to_uint16\n"); printf("#define I_to_sint I_to_sint16\n"); #else # (int_bitsize==32) printf("#define I_to_uint I_to_uint32\n"); printf("#define I_to_sint I_to_sint32\n"); #endif #if (long_bitsize==32) printf("#define I_to_ulong I_to_uint32\n"); printf("#define I_to_slong I_to_sint32\n"); #else # (long_bitsize==64) printf("#define I_to_ulong I_to_uint64\n"); printf("#define I_to_slong I_to_sint64\n"); #endif # printf("extern object I_1_plus_I _ARGS((object x));\n"); # printf("extern object I_minus1_plus_I _ARGS((object x));\n"); # printf("extern object I_I_plus_I _ARGS((object x, object y));\n"); # printf("extern object I_I_minus_I _ARGS((object x, object y));\n"); printf("extern object c_float_to_FF _ARGS((ffloatjanus* val_));\n"); printf("extern void FF_to_c_float _ARGS((object obj, ffloatjanus* val_));\n"); printf("extern object c_double_to_DF _ARGS((dfloatjanus* val_));\n"); printf("extern void DF_to_c_double _ARGS((object obj, dfloatjanus* val_));\n"); #ifdef DYNAMIC_FFI printf("extern void register_foreign_variable _ARGS((void* address, const char * name, uintBWL flags, uintL size));\n"); printf("extern void register_foreign_function _ARGS((void* address, const char * name, uintWL flags));\n"); printf("extern object convert_from_foreign _ARGS((object fvd, void* data));\n"); printf("extern void convert_to_foreign_mallocing _ARGS((object fvd, object obj, void* data));\n"); printf("extern void convert_to_foreign_nomalloc _ARGS((object fvd, object obj, void* data));\n"); #endif # printf("\n"); printf("#endif /* _CLISP_H */\n"); if (ferror(stdout)) { exit(1); } exit(0); }