/usr/include/racket/schexn.h is in racket-common 5.1.3+dfsg1-1.
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 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 | /* This file was generated by makeexn */
#ifndef _MZEXN_DEFINES
#define _MZEXN_DEFINES
enum {
MZEXN,
MZEXN_FAIL,
MZEXN_FAIL_CONTRACT,
MZEXN_FAIL_CONTRACT_ARITY,
MZEXN_FAIL_CONTRACT_DIVIDE_BY_ZERO,
MZEXN_FAIL_CONTRACT_NON_FIXNUM_RESULT,
MZEXN_FAIL_CONTRACT_CONTINUATION,
MZEXN_FAIL_CONTRACT_VARIABLE,
MZEXN_FAIL_SYNTAX,
MZEXN_FAIL_READ,
MZEXN_FAIL_READ_EOF,
MZEXN_FAIL_READ_NON_CHAR,
MZEXN_FAIL_FILESYSTEM,
MZEXN_FAIL_FILESYSTEM_EXISTS,
MZEXN_FAIL_FILESYSTEM_VERSION,
MZEXN_FAIL_NETWORK,
MZEXN_FAIL_OUT_OF_MEMORY,
MZEXN_FAIL_UNSUPPORTED,
MZEXN_FAIL_USER,
MZEXN_BREAK,
MZEXN_OTHER
};
#endif
#ifdef _MZEXN_TABLE
#define MZEXN_MAXARGS 3
#ifdef GLOBAL_EXN_ARRAY
READ_ONLY static exn_rec exn_table[] = {
{ 2, NULL, NULL, 0, NULL, -1 },
{ 2, NULL, NULL, 0, NULL, 0 },
{ 2, NULL, NULL, 0, NULL, 1 },
{ 2, NULL, NULL, 0, NULL, 2 },
{ 2, NULL, NULL, 0, NULL, 2 },
{ 2, NULL, NULL, 0, NULL, 2 },
{ 2, NULL, NULL, 0, NULL, 2 },
{ 3, NULL, NULL, 0, NULL, 2 },
{ 3, NULL, NULL, 0, NULL, 1 },
{ 3, NULL, NULL, 0, NULL, 1 },
{ 3, NULL, NULL, 0, NULL, 9 },
{ 3, NULL, NULL, 0, NULL, 9 },
{ 2, NULL, NULL, 0, NULL, 1 },
{ 2, NULL, NULL, 0, NULL, 12 },
{ 2, NULL, NULL, 0, NULL, 12 },
{ 2, NULL, NULL, 0, NULL, 1 },
{ 2, NULL, NULL, 0, NULL, 1 },
{ 2, NULL, NULL, 0, NULL, 1 },
{ 2, NULL, NULL, 0, NULL, 1 },
{ 3, NULL, NULL, 0, NULL, 0 }
};
#else
READ_ONLY static exn_rec *exn_table;
#endif
#endif
#ifdef _MZEXN_PRESETUP
#ifndef GLOBAL_EXN_ARRAY
exn_table = (exn_rec *)scheme_malloc(sizeof(exn_rec) * MZEXN_OTHER);
exn_table[MZEXN].args = 2;
exn_table[MZEXN_FAIL].args = 2;
exn_table[MZEXN_FAIL_CONTRACT].args = 2;
exn_table[MZEXN_FAIL_CONTRACT_ARITY].args = 2;
exn_table[MZEXN_FAIL_CONTRACT_DIVIDE_BY_ZERO].args = 2;
exn_table[MZEXN_FAIL_CONTRACT_NON_FIXNUM_RESULT].args = 2;
exn_table[MZEXN_FAIL_CONTRACT_CONTINUATION].args = 2;
exn_table[MZEXN_FAIL_CONTRACT_VARIABLE].args = 3;
exn_table[MZEXN_FAIL_SYNTAX].args = 3;
exn_table[MZEXN_FAIL_READ].args = 3;
exn_table[MZEXN_FAIL_READ_EOF].args = 3;
exn_table[MZEXN_FAIL_READ_NON_CHAR].args = 3;
exn_table[MZEXN_FAIL_FILESYSTEM].args = 2;
exn_table[MZEXN_FAIL_FILESYSTEM_EXISTS].args = 2;
exn_table[MZEXN_FAIL_FILESYSTEM_VERSION].args = 2;
exn_table[MZEXN_FAIL_NETWORK].args = 2;
exn_table[MZEXN_FAIL_OUT_OF_MEMORY].args = 2;
exn_table[MZEXN_FAIL_UNSUPPORTED].args = 2;
exn_table[MZEXN_FAIL_USER].args = 2;
exn_table[MZEXN_BREAK].args = 3;
#endif
#endif
#ifdef _MZEXN_DECL_FIELDS
READ_ONLY static const char *MZEXN_FIELDS[2] = { "message", "continuation-marks" };
READ_ONLY static const char *MZEXN_FAIL_CONTRACT_VARIABLE_FIELDS[1] = { "id" };
READ_ONLY static const char *MZEXN_FAIL_SYNTAX_FIELDS[1] = { "exprs" };
READ_ONLY static const char *MZEXN_FAIL_READ_FIELDS[1] = { "srclocs" };
READ_ONLY static const char *MZEXN_BREAK_FIELDS[1] = { "continuation" };
#endif
#ifdef _MZEXN_DECL_PROPS
# define MZEXN_FAIL_SYNTAX_PROPS scheme_make_pair(scheme_make_pair(scheme_source_property, scheme_make_prim(extract_syntax_locations)), scheme_null)
# define MZEXN_FAIL_READ_PROPS scheme_make_pair(scheme_make_pair(scheme_source_property, scheme_make_prim(extract_read_locations)), scheme_null)
#endif
#ifdef _MZEXN_SETUP
SETUP_STRUCT(MZEXN, NULL, "exn", 2, MZEXN_FIELDS, scheme_null, scheme_make_prim(exn_field_check))
SETUP_STRUCT(MZEXN_FAIL, EXN_PARENT(MZEXN), "exn:fail", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_CONTRACT, EXN_PARENT(MZEXN_FAIL), "exn:fail:contract", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_CONTRACT_ARITY, EXN_PARENT(MZEXN_FAIL_CONTRACT), "exn:fail:contract:arity", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_CONTRACT_DIVIDE_BY_ZERO, EXN_PARENT(MZEXN_FAIL_CONTRACT), "exn:fail:contract:divide-by-zero", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_CONTRACT_NON_FIXNUM_RESULT, EXN_PARENT(MZEXN_FAIL_CONTRACT), "exn:fail:contract:non-fixnum-result", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_CONTRACT_CONTINUATION, EXN_PARENT(MZEXN_FAIL_CONTRACT), "exn:fail:contract:continuation", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_CONTRACT_VARIABLE, EXN_PARENT(MZEXN_FAIL_CONTRACT), "exn:fail:contract:variable", 1, MZEXN_FAIL_CONTRACT_VARIABLE_FIELDS, scheme_null, scheme_make_prim(variable_field_check))
SETUP_STRUCT(MZEXN_FAIL_SYNTAX, EXN_PARENT(MZEXN_FAIL), "exn:fail:syntax", 1, MZEXN_FAIL_SYNTAX_FIELDS, MZEXN_FAIL_SYNTAX_PROPS, scheme_make_prim(syntax_field_check))
SETUP_STRUCT(MZEXN_FAIL_READ, EXN_PARENT(MZEXN_FAIL), "exn:fail:read", 1, MZEXN_FAIL_READ_FIELDS, MZEXN_FAIL_READ_PROPS, scheme_make_prim(read_field_check))
SETUP_STRUCT(MZEXN_FAIL_READ_EOF, EXN_PARENT(MZEXN_FAIL_READ), "exn:fail:read:eof", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_READ_NON_CHAR, EXN_PARENT(MZEXN_FAIL_READ), "exn:fail:read:non-char", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_FILESYSTEM, EXN_PARENT(MZEXN_FAIL), "exn:fail:filesystem", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_FILESYSTEM_EXISTS, EXN_PARENT(MZEXN_FAIL_FILESYSTEM), "exn:fail:filesystem:exists", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_FILESYSTEM_VERSION, EXN_PARENT(MZEXN_FAIL_FILESYSTEM), "exn:fail:filesystem:version", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_NETWORK, EXN_PARENT(MZEXN_FAIL), "exn:fail:network", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_OUT_OF_MEMORY, EXN_PARENT(MZEXN_FAIL), "exn:fail:out-of-memory", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_UNSUPPORTED, EXN_PARENT(MZEXN_FAIL), "exn:fail:unsupported", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_FAIL_USER, EXN_PARENT(MZEXN_FAIL), "exn:fail:user", 0, NULL, scheme_null, NULL)
SETUP_STRUCT(MZEXN_BREAK, EXN_PARENT(MZEXN), "exn:break", 1, MZEXN_BREAK_FIELDS, scheme_null, scheme_make_prim(break_field_check))
#endif
|