79 lines
2.0 KiB
C
79 lines
2.0 KiB
C
#ifndef __GNUC__
|
|
# define __asm__ asm
|
|
#endif
|
|
|
|
#ifndef HUGE
|
|
# define HUGE HUGE_VAL
|
|
#endif
|
|
|
|
|
|
/* Arithmetic shift right for compilers that don't sign extend:
|
|
*/
|
|
#if (-1 >> 1) < 0
|
|
# define ASR(n,s) ((n) >>= (s))
|
|
#else
|
|
# define NBITS(v) ((sizeof v) * 8)
|
|
# define HIBIT(v,n) (NBITS(v) - (n))
|
|
# define ASR(n,s) ((n) >>= (s),\
|
|
((n) & (1 << (HIBIT((n),(s)) - 1)) ?\
|
|
((n) |= ~(((unsigned)1 << HIBIT((n),(s))) - 1)) :\
|
|
(n)))
|
|
#endif
|
|
|
|
extern Object False2;
|
|
|
|
#define Nullp(x) (TYPE(x) == T_Null)
|
|
#define Truep(x) (!EQ(x,False) && !EQ(x,False2))
|
|
#define Car(x) PAIR(x)->car
|
|
#define Cdr(x) PAIR(x)->cdr
|
|
#define Cons P_Cons
|
|
#define Begin P_Begin
|
|
#define Assq(x,y) General_Assoc(x,y,0)
|
|
#define Print(x) General_Print_Object (x, Curr_Output_Port, 0)
|
|
#define Numeric(t) (t == T_Fixnum || t == T_Flonum || t == T_Bignum)
|
|
|
|
#define Whitespace(c) (c == ' ' || c == '\t' || c == '\014' || c == '\n')
|
|
#define Delimiter(c) (c == ';' || c == ')' || c == '(' || c == '"')
|
|
|
|
|
|
/* Align heap addresses */
|
|
#ifdef ALIGN_8BYTE
|
|
# define ALIGN(ptr) ((ptr) = (char *)(((long)(ptr) + 7) & ~7))
|
|
#else
|
|
# define ALIGN(ptr) ((ptr) = (char *)(((long)(ptr) + 3) & ~3))
|
|
#endif
|
|
|
|
/* Normalize stack addresses */
|
|
#define NORM(addr) ((long)(addr) + delta)
|
|
|
|
|
|
/* Used in special forms: */
|
|
extern int Tail_Call;
|
|
|
|
#define TC_Prolog register _t = Tail_Call
|
|
#define TC_Disable Tail_Call = 0
|
|
#define TC_Enable Tail_Call = _t
|
|
|
|
|
|
/* Macros to be used by readers registered with Define_Reader().
|
|
* They operate on variables c, port, f, and str.
|
|
*/
|
|
#define Reader_Getc {\
|
|
c = str ? String_Getc (port) : getc (f);\
|
|
if (c == '\n') PORT(port)->lno++;\
|
|
}
|
|
|
|
#define Reader_Ungetc {\
|
|
if (str) String_Ungetc (port,c); else (void)ungetc (c,f);\
|
|
if (c == '\n') if (PORT(port)->lno > 1) PORT(port)->lno--;\
|
|
}
|
|
|
|
#define Reader_Tweak_Stream {\
|
|
if (!str && (feof (f) || ferror (f))) clearerr (f);\
|
|
}
|
|
|
|
#define Reader_Sharp_Eof {\
|
|
Reader_Tweak_Stream;\
|
|
Reader_Error (port, "end of file after `#'");\
|
|
}
|