Edited documentation of ChimaraIF::command signal
[projects/chimara/chimara.git] / interpreters / nitfol / main.c
1 /*  Nitfol - z-machine interpreter using Glk for output.
2     Copyright (C) 1999  Evin Robertson
3
4     This program is free software; you can redistribute it and/or modify
5     it under the terms of the GNU General Public License as published by
6     the Free Software Foundation; either version 2 of the License, or
7     (at your option) any later version.
8
9     This program is distributed in the hope that it will be useful,
10     but WITHOUT ANY WARRANTY; without even the implied warranty of
11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12     GNU General Public License for more details.
13
14     You should have received a copy of the GNU General Public License
15     along with this program; if not, write to the Free Software
16     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
17
18     The author can be reached at nitfol@deja.com
19 */
20 #include "nitfol.h"
21
22 #include "gi_blorb.h"
23
24
25 static void set_zfile(strid_t file)
26 {
27   glk_stream_set_position(file, 0, seekmode_End);
28   total_size = glk_stream_get_position(file);
29   glk_stream_set_position(file, 0, seekmode_Start);
30
31   current_zfile = file;
32   zfile_offset = 0;
33
34   if(!load_header(file, total_size, FALSE)) {
35     /* FIMXE: add code to check to see if it's a jzexe product, and perhaps
36        even code to grab it out of disk images */
37     current_zfile = NULL;
38     return;
39   }
40   
41   glk_stream_set_position(file, zfile_offset, seekmode_Start);
42 }
43
44
45 static strid_t savefile;
46
47 int game_use_file(strid_t file)
48 {
49   giblorb_map_t *map;
50   giblorb_result_t res;
51   strid_t z;
52   if(wrap_gib_create_map(file, &map) == giblorb_err_None) {
53     if(!current_zfile) {
54       if(wrap_gib_load_resource(map, giblorb_method_FilePos, &res,
55                 giblorb_ID_Exec, 0) == giblorb_err_None) {
56         current_zfile = file;
57         zfile_offset = res.data.startpos;
58         total_size = res.length;
59       }
60     }
61     if(!blorb_file)
62       wrap_gib_count_resources(map, giblorb_ID_Pict, &imagecount, NULL, NULL);
63     wrap_gib_destroy_map(map);
64
65     if(!blorb_file) {
66       if(wrap_gib_set_resource_map(file) == giblorb_err_None) {
67         blorb_file = file;
68         return TRUE;
69       }
70     }
71   }
72
73   if((z = quetzal_findgamefile(file)) != 0) {
74     savefile = file;
75     file = z;
76   }
77
78   if(!current_zfile) {
79     set_zfile(file);
80
81     return TRUE;
82   }
83
84   return FALSE;
85 }
86
87
88 void glk_main(void)
89 {
90   if(!current_zfile) {
91     winid_t tempwin;
92     tempwin = glk_window_open(0, 0, 100, wintype_TextBuffer, 0);
93         glk_set_window(tempwin);
94         glk_set_style(style_Preformatted);
95         glk_put_string(
96 "Usage: nitfol [OPTIONS] gamefile\n"
97 " -i, -ignore      Ignore Z-machine strictness errors\n"
98 " -f, -fullname    For running under Emacs or DDD\n"
99 " -x, -command     Read commands from this file\n"
100 " -P, -pirate      Aye, matey\n"
101 "     -spell       Perform spelling correction\n"
102 "     -expand      Expand one letter abbreviations\n"
103 " -s, -symbols     Specify symbol file for game\n"
104 " -t, -tandy       Censors some Infocom games\n"
105 " -T, -transcript  Write transcript to this file\n"
106 " -d, -debug       Enter debugger immediatly\n"
107 "     -prompt      Specify debugging prompt\n"
108 "     -autoundo    Ensure '@save_undo' is called every turn\n"
109 " -S, -stacklimit  Exit when the stack is this deep\n"
110 " -a, -alias       Specify an alias\n"
111 "     -ralias      Specify an recursive alias\n"
112 "     -unalias     Remove an alias\n"
113 " -r, -random      Set random seed\n"
114 "     -mapsym      Specify mapping glyphs\n"
115 "     -mapsize     Specify map size\n"
116 "     -maploc      Specify map location\n"
117 "     -terpnum     Specify interpreter number\n"
118 "     -terpver     Specify interpreter version\n");
119     glk_exit();
120   }
121   z_init(current_zfile);
122   if(savefile) {
123     if(restorequetzal(savefile)) {
124       if(zversion <= 3)
125         mop_take_branch();
126       else
127         mop_store_result(2);
128     }
129   }
130   init_undo();
131   decode();
132 }