1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
#include "glk/jacl/jacl.h"
#include "glk/jacl/constants.h"
#include "glk/jacl/language.h"
#include "glk/jacl/prototypes.h"
#include "glk/jacl/version.h"
#include "glk/glk_api.h"
#include "glk/streams.h"
namespace Glk {
namespace JACL {
int jpp_error = FALSE;
extern strid_t game_stream;
extern char game_file[];
extern char temp_buffer[];
extern char error_buffer[];
extern char processed_file[];
short int encrypt;
extern short int release;
struct glkunix_startup_t {
int argc;
char **argv;
};
struct glkunix_argumentlist_t {
const char *_switch;
int _value;
const char *_description;
};
glkunix_startup_t *arguments;
/* THE STREAM FOR OPENING UP THE ARCHIVE CONTAINING GRAPHICS AND SOUND */
extern strid_t blorb_stream;
/* PROTOTYPE FOR NEEDED UTILITY FUNCTION */
void create_paths();
#ifdef UNUSED
glkunix_argumentlist_t glkunix_arguments[] = {
{"", glkunix_arg_ValueFollows, "filename: The game file to load." },
{"-noencrypt", glkunix_arg_NoValue, "-noencrypt: Don't encrypt the processed game file."},
{"-release", glkunix_arg_NoValue, "-release: Don't include the debug libraries in the .j2 file."},
{ NULL, glkunix_arg_End, NULL }
};
int glkunix_startup_code(glkunix_startup_t *data) {
int index = 0;
arguments = data;
#ifdef GARGLK
sprintf(temp_buffer, "JACL %d.%d.%d", J_VERSION, J_RELEASE, J_BUILD);
garglk_set_program_name(temp_buffer);
sprintf(temp_buffer, "JACL %d.%d.%d by Stuart Allen.\n", J_VERSION, J_RELEASE, J_BUILD);
garglk_set_program_info(temp_buffer);
#endif
/* YOU CAN PUT OTHER STARTUP CODE IN glkunix_startup_code(). THIS SHOULD
* GENERALLY BE LIMITED TO FINDING AND OPENING DATA FILES. */
if (arguments->argc == 1) {
sprintf(error_buffer, "%s^", NO_GAME);
jpp_error = TRUE;
/* WE NEED TO RETURN TRUE HERE SO THE INTERPRETER WILL OPEN A
* GLK WINDOWS TO DISPLAY THE ERROR MESSAGE IN */
return (TRUE);
} else {
strcpy(temp_buffer, arguments->argv[1]);
/* THERE IS AT LEAST ONE ARGUMENT, POSSIBLY JUST THE GAME FILE, BUT
* LOOK THROUGH THE LIST FOR ANYTHING THAT NEEDS ACTING ON */
for (index = 0; index < data->argc; index++) {
if (!strcmp(*data->argv, "-noencrypt")) {
encrypt = FALSE;
} else if (!strcmp(*data->argv, "-release")) {
release = TRUE;
}
/* INCREMENT THE POINTER TO THE NEXT ARGUMENT */
data->argv++;
}
}
/* SETUP ALL THE EXPECTED PATHS */
//create_paths(temp_buffer);
/* PREPROCESS THE FILE AND WRITE IT OUT TO THE NEW FILE */
/* WARNING: THIS FUNCTION USES stdio FUNCTIONS TO CREATE FILES
* IN SUBDIRECTORIES. IT IS PORTABLE ACROSS MODERN DESKTOPS, IE
* WINDOWS, MAC, UNIX ETC, BUT IT'S NOT GLK CODE... */
if (jpp() == FALSE) {
jpp_error = TRUE;
/* WE NEED TO RETURN TRUE HERE SO THE INTERPRETER WILL OPEN A
* GLK WINDOWS TO DISPLAY THE ERROR MESSAGE IN */
return (TRUE);
}
/* THIS OPENS AN ARBITRARY FILE, IN READ-ONLY MODE. NOTE THAT THIS FUNCTION
* IS *ONLY* AVAILABLE DURING glkunix_startup_code(). IT IS INHERENT
* NON-PORTABLE; IT SHOULD NOT AND CANNOT BE CALLED FROM INSIDE
* glk_main() NOTE: The middle argument FALSE indicates a binary file. */
game_stream = glkunix_stream_open_pathname(processed_file, FALSE, 0);
if (!game_stream) {
strcpy(error_buffer, NOT_FOUND);
jpp_error = TRUE;
/* WE NEED TO RETURN TRUE HERE SO THE INTERPRETER WILL OPEN A
* GLK WINDOWS TO DISPLAY THE ERROR MESSAGE IN */
return (TRUE);
}
/* SET THE LIBRARY'S IDEA OF THE "CURRENT DIRECTORY" FOR THE EXECUTING
* PROGRAM. THE ARGUMENT SHOULD BE THE NAME OF A FILE (NOT A DIRECTORY).
* WHEN THIS IS SET, fileref_create_by_name() WILL CREATE FILES IN THE SAME
* DIRECTORY AS THAT FILE, AND create_by_prompt() WILL BASE DEFAULT
* FILENAMES OFF OF THE FILE. IF THIS IS NOT CALLED, THE LIBRARY WORKS IN
* THE UNIX CURRENT WORKING DIRECTORY, AND PICKS REASONABLE DEFAULT
* DEFAULTS. */
glkunix_set_base_file(game_file);
/* Set title of game */
#ifdef GARGLK
char *s;
s = strrchr(game_file, '\\');
if (!s) s = strrchr(game_file, '/');
garglk_set_story_name(s ? s + 1 : game_file);
#endif
/* RETURN TRUE ERRORS OR NOT SO THE MAIN WINDOWS CAN BE OPENED AND
* ANY ERROR MESSAGE DISPLAYED */
return (TRUE);
}
#endif
} // End of namespace JACL
} // End of namespace Glk
|
