Fixed hitting enter key mid sentence
[rodin/chimara.git] / interpreters / frotz / main.c
1 /* main.c - Frotz V2.40 main function
2  *      Copyright (c) 1995-1997 Stefan Jokisch
3  *
4  * This file is part of Frotz.
5  *
6  * Frotz is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * Frotz is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 /*
22  * This is an interpreter for Infocom V1 to V6 games. It also supports
23  * the recently defined V7 and V8 games. Please report bugs to
24  *
25  *    s.jokisch@avu.de
26  *
27  */
28
29 #include "frotz.h"
30
31 #ifndef MSDOS_16BIT
32 #define cdecl
33 #endif
34
35 extern void interpret (void);
36 extern void init_memory (void);
37 extern void init_undo (void);
38 extern void reset_memory (void);
39
40 /* Story file name, id number and size */
41
42 char *story_name = 0;
43
44 enum story story_id = UNKNOWN;
45 long story_size = 0;
46
47 /* Story file header data */
48
49 zbyte h_version = 0;
50 zbyte h_config = 0;
51 zword h_release = 0;
52 zword h_resident_size = 0;
53 zword h_start_pc = 0;
54 zword h_dictionary = 0;
55 zword h_objects = 0;
56 zword h_globals = 0;
57 zword h_dynamic_size = 0;
58 zword h_flags = 0;
59 zbyte h_serial[6] = { 0, 0, 0, 0, 0, 0 };
60 zword h_abbreviations = 0;
61 zword h_file_size = 0;
62 zword h_checksum = 0;
63 zbyte h_interpreter_number = 0;
64 zbyte h_interpreter_version = 0;
65 zbyte h_screen_rows = 0;
66 zbyte h_screen_cols = 0;
67 zword h_screen_width = 0;
68 zword h_screen_height = 0;
69 zbyte h_font_height = 1;
70 zbyte h_font_width = 1;
71 zword h_functions_offset = 0;
72 zword h_strings_offset = 0;
73 zbyte h_default_background = 0;
74 zbyte h_default_foreground = 0;
75 zword h_terminating_keys = 0;
76 zword h_line_width = 0;
77 zbyte h_standard_high = 1;
78 zbyte h_standard_low = 0;
79 zword h_alphabet = 0;
80 zword h_extension_table = 0;
81 zbyte h_user_name[8] = { 0, 0, 0, 0, 0, 0, 0, 0 };
82
83 zword hx_table_size = 0;
84 zword hx_mouse_x = 0;
85 zword hx_mouse_y = 0;
86 zword hx_unicode_table = 0;
87
88 /* Stack data */
89
90 zword stack[STACK_SIZE];
91 zword *sp = 0;
92 zword *fp = 0;
93 zword frame_count = 0;
94
95 /* IO streams */
96
97 bool ostream_screen = TRUE;
98 bool ostream_script = FALSE;
99 bool ostream_memory = FALSE;
100 bool ostream_record = FALSE;
101 bool istream_replay = FALSE;
102 bool message = FALSE;
103
104 /* Current window and mouse data */
105
106 int cwin = 0;
107 int mwin = 0;
108
109 int mouse_y = 0;
110 int mouse_x = 0;
111
112 /* Window attributes */
113
114 bool enable_wrapping = FALSE;
115 bool enable_scripting = TRUE;
116 bool enable_scrolling = FALSE;
117 bool enable_buffering = FALSE;
118
119 /* User options */
120
121 /*
122 int option_attribute_assignment = 0;
123 int option_attribute_testing = 0;
124 int option_context_lines = 0;
125 int option_object_locating = 0;
126 int option_object_movement = 0;
127 int option_left_margin = 0;
128 int option_right_margin = 0;
129 int option_ignore_errors = 0;
130 int option_piracy = 0;
131 int option_undo_slots = MAX_UNDO_SLOTS;
132 int option_expand_abbreviations = 0;
133 int option_script_cols = 80;
134 int option_save_quetzal = 1;
135 */
136
137 int option_sound = 1;
138 char *option_zcode_path;
139
140
141 /* Size of memory to reserve (in bytes) */
142
143 long reserve_mem = 0;
144
145 /*
146  * z_piracy, branch if the story file is a legal copy.
147  *
148  *      no zargs used
149  *
150  */
151
152 void z_piracy (void)
153 {
154
155     branch (!f_setup.piracy);
156
157 }/* z_piracy */
158
159 /*
160  * main
161  *
162  * Prepare and run the game.
163  *
164  */
165
166 #include "glk.h"
167 #include "glkstart.h"
168
169 static int myargc;
170 static char **myargv;
171
172 glkunix_argumentlist_t glkunix_arguments[] =
173 {
174 { "-a", glkunix_arg_NoValue, "-a: watch attribute setting" },
175 { "-A", glkunix_arg_NoValue, "-A: watch attribute testing" },
176 { "-i", glkunix_arg_NoValue, "-i: ignore fatal errors" },
177 { "-o", glkunix_arg_NoValue, "-o: watch object movement" },
178 { "-O", glkunix_arg_NoValue, "-O: watch object locating" },
179 { "-P", glkunix_arg_NoValue, "-P: alter piracy opcode" },
180 { "-Q", glkunix_arg_NoValue, "-Q: use old-style save format" },
181 { "-t", glkunix_arg_NoValue, "-t: set Tandy bit" },
182 { "-x", glkunix_arg_NoValue, "-x: expand abbreviations g/x/z" },
183 { "-I", glkunix_arg_NumberValue, "-I: interpreter number" },
184 { "-s", glkunix_arg_NumberValue, "-s: random number seed value" },
185 { "-S", glkunix_arg_NumberValue, "-S: transcript width" },
186 { "-u", glkunix_arg_NumberValue, "-u: slots for multiple undo" },
187 { "-Z", glkunix_arg_NumberValue, "-Z: error checking mode" },
188 { "", glkunix_arg_ValueFollows, "filename: The game file to load." },
189 { NULL, glkunix_arg_End, NULL }
190 };
191
192 int glkunix_startup_code(glkunix_startup_t *data)
193 {
194         myargc = data->argc;
195         myargv = data->argv;
196
197     os_init_setup ();
198     os_process_arguments (myargc, myargv);
199
200     init_buffer ();
201     init_err ();
202     init_memory ();
203     init_process ();
204     init_sound ();
205
206     os_init_screen ();
207
208     init_undo ();
209     z_restart ();
210     return TRUE;
211 }
212
213 void glk_main (void)
214 {
215     interpret ();
216     reset_memory ();
217 }
218