int
glkunix_startup_code(glkunix_startup_t *data)
{
int i = 1;
if (data->argc > 1 && strcmp (data->argv[i], "-w") == 0) {
use_inputwindow = 1;
i++;
}
#ifdef GARGLK
garglk_set_program_name("Geas 0.4");
garglk_set_program_info(
"Geas 0.4 by Mark Tilford and David Jones.\n"
"Additional Glk support by Simon Baldwin.");
#endif
if (i == data->argc - 1) {
storyfilename = data->argv[i];
#ifdef GARGLK
char *s = strrchr(storyfilename, '/');
if (!s) s = strrchr(storyfilename, '\\');
garglk_set_story_name(s ? s + 1 : storyfilename);
#endif
}
return 1;
}
int glkunix_startup_code(glkunix_startup_t *data)
{
set_defaults();
#ifdef USE_GARGLK_FEATURES
garglk_set_program_name("Nitfol 0.5");
garglk_set_program_info(
"Nitfol 0.5 by Evin Robertson\n"
"With countless patches by other people.\n");
#endif
return parse_commands(data->argc, data->argv);
}
int glkunix_startup_code(glkunix_startup_t *data)
{
int argc = data->argc;
char **argv = data->argv;
if(argc < 1)
return 0;
while(argv[1])
{
if(*argv[1]!='-')
break;
switch(argv[1][1])
{
case 'y':
Options|=YOUARE;
break;
case 'i':
Options&=~YOUARE;
break;
case 'd':
Options|=DEBUGGING;
break;
case 's':
Options|=SCOTTLIGHT;
break;
case 't':
Options|=TRS80_STYLE;
break;
case 'p':
Options|=PREHISTORIC_LAMP;
break;
case 'w':
split_screen = 0;
break;
}
argv++;
argc--;
}
#ifdef GARGLK
garglk_set_program_name("ScottFree 1.14");
garglk_set_program_info(
"ScottFree 1.14 by Alan Cox\n"
"Glk port by Chris Spiegel\n");
#endif
if(argc==2)
{
game_file = argv[1];
#ifdef GARGLK
const char *s;
if((s = strrchr(game_file, '/')) != NULL || (s = strrchr(game_file, '\\')) != NULL)
{
garglk_set_story_name(s + 1);
}
else
{
garglk_set_story_name(game_file);
}
#endif
}
return 1;
}
int glkunix_startup_code(glkunix_startup_t *data)
{
/* It turns out to be more convenient if we return TRUE from here, even
when an error occurs, and display an error in glk_main(). */
int ix;
char *filename = NULL;
char *gameinfofilename = NULL;
int gameinfoloaded = FALSE;
unsigned char buf[12];
int res;
#ifdef GARGLK
char *cx;
#endif
#ifdef GARGLK
garglk_set_program_name("Glulxe 0.5.2");
garglk_set_program_info("Glulxe 0.5.2 by Andrew Plotkin");
#endif
/* Parse out the arguments. They've already been checked for validity,
and the library-specific ones stripped out.
As usual for Unix, the zeroth argument is the executable name. */
for (ix=1; ix<data->argc; ix++) {
#if VM_PROFILING
if (!strcmp(data->argv[ix], "--profile")) {
ix++;
if (ix<data->argc) {
strid_t profstr = glkunix_stream_open_pathname_gen(data->argv[ix], TRUE, FALSE, 1);
if (!profstr) {
init_err = "Unable to open profile output file.";
init_err2 = data->argv[ix];
return TRUE;
}
setup_profile(profstr, NULL);
}
continue;
}
if (!strcmp(data->argv[ix], "--profcalls")) {
profile_set_call_counts(TRUE);
continue;
}
#endif /* VM_PROFILING */
#if VM_DEBUGGER
if (!strcmp(data->argv[ix], "--gameinfo")) {
ix++;
if (ix<data->argc) {
gameinfofilename = data->argv[ix];
}
continue;
}
if (!strcmp(data->argv[ix], "--cpu")) {
debugger_track_cpu(TRUE);
continue;
}
if (!strcmp(data->argv[ix], "--starttrap")) {
debugger_set_start_trap(TRUE);
continue;
}
if (!strcmp(data->argv[ix], "--quittrap")) {
debugger_set_quit_trap(TRUE);
continue;
}
if (!strcmp(data->argv[ix], "--crashtrap")) {
debugger_set_crash_trap(TRUE);
continue;
}
#endif /* VM_DEBUGGER */
if (filename) {
init_err = "You must supply exactly one game file.";
return TRUE;
}
filename = data->argv[ix];
}
if (!filename) {
init_err = "You must supply the name of a game file.";
return TRUE;
}
gamefile = glkunix_stream_open_pathname(filename, FALSE, 1);
if (!gamefile) {
init_err = "The game file could not be opened.";
init_err2 = filename;
return TRUE;
}
#ifdef GARGLK
cx = strrchr(data->argv[1], '/');
if (!cx) cx = strrchr(data->argv[1], '\\');
garglk_set_story_name(cx ? cx + 1 : data->argv[1]);
#endif
#if VM_DEBUGGER
if (gameinfofilename) {
strid_t debugstr = glkunix_stream_open_pathname_gen(gameinfofilename, FALSE, FALSE, 1);
if (!debugstr) {
nonfatal_warning("Unable to open gameinfo file for debug data.");
}
else {
int bres = debugger_load_info_stream(debugstr);
glk_stream_close(debugstr, NULL);
if (!bres)
nonfatal_warning("Unable to parse game info.");
else
gameinfoloaded = TRUE;
}
}
/* Report debugging available, whether a game info file is loaded or not. */
gidebug_debugging_available(debugger_cmd_handler, debugger_cycle_handler);
#endif /* VM_DEBUGGER */
/* Now we have to check to see if it's a Blorb file. */
glk_stream_set_position(gamefile, 0, seekmode_Start);
res = glk_get_buffer_stream(gamefile, (char *)buf, 12);
if (!res) {
init_err = "The data in this stand-alone game is too short to read.";
return TRUE;
}
if (buf[0] == 'G' && buf[1] == 'l' && buf[2] == 'u' && buf[3] == 'l') {
/* Load game directly from file. */
locate_gamefile(FALSE);
return TRUE;
}
else if (buf[0] == 'F' && buf[1] == 'O' && buf[2] == 'R' && buf[3] == 'M'
&& buf[8] == 'I' && buf[9] == 'F' && buf[10] == 'R' && buf[11] == 'S') {
/* Load game from a chunk in the Blorb file. */
locate_gamefile(TRUE);
#if VM_DEBUGGER
/* Load the debug info from the Blorb, if it wasn't loaded from a file. */
if (!gameinfoloaded) {
glui32 giblorb_ID_Dbug = giblorb_make_id('D', 'b', 'u', 'g');
giblorb_err_t err;
giblorb_result_t blorbres;
err = giblorb_load_chunk_by_type(giblorb_get_resource_map(),
giblorb_method_FilePos,
&blorbres, giblorb_ID_Dbug, 0);
if (!err) {
int bres = debugger_load_info_chunk(gamefile, blorbres.data.startpos, blorbres.length);
if (!bres)
nonfatal_warning("Unable to parse game info.");
else
gameinfoloaded = TRUE;
}
}
#endif /* VM_DEBUGGER */
return TRUE;
}
else {
init_err = "This is neither a Glulx game file nor a Blorb file "
"which contains one.";
return TRUE;
}
}
void glk_main(void)
{
int stat;
static const char *defexts[] = { "gam", "t3" };
char prog_arg[OSFNMAX];
char fname[OSFNMAX];
int engine_ver;
int argc = tads_argc;
char **argv = tads_argv;
winid_t mainwin;
char buf[256];
char copyright[512];
char errorload[512];
#ifdef GARGLK
garglk_set_program_name("TADS " TADS_RUNTIME_VERSION " / " T3VM_VSN_STRING);
garglk_set_program_info(
"TADS Interpreter by Michael J. Roberts\n"
"TADS 2 VM version " TADS_RUNTIME_VERSION "\n"
"T3 VM version " T3VM_VSN_STRING "\n"
"Gargoyle port by Tor Andersson\n"
);
#endif
/*
* if one of our special usage message arguments was given, show the
* usage
*/
if (argc == 2 && stricmp(argv[1], "-help2") == 0)
{
/* invoke the tads 2 main entrypoint with no arguments */
main_t2(1, argv);
/* that's all we need to do with this option */
os_term(OSEXSUCC);
}
else if (argc == 2 && stricmp(argv[1], "-help3") == 0)
{
/* invoke the tads 3 main entrypoint with no arguments */
main_t3(1, argv);
/* that's all we need to do with this option */
os_term(OSEXSUCC);
}
/* look at the arguments and try to find the program name */
if (!vm_get_game_arg(argc, argv, prog_arg, sizeof(prog_arg), &engine_ver))
{
/*
* there's no game file name specified or implied - show the
* generic combined v2/v3 usage message
*/
mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
glk_set_window(mainwin);
/* copyright-date-string */
sprintf(copyright,
"TADS Interpreter - "
"Copyright (c) 1993, 2004 Michael J. Roberts\n"
"TADS 2 VM version " TADS_RUNTIME_VERSION " / "
"T3 VM version " T3VM_VSN_STRING "\n\n");
glk_put_string(copyright);
sprintf(errorload,
"Error: you didn't specify a game file name on the command "
"line, or the command "
"options are incorrect. You must specify the name of "
"the game file you would "
"like to run.\n"
"\n"
"If you'd like a list of command-line options for TADS 2 "
"games, specify -help2 "
"instead of giving a game file name. Or, if you'd like a "
"list of command-line "
"options for TADS 3, specify -help3.\n");
glk_put_string(errorload);
/* pause (if desired by OS layer) and exit */
os_expause();
os_term(OSEXFAIL);
}
/* determine the type of the game we have */
engine_ver = vm_get_game_type(prog_arg, fname, sizeof(fname),
defexts,
sizeof(defexts)/sizeof(defexts[0]));
/* presume failure */
stat = OSEXFAIL;
/* see what we have */
switch(engine_ver)
{
case VM_GGT_TADS2:
/* run the game using the TADS 2 engine */
stat = main_t2(argc, argv);
break;
case VM_GGT_TADS3:
/* run the game using the TADS 3 engine */
stat = main_t3(argc, argv);
break;
case VM_GGT_INVALID:
/* invalid file type */
sprintf(buf,
"The file you have selected (%s) is not a valid game file.\n",
fname);
mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
glk_set_window(mainwin);
glk_put_string(buf);
break;
case VM_GGT_NOT_FOUND:
/* file not found */
sprintf(buf, "The game file (%s) cannot be found.\n", prog_arg);
mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
glk_set_window(mainwin);
glk_put_string(buf);
break;
case VM_GGT_AMBIG:
/* ambiguous file */
sprintf(buf,"The game file (%s) cannot be found exactly as given, "
"but multiple game "
"files with this name and different default suffixes "
"(.gam, .t3) exist. "
"Please specify the full name of the file, including the "
"suffix, that you "
"wish to use.\n",
prog_arg);
mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
glk_set_window(mainwin);
glk_put_string(buf);
break;
}
/* pause (if desired by OS layer) and terminate with our status code */
os_expause();
os_term(stat);
}
int glkunix_startup_code(glkunix_startup_t *data)
{
/* It turns out to be more convenient if we return TRUE from here, even
when an error occurs, and display an error in glk_main(). */
int ix;
char *filename = NULL;
unsigned char buf[12];
int res;
#ifdef GARGLK
char *cx;
#endif
#ifdef GARGLK
garglk_set_program_name("Glulxe 0.5.2");
garglk_set_program_info("Glulxe 0.5.2 by Andrew Plotkin");
#endif
/* Parse out the arguments. They've already been checked for validity,
and the library-specific ones stripped out.
As usual for Unix, the zeroth argument is the executable name. */
for (ix=1; ix<data->argc; ix++) {
#if VM_PROFILING
if (!strcmp(data->argv[ix], "--profile")) {
ix++;
if (ix<data->argc) {
strid_t profstr = glkunix_stream_open_pathname_gen(data->argv[ix], TRUE, FALSE, 1);
if (!profstr) {
init_err = "Unable to open profile output file.";
init_err2 = data->argv[ix];
return TRUE;
}
setup_profile(profstr, NULL);
}
continue;
}
#endif /* VM_PROFILING */
if (filename) {
init_err = "You must supply exactly one game file.";
return TRUE;
}
filename = data->argv[ix];
}
if (!filename) {
init_err = "You must supply the name of a game file.";
return TRUE;
}
gamefile = glkunix_stream_open_pathname(filename, FALSE, 1);
if (!gamefile) {
init_err = "The game file could not be opened.";
init_err2 = filename;
return TRUE;
}
#ifdef GARGLK
cx = strrchr(data->argv[1], '/');
if (!cx) cx = strrchr(data->argv[1], '\\');
garglk_set_story_name(cx ? cx + 1 : data->argv[1]);
#endif
/* Now we have to check to see if it's a Blorb file. */
glk_stream_set_position(gamefile, 0, seekmode_Start);
res = glk_get_buffer_stream(gamefile, (char *)buf, 12);
if (!res) {
init_err = "The data in this stand-alone game is too short to read.";
return TRUE;
}
if (buf[0] == 'G' && buf[1] == 'l' && buf[2] == 'u' && buf[3] == 'l') {
locate_gamefile(FALSE);
return TRUE;
}
else if (buf[0] == 'F' && buf[1] == 'O' && buf[2] == 'R' && buf[3] == 'M'
&& buf[8] == 'I' && buf[9] == 'F' && buf[10] == 'R' && buf[11] == 'S') {
locate_gamefile(TRUE);
return TRUE;
}
else {
init_err = "This is neither a Glulx game file nor a Blorb file "
"which contains one.";
return TRUE;
}
}
void os_process_arguments(int argc, char *argv[])
{
int c;
#ifdef GARGLK
garglk_set_program_name("Frotz " VERSION);
garglk_set_program_info(
"Glk Frotz " VERSION "\n"
"Original Frotz by Stefan Jokisch\n"
"Unix port by Jim Dunleavy and David Griffith\n"
"Glk port by Tor Andersson\n");
#endif
/* Parse the options */
do {
c = zgetopt(argc, argv, "aAioOPQs:S:tu:xZ:");
switch (c)
{
case 'a': option_attribute_assignment = 1; break;
case 'A': option_attribute_testing = 1; break;
case 'i': option_ignore_errors = 1; break;
case 'o': option_object_movement = 1; break;
case 'O': option_object_locating = 1; break;
case 'P': option_piracy = 1; break;
case 'Q': option_save_quetzal = 0; break;
case 's': user_random_seed = atoi(zoptarg); break;
case 'S': option_script_cols = atoi(zoptarg); break;
case 't': user_tandy_bit = 1; break;
case 'u': option_undo_slots = atoi(zoptarg); break;
case 'x': option_expand_abbreviations = 1; break;
case 'Z': option_err_report_mode = atoi(zoptarg);
if ((option_err_report_mode < ERR_REPORT_NEVER) ||
(option_err_report_mode > ERR_REPORT_FATAL))
option_err_report_mode = ERR_DEFAULT_REPORT_MODE;
break;
}
} while (c != EOF);
if (((argc - zoptind) != 1) && ((argc - zoptind) != 2))
{
winid_t win;
char buf[256];
win = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
glk_set_window(win);
glk_put_string("FROTZ V" VERSION " -- Glk 0.7.0 interface.\n");
glk_put_string(INFORMATION);
sprintf(buf,
" -Z # error checking mode (default = %d)\n"
" %d = don't report errors. "
"%d = report first error.\n"
" %d = report all errors. "
"%d = exit after any error.\n",
ERR_DEFAULT_REPORT_MODE, ERR_REPORT_NEVER,
ERR_REPORT_ONCE, ERR_REPORT_ALWAYS, ERR_REPORT_FATAL);
glk_put_string(buf);
glk_exit();
}
else
{
char *s;
story_name = argv[zoptind++];
if (zoptind < argc)
graphics_filename = argv[zoptind++];
#ifdef GARGLK
s = strrchr(story_name, '\\');
if (!s) s = strrchr(story_name, '/');
garglk_set_story_name(s ? s + 1 : story_name);
#endif
}
}
