/* --------------------------------------------------------------- */ /* * ztypes.h * * Any global stuff required by the C modules. * */ #if !defined(__ZTYPES_INCLUDED) #define __ZTYPES_INCLUDED #include #include #include #include #include #include #if defined(MSDOS) #include #ifdef random /* random is a macro is some implementations */ #undef random #endif #endif /* MSDOS */ /* Configuration options */ #define DEFAULT_ROWS 24 /* Default screen height */ #define DEFAULT_COLS 80 /* Deafult screen width */ #define DEFAULT_RIGHT_MARGIN 0 /* # of characters in right margin */ #define DEFAULT_TOP_MARGIN 0 /* # of lines left on screen before [MORE] message */ /* Global defines */ #ifndef TRUE #define TRUE 1 #endif #ifndef FALSE #define FALSE 0 #endif #ifndef FILENAME_MAX #define FILENAME_MAX 255 #endif #ifndef EXIT_SUCCESS #define EXIT_SUCCESS 0 #endif #ifndef EXIT_FAILURE #define EXIT_FAILURE 1 #endif #ifndef SEEK_SET #define SEEK_SET 0 #endif #ifndef SEEK_END #define SEEK_END 2 #endif #ifdef unix #define strchr(a, b) index (a, b) /* #define memmove(a, b, c) bcopy (b, a, c) */ #define const #endif /* unix */ /* Z types */ typedef unsigned char zbyte_t; /* unsigned 1 byte quantity */ typedef unsigned short zword_t; /* unsigned 2 byte quantity */ /* Data file header format */ typedef struct zheader { zbyte_t type; zbyte_t config; zword_t version; zword_t data_size; zword_t start_pc; zword_t words_offset; zword_t objects_offset; zword_t globals_offset; zword_t restart_size; zword_t flags; zbyte_t release_date[6]; zword_t synonyms_offset; zword_t file_size; zword_t checksum; zbyte_t interpreter; zbyte_t interpreter_version; zbyte_t screen_rows; zbyte_t screen_columns; zbyte_t screen_left; zbyte_t screen_right; zbyte_t screen_top; zbyte_t screen_bottom; zbyte_t max_char_width; zbyte_t max_char_height; zword_t filler1[3]; zword_t function_keys_offset; zword_t filler2[2]; zword_t alternate_alphabet_offset; zword_t mouse_position_offset; zword_t filler3[4]; } zheader_t; extern char input_hack[500]; #define H_TYPE 0 #define H_CONFIG 1 #define CONFIG_BYTE_SWAPPED 0x01 /* Game data is byte swapped - V3/V4 */ #define CONFIG_COLOUR 0x01 /* Game supports colour - V5+ */ #define CONFIG_TIME 0x02 /* Status line displays time - V3 */ #define CONFIG_MAX_DATA 0x04 /* Data area should 64K if possible - V4+ */ #define CONFIG_TANDY 0x08 /* Tandy licensed game - V3 */ #define CONFIG_EMPHASIS 0x08 /* Interpreter supports text emphasis - V4+ */ #define CONFIG_NOSTATUSLINE 0x10 /* Interpreter cannot support a status line */ #define CONFIG_WINDOWS 0x20 /* Interpreter supports split screen mode */ #define H_VERSION 2 #define H_DATA_SIZE 4 #define H_START_PC 6 #define H_WORDS_OFFSET 8 #define H_OBJECTS_OFFSET 10 #define H_GLOBALS_OFFSET 12 #define H_RESTART_SIZE 14 #define H_FLAGS 16 #define SCRIPTING_FLAG 0x01 #define FIXED_FONT_FLAG 0x02 #define REFRESH_FLAG 0x04 #define GRAPHICS_FLAG 0x08 #define SOUND_FLAG 0x10 /* V4 */ #define UNDO_AVAILABLE_FLAG 0x10 /* V5 */ #define COLOUR_FLAG 0x40 #define NEW_SOUND_FLAG 0x80 #define H_RELEASE_DATE 18 #define H_SYNONYMS_OFFSET 24 #define H_FILE_SIZE 26 #define H_CHECKSUM 28 #define H_INTERPRETER 30 #define INTERP_GENERIC 0 #define INTERP_DEC_20 1 #define INTERP_APPLE_IIE 2 #define INTERP_MACINTOSH 3 #define INTERP_AMIGA 4 #define INTERP_ATARI_ST 5 #define INTERP_MSDOS 6 #define INTERP_CBM_128 7 #define INTERP_CBM_64 8 #define INTERP_APPLE_IIC 9 #define INTERP_APPLE_IIGS 10 #define INTERP_TANDY 11 #define H_INTERPRETER_VERSION 31 #define H_SCREEN_ROWS 32 #define H_SCREEN_COLUMNS 33 #define H_SCREEN_LEFT 34 #define H_SCREEN_RIGHT 35 #define H_SCREEN_TOP 36 #define H_SCREEN_BOTTOM 37 #define H_MAX_CHAR_WIDTH 38 #define H_MAX_CHAR_HEIGHT 39 #define H_FILLER1 40 #define H_FUNCTION_KEYS_OFFSET 46 #define H_FILLER2 48 #define H_ALTERNATE_ALPHABET_OFFSET 52 #define H_MOUSE_POSITION_OFFSET 54 #define H_FILLER3 56 #define V1 1 #define V2 2 /* Version 3 object format */ #define V3 3 typedef struct zobjectv3 { zword_t attributes[2]; zbyte_t parent; zbyte_t next; zbyte_t child; zword_t property_offset; } zobjectv3_t; #define O3_ATTRIBUTES 0 #define O3_PARENT 4 #define O3_NEXT 5 #define O3_CHILD 6 #define O3_PROPERTY_OFFSET 7 #define O3_SIZE 9 #define PARENT3(offset) (offset + O3_PARENT) #define NEXT3(offset) (offset + O3_NEXT) #define CHILD3(offset) (offset + O3_CHILD) #define P3_MAX_PROPERTIES 0x20 /* Version 4 object format */ #define V4 4 typedef struct zobjectv4 { zword_t attributes[3]; zword_t parent; zword_t next; zword_t child; zword_t property_offset; } zobjectv4_t; #define O4_ATTRIBUTES 0 #define O4_PARENT 6 #define O4_NEXT 8 #define O4_CHILD 10 #define O4_PROPERTY_OFFSET 12 #define O4_SIZE 14 #define PARENT4(offset) (offset + O4_PARENT) #define NEXT4(offset) (offset + O4_NEXT) #define CHILD4(offset) (offset + O4_CHILD) #define P4_MAX_PROPERTIES 0x40 #define V5 5 #define V6 6 #define V7 7 #define V8 8 /* Interpreter states */ #define STOP 0 #define RUN 1 /* Call types */ #define FUNCTION 0x0000 #define PROCEDURE 0x0100 #define ASYNC 0x0200 #define ARGS_MASK 0x00ff #define TYPE_MASK 0xff00 /* Local defines */ #define PAGE_SIZE 512 #define PAGE_MASK 511 #define PAGE_SHIFT 9 #define STACK_SIZE 1024 #define ON 1 #define OFF 0 #define RESET -1 #define SCREEN 255 #define TEXT_WINDOW 0 #define STATUS_WINDOW 1 #define MIN_ATTRIBUTE 0 #define NORMAL 0 #define REVERSE 1 #define BOLD 2 #define EMPHASIS 4 #define FIXED_FONT 8 #define MAX_ATTRIBUTE 8 #define TEXT_FONT 1 #define GRAPHICS_FONT 3 #define FOREGROUND 0 #define BACKGROUND 1 #define GAME_RESTORE 0 #define GAME_SAVE 1 #define GAME_SCRIPT 2 #define GAME_RECORD 3 #define GAME_PLAYBACK 4 #define UNDO_SAVE 5 #define UNDO_RESTORE 6 #define MAX_TEXT_SIZE 8 /* Data access macros */ /* #define get_byte(offset) ((zbyte_t) datap[offset]) #define get_word(offset) ((zword_t) (((zword_t) datap[offset] << 8) + (zword_t) datap[offset + 1])) #define set_byte(offset,value) datap[offset] = (zbyte_t) (value) #define set_word(offset,value) datap[offset] = (zbyte_t) ((zword_t) (value) >> 8), datap[offset + 1] = (zbyte_t) ((zword_t) (value) & 0xff) */ #define get_byte(offset) ((zbyte_t) (gl->datap)[offset]) #define get_word(offset) ((zword_t) (((zword_t) (gl->datap)[offset] << 8) + (zword_t) (gl->datap)[offset + 1])) #define set_byte(offset,value) (gl->datap)[offset] = (zbyte_t) (value) #define set_word(offset,value) (gl->datap)[offset] = (zbyte_t) ((zword_t) (value) >> 8), (gl->datap)[offset + 1] = (zbyte_t) ((zword_t) (value) & 0xff) /* External data */ typedef struct _z_globals { zbyte_t h_type; zbyte_t h_config; zword_t h_version; zword_t h_data_size; zword_t h_start_pc; zword_t h_words_offset; zword_t h_objects_offset; zword_t h_globals_offset; zword_t h_restart_size; zword_t h_flags; zword_t h_synonyms_offset; zword_t h_file_size; zword_t h_checksum; zbyte_t h_interpreter; zbyte_t h_interpreter_version; zword_t h_alternate_alphabet_offset; int story_scaler; int story_shift; int property_mask; int property_size_mask; zword_t stack[STACK_SIZE]; zword_t sp; zword_t fp; unsigned long pc; unsigned long restart_pc; int interpreter_state; int interpreter_status; unsigned int data_size; zbyte_t *datap; zbyte_t *undo_datap; int screen_rows; int screen_cols; int right_margin; int top_margin; int screen_window; int formatting; int outputting; int redirecting; int scripting; int scripting_disable; int recording; int replaying; int font; int status_active; int status_size; int lines_written; int status_pos; char *line; char *status_line; char lookup_table[3][26]; zword_t dictionary_offset; short dictionary_size; unsigned int entry_size; int halt; int saved_formatting; int line_pos; int char_count; int story_buffer; int story_pos; int story_count; } z_globals; extern z_globals *gll; /* Global routines */ /* control.c */ #ifdef __STDC__ void check_argument (zword_t, z_globals *); int call (int, zword_t *, int, z_globals *); void get_fp (z_globals *); void jump (zword_t, z_globals *); void restart (z_globals *); void ret (zword_t, z_globals *); void unwind (zword_t, zword_t, z_globals *); #else void check_argument (); int call (); void get_fp (); void jump (); void restart (); void ret (); void unwind (); #endif /* extern.c */ #ifdef __STDC__ z_globals * init_globals(void); void free_globals(z_globals *); #else void init_globals(); free_globals(); #endif /* fileio.c */ #ifdef __STDC__ void close_record (z_globals *); void close_script (z_globals *); void close_story (z_globals *); unsigned int get_story_size (z_globals *); void open_playback (int, z_globals *); void open_record (z_globals *); void open_script (z_globals *); void open_story (const char *, z_globals *); int playback_key (z_globals *); int playback_line (int, char *, int *, z_globals *); void read_page (int, void *, z_globals *); void record_key (int, z_globals *); void record_line (const char *, z_globals *); int restore (z_globals *); int save (z_globals *); void script_char (int, z_globals *); void script_string (const char *, z_globals *); void script_line (const char *, z_globals *); void script_new_line (z_globals *); void undo_restore (z_globals *); void undo_save (z_globals *); void verify (z_globals *); #else void close_record (); void close_script (); void close_story (); unsigned int get_story_size (); void open_playback (); void open_record (); void open_script (); void open_story (); int playback_key (); int playback_line (); void read_page (); void record_key (); void record_line (); int restore (); int save (); void script_char (); void script_string (); void script_line (); void script_new_line (); void undo_restore (); void undo_save (); void verify (); #endif /* getopt.c */ /* #ifdef __STDC__ int getopt (int, char *[], const char *); #else int getopt (); #endif */ /* input.c */ #ifdef __STDC__ int get_line (char *, zword_t, zword_t, z_globals *); void read_character (int, zword_t *, z_globals *); void read_line (int, zword_t *, z_globals *); void tokenise (int, zword_t *, z_globals *); #else int get_line (); void read_character (); void read_line (); void tokenise (); #endif /* interpre.c */ #ifdef __STDC__ int interpret (z_globals *); #else int interpret (); #endif /* math.c */ #ifdef __STDC__ void add (zword_t, zword_t, z_globals *); void and (zword_t, zword_t, z_globals *); void arith_shift (zword_t, zword_t, z_globals *); void compare_je (int, zword_t *, z_globals *); void compare_jg (zword_t, zword_t, z_globals *); void compare_jl (zword_t, zword_t, z_globals *); void compare_zero (zword_t, z_globals *); void divide (zword_t, zword_t, z_globals *); void multiply (zword_t, zword_t, z_globals *); void not (zword_t, z_globals *); void or (zword_t, zword_t, z_globals *); void zip_random (zword_t, z_globals *); void remainder (zword_t, zword_t, z_globals *); void shift (zword_t, zword_t, z_globals *); void subtract (zword_t, zword_t, z_globals *); void test (zword_t, zword_t, z_globals *); #else void add (); void and (); void arith_shift (); void compare_je (); void compare_jg (); void compare_jl (); void compare_zero (); void divide (); void multiply (); void not (); void or (); void zip_random (); void remainder (); void shift (); void subtract (); void test (); #endif /* memory.c */ #ifdef __STDC__ void load_cache (z_globals *); void unload_cache (z_globals *); zbyte_t read_code_byte (z_globals *); zbyte_t read_data_byte (unsigned long *, z_globals *); zword_t read_code_word (z_globals *); zword_t read_data_word (unsigned long *, z_globals *); #else void load_cache (); void unload_cache (); zbyte_t read_code_byte (); zbyte_t read_data_byte (); zword_t read_code_word (); zword_t read_data_word (); #endif /* object.c */ #ifdef __STDC__ void clear_attr (zword_t, zword_t, z_globals *); void compare_parent_object (zword_t, zword_t, z_globals *); void insert_object (zword_t, zword_t, z_globals *); void load_child_object (zword_t, z_globals *); void load_next_object (zword_t, z_globals *); void load_parent_object (zword_t, z_globals *); void remove_object (zword_t, z_globals *); void set_attr (zword_t, zword_t, z_globals *); void test_attr (zword_t, zword_t, z_globals *); zword_t get_object_address (zword_t, z_globals *); #else void clear_attr (); void compare_parent_object (); void insert_object (); void load_child_object (); void load_next_object (); void load_parent_object (); void remove_object (); void set_attr (); void test_attr (); zword_t get_object_address (); #endif /* operand.c */ #ifdef __STDC__ void conditional_jump (int, z_globals *); void store_operand (zword_t, z_globals *); void store_variable (int, zword_t, z_globals *); zword_t load_operand (int, z_globals *); zword_t load_variable (int, z_globals *); #else void conditional_jump (); void store_operand (); void store_variable (); zword_t load_operand (); zword_t load_variable (); #endif /* osdepend.c */ #ifdef __STDC__ int codes_to_text (int, char *, z_globals *); void fatal (const char *, z_globals *); void file_cleanup (const char *, int, z_globals *); int fit_line (const char *, int, int, z_globals *); int get_file_name (char *, char *, int, z_globals *); int print_status (int, char *[], z_globals *); void process_arguments (int, char *[], z_globals *); void set_colours (int, int, z_globals *); void set_font (int, z_globals *); void sound (int, zword_t *, z_globals *); #else int codes_to_text (); void fatal (); void file_cleanup (); int fit_line (); int get_file_name (); int print_status (); void process_arguments (); void set_colours (); void set_font (); void sound (); #endif /* property.c */ #ifdef __STDC__ void load_byte (zword_t, zword_t, z_globals *); void load_next_property (zword_t, zword_t, z_globals *); void load_property (zword_t, zword_t, z_globals *); void load_property_address (zword_t, zword_t, z_globals *); void load_property_length (zword_t, z_globals *); void load_word (zword_t, zword_t, z_globals *); void move_data (zword_t, zword_t, zword_t, z_globals *); void scan_data (int, zword_t *, z_globals *); void store_byte (zword_t, zword_t, zword_t, z_globals *); void store_property (zword_t, zword_t, zword_t, z_globals *); void store_word (zword_t, zword_t, zword_t, z_globals *); #else void load_byte (); void load_next_property (); void load_property (); void load_property_address (); void load_property_length (); void load_word (); void move_data (); void scan_data (); void store_byte (); void store_property (); void store_word (); #endif /* screen.c */ #ifdef __STDC__ void blank_status_line ( z_globals *); void display_status_line (z_globals *); void erase_line (zword_t, z_globals *); void erase_window (zword_t, z_globals *); void output_char (int, z_globals *); void output_new_line (z_globals *); void output_string (const char *, z_globals *); void output_line (const char *, z_globals *); void print_window (int, zword_t *, z_globals *); void select_window (zword_t, z_globals *); void set_cursor_position (zword_t, zword_t, z_globals *); void set_colour_attribute (zword_t, zword_t, z_globals *); void set_font_attribute (zword_t, z_globals *); void set_status_size (zword_t, z_globals *); #else void blank_status_line (); void display_status_line (); void erase_line (); void erase_window (); void output_char (); void output_new_line (); void output_string (); void output_line (); void print_window (); void select_window (); void set_cursor_position (); void set_colour_attribute (); void set_font_attribute (); void set_status_size (); #endif /* screenio.c */ #ifdef __STDC__ int input_character (int); void clear_line (); void clear_screen (); void clear_status_window (z_globals *); void clear_text_window (z_globals *); void create_status_window (z_globals *); void delete_status_window (z_globals *); void display_char (int, z_globals *); int fit_line (const char *, int, int, z_globals *); void get_cursor_position (int *, int *); void initialize_screen (z_globals *); int input_line (int, char *, int, int *, z_globals *); void move_cursor (int, int); int print_status (int, char *[], z_globals *); void reset_screen (z_globals *); void restart_screen (z_globals *); void restore_cursor_position (); void save_cursor_position (); void scroll_line (z_globals *); void select_status_window (); void select_text_window (); void set_attribute (int); #else int input_character (); void clear_line (); void clear_screen (); void clear_status_window (); void clear_text_window (); void create_status_window (); void delete_status_window (); void display_char (); int fit_line (); void get_cursor_position (); void initialize_screen (); int input_line (); void move_cursor (); int print_status (); void reset_screen (); void restart_screen (); void restore_cursor_position (); void save_cursor_position (); void scroll_line (); void select_status_window (); void select_text_window (); void set_attribute (); #endif /* text.c */ #ifdef __STDC__ void decode_text (unsigned long *, z_globals *); void encode (zword_t, zword_t, zword_t, zword_t, z_globals *); void encode_text (int, const char *, short *, z_globals *); void flush_buffer (int, z_globals *); void new_line (z_globals *); void print_address (zword_t, z_globals *); void print_character (zword_t, z_globals *); void print_literal (z_globals *); void print_number (zword_t, z_globals *); void print_object (zword_t, z_globals *); void print_offset (zword_t, z_globals *); void print_time (int, int, z_globals *); void println_return (z_globals *); void command_opcode (zword_t, z_globals *); void set_format_mode (zword_t, z_globals *); void set_print_modes (zword_t, zword_t, z_globals *); void set_video_attribute (zword_t, z_globals *); void write_char (int, z_globals *); void write_string (const char *, z_globals *); void write_zchar (int, z_globals *); #else void decode_text (); void encode (); void encode_text (); void flush_buffer (); void new_line (); void print_address (); void print_character (); void print_literal (); void print_number (); void print_object (); void print_offset (); void print_time (); void println_return (); void command_opcode (); void set_format_mode (); void set_print_modes (); void set_video_attribute (); void write_char (); void write_string (); void write_zchar (); #endif /* variable.c */ #ifdef __STDC__ void decrement (zword_t, z_globals *); void decrement_check (zword_t, zword_t, z_globals *); void increment (zword_t, z_globals *); void increment_check (zword_t, zword_t, z_globals *); void load (zword_t, z_globals *); void pop_var (zword_t, z_globals *); void push_var (zword_t, z_globals *); #else void decrement (); void decrement_check (); void increment (); void increment_check (); void load (); void pop_var (); void push_var (); #endif #endif /* !defined(__ZTYPES_INCLUDED) */