You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
516 lines
26 KiB
C
516 lines
26 KiB
C
27 years ago
|
/* 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
|