/* This file was generated by makeexn */ #ifndef _MZEXN_DEFINES #define _MZEXN_DEFINES enum { MZEXN, MZEXN_USER, MZEXN_SYNTAX, MZEXN_VARIABLE, MZEXN_APPLICATION, MZEXN_APPLICATION_NON_PROCEDURE, MZEXN_APPLICATION_ARITY, MZEXN_APPLICATION_TYPE, MZEXN_APPLICATION_RANGE, MZEXN_APPLICATION_RANGE_BOUNDS, MZEXN_APPLICATION_RANGE_BOUNDS_VECTOR, MZEXN_APPLICATION_RANGE_BOUNDS_STRING, MZEXN_APPLICATION_RANGE_BOUNDS_STRUCT, MZEXN_APPLICATION_RANGE_LIST, MZEXN_APPLICATION_LIST_SIZES, MZEXN_APPLICATION_MAP_ARITY, MZEXN_APPLICATION_INTEGER, MZEXN_APPLICATION_LIST, MZEXN_APPLICATION_MATH, MZEXN_APPLICATION_MATH_ZERO, MZEXN_APPLICATION_MATH_INFINITY, MZEXN_APPLICATION_MATH_NEGATIVE, MZEXN_APPLICATION_MATH_RADIX, MZEXN_APPLICATION_MODE_CONFLICT, MZEXN_APPLICATION_FILE_POSITION, MZEXN_APPLICATION_FPRINTF, MZEXN_APPLICATION_FPRINTF_EXTRA_ARGUMENTS, MZEXN_APPLICATION_FPRINTF_NO_ARGUMENT, MZEXN_APPLICATION_FPRINTF_ARGUMENT_TYPE, MZEXN_ELSE, MZEXN_STRUCT, MZEXN_STRUCT_STRUCT_TYPE, MZEXN_OBJECT, MZEXN_OBJECT_CLASS_TYPE, MZEXN_OBJECT_INTERFACE_TYPE, MZEXN_OBJECT_GENERIC, MZEXN_OBJECT_INHERIT, MZEXN_OBJECT_IMPLEMENT, MZEXN_OBJECT_CLASS_IVAR, MZEXN_OBJECT_INTERFACE_IVAR, MZEXN_OBJECT_IVAR, MZEXN_OBJECT_PRIVATE_CLASS, MZEXN_OBJECT_INIT, MZEXN_OBJECT_INIT_MULTIPLE, MZEXN_OBJECT_INIT_NEVER, MZEXN_UNIT, MZEXN_UNIT_NON_UNIT, MZEXN_UNIT_ARITY, MZEXN_UNIT_IMPORT, MZEXN_UNIT_EXPORT, MZEXN_UNIT_INVOKE, MZEXN_UNIT_INVOKE_VARIABLE, MZEXN_UNIT_SIGNATURE, MZEXN_UNIT_SIGNATURE_NON_SIGNED_UNIT, MZEXN_UNIT_SIGNATURE_ARITY, MZEXN_UNIT_SIGNATURE_MATCH, MZEXN_UNIT_SIGNATURE_MATCH_MISSING, MZEXN_UNIT_SIGNATURE_MATCH_EXTRA, MZEXN_UNIT_SIGNATURE_MATCH_KIND, MZEXN_READ, MZEXN_READ_PAREN, MZEXN_READ_NUMBER, MZEXN_READ_CHAR, MZEXN_READ_EOF, MZEXN_READ_DOT, MZEXN_READ_UNSUPPORTED, MZEXN_READ_VECTOR_LENGTH, MZEXN_READ_COMPILED, MZEXN_READ_GRAPH, MZEXN_I_O, MZEXN_I_O_READ, MZEXN_I_O_WRITE, MZEXN_I_O_FILESYSTEM, MZEXN_I_O_FILESYSTEM_PATH, MZEXN_I_O_FILESYSTEM_PATH_USERNAME, MZEXN_I_O_FILESYSTEM_FILE, MZEXN_I_O_FILESYSTEM_DIRECTORY, MZEXN_I_O_FILESYSTEM_COLLECTION, MZEXN_I_O_FILESYSTEM_FILE_EXISTS, MZEXN_I_O_PORT_CLOSED, MZEXN_I_O_USER_PORT, MZEXN_I_O_TCP, MZEXN_I_O_TCP_CONNECT, MZEXN_I_O_TCP_LISTEN, MZEXN_I_O_TCP_ACCEPT, MZEXN_I_O_TCP_LISTENER_CLOSED, MZEXN_MISC, MZEXN_MISC_UNSUPPORTED, MZEXN_MISC_USER_BREAK, MZEXN_MISC_OUT_OF_MEMORY, MZEXN_MISC_PARAMETERIZATION, MZEXN_MISC_DEFMACRO, MZEXN_MISC_EXPANSION_TIME, MZEXN_MISC_CONSTANT, MZEXN_MISC_CONTINUATION, MZEXN_MISC_THREAD, MZEXN_MISC_THREAD_KILL, MZEXN_MISC_SEMAPHORE, MZEXN_MISC_HASH_TABLE, MZEXN_MISC_REGEXP, MZEXN_MISC_PROCESS, MZEXN_MISC_DYNAMIC_EXTENSION, MZEXN_MISC_DYNAMIC_EXTENSION_OPEN, MZEXN_MISC_DYNAMIC_EXTENSION_VERSION, MZEXN_MISC_DYNAMIC_EXTENSION_INITIALIZE, MZEXN_MISC_IMAGE, MZEXN_OTHER }; #endif #ifdef _MZEXN_TABLE #define MZEXN_MAXARGS 7 #ifdef GLOBAL_EXN_ARRAY static exn_rec exn_table[] = { { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 7, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 5, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 4, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 2, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 }, { 3, NULL, NULL, 0 } }; #else 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_USER].args = 2; exn_table[MZEXN_SYNTAX].args = 3; exn_table[MZEXN_VARIABLE].args = 3; exn_table[MZEXN_APPLICATION].args = 3; exn_table[MZEXN_APPLICATION_NON_PROCEDURE].args = 3; exn_table[MZEXN_APPLICATION_ARITY].args = 4; exn_table[MZEXN_APPLICATION_TYPE].args = 4; exn_table[MZEXN_APPLICATION_RANGE].args = 3; exn_table[MZEXN_APPLICATION_RANGE_BOUNDS].args = 5; exn_table[MZEXN_APPLICATION_RANGE_BOUNDS_VECTOR].args = 5; exn_table[MZEXN_APPLICATION_RANGE_BOUNDS_STRING].args = 5; exn_table[MZEXN_APPLICATION_RANGE_BOUNDS_STRUCT].args = 5; exn_table[MZEXN_APPLICATION_RANGE_LIST].args = 3; exn_table[MZEXN_APPLICATION_LIST_SIZES].args = 3; exn_table[MZEXN_APPLICATION_MAP_ARITY].args = 4; exn_table[MZEXN_APPLICATION_INTEGER].args = 3; exn_table[MZEXN_APPLICATION_LIST].args = 3; exn_table[MZEXN_APPLICATION_MATH].args = 3; exn_table[MZEXN_APPLICATION_MATH_ZERO].args = 3; exn_table[MZEXN_APPLICATION_MATH_INFINITY].args = 3; exn_table[MZEXN_APPLICATION_MATH_NEGATIVE].args = 3; exn_table[MZEXN_APPLICATION_MATH_RADIX].args = 3; exn_table[MZEXN_APPLICATION_MODE_CONFLICT].args = 4; exn_table[MZEXN_APPLICATION_FILE_POSITION].args = 3; exn_table[MZEXN_APPLICATION_FPRINTF].args = 3; exn_table[MZEXN_APPLICATION_FPRINTF_EXTRA_ARGUMENTS].args = 4; exn_table[MZEXN_APPLICATION_FPRINTF_NO_ARGUMENT].args = 3; exn_table[MZEXN_APPLICATION_FPRINTF_ARGUMENT_TYPE].args = 4; exn_table[MZEXN_ELSE].args = 2; exn_table[MZEXN_STRUCT].args = 2; exn_table[MZEXN_STRUCT_STRUCT_TYPE].args = 3; exn_table[MZEXN_OBJECT].args = 2; exn_table[MZEXN_OBJECT_CLASS_TYPE].args = 3; exn_table[MZEXN_OBJECT_INTERFACE_TYPE].args = 3; exn_table[MZEXN_OBJECT_GENERIC].args = 3; exn_table[MZEXN_OBJECT_INHERIT].args = 3; exn_table[MZEXN_OBJECT_IMPLEMENT].args = 3; exn_table[MZEXN_OBJECT_CLASS_IVAR].args = 4; exn_table[MZEXN_OBJECT_INTERFACE_IVAR].args = 4; exn_table[MZEXN_OBJECT_IVAR].args = 4; exn_table[MZEXN_OBJECT_PRIVATE_CLASS].args = 3; exn_table[MZEXN_OBJECT_INIT].args = 4; exn_table[MZEXN_OBJECT_INIT_MULTIPLE].args = 4; exn_table[MZEXN_OBJECT_INIT_NEVER].args = 4; exn_table[MZEXN_UNIT].args = 2; exn_table[MZEXN_UNIT_NON_UNIT].args = 3; exn_table[MZEXN_UNIT_ARITY].args = 3; exn_table[MZEXN_UNIT_IMPORT].args = 7; exn_table[MZEXN_UNIT_EXPORT].args = 5; exn_table[MZEXN_UNIT_INVOKE].args = 2; exn_table[MZEXN_UNIT_INVOKE_VARIABLE].args = 3; exn_table[MZEXN_UNIT_SIGNATURE].args = 2; exn_table[MZEXN_UNIT_SIGNATURE_NON_SIGNED_UNIT].args = 3; exn_table[MZEXN_UNIT_SIGNATURE_ARITY].args = 3; exn_table[MZEXN_UNIT_SIGNATURE_MATCH].args = 5; exn_table[MZEXN_UNIT_SIGNATURE_MATCH_MISSING].args = 5; exn_table[MZEXN_UNIT_SIGNATURE_MATCH_EXTRA].args = 5; exn_table[MZEXN_UNIT_SIGNATURE_MATCH_KIND].args = 5; exn_table[MZEXN_READ].args = 3; exn_table[MZEXN_READ_PAREN].args = 3; exn_table[MZEXN_READ_NUMBER].args = 4; exn_table[MZEXN_READ_CHAR].args = 4; exn_table[MZEXN_READ_EOF].args = 4; exn_table[MZEXN_READ_DOT].args = 3; exn_table[MZEXN_READ_UNSUPPORTED].args = 4; exn_table[MZEXN_READ_VECTOR_LENGTH].args = 4; exn_table[MZEXN_READ_COMPILED].args = 3; exn_table[MZEXN_READ_GRAPH].args = 3; exn_table[MZEXN_I_O].args = 2; exn_table[MZEXN_I_O_READ].args = 3; exn_table[MZEXN_I_O_WRITE].args = 3; exn_table[MZEXN_I_O_FILESYSTEM].args = 3; exn_table[MZEXN_I_O_FILESYSTEM_PATH].args = 3; exn_table[MZEXN_I_O_FILESYSTEM_PATH_USERNAME].args = 3; exn_table[MZEXN_I_O_FILESYSTEM_FILE].args = 3; exn_table[MZEXN_I_O_FILESYSTEM_DIRECTORY].args = 3; exn_table[MZEXN_I_O_FILESYSTEM_COLLECTION].args = 3; exn_table[MZEXN_I_O_FILESYSTEM_FILE_EXISTS].args = 3; exn_table[MZEXN_I_O_PORT_CLOSED].args = 3; exn_table[MZEXN_I_O_USER_PORT].args = 3; exn_table[MZEXN_I_O_TCP].args = 2; exn_table[MZEXN_I_O_TCP_CONNECT].args = 4; exn_table[MZEXN_I_O_TCP_LISTEN].args = 3; exn_table[MZEXN_I_O_TCP_ACCEPT].args = 3; exn_table[MZEXN_I_O_TCP_LISTENER_CLOSED].args = 3; exn_table[MZEXN_MISC].args = 2; exn_table[MZEXN_MISC_UNSUPPORTED].args = 2; exn_table[MZEXN_MISC_USER_BREAK].args = 2; exn_table[MZEXN_MISC_OUT_OF_MEMORY].args = 2; exn_table[MZEXN_MISC_PARAMETERIZATION].args = 3; exn_table[MZEXN_MISC_DEFMACRO].args = 3; exn_table[MZEXN_MISC_EXPANSION_TIME].args = 2; exn_table[MZEXN_MISC_CONSTANT].args = 3; exn_table[MZEXN_MISC_CONTINUATION].args = 2; exn_table[MZEXN_MISC_THREAD].args = 2; exn_table[MZEXN_MISC_THREAD_KILL].args = 2; exn_table[MZEXN_MISC_SEMAPHORE].args = 2; exn_table[MZEXN_MISC_HASH_TABLE].args = 3; exn_table[MZEXN_MISC_REGEXP].args = 2; exn_table[MZEXN_MISC_PROCESS].args = 2; exn_table[MZEXN_MISC_DYNAMIC_EXTENSION].args = 3; exn_table[MZEXN_MISC_DYNAMIC_EXTENSION_OPEN].args = 3; exn_table[MZEXN_MISC_DYNAMIC_EXTENSION_VERSION].args = 3; exn_table[MZEXN_MISC_DYNAMIC_EXTENSION_INITIALIZE].args = 3; exn_table[MZEXN_MISC_IMAGE].args = 3; #endif #endif #ifdef _MZEXN_DECL_FIELDS static const char *MZEXN_FIELDS[2] = { "message", "debug-info" }; static const char *MZEXN_SYNTAX_FIELDS[1] = { "expr" }; static const char *MZEXN_VARIABLE_FIELDS[1] = { "id" }; static const char *MZEXN_APPLICATION_FIELDS[1] = { "value" }; static const char *MZEXN_APPLICATION_ARITY_FIELDS[1] = { "expected" }; static const char *MZEXN_APPLICATION_TYPE_FIELDS[1] = { "expected" }; static const char *MZEXN_APPLICATION_RANGE_BOUNDS_FIELDS[2] = { "min", "max" }; static const char *MZEXN_APPLICATION_MAP_ARITY_FIELDS[1] = { "provided" }; static const char *MZEXN_APPLICATION_MODE_CONFLICT_FIELDS[1] = { "filename" }; static const char *MZEXN_APPLICATION_FPRINTF_EXTRA_ARGUMENTS_FIELDS[1] = { "extras" }; static const char *MZEXN_APPLICATION_FPRINTF_ARGUMENT_TYPE_FIELDS[1] = { "expected" }; static const char *MZEXN_STRUCT_STRUCT_TYPE_FIELDS[1] = { "value" }; static const char *MZEXN_OBJECT_CLASS_TYPE_FIELDS[1] = { "value" }; static const char *MZEXN_OBJECT_INTERFACE_TYPE_FIELDS[1] = { "value" }; static const char *MZEXN_OBJECT_GENERIC_FIELDS[1] = { "object" }; static const char *MZEXN_OBJECT_INHERIT_FIELDS[1] = { "ivar" }; static const char *MZEXN_OBJECT_IMPLEMENT_FIELDS[1] = { "ivar" }; static const char *MZEXN_OBJECT_CLASS_IVAR_FIELDS[2] = { "class", "ivar" }; static const char *MZEXN_OBJECT_INTERFACE_IVAR_FIELDS[2] = { "interface", "ivar" }; static const char *MZEXN_OBJECT_IVAR_FIELDS[2] = { "object", "ivar" }; static const char *MZEXN_OBJECT_PRIVATE_CLASS_FIELDS[1] = { "class" }; static const char *MZEXN_OBJECT_INIT_FIELDS[2] = { "object", "class" }; static const char *MZEXN_UNIT_NON_UNIT_FIELDS[1] = { "value" }; static const char *MZEXN_UNIT_ARITY_FIELDS[1] = { "unit" }; static const char *MZEXN_UNIT_IMPORT_FIELDS[5] = { "in-unit", "out-unit", "in-tag", "out-tag", "name" }; static const char *MZEXN_UNIT_EXPORT_FIELDS[3] = { "unit", "tag", "name" }; static const char *MZEXN_UNIT_INVOKE_VARIABLE_FIELDS[1] = { "name" }; static const char *MZEXN_UNIT_SIGNATURE_NON_SIGNED_UNIT_FIELDS[1] = { "value" }; static const char *MZEXN_UNIT_SIGNATURE_ARITY_FIELDS[1] = { "unit" }; static const char *MZEXN_UNIT_SIGNATURE_MATCH_FIELDS[3] = { "dest-context", "src-context", "variable" }; static const char *MZEXN_READ_FIELDS[1] = { "port" }; static const char *MZEXN_READ_NUMBER_FIELDS[1] = { "input" }; static const char *MZEXN_READ_CHAR_FIELDS[1] = { "input" }; static const char *MZEXN_READ_EOF_FIELDS[1] = { "expected" }; static const char *MZEXN_READ_UNSUPPORTED_FIELDS[1] = { "input" }; static const char *MZEXN_READ_VECTOR_LENGTH_FIELDS[1] = { "input" }; static const char *MZEXN_I_O_READ_FIELDS[1] = { "port" }; static const char *MZEXN_I_O_WRITE_FIELDS[1] = { "port" }; static const char *MZEXN_I_O_FILESYSTEM_FIELDS[1] = { "pathname" }; static const char *MZEXN_I_O_PORT_CLOSED_FIELDS[1] = { "port" }; static const char *MZEXN_I_O_USER_PORT_FIELDS[1] = { "port" }; static const char *MZEXN_I_O_TCP_CONNECT_FIELDS[2] = { "address", "port-id" }; static const char *MZEXN_I_O_TCP_LISTEN_FIELDS[1] = { "port-id" }; static const char *MZEXN_I_O_TCP_ACCEPT_FIELDS[1] = { "listener" }; static const char *MZEXN_I_O_TCP_LISTENER_CLOSED_FIELDS[1] = { "listener" }; static const char *MZEXN_MISC_PARAMETERIZATION_FIELDS[1] = { "value" }; static const char *MZEXN_MISC_DEFMACRO_FIELDS[1] = { "value" }; static const char *MZEXN_MISC_CONSTANT_FIELDS[1] = { "id" }; static const char *MZEXN_MISC_HASH_TABLE_FIELDS[1] = { "key" }; static const char *MZEXN_MISC_DYNAMIC_EXTENSION_FIELDS[1] = { "name" }; static const char *MZEXN_MISC_IMAGE_FIELDS[1] = { "name" }; #endif #ifdef _MZEXN_SETUP SETUP_STRUCT(MZEXN, NULL, "exn", 2, MZEXN_FIELDS) SETUP_STRUCT(MZEXN_USER, EXN_PARENT(MZEXN), "exn:user", 0, NULL) SETUP_STRUCT(MZEXN_SYNTAX, EXN_PARENT(MZEXN), "exn:syntax", 1, MZEXN_SYNTAX_FIELDS) SETUP_STRUCT(MZEXN_VARIABLE, EXN_PARENT(MZEXN), "exn:variable", 1, MZEXN_VARIABLE_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION, EXN_PARENT(MZEXN), "exn:application", 1, MZEXN_APPLICATION_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION_NON_PROCEDURE, EXN_PARENT(MZEXN_APPLICATION), "exn:application:non-procedure", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_ARITY, EXN_PARENT(MZEXN_APPLICATION), "exn:application:arity", 1, MZEXN_APPLICATION_ARITY_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION_TYPE, EXN_PARENT(MZEXN_APPLICATION), "exn:application:type", 1, MZEXN_APPLICATION_TYPE_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION_RANGE, EXN_PARENT(MZEXN_APPLICATION), "exn:application:range", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_RANGE_BOUNDS, EXN_PARENT(MZEXN_APPLICATION_RANGE), "exn:application:range:bounds", 2, MZEXN_APPLICATION_RANGE_BOUNDS_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION_RANGE_BOUNDS_VECTOR, EXN_PARENT(MZEXN_APPLICATION_RANGE_BOUNDS), "exn:application:range:bounds:vector", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_RANGE_BOUNDS_STRING, EXN_PARENT(MZEXN_APPLICATION_RANGE_BOUNDS), "exn:application:range:bounds:string", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_RANGE_BOUNDS_STRUCT, EXN_PARENT(MZEXN_APPLICATION_RANGE_BOUNDS), "exn:application:range:bounds:struct", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_RANGE_LIST, EXN_PARENT(MZEXN_APPLICATION_RANGE), "exn:application:range:list", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_LIST_SIZES, EXN_PARENT(MZEXN_APPLICATION), "exn:application:list-sizes", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_MAP_ARITY, EXN_PARENT(MZEXN_APPLICATION), "exn:application:map-arity", 1, MZEXN_APPLICATION_MAP_ARITY_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION_INTEGER, EXN_PARENT(MZEXN_APPLICATION), "exn:application:integer", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_LIST, EXN_PARENT(MZEXN_APPLICATION), "exn:application:list", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_MATH, EXN_PARENT(MZEXN_APPLICATION), "exn:application:math", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_MATH_ZERO, EXN_PARENT(MZEXN_APPLICATION_MATH), "exn:application:math:zero", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_MATH_INFINITY, EXN_PARENT(MZEXN_APPLICATION_MATH), "exn:application:math:infinity", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_MATH_NEGATIVE, EXN_PARENT(MZEXN_APPLICATION_MATH), "exn:application:math:negative", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_MATH_RADIX, EXN_PARENT(MZEXN_APPLICATION_MATH), "exn:application:math:radix", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_MODE_CONFLICT, EXN_PARENT(MZEXN_APPLICATION), "exn:application:mode-conflict", 1, MZEXN_APPLICATION_MODE_CONFLICT_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION_FILE_POSITION, EXN_PARENT(MZEXN_APPLICATION), "exn:application:file-position", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_FPRINTF, EXN_PARENT(MZEXN_APPLICATION), "exn:application:fprintf", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_FPRINTF_EXTRA_ARGUMENTS, EXN_PARENT(MZEXN_APPLICATION_FPRINTF), "exn:application:fprintf:extra-arguments", 1, MZEXN_APPLICATION_FPRINTF_EXTRA_ARGUMENTS_FIELDS) SETUP_STRUCT(MZEXN_APPLICATION_FPRINTF_NO_ARGUMENT, EXN_PARENT(MZEXN_APPLICATION_FPRINTF), "exn:application:fprintf:no-argument", 0, NULL) SETUP_STRUCT(MZEXN_APPLICATION_FPRINTF_ARGUMENT_TYPE, EXN_PARENT(MZEXN_APPLICATION_FPRINTF), "exn:application:fprintf:argument-type", 1, MZEXN_APPLICATION_FPRINTF_ARGUMENT_TYPE_FIELDS) SETUP_STRUCT(MZEXN_ELSE, EXN_PARENT(MZEXN), "exn:else", 0, NULL) SETUP_STRUCT(MZEXN_STRUCT, EXN_PARENT(MZEXN), "exn:struct", 0, NULL) SETUP_STRUCT(MZEXN_STRUCT_STRUCT_TYPE, EXN_PARENT(MZEXN_STRUCT), "exn:struct:struct-type", 1, MZEXN_STRUCT_STRUCT_TYPE_FIELDS) SETUP_STRUCT(MZEXN_OBJECT, EXN_PARENT(MZEXN), "exn:object", 0, NULL) SETUP_STRUCT(MZEXN_OBJECT_CLASS_TYPE, EXN_PARENT(MZEXN_OBJECT), "exn:object:class-type", 1, MZEXN_OBJECT_CLASS_TYPE_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_INTERFACE_TYPE, EXN_PARENT(MZEXN_OBJECT), "exn:object:interface-type", 1, MZEXN_OBJECT_INTERFACE_TYPE_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_GENERIC, EXN_PARENT(MZEXN_OBJECT), "exn:object:generic", 1, MZEXN_OBJECT_GENERIC_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_INHERIT, EXN_PARENT(MZEXN_OBJECT), "exn:object:inherit", 1, MZEXN_OBJECT_INHERIT_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_IMPLEMENT, EXN_PARENT(MZEXN_OBJECT), "exn:object:implement", 1, MZEXN_OBJECT_IMPLEMENT_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_CLASS_IVAR, EXN_PARENT(MZEXN_OBJECT), "exn:object:class-ivar", 2, MZEXN_OBJECT_CLASS_IVAR_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_INTERFACE_IVAR, EXN_PARENT(MZEXN_OBJECT), "exn:object:interface-ivar", 2, MZEXN_OBJECT_INTERFACE_IVAR_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_IVAR, EXN_PARENT(MZEXN_OBJECT), "exn:object:ivar", 2, MZEXN_OBJECT_IVAR_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_PRIVATE_CLASS, EXN_PARENT(MZEXN_OBJECT), "exn:object:private-class", 1, MZEXN_OBJECT_PRIVATE_CLASS_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_INIT, EXN_PARENT(MZEXN_OBJECT), "exn:object:init", 2, MZEXN_OBJECT_INIT_FIELDS) SETUP_STRUCT(MZEXN_OBJECT_INIT_MULTIPLE, EXN_PARENT(MZEXN_OBJECT_INIT), "exn:object:init:multiple", 0, NULL) SETUP_STRUCT(MZEXN_OBJECT_INIT_NEVER, EXN_PARENT(MZEXN_OBJECT_INIT), "exn:object:init:never", 0, NULL) SETUP_STRUCT(MZEXN_UNIT, EXN_PARENT(MZEXN), "exn:unit", 0, NULL) SETUP_STRUCT(MZEXN_UNIT_NON_UNIT, EXN_PARENT(MZEXN_UNIT), "exn:unit:non-unit", 1, MZEXN_UNIT_NON_UNIT_FIELDS) SETUP_STRUCT(MZEXN_UNIT_ARITY, EXN_PARENT(MZEXN_UNIT), "exn:unit:arity", 1, MZEXN_UNIT_ARITY_FIELDS) SETUP_STRUCT(MZEXN_UNIT_IMPORT, EXN_PARENT(MZEXN_UNIT), "exn:unit:import", 5, MZEXN_UNIT_IMPORT_FIELDS) SETUP_STRUCT(MZEXN_UNIT_EXPORT, EXN_PARENT(MZEXN_UNIT), "exn:unit:export", 3, MZEXN_UNIT_EXPORT_FIELDS) SETUP_STRUCT(MZEXN_UNIT_INVOKE, EXN_PARENT(MZEXN_UNIT), "exn:unit:invoke", 0, NULL) SETUP_STRUCT(MZEXN_UNIT_INVOKE_VARIABLE, EXN_PARENT(MZEXN_UNIT_INVOKE), "exn:unit:invoke:variable", 1, MZEXN_UNIT_INVOKE_VARIABLE_FIELDS) SETUP_STRUCT(MZEXN_UNIT_SIGNATURE, EXN_PARENT(MZEXN_UNIT), "exn:unit:signature", 0, NULL) SETUP_STRUCT(MZEXN_UNIT_SIGNATURE_NON_SIGNED_UNIT, EXN_PARENT(MZEXN_UNIT_SIGNATURE), "exn:unit:signature:non-signed-unit", 1, MZEXN_UNIT_SIGNATURE_NON_SIGNED_UNIT_FIELDS) SETUP_STRUCT(MZEXN_UNIT_SIGNATURE_ARITY, EXN_PARENT(MZEXN_UNIT_SIGNATURE), "exn:unit:signature:arity", 1, MZEXN_UNIT_SIGNATURE_ARITY_FIELDS) SETUP_STRUCT(MZEXN_UNIT_SIGNATURE_MATCH, EXN_PARENT(MZEXN_UNIT_SIGNATURE), "exn:unit:signature:match", 3, MZEXN_UNIT_SIGNATURE_MATCH_FIELDS) SETUP_STRUCT(MZEXN_UNIT_SIGNATURE_MATCH_MISSING, EXN_PARENT(MZEXN_UNIT_SIGNATURE_MATCH), "exn:unit:signature:match:missing", 0, NULL) SETUP_STRUCT(MZEXN_UNIT_SIGNATURE_MATCH_EXTRA, EXN_PARENT(MZEXN_UNIT_SIGNATURE_MATCH), "exn:unit:signature:match:extra", 0, NULL) SETUP_STRUCT(MZEXN_UNIT_SIGNATURE_MATCH_KIND, EXN_PARENT(MZEXN_UNIT_SIGNATURE_MATCH), "exn:unit:signature:match:kind", 0, NULL) SETUP_STRUCT(MZEXN_READ, EXN_PARENT(MZEXN), "exn:read", 1, MZEXN_READ_FIELDS) SETUP_STRUCT(MZEXN_READ_PAREN, EXN_PARENT(MZEXN_READ), "exn:read:paren", 0, NULL) SETUP_STRUCT(MZEXN_READ_NUMBER, EXN_PARENT(MZEXN_READ), "exn:read:number", 1, MZEXN_READ_NUMBER_FIELDS) SETUP_STRUCT(MZEXN_READ_CHAR, EXN_PARENT(MZEXN_READ), "exn:read:char", 1, MZEXN_READ_CHAR_FIELDS) SETUP_STRUCT(MZEXN_READ_EOF, EXN_PARENT(MZEXN_READ), "exn:read:eof", 1, MZEXN_READ_EOF_FIELDS) SETUP_STRUCT(MZEXN_READ_DOT, EXN_PARENT(MZEXN_READ), "exn:read:dot", 0, NULL) SETUP_STRUCT(MZEXN_READ_UNSUPPORTED, EXN_PARENT(MZEXN_READ), "exn:read:unsupported", 1, MZEXN_READ_UNSUPPORTED_FIELDS) SETUP_STRUCT(MZEXN_READ_VECTOR_LENGTH, EXN_PARENT(MZEXN_READ), "exn:read:vector-length", 1, MZEXN_READ_VECTOR_LENGTH_FIELDS) SETUP_STRUCT(MZEXN_READ_COMPILED, EXN_PARENT(MZEXN_READ), "exn:read:compiled", 0, NULL) SETUP_STRUCT(MZEXN_READ_GRAPH, EXN_PARENT(MZEXN_READ), "exn:read:graph", 0, NULL) SETUP_STRUCT(MZEXN_I_O, EXN_PARENT(MZEXN), "exn:i/o", 0, NULL) SETUP_STRUCT(MZEXN_I_O_READ, EXN_PARENT(MZEXN_I_O), "exn:i/o:read", 1, MZEXN_I_O_READ_FIELDS) SETUP_STRUCT(MZEXN_I_O_WRITE, EXN_PARENT(MZEXN_I_O), "exn:i/o:write", 1, MZEXN_I_O_WRITE_FIELDS) SETUP_STRUCT(MZEXN_I_O_FILESYSTEM, EXN_PARENT(MZEXN_I_O), "exn:i/o:filesystem", 1, MZEXN_I_O_FILESYSTEM_FIELDS) SETUP_STRUCT(MZEXN_I_O_FILESYSTEM_PATH, EXN_PARENT(MZEXN_I_O_FILESYSTEM), "exn:i/o:filesystem:path", 0, NULL) SETUP_STRUCT(MZEXN_I_O_FILESYSTEM_PATH_USERNAME, EXN_PARENT(MZEXN_I_O_FILESYSTEM_PATH), "exn:i/o:filesystem:path:username", 0, NULL) SETUP_STRUCT(MZEXN_I_O_FILESYSTEM_FILE, EXN_PARENT(MZEXN_I_O_FILESYSTEM), "exn:i/o:filesystem:file", 0, NULL) SETUP_STRUCT(MZEXN_I_O_FILESYSTEM_DIRECTORY, EXN_PARENT(MZEXN_I_O_FILESYSTEM), "exn:i/o:filesystem:directory", 0, NULL) SETUP_STRUCT(MZEXN_I_O_FILESYSTEM_COLLECTION, EXN_PARENT(MZEXN_I_O_FILESYSTEM), "exn:i/o:filesystem:collection", 0, NULL) SETUP_STRUCT(MZEXN_I_O_FILESYSTEM_FILE_EXISTS, EXN_PARENT(MZEXN_I_O_FILESYSTEM), "exn:i/o:filesystem:file-exists", 0, NULL) SETUP_STRUCT(MZEXN_I_O_PORT_CLOSED, EXN_PARENT(MZEXN_I_O), "exn:i/o:port-closed", 1, MZEXN_I_O_PORT_CLOSED_FIELDS) SETUP_STRUCT(MZEXN_I_O_USER_PORT, EXN_PARENT(MZEXN_I_O), "exn:i/o:user-port", 1, MZEXN_I_O_USER_PORT_FIELDS) SETUP_STRUCT(MZEXN_I_O_TCP, EXN_PARENT(MZEXN_I_O), "exn:i/o:tcp", 0, NULL) SETUP_STRUCT(MZEXN_I_O_TCP_CONNECT, EXN_PARENT(MZEXN_I_O_TCP), "exn:i/o:tcp:connect", 2, MZEXN_I_O_TCP_CONNECT_FIELDS) SETUP_STRUCT(MZEXN_I_O_TCP_LISTEN, EXN_PARENT(MZEXN_I_O_TCP), "exn:i/o:tcp:listen", 1, MZEXN_I_O_TCP_LISTEN_FIELDS) SETUP_STRUCT(MZEXN_I_O_TCP_ACCEPT, EXN_PARENT(MZEXN_I_O_TCP), "exn:i/o:tcp:accept", 1, MZEXN_I_O_TCP_ACCEPT_FIELDS) SETUP_STRUCT(MZEXN_I_O_TCP_LISTENER_CLOSED, EXN_PARENT(MZEXN_I_O_TCP), "exn:i/o:tcp:listener-closed", 1, MZEXN_I_O_TCP_LISTENER_CLOSED_FIELDS) SETUP_STRUCT(MZEXN_MISC, EXN_PARENT(MZEXN), "exn:misc", 0, NULL) SETUP_STRUCT(MZEXN_MISC_UNSUPPORTED, EXN_PARENT(MZEXN_MISC), "exn:misc:unsupported", 0, NULL) SETUP_STRUCT(MZEXN_MISC_USER_BREAK, EXN_PARENT(MZEXN_MISC), "exn:misc:user-break", 0, NULL) SETUP_STRUCT(MZEXN_MISC_OUT_OF_MEMORY, EXN_PARENT(MZEXN_MISC), "exn:misc:out-of-memory", 0, NULL) SETUP_STRUCT(MZEXN_MISC_PARAMETERIZATION, EXN_PARENT(MZEXN_MISC), "exn:misc:parameterization", 1, MZEXN_MISC_PARAMETERIZATION_FIELDS) SETUP_STRUCT(MZEXN_MISC_DEFMACRO, EXN_PARENT(MZEXN_MISC), "exn:misc:defmacro", 1, MZEXN_MISC_DEFMACRO_FIELDS) SETUP_STRUCT(MZEXN_MISC_EXPANSION_TIME, EXN_PARENT(MZEXN_MISC), "exn:misc:expansion-time", 0, NULL) SETUP_STRUCT(MZEXN_MISC_CONSTANT, EXN_PARENT(MZEXN_MISC), "exn:misc:constant", 1, MZEXN_MISC_CONSTANT_FIELDS) SETUP_STRUCT(MZEXN_MISC_CONTINUATION, EXN_PARENT(MZEXN_MISC), "exn:misc:continuation", 0, NULL) SETUP_STRUCT(MZEXN_MISC_THREAD, EXN_PARENT(MZEXN_MISC), "exn:misc:thread", 0, NULL) SETUP_STRUCT(MZEXN_MISC_THREAD_KILL, EXN_PARENT(MZEXN_MISC_THREAD), "exn:misc:thread:kill", 0, NULL) SETUP_STRUCT(MZEXN_MISC_SEMAPHORE, EXN_PARENT(MZEXN_MISC), "exn:misc:semaphore", 0, NULL) SETUP_STRUCT(MZEXN_MISC_HASH_TABLE, EXN_PARENT(MZEXN_MISC), "exn:misc:hash-table", 1, MZEXN_MISC_HASH_TABLE_FIELDS) SETUP_STRUCT(MZEXN_MISC_REGEXP, EXN_PARENT(MZEXN_MISC), "exn:misc:regexp", 0, NULL) SETUP_STRUCT(MZEXN_MISC_PROCESS, EXN_PARENT(MZEXN_MISC), "exn:misc:process", 0, NULL) SETUP_STRUCT(MZEXN_MISC_DYNAMIC_EXTENSION, EXN_PARENT(MZEXN_MISC), "exn:misc:dynamic-extension", 1, MZEXN_MISC_DYNAMIC_EXTENSION_FIELDS) SETUP_STRUCT(MZEXN_MISC_DYNAMIC_EXTENSION_OPEN, EXN_PARENT(MZEXN_MISC_DYNAMIC_EXTENSION), "exn:misc:dynamic-extension:open", 0, NULL) SETUP_STRUCT(MZEXN_MISC_DYNAMIC_EXTENSION_VERSION, EXN_PARENT(MZEXN_MISC_DYNAMIC_EXTENSION), "exn:misc:dynamic-extension:version", 0, NULL) SETUP_STRUCT(MZEXN_MISC_DYNAMIC_EXTENSION_INITIALIZE, EXN_PARENT(MZEXN_MISC_DYNAMIC_EXTENSION), "exn:misc:dynamic-extension:initialize", 0, NULL) SETUP_STRUCT(MZEXN_MISC_IMAGE, EXN_PARENT(MZEXN_MISC), "exn:misc:image", 1, MZEXN_MISC_IMAGE_FIELDS) #endif