Played around with nitfol build process, adding rules to generate the
[rodin/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 <libchimara/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   {
92     winid_t tempwin;
93     tempwin = glk_window_open(0, 0, 100, wintype_TextBuffer, 0);
94         glk_set_window(tempwin);
95         glk_set_style(style_Preformatted);
96         glk_put_string(
97 "Usage: nitfol [OPTIONS] gamefile\n"
98 " -i, -ignore      Ignore Z-machine strictness errors\n"
99 " -f, -fullname    For running under Emacs or DDD\n"
100 " -x, -command     Read commands from this file\n"
101 " -P, -pirate      Aye, matey\n"
102 "     -spell       Perform spelling correction\n"
103 "     -expand      Expand one letter abbreviations\n"
104 " -s, -symbols     Specify symbol file for game\n"
105 " -t, -tandy       Censors some Infocom games\n"
106 " -T, -transcript  Write transcript to this file\n"
107 " -d, -debug       Enter debugger immediatly\n"
108 "     -prompt      Specify debugging prompt\n"
109 "     -autoundo    Ensure '@save_undo' is called every turn\n"
110 " -S, -stacklimit  Exit when the stack is this deep\n"
111 " -a, -alias       Specify an alias\n"
112 "     -ralias      Specify an recursive alias\n"
113 "     -unalias     Remove an alias\n"
114 " -r, -random      Set random seed\n"
115 "     -mapsym      Specify mapping glyphs\n"
116 "     -mapsize     Specify map size\n"
117 "     -maploc      Specify map location\n"
118 "     -terpnum     Specify interpreter number\n"
119 "     -terpver     Specify interpreter version\n");
120     glk_exit();
121   }
122   z_init(current_zfile);
123   if(savefile) {
124     if(restorequetzal(savefile)) {
125       if(zversion <= 3)
126         mop_take_branch();
127       else
128         mop_store_result(2);
129     }
130   }
131   init_undo();
132   decode();
133 }