/usr/include/elk/compat.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 | /* compat.h: Definitions that were used in older versions of Elk, but are
* now obsolete and should not be used any longer.
*
* $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.
*/
#define Declare_C_Strings Alloca_Begin
#define Make_C_String Get_Strsym_Stack
#define Dispose_C_Strings Alloca_End
#define Val(x) Cdr(x)
#define FIXNUM_FITS_UNSIGNED UFIXNUM_FITS
#define SETFAST(x,y) ((x) = (y))
#define Make_Fixnum Make_Integer
/* The names of a few functions implementing primitives have been changed
* for consistency:
*/
#define P_Setcar P_Set_Car
#define P_Setcdr P_Set_Cdr
#define P_With_Input P_With_Input_From_File
#define P_With_Output P_With_Output_To_File
#define P_Call_With_Input P_Call_With_Input_File
#define P_Call_With_Output P_Call_With_Output_File
#define P_Call_CC P_Call_With_Current_Continuation
#define P_Promise_Env P_Promise_Environment
#define P_Procedure_Env P_Procedure_Environment
#define P_Control_Point_Env P_Control_Point_Environment
#define P_Curr_Input_Port P_Current_Input_Port
#define P_Curr_Output_Port P_Current_Output_Port
#define P_Env_List P_Environment_To_List
#define P_Char_Lower_Case P_Char_Lower_Casep
#define P_Char_Upper_Case P_Char_Upper_Casep
#define P_Char_Alphabetic P_Char_Alphabeticp
#define P_Char_Numeric P_Char_Numericp
#define P_Char_Whitespace P_Char_Whitespacep
#define P_Chr_Eq P_Char_Eq
#define P_Chr_Less P_Char_Less
#define P_Chr_Greater P_Char_Greater
#define P_Chr_Eq_Less P_Char_Eq_Less
#define P_Chr_Eq_Greater P_Char_Eq_Greater
#define P_Chr_CI_Eq P_Char_CI_Eq
#define P_Chr_CI_Less P_Char_CI_Less
#define P_Chr_CI_Greater P_Char_CI_Greater
#define P_Chr_CI_Eq_Less P_Char_CI_Eq_Less
#define P_Chr_CI_Eq_Greater P_Char_CI_Eq_Greater
#define P_Str_Eq P_String_Eq
#define P_Str_Less P_String_Less
#define P_Str_Greater P_String_Greater
#define P_Str_Eq_Less P_String_Eq_Less
#define P_Str_Eq_Greater P_String_Eq_Greater
#define P_Str_CI_Eq P_String_CI_Eq
#define P_Str_CI_Less P_String_CI_Less
#define P_Str_CI_Greater P_String_CI_Greater
#define P_Str_CI_Eq_Less P_String_CI_Eq_Less
#define P_Str_CI_Eq_Greater P_String_CI_Eq_Greater
|