/* ------------------------------------------------------------------------- */
/* Header file for Inform: Z-machine ("Infocom" format) compiler */
/* */
-/* Inform 6.35 */
+/* Inform 6.40 */
/* */
/* This header file and the others making up the Inform source code are */
-/* copyright (c) Graham Nelson 1993 - 2021 */
-/* */
-/* This file is part of Inform. */
+/* copyright (c) Graham Nelson 1993 - 2022 */
/* */
/* Inform is free software: you can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as published by */
/* You should have received a copy of the GNU General Public License */
/* along with Inform. If not, see https://gnu.org/licenses/ */
/* */
-/* For detailed documentation on how this program internally works, and */
-/* how to port it to a new environment, see the Technical Manual. */
-/* */
/* *** To compile this program in one of the existing ports, you must */
/* at least change the machine definition (on the next page). */
/* In most cases no other work will be needed. *** */
/* ------------------------------------------------------------------------- */
/* For releases, set to the release date in the form "1st January 2000" */
-#define RELEASE_DATE "22nd May 2021"
-#define RELEASE_NUMBER 1635
+#define RELEASE_DATE "in development"
+#define RELEASE_NUMBER 1640
#define GLULX_RELEASE_NUMBER 38
#define MODULE_VERSION_NUMBER 1
#define VNUMBER RELEASE_NUMBER
/* #define VMS - for VAX or ALPHA under DEC C, but not VAX C */
/* */
/* In most cases executables are already available at */
-/* http://www.ifarchive.org/, and these are sometimes enhanced with */
+/* https://www.ifarchive.org/, and these are sometimes enhanced with */
/* e.g. windowed interfaces whose source is not archived with the */
/* main Inform source.] */
/* */
/* out a block of definitions like those below.) */
/* ------------------------------------------------------------------------- */
-/* #define UNIX */
-
/* ------------------------------------------------------------------------- */
/* The first task is to include the ANSI header files, and typedef */
/* suitable 32-bit integer types. */
/* 2. Some miscellaneous #define options (set if the constant is */
/* defined, otherwise not set): */
/* */
-/* USE_TEMPORARY_FILES - use scratch files for workspace, not memory, */
-/* by default */
/* PROMPT_INPUT - prompt input (don't use Unix-style command line) */
/* TIME_UNAVAILABLE - don't use ANSI time routines to work out today's */
/* date */
/* HAS_REALPATH - the POSIX realpath() function is available to */
/* find the absolute path to a file */
/* */
-/* 3. An estimate of the typical amount of memory likely to be free */
-/* should be given in DEFAULT_MEMORY_SIZE. */
-/* For most modern machines, HUGE_SIZE is the appropriate setting, but */
-/* some older micros may benefit from SMALL_SIZE. */
+/* 3. This was DEFAULT_MEMORY_SIZE, now withdrawn. */
/* ------------------------------------------------------------------------- */
-#define LARGE_SIZE 1
-#define SMALL_SIZE 2
-#define HUGE_SIZE 3
-
/* ------------------------------------------------------------------------- */
/* 4. Filenaming definitions: */
/* */
/* is set without STANDARD_DIRECTORIES, as then Inform may */
/* overwrite its source with object code. */
/* */
-/* 5. Filenames (or code related to filenames) for the three temporary */
-/* files. These only exist during compilation (and only if -F1 is set). */
-/* Temporary_Name is the body of a filename to use */
-/* (if you don't set this, it becomes "Inftemp") and Temporary_Directory */
-/* is the directory path for the files to go in (which can be altered on */
-/* the command line). On some multi-tasking OSs these filenames ought to */
-/* include a number uniquely identifying the process: to indicate this, */
-/* define INCLUDE_TASK_ID and provide some code... */
-/* */
-/* #define INCLUDE_TASK_ID */
-/* #ifdef INFORM_FILE */
-/* static int32 unique_task_id(void) */
-/* { ...some code returning your task ID... */
-/* } */
-/* #endif */
+/* 5. Filenames (or code related to filenames) for temporary files. */
+/* These included Temporary_Name, Temporary_Directory, and */
+/* INCLUDE_TASK_ID. These options have been removed, and are listed here */
+/* only for people who might ask "what happened to 5?" */
/* */
/* 6. Any other definitions specific to the OS or machine. */
/* (In particular DEFAULT_ERROR_FORMAT is 0 on most machines and 1 on PCs; */
#ifdef AMIGA
/* 1 */
#define MACHINE_STRING "Amiga"
-/* 3 */
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
/* 4 */
#define FN_SEP '/'
-/* 5 */
-#define __USE_SYSBASE
-#include <proto/exec.h>
-#define INCLUDE_TASK_ID
-#define Temporary_Directory "T:"
-#ifdef MAIN_INFORM_FILE
-static int32 unique_task_id(void)
-{ return (int32)FindTask(NULL);
-}
-#endif
#endif
/* ------------------------------------------------------------------------- */
/* ARCHIMEDES block: Acorn/RISC OS settings */
#define MACHINE_STRING "RISC OS"
/* 2 */
#define CHAR_IS_UNSIGNED
-/* 3 */
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
/* 4 */
#define FN_SEP '.'
#define STANDARD_DIRECTORIES
#define NO_FILE_EXTENSIONS
#define Source_Directory "inform"
#define ICL_Directory "ICL"
-/* 5 */
-#define ENABLE_TEMPORARY_PATH
-#define Temporary_Directory "ram:"
/* 6 */
#define ARC_THROWBACK
#endif
#ifdef ATARIST
/* 1 */
#define MACHINE_STRING "Atari ST"
-/* 3 */
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
/* 4 */
#define FN_SEP '/'
-/* 5 */
-#ifndef TOSFS
-#define Temporary_Directory "/tmp"
-#define INCLUDE_TASK_ID
-#ifdef MAIN_INFORM_FILE
-static int32 unique_task_id(void)
-{ return (int32)getpid();
-}
-#endif
-#endif
#endif
/* ------------------------------------------------------------------------- */
/* BEOS block */
#ifdef BEOS
/* 1 */
#define MACHINE_STRING "BeOS"
-/* 3 */
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
/* 4 */
#define FN_SEP '/'
#define FILE_EXTENSIONS
-/* 5 */
-#define Temporary_Directory "/tmp"
#endif
/* ------------------------------------------------------------------------- */
/* LINUX block */
#define MACHINE_STRING "Linux"
/* 2 */
#define HAS_REALPATH
-/* 3 */
-#define DEFAULT_MEMORY_SIZE HUGE_SIZE
/* 4 */
#define FN_SEP '/'
-/* 5 */
-#define Temporary_Directory "/tmp"
/* 6 */
#define PATHLEN 8192
+#if defined(__STDC__) && (__STDC_VERSION__ >= 201112L)
+#define USE_C11_TIME_API
+#endif
#endif
/* ------------------------------------------------------------------------- */
/* Macintosh block */
#define PROMPT_INPUT
#endif
#endif
-/* 3 */
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
/* 4 */
#define FN_SEP ':'
#ifdef MAC_MPW
#define MACHINE_STRING "OS/2"
/* 2 */
#define CHAR_IS_UNSIGNED
-/* 3 */
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
/* 4 */
#define FN_SEP '/'
#endif
#define MACHINE_STRING "MacOS"
/* 2 */
#define HAS_REALPATH
-/* 3 */
-#define DEFAULT_MEMORY_SIZE HUGE_SIZE
/* 4 */
#define FN_SEP '/'
-/* 5 */
-#define Temporary_Directory "/tmp"
-#define INCLUDE_TASK_ID
-#define _POSIX_C_SOURCE 199506L
-#define _XOPEN_SOURCE 500
-#ifdef MAIN_INFORM_FILE
-#include <sys/types.h>
-#include <unistd.h>
-static int32 unique_task_id(void)
-{ return (int32)getpid();
-}
-#endif
/* 6 */
#define PATHLEN 8192
+#if defined(__STDC__) && (__STDC_VERSION__ >= 201112L)
+#define USE_C11_TIME_API
+#endif
#endif
/* ------------------------------------------------------------------------- */
/* PC and PC_QUICKC block */
#ifdef PC
/* 1 */
#define MACHINE_STRING "PC"
-/* 2 */
-#define USE_TEMPORARY_FILES
-/* 3 */
-#ifdef PC_QUICKC
-#define DEFAULT_MEMORY_SIZE SMALL_SIZE
-#else
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
-#endif
/* 4 */
#define FN_SEP '\\'
/* 6 */
#define MACHINE_STRING "Win32"
/* 2 */
#define HAS_REALPATH
-/* 3 */
-#define DEFAULT_MEMORY_SIZE HUGE_SIZE
/* 4 */
#define FN_SEP '\\'
/* 6 */
#define DEFAULT_ERROR_FORMAT 1
#define PATHLEN 512
-#ifdef _MSC_VER /* Microsoft Visual C++ */
-#define snprintf _snprintf
-#define isnan _isnan
-#define isinf(x) (!_isnan(x) && !_finite(x))
+#if _MSC_VER >= 1920 /* Visual C++ 2019 */
+#define USE_C11_TIME_API
#endif
#endif
/* ------------------------------------------------------------------------- */
#endif
/* 2 */
#define HAS_REALPATH
-/* 3 */
-#define DEFAULT_MEMORY_SIZE HUGE_SIZE
/* 4 */
#define FN_SEP '/'
-/* 5 */
-#define PATHLEN 512
-#define Temporary_Directory "/tmp"
-#define INCLUDE_TASK_ID
-#ifdef MAIN_INFORM_FILE
-#include <unistd.h>
-static int32 unique_task_id(void)
-{ return (int32)getpid();
-}
-#endif
#endif
/* ------------------------------------------------------------------------- */
/* VMS (Dec VAX and Alpha) block */
#endif
/* 2 */
#define CHAR_IS_UNSIGNED
-/* 3 */
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
/* 4 */
#define FN_SEP '/'
#define Code_Extension ".zip"
#ifndef Module_Directory
#define Module_Directory "modules"
#endif
-#ifndef Temporary_Directory
-#define Temporary_Directory ""
-#endif
#ifndef ICL_Directory
#define ICL_Directory ""
#endif
#ifndef Module_Directory
#define Module_Directory ""
#endif
-#ifndef Temporary_Directory
-#define Temporary_Directory ""
-#endif
#ifndef ICL_Directory
#define ICL_Directory ""
#endif
#define PATHLEN 128
#endif
-#ifndef Temporary_File
-#define Temporary_File "Inftemp"
-#endif
-
#ifndef DEFAULT_ERROR_FORMAT
#define DEFAULT_ERROR_FORMAT 0
#endif
-#ifndef DEFAULT_MEMORY_SIZE
-#define DEFAULT_MEMORY_SIZE LARGE_SIZE
-#endif
-
#ifndef CHAR_IS_UNSIGNED
typedef unsigned char uchar;
#else
#endif
/* ------------------------------------------------------------------------- */
-/* A macro (rather than constant) definition: */
+/* subtract_pointers() measures an address difference in bytes. This is */
+/* a macro. */
+/* We also declare some memory functions for PC_QUICKC. */
/* ------------------------------------------------------------------------- */
#ifdef PC_QUICKC
#define subtract_pointers(p1,p2) (((char *) p1)-((char *) p2))
#endif
+
+/* ------------------------------------------------------------------------- */
+/* Definitions for time measurement. TIMEVALUE is a type; TIMEVALUE_NOW() */
+/* sets it; TIMEVALUE_DIFFERENCE() determines a difference in seconds, */
+/* as a float. */
+/* Modern platforms should support timespec_get() or clock_gettime(). To */
+/* use timespec_get(), #define USE_C11_TIME_API. To use clock_gettime(), */
+/* #define USE_POSIX_TIME_API. To use the old implementation using */
+/* time(), #define USE_OLD_TIME_API. This can only measure in integer */
+/* second counts, but it's better than waiting for gnomon. */
+/* ------------------------------------------------------------------------- */
+
+#if !defined(USE_C11_TIME_API) && !defined(USE_POSIX_TIME_API) && !defined(USE_OLD_TIME_API)
+#define USE_OLD_TIME_API
+#endif
+
+#if defined(USE_OLD_TIME_API)
+ #define TIMEVALUE time_t
+ #define TIMEVALUE_NOW(t) (*t) = time(0)
+ #define TIMEVALUE_DIFFERENCE(begt, endt) (float)(*(endt) - *(begt))
+#elif defined(USE_C11_TIME_API)
+ #define TIMEVALUE struct timespec
+ #define TIMEVALUE_NOW(t) timespec_get((t), TIME_UTC)
+ #define TIMEVALUE_DIFFERENCE(begt, endt) ((float)((endt)->tv_sec - (begt)->tv_sec) + (float)((endt)->tv_nsec - (begt)->tv_nsec) / 1000000000.0F)
+#elif defined(USE_POSIX_TIME_API)
+ #define TIMEVALUE struct timespec
+ #define TIMEVALUE_NOW(t) clock_gettime(CLOCK_REALTIME, (t))
+ #define TIMEVALUE_DIFFERENCE(begt, endt) ((float)((endt)->tv_sec - (begt)->tv_sec) + (float)((endt)->tv_nsec - (begt)->tv_nsec) / 1000000000.0F)
+#endif
+
/* ------------------------------------------------------------------------- */
/* SEEK_SET is a constant which should be defined in the ANSI header files */
/* but which is not present in some implementations: it's used as a */
/* Structure definitions (there are a few others local to files) */
/* ------------------------------------------------------------------------- */
+/* A memory list is a sequential array of items. The list grows as
+ necessary, but it is *not* sparse.
+ This can optionally maintain an external pointer (of any type) which
+ also refers to the allocated array. The external pointer will always
+ have the same value as data.
+ (Note: the external pointer must itself have a stable location, because
+ we keep a pointer *to* it. It cannot live in another memory list or
+ realloced array. Most of our memory lists refer to global or static
+ variables, so that's fine.)
+*/
+typedef struct memory_list_s
+{
+ char *whatfor; /* must be a static string */
+ void *data; /* allocated array of count*itemsize bytes */
+ void **extpointer; /* pointer to keep in sync */
+ size_t itemsize; /* item size in bytes */
+ size_t count; /* number of items allocated */
+} memory_list;
+
+typedef struct identstruct_s
+{
+ char text[MAX_IDENTIFIER_LENGTH+1];
+} identstruct;
+
typedef struct assembly_operand_t
-{ int type;
+{ int type; /* ?_OT value */
int32 value;
- int symtype; /* 6.30 */
- int symflags; /* 6.30 */
- int marker;
+ int symindex; /* index in symbols array, if derived from a symbol */
+ int marker; /* ?_MV value */
} assembly_operand;
-#define INITAOTV(aop, typ, val) ((aop)->type=(typ), (aop)->value=(val), (aop)->marker=0, (aop)->symtype=0, (aop)->symflags=0)
+#define INITAOTV(aop, typ, val) ((aop)->type=(typ), (aop)->value=(val), (aop)->marker=0, (aop)->symindex=-1)
#define INITAOT(aop, typ) INITAOTV(aop, typ, 0)
#define INITAO(aop) INITAOTV(aop, 0, 0)
-#define MAX_LINES_PER_VERB 32
+typedef struct variableinfo_s {
+ int32 token; /* Symbol table index for variable name */
+ int usage; /* TRUE if referred to */
+} variableinfo;
+
typedef struct verbt {
int lines;
- int l[MAX_LINES_PER_VERB];
+ int *l; /* alloced array */
+ int size; /* allocated size of l */
} verbt;
+typedef struct actioninfo_s {
+ int32 symbol; /* The symbol table index of the action name */
+ int32 byte_offset; /* The (byte) offset in the Z-machine code area of
+ the ...Sub routine */
+} actioninfo;
+
+/* Information about an object class. */
+typedef struct classinfo_s {
+ /* The number of the prototype-object for this class */
+ int object_number;
+ /* The offset of properties block for this class (always an offset inside the properties table) */
+ int32 begins_at;
+ /* Class name symbol number */
+ int32 symbol;
+} classinfo;
+
+/* Common property information. */
+typedef struct commonpropinfo_s {
+ int32 default_value; /* Common property default value */
+ int is_long; /* "Long" means "never write a 1-byte value to
+ this property", and is an obsolete feature:
+ since Inform 5 all properties have been "long" */
+ int is_additive; /* "Additive" means that values accumulate rather
+ than erase each other during class inheritance */
+} commonpropinfo;
+
+/* Property entry record (Z). */
typedef struct prop {
uchar l, num;
assembly_operand ao[32];
} prop;
+/* Properties and attributes of the object currently being constructed (Z). */
/* Only one of this object. */
typedef struct fpropt {
uchar atts[6];
int l;
prop pp[64];
+ int32 symbol; /* name symbol or 0 */
} fpropt;
+/* Constructed object (Z). */
typedef struct objecttz {
uchar atts[6];
int parent, next, child;
int propsize;
+ int32 symbol; /* name symbol or 0 */
} objecttz;
+/* Property entry record (G). */
typedef struct propg {
int num;
int continuation;
int32 datalen;
} propg;
+/* Properties and attributes of the object currently being constructed (G). */
/* Only one of this object. */
typedef struct fproptg {
uchar atts[MAX_NUM_ATTR_BYTES];
int numprops;
- propg *props;
+ propg *props; /* allocated to numprops */
+ memory_list props_memlist;
int propdatasize;
- assembly_operand *propdata;
+ assembly_operand *propdata; /* allocated to propdatasize */
+ memory_list propdata_memlist;
int32 finalpropaddr;
+ /* It's safe to use memory_lists in this object because there's just
+ one and it's static. */
+ int32 symbol; /* name symbol or 0 */
} fproptg;
+/* Constructed object (G). */
typedef struct objecttg {
/* attributes are stored in a separate array */
int32 shortname;
int32 parent, next, child;
int32 propaddr;
int32 propsize;
+ int32 symbol; /* name symbol or 0 */
} objecttg;
+typedef struct abbreviation_s {
+ int value;
+ int quality;
+ int freq;
+} abbreviation;
+
typedef struct maybe_file_position_S
{ int valid;
fpos_t position;
int32 orig_beg_char_number;
} debug_location_beginning;
+#define MAX_KEYWORD_GROUP_SIZE (119)
+
typedef struct keyword_group_s
-{ char *keywords[120];
+{ char *keywords[MAX_KEYWORD_GROUP_SIZE+1]; /* empty-string-terminated */
int change_token_type;
int enabled;
int case_sensitive;
} keyword_group;
-typedef struct token_data_s
-{ char *text;
- int32 value; /* ###-long */
- int type;
- int symtype; /* 6.30 */
- int symflags; /* 6.30 */
- int marker;
+typedef struct lexeme_data_s {
+ char *text; /* points at lextexts array */
+ int32 value;
+ int type; /* a *_TT value */
debug_location location;
+ int lextext; /* index of text string in lextexts */
+ int context; /* lexical context used to interpret this token */
+} lexeme_data;
+
+typedef struct token_data_s {
+ char *text;
+ int32 value;
+ int type; /* a *_TT value */
+ int symindex;
+ int symtype;
+ int symflags;
+ int marker;
} token_data;
+typedef struct symbolinfo_s {
+ char *name; /* Points into a symbol_name_space_chunk */
+ int32 value;
+ int marker; /* ?_MV value */
+ brief_location line;
+ unsigned int flags; /* ?_SFLAGS bitmask */
+ uchar type; /* ?_T value */
+ int next_entry; /* Linked list for symbol hash table */
+} symbolinfo;
+
+typedef struct symboldebuginfo_s {
+ maybe_file_position backpatch_pos;
+ maybe_file_position replacement_backpatch_pos;
+} symboldebuginfo;
+
+typedef struct arrayinfo_s {
+ int32 symbol; /* index in symbols[] */
+ int size; /* length of array */
+ int type; /* BYTE_ARRAY, WORD_ARRAY, etc */
+ int loc; /* true for static, false for dynamic (regular) arrays */
+} arrayinfo;
+
+typedef struct labelinfo_s {
+ int32 offset; /* Offset (zmachine_pc) value */
+ int32 symbol; /* Symbol numbers if defined in source */
+ int next; /* For linked list */
+ int prev; /* For linked list */
+} labelinfo;
+
+typedef struct sequencepointinfo_s {
+ int label; /* Label number */
+ debug_location location; /* Source code reference (used for making
+ debugging file) */
+} sequencepointinfo;
+
typedef struct FileId_s /* Source code file identifier: */
{ char *filename; /* The filename (after translation) */
FILE *handle; /* Handle of file (when open), or
parsing? If not, this is an
origsource filename (and handle
is NULL). */
+ int initial_buffering; /* Are we still in the initial
+ begin_buffering_file() call? */
} FileId;
typedef struct ErrorPosition_s
int32 orig_char;
} ErrorPosition;
-/* A memory block can hold at most ALLOC_CHUNK_SIZE * 72: */
-
-extern int ALLOC_CHUNK_SIZE;
-
-typedef struct memory_block_s
-{ int chunks;
- int extent_of_last;
- uchar *chunk[72];
- int write_pos;
-} memory_block;
-
/* This serves for both Z-code and Glulx instructions. Glulx doesn't use
the text, store_variable_number, branch_label_number, or branch_flag
fields. */
int store_variable_number;
int32 branch_label_number;
int branch_flag;
- char *text;
+ char *text; /* if set, generally points to token_text */
int operand_count;
assembly_operand operand[8];
} assembly_instruction;
#define FAKE_ACTION_T 11
#define STATIC_ARRAY_T 12
+/* These types never occur in the symbol table; they exist only as
+ type-checking requirements. */
+#define STRING_REQ_T 13
+#define DICT_WORD_REQ_T 14
+
/* ------------------------------------------------------------------------- */
/* Statusline_flag values */
/* ------------------------------------------------------------------------- */
#define WARNING_DK 34
#define TERMINATING_DK 35
#define STATIC_DK 36
+#define INDIVIDUAL_DK 37
/* Index numbers into the keyword group "trace_keywords" (see "lexer.c") */
#define oddeven_packing_SC 58
-#define grammar_table_SC 59 /* Glulx-only */
-#define dictionary_table_SC 60 /* Glulx-only */
+#define grammar_table_SC 59
+#define dictionary_table_SC 60
#define dynam_string_table_SC 61 /* Glulx-only */
#define STRCTX_SYMBOL 9 /* prop/attr/etc names */
#define STRCTX_INFIX 10 /* text printed in asterisk traces */
+/* ------------------------------------------------------------------------- */
+/* Bit-flags applying to the execution_never_reaches_here variable. */
+/* Note that if any flags are set, UNREACHABLE is set, so we can easily */
+/* test "if (execution_never_reaches_here)..." */
+/* ------------------------------------------------------------------------- */
+
+#define EXECSTATE_REACHABLE 0 /* compile normally */
+#define EXECSTATE_UNREACHABLE 1 /* execution cannot reach this line */
+#define EXECSTATE_ENTIRE 2 /* execution cannot reach this entire
+ statement or code block */
+#define EXECSTATE_NOWARN 4 /* do not print a warning about unreachable
+ code */
+
/* ========================================================================= */
/* Initialisation extern definitions */
/* */
/* Extern definitions for "arrays" */
/* ------------------------------------------------------------------------- */
+#define MAX_ZCODE_GLOBAL_VARS (240)
+
extern int no_globals, no_arrays;
extern int dynamic_array_area_size;
-extern int *dynamic_array_area;
+extern uchar *dynamic_array_area;
+extern memory_list dynamic_array_area_memlist;
extern int static_array_area_size;
-extern int *static_array_area;
+extern uchar *static_array_area;
+extern memory_list static_array_area_memlist;
extern int32 *global_initial_value;
-extern int32 *array_symbols;
-extern int *array_sizes, *array_types, *array_locs;
+extern arrayinfo *arrays;
extern void make_global(int array_flag, int name_only);
extern void set_variable_value(int i, int32 v);
/* Extern definitions for "asm" */
/* ------------------------------------------------------------------------- */
-extern memory_block zcode_area;
+extern uchar *zcode_area;
+extern memory_list zcode_area_memlist;
extern int32 zmachine_pc;
extern int32 no_instructions;
extern int sequence_point_follows;
extern int uses_unicode_features, uses_memheap_features,
- uses_acceleration_features, uses_float_features;
+ uses_acceleration_features, uses_float_features,
+ uses_extundo_features;
extern debug_location statement_debug_location;
extern int execution_never_reaches_here;
-extern int *variable_usage;
+extern variableinfo *variables;
+extern memory_list variables_memlist;
extern int next_label, no_sequence_points;
-extern int32 *variable_tokens;
extern assembly_instruction AI;
extern int32 *named_routine_symbols;
-extern void print_operand(assembly_operand o);
+extern void print_operand(const assembly_operand *o, int annotate);
extern char *variable_name(int32 i);
extern void set_constant_ot(assembly_operand *AO);
extern int is_constant_ot(int otval);
extern int is_variable_ot(int otval);
-extern void assemblez_instruction(assembly_instruction *a);
-extern void assembleg_instruction(assembly_instruction *a);
+extern void assemblez_instruction(const assembly_instruction *a);
+extern void assembleg_instruction(const assembly_instruction *a);
extern void assemble_label_no(int n);
+extern int assemble_forward_label_no(int n);
extern void assemble_jump(int n);
extern void define_symbol_label(int symbol);
extern int32 assemble_routine_header(int no_locals, int debug_flag,
/* Extern definitions for "bpatch" */
/* ------------------------------------------------------------------------- */
-extern memory_block zcode_backpatch_table, staticarray_backpatch_table,
- zmachine_backpatch_table;
+extern uchar *staticarray_backpatch_table;
+extern memory_list staticarray_backpatch_table_memlist;
+extern uchar *zmachine_backpatch_table;
+extern memory_list zmachine_backpatch_table_memlist;
+extern uchar *zcode_backpatch_table;
+extern memory_list zcode_backpatch_table_memlist;
extern int32 zcode_backpatch_size, staticarray_backpatch_size,
zmachine_backpatch_size;
extern int backpatch_marker, backpatch_error_flag;
/* Extern definitions for "errors" */
/* ------------------------------------------------------------------------- */
+#define FORERRORS_SIZE (512)
extern char *forerrors_buff;
extern int forerrors_pointer;
extern int no_errors, no_warnings, no_suppressed_warnings,
extern void fatalerror(char *s) NORETURN;
extern void fatalerror_named(char *s1, char *s2) NORETURN;
extern void memory_out_error(int32 size, int32 howmany, char *name) NORETURN;
-extern void memoryerror(char *s, int32 size) NORETURN;
+extern void error_max_dynamic_strings(int index);
+extern void error_max_abbreviations(int index);
extern void error(char *s);
extern void error_named(char *s1, char *s2);
extern void error_numbered(char *s1, int val);
extern void warning(char *s);
extern void warning_numbered(char *s1, int val);
extern void warning_named(char *s1, char *s2);
+extern void symtype_warning(char *context, char *name, char *type, char *wanttype);
extern void dbnu_warning(char *type, char *name, brief_location report_line);
extern void uncalled_routine_warning(char *type, char *name, brief_location report_line);
extern void obsolete_warning(char *s1);
extern int glulx_system_constant_list[];
extern int32 value_of_system_constant(int t);
+extern char *name_of_system_constant(int t);
extern void clear_expression_space(void);
extern void show_tree(assembly_operand AO, int annotate);
extern assembly_operand parse_expression(int context);
extern int total_input_files;
extern FileId *InputFiles;
-extern FILE *Temp1_fp, *Temp2_fp, *Temp3_fp;
-extern char Temp1_Name[], Temp2_Name[], Temp3_Name[];
extern int32 total_chars_read;
-extern void open_temporary_files(void);
-extern void check_temp_files(void);
-extern void remove_temp_files(void);
-
extern void open_transcript_file(char *what_of);
extern void write_to_transcript_file(char *text, int linetype);
extern void close_transcript_file(void);
OBJECT_BYTE_LENGTH, DICT_ENTRY_BYTE_LENGTH, DICT_ENTRY_FLAG_POS;
extern int32 MAXINTWORD;
-extern int asm_trace_level, line_trace_level, expr_trace_level,
+extern int asm_trace_level, expr_trace_level,
linker_trace_level, tokens_trace_level;
extern int
- bothpasses_switch, concise_switch,
- economy_switch, frequencies_switch,
- ignore_switches_switch, listobjects_switch, debugfile_switch,
- listing_switch, memout_switch, printprops_switch,
- offsets_switch, percentages_switch, obsolete_switch,
+ concise_switch,
+ economy_switch, frequencies_setting,
+ ignore_switches_switch, debugfile_switch,
+ files_trace_setting, memout_switch, printprops_switch,
+ printactions_switch,
+ obsolete_switch, optabbrevs_trace_setting,
transcript_switch, statistics_switch, optimise_switch,
version_set_switch, nowarnings_switch, hash_switch,
- memory_map_switch, module_switch, temporary_files_switch,
+ memory_map_setting, module_switch,
define_DEBUG_switch, define_USE_MODULES_switch, define_INFIX_switch,
- runtime_error_checking_switch;
+ runtime_error_checking_switch,
+ list_verbs_setting, list_dict_setting, list_objects_setting,
+ list_symbols_setting;
extern int oddeven_packing_switch;
extern int32 requested_glulx_version;
extern int error_format, store_the_text, asm_trace_setting,
+ expr_trace_setting, linker_trace_setting, tokens_trace_setting,
+ bpatch_trace_setting, symdef_trace_setting,
double_space_setting, trace_fns_setting, character_set_setting,
character_set_unicode;
extern void translate_out_filename(char *new_name, char *old_name);
extern int translate_link_filename(int last_value,
char *new_name, char *old_name);
-extern void translate_temp_filename(int i);
#ifdef ARCHIMEDES
extern char *riscos_file_type(void);
extern int dont_enter_into_symbol_table;
extern int return_sp_as_variable;
extern int next_token_begins_syntax_line;
-extern char **local_variable_texts;
+extern identstruct *local_variable_names;
extern int32 token_value;
extern int token_type;
extern void discard_token_location(debug_location_beginning beginning);
extern debug_locations get_token_location_end(debug_location_beginning beginning);
-extern void describe_token(token_data t);
+extern void describe_token_triple(const char *text, int32 value, int type);
+/* The describe_token() macro works on both token_data and lexeme_data structs. */
+#define describe_token(t) describe_token_triple((t)->text, (t)->value, (t)->type)
extern void construct_local_variable_tables(void);
extern void declare_systemfile(void);
extern void put_token_back(void);
extern void get_next_token(void);
+extern void release_token_texts(void);
extern void restart_lexer(char *lexical_source, char *name);
extern keyword_group directives, statements, segment_markers,
/* Extern definitions for "linker" */
/* ------------------------------------------------------------------------- */
-extern memory_block link_data_area;
+extern uchar *link_data_area;
extern int32 link_data_size;
extern char current_module_filename[];
/* Extern definitions for "memory" */
/* ------------------------------------------------------------------------- */
-extern int32 malloced_bytes;
+extern size_t malloced_bytes;
-extern int MAX_QTEXT_SIZE, MAX_SYMBOLS, HASH_TAB_SIZE, MAX_DICT_ENTRIES,
- MAX_OBJECTS, MAX_ACTIONS, MAX_ADJECTIVES, MAX_ABBREVS,
- MAX_STATIC_DATA, MAX_PROP_TABLE_SIZE, SYMBOLS_CHUNK_SIZE,
- MAX_EXPRESSION_NODES, MAX_LABELS, MAX_LINESPACE,
- MAX_LOW_STRINGS, MAX_CLASSES, MAX_VERBS,
- MAX_VERBSPACE, MAX_ARRAYS, MAX_INCLUSION_DEPTH,
- MAX_SOURCE_FILES, MAX_DYNAMIC_STRINGS;
+extern int HASH_TAB_SIZE,
+ MAX_ABBREVS,
+ MAX_DYNAMIC_STRINGS;
-extern int32 MAX_STATIC_STRINGS, MAX_ZCODE_SIZE, MAX_LINK_DATA_SIZE,
- MAX_TRANSCRIPT_SIZE, MAX_INDIV_PROP_TABLE_SIZE,
- MAX_NUM_STATIC_STRINGS, MAX_UNICODE_CHARS,
- MAX_STACK_SIZE, MEMORY_MAP_EXTENSION;
+extern int32 MAX_STACK_SIZE, MEMORY_MAP_EXTENSION;
-extern int32 MAX_OBJ_PROP_COUNT, MAX_OBJ_PROP_TABLE_SIZE;
-extern int MAX_LOCAL_VARIABLES, MAX_GLOBAL_VARIABLES;
+extern int MAX_LOCAL_VARIABLES;
extern int DICT_WORD_SIZE, DICT_CHAR_SIZE, DICT_WORD_BYTES;
extern int ZCODE_HEADER_EXT_WORDS, ZCODE_HEADER_FLAGS_3;
+extern int ZCODE_LESS_DICT_DATA;
extern int NUM_ATTR_BYTES, GLULX_OBJECT_EXT_BYTES;
extern int WARN_UNUSED_ROUTINES, OMIT_UNUSED_ROUTINES;
+extern int STRIP_UNREACHABLE_LABELS;
extern int TRANSCRIPT_FORMAT;
/* These macros define offsets that depend on the value of NUM_ATTR_BYTES.
#define GOBJFIELD_SIBLING() (5+((NUM_ATTR_BYTES)/4))
#define GOBJFIELD_CHILD() (6+((NUM_ATTR_BYTES)/4))
-extern void *my_malloc(int32 size, char *whatfor);
-extern void my_realloc(void *pointer, int32 oldsize, int32 size,
+extern void *my_malloc(size_t size, char *whatfor);
+extern void my_realloc(void *pointer, size_t oldsize, size_t size,
char *whatfor);
-extern void *my_calloc(int32 size, int32 howmany, char *whatfor);
-extern void my_recalloc(void *pointer, int32 size, int32 oldhowmany,
- int32 howmany, char *whatfor);
+extern void *my_calloc(size_t size, size_t howmany, char *whatfor);
+extern void my_recalloc(void *pointer, size_t size, size_t oldhowmany,
+ size_t howmany, char *whatfor);
extern void my_free(void *pointer, char *whatitwas);
-extern void set_memory_sizes(int size_flag);
+extern void set_memory_sizes(void);
extern void adjust_memory_sizes(void);
extern void memory_command(char *command);
extern void print_memory_usage(void);
-extern void initialise_memory_block(memory_block *MB);
-extern void deallocate_memory_block(memory_block *MB);
-extern int read_byte_from_memory_block(memory_block *MB, int32 index);
-extern void write_byte_to_memory_block(memory_block *MB,
- int32 index, int value);
+extern void initialise_memory_list(memory_list *ML, size_t itemsize, size_t initalloc, void **extpointer, char *whatfor);
+extern void deallocate_memory_list(memory_list *ML);
+extern void ensure_memory_list_available(memory_list *ML, size_t count);
/* ------------------------------------------------------------------------- */
/* Extern definitions for "objects" */
extern int no_individual_properties;
extern int individuals_length;
extern uchar *individuals_table;
+extern memory_list individuals_table_memlist;
extern int no_classes, no_objects;
extern objecttz *objectsz;
+extern memory_list objectsz_memlist;
extern objecttg *objectsg;
extern uchar *objectatts;
-extern int *class_object_numbers;
-extern int32 *class_begins_at;
+extern classinfo *class_info;
+extern memory_list class_info_memlist;
-extern int32 *prop_default_value;
-extern int *prop_is_long;
-extern int *prop_is_additive;
-extern char *properties_table;
+extern commonpropinfo *commonprops;
+extern uchar *properties_table;
+extern memory_list properties_table_memlist;
extern int properties_table_size;
extern void make_attribute(void);
extern int no_named_constants;
extern int no_symbols;
-extern int32 **symbs;
-extern int32 *svals;
-extern int *smarks;
-extern brief_location *slines;
-extern int *sflags;
-#ifdef VAX
- extern char *stypes;
-#else
- extern signed char *stypes;
-#endif
-extern maybe_file_position *symbol_debug_backpatch_positions;
-extern maybe_file_position *replacement_debug_backpatch_positions;
+extern symbolinfo *symbols;
+extern symboldebuginfo *symbol_debug_info;
extern int32 *individual_name_strings;
extern int32 *attribute_name_strings;
extern int32 *action_name_strings;
extern char *typename(int type);
extern int hash_code_from_string(char *p);
extern int strcmpcis(char *p, char *q);
+extern int get_symbol_index(char *p);
extern int symbol_index(char *lexeme_text, int hashcode);
extern void end_symbol_scope(int k);
extern void describe_symbol(int k);
extern void list_symbols(int level);
extern void assign_marked_symbol(int index, int marker, int32 value, int type);
extern void assign_symbol(int index, int32 value, int type);
+extern void check_warn_symbol_type(const assembly_operand *AO, int wanttype, int wanttype2, char *label);
+extern void check_warn_symbol_has_metaclass(const assembly_operand *AO, char *context);
extern void issue_unused_warnings(void);
+extern void issue_debug_symbol_warnings(void);
extern void add_config_symbol_definition(char *symbol, int32 value);
extern void add_symbol_replacement_mapping(int original, int renamed);
extern int find_symbol_replacement(int *value);
/* Extern definitions for "text" */
/* ------------------------------------------------------------------------- */
-extern uchar *low_strings, *low_strings_top;
-extern char *all_text, *all_text_top;
+extern uchar *translated_text;
+
+extern uchar *low_strings;
+extern int32 low_strings_top;
extern int no_abbreviations;
extern int abbrevs_lookup_table_made, is_abbreviation;
extern uchar *abbreviations_at;
-extern int *abbrev_values;
-extern int *abbrev_quality;
-extern int *abbrev_freqs;
+extern abbreviation *abbreviations;
extern int32 total_chars_trans, total_bytes_trans,
zchars_trans_in_last_string;
extern int put_strings_in_low_memory;
extern int dict_entries;
-extern uchar *dictionary, *dictionary_top;
+extern uchar *dictionary;
+extern int32 dictionary_top;
extern int *final_dict_order;
-extern memory_block static_strings_area;
+extern uchar *static_strings_area;
+extern memory_list static_strings_area_memlist;
extern int32 static_strings_extent;
/* And now, a great many declarations for dealing with Glulx string
typedef struct unicode_usage_s unicode_usage_t;
struct unicode_usage_s {
int32 ch;
- unicode_usage_t *next;
+ int next; /* index in unicode_usage_entries of next */
};
extern unicode_usage_t *unicode_usage_entries;
int type;
union {
int branch[2];
- unsigned char ch;
+ uchar ch;
int val;
} u;
int depth;
/* end of the Glulx string compression stuff */
extern void ao_free_arrays(void);
+extern void extract_all_text(void);
extern int32 compile_string(char *b, int strctx);
-extern uchar *translate_text(uchar *p, uchar *p_limit, char *s_text, int strctx);
+extern int32 translate_text(int32 p_limit, char *s_text, int strctx);
extern void optimise_abbreviations(void);
extern void make_abbreviation(char *text);
-extern void show_dictionary(void);
+extern void show_dictionary(int level);
extern void word_to_ascii(uchar *p, char *result);
+extern void print_dict_word(int node);
extern void write_dictionary_to_transcript(void);
extern void sort_dictionary(void);
extern void dictionary_prepare(char *dword, uchar *optresult);
extern void compile_initial_routine(void);
extern assembly_operand veneer_routine(int code);
+extern char *veneer_routine_name(int code);
extern void compile_veneer(void);
/* ------------------------------------------------------------------------- */
extern verbt *Inform_verbs;
extern uchar *grammar_lines;
extern int32 grammar_lines_top;
-extern int32 *action_byte_offset,
- *grammar_token_routine,
+extern actioninfo *actions;
+extern memory_list actions_memlist;
+extern int32 *grammar_token_routine,
*adjectives;
extern void find_the_actions(void);
projects / inform.git / blobdiff