/usr/include/elk/misc.h is in libelk0-dev 3.99.8-2.1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | /* misc.h
*
* $Id$
*
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
* Copyright 2002, 2003 Sam Hocevar <sam@hocevar.net>, Paris
*
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
*
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
* owners or individual owners of copyright in this software, grant to any
* person or company a worldwide, royalty free, license to
*
* i) copy this software,
* ii) prepare derivative works based on this software,
* iii) distribute copies of this software or derivative works,
* iv) perform this software, or
* v) display this software,
*
* provided that this notice is not removed and that neither Oliver Laumann
* nor Teles nor Nixdorf are deemed to have made any representations as to
* the suitability of this software for any purpose nor are held responsible
* for any defects of this software.
*
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
*/
extern_c Object elk_import 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' || c == '\r')
#define Delimiter(c) (c == ';' || c == ')' || c == '(' || c == '[' || c == ']' || c == '"')
/* Align heap addresses */
#ifdef ALIGN_8BYTE
# define ELK_ALIGN(ptr) ((ptr) = (void *)(((intptr_t)(ptr) + 7) & ~7))
#else
# define ELK_ALIGN(ptr) ((ptr) = (void *)(((intptr_t)(ptr) + 3) & ~3))
#endif
/* Normalize stack addresses */
#define NORM(addr) ((intptr_t)(addr) + delta)
/* Used in special forms: */
extern int Tail_Call;
#define TC_Prolog register int _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 `#'");\
}
|