/*************************************************************************** main.c Copyright (C) 1999,2000,01,02 Christoph Reichenbach This program may be modified and copied freely according to the terms of the GNU general public license (GPL), as long as the above copyright notice and the licensing information contained herein are preserved. Please refer to www.gnu.org for licensing details. This work is provided AS IS, without warranty of any kind, expressed or implied, including but not limited to the warranties of merchantibility, noninfringement, and fitness for a specific purpose. The author will not be held liable for any damage caused by this work or derivatives of it. By using this source code, you agree to the licensing terms as stated above. Please contact the maintainer for bug reports or inquiries. Current Maintainer: Christoph Reichenbach (CJR) [jameson@linuxgames.com] ***************************************************************************/ /* OpenVMS: auto-enable OPENVMS paths on any VMS compiler (see kevent.c). Must ** precede all #includes so the -L/--log handling below is compiled in. */ #if defined(__VMS) && !defined(OPENVMS) # define OPENVMS 1 #endif #include #include #include #include #include #include #include #include #include #include #ifdef HAVE_UNISTD_H # include #endif #ifdef HAVE_FORK # include #endif #if defined(HAVE_SDL) && defined(MACOSX) # include /* On OS X, SDL must #define main to something else in order to function */ #endif #ifdef _MSC_VER #define extern __declspec(dllimport) extern #include #endif #ifdef HAVE_READLINE_READLINE_H #include #ifdef HAVE_READLINE_HISTORY_H #include #endif /* HAVE_READLINE_HISTORY_H */ #endif /* HAVE_READLINE_READLINE_H */ #ifdef HAVE_GETOPT_H # ifndef _MSC_VER # include # else # include # endif #endif /* HAVE_GETOPT_H */ #ifdef HAVE_GETOPT_LONG #define EXPLAIN_OPTION(longopt, shortopt, description) " " longopt "\t" shortopt "\t" description "\n" #else /* !HAVE_GETOPT_H */ #define EXPLAIN_OPTION(longopt, shortopt, description) " " shortopt "\t" description "\n" #endif /* !HAVE_GETOPT_H */ #ifdef _WIN32 # ifdef _MSC_VER # include # define strcasecmp stricmp # endif # define WIN32_LEAN_AND_MEAN # include #endif #ifdef _DREAMCAST # include # include #endif #ifdef ARM_WINCE # include # include #endif #ifdef _MSC_VER # define MSVC_FUNCTYPECAST_KLUDGE (void *) #else # define MSVC_FUNCTYPECAST_KLUDGE #endif #define ACTION_PLAY 0 #define ACTION_LIST_SAVEGAMES 1 static int sciv_action = ACTION_PLAY; /*** HW/OS-dependant features ***/ static void check_features() { #ifdef HAVE_ALPHA_EV6_SUPPORT int helper; printf("Checking for MVI instruction-set extension: "); helper = 0x100; #ifdef __DECC axp_have_mvi = asm("amask %0, %v0", helper); #else __asm__ ("amask %1, %0" : "=r"(axp_have_mvi) : "r"(helper)); #endif axp_have_mvi = !axp_have_mvi; if (axp_have_mvi) printf("found\n"); else printf("not present\n"); #endif } static gfx_state_t static_gfx_state; /* see below */ static gfx_options_t static_gfx_options; /* see below */ static state_t *gamestate; /* The main game state */ static gfx_state_t *gfx_state = &static_gfx_state; /* The graphics state */ static gfx_options_t *gfx_options = &static_gfx_options; /* Graphics options */ static char *commandline_config_file = NULL; int c_quit(state_t *s) { script_abort_flag = 1; /* Terminate VM */ _debugstate_valid = 0; _debug_seeking = 0; _debug_step_running = 0; return 0; } int c_die(state_t *s) { exit(0); /* Die */ return 0; /* ;-P (fixes warning) */ } char *old_input = NULL; #ifdef HAVE_READLINE_READLINE_H char * get_readline_input(void) { char *input = readline("> "); if (!input) { /* ^D */ c_quit(NULL); return ""; } if (strlen(input) == 0) { free (input); } else { #ifdef HAVE_READLINE_HISTORY_H add_history(input); #endif /* HAVE_READLINE_HISTORY_H */ if (old_input) { free(old_input); } old_input = input; } return old_input? old_input : ""; } #endif /* HAVE_READLINE_READLINE_H */ int init_directories(char *work_dir, char *game_id) { char *homedir = sci_get_homedir(); printf("Initializing directories...\n"); #ifdef OPENVMS /* OpenVMS: Use current directory for saved games */ if (!getcwd(work_dir, PATH_MAX)) { fprintf(stderr,"Cannot get the working directory!\n"); return 1; } /* Try to create a subdirectory for this game's saves */ if (game_id && strlen(game_id) > 0) { char savedir[64]; /* Create simple directory name without brackets for mkdir */ snprintf(savedir, sizeof(savedir), "%.50s.DIR", game_id); if (scimkdir(savedir, 0700) == 0) { /* Successfully created directory */ printf("Created save directory: [.%s]\n", game_id); } /* OpenVMS: Don't change directory - stay in current game directory */ printf("Save files will be stored in current directory: %s\n", work_dir); } return 0; #endif if (!homedir) { /* We're probably not under UNIX if this happens */ if (!getcwd(work_dir, PATH_MAX)) { fprintf(stderr,"Cannot get the working directory!\n"); return 1; } return 0; } /* So we've got a home directory */ if (chdir(homedir)) { #ifdef _WIN32 if (!getcwd(work_dir, PATH_MAX)) { fprintf(stderr,"Cannot get the working directory!\n"); return 1; } #else /* Assume UNIX-ish environment */ fprintf(stderr,"Error: Could not enter home directory %s.\n", homedir); perror("Reason"); return 1; /* If we get here, something really bad is happening */ #endif } if (strlen(homedir) > MAX_HOMEDIR_SIZE) { fprintf(stderr, "Your home directory path is too long. Re-compile FreeSCI with " "MAX_HOMEDIR_SIZE set to at least %i and try again.\n", (int)(strlen(homedir))); return 1; } if (chdir(FREESCI_GAMEDIR)) { if (scimkdir(FREESCI_GAMEDIR, 0700)) { fprintf(stderr, "Warning: Could not enter ~/"FREESCI_GAMEDIR"; save files" " will be written to ~/\n"); return 0; } else /* mkdir() succeeded */ chdir(FREESCI_GAMEDIR); } if (chdir(game_id)) { if (scimkdir(game_id, 0700)) { fprintf(stderr,"Warning: Could not enter ~/"FREESCI_GAMEDIR"/%s; " "save files will be written to ~/"FREESCI_GAMEDIR"\n", game_id); return 0; } else /* mkdir() succeeded */ chdir(game_id); } #ifdef _DREAMCAST /* Set dreamcast work dir to ramdisk */ fs_chdir("/ram"); #endif getcwd(work_dir, PATH_MAX); return 0; } char * get_gets_input(void) { static char input[1024] = ""; putchar('>'); fflush(NULL); while (!strchr(input, '\n')) fgets(input, 1024, stdin); if (!input) { c_quit(NULL); return ""; } if (strlen(input)) if (input[strlen(input)-1] == '\n'); input[strlen(input)-1] = 0; /* Remove trailing '\n' */ if (strlen(input) == 0) { return old_input? old_input : ""; } if (old_input) free(old_input); old_input = sci_malloc(1024); strcpy(old_input, input); return input; } void list_graphics_drivers() { int i = 0; while (gfx_get_driver_name(i)) { if (i != 0) printf(", "); printf(gfx_get_driver_name(i)); i++; } printf("\n"); } static void list_pcmout_drivers() { int i = 0; while (pcmout_drivers[i]) { if (i != 0) printf(", "); printf(pcmout_drivers[i]->name); i++; } printf("\n"); } static void list_midiout_drivers() { int i = 0; while (midiout_drivers[i]) { if (i != 0) printf(", "); printf(midiout_drivers[i]->name); i++; } printf("\n"); } static void list_midi_devices() { int i = 0; while (midi_devices[i]) { if (i != 0) printf(", "); printf(midi_devices[i]->name); i++; } printf("\n"); } static void list_sound_servers() { int i = 0; while (sound_servers[i]) { if (i != 0) printf(", "); printf(sound_servers[i]->name); i++; } printf("\n"); } /**********************************************************/ /* Startup and config management */ /**********************************************************/ #define ON 1 #define OFF 0 #define DONTCARE -1 static int use_readline = 1; static char * parse_arguments(int argc, char **argv, cl_options_t *cl_options, char **savegame_name) { int c; #ifdef HAVE_GETOPT_LONG int optindex; struct option options[] = { {"run", no_argument, NULL, 0 }, {"debug", no_argument, NULL, 1 }, {"gamedir", required_argument, 0, 'd'}, {"sci-version", required_argument, 0, 'V'}, {"graphics", required_argument, 0, 'g'}, {"midiout", required_argument, 0, 'O'}, {"pcmout", required_argument, 0, 'P'}, {"sound-server", required_argument, 0, 'S'}, {"mididevice", required_argument, 0, 'M'}, {"version", no_argument, 0, 'v'}, {"help", no_argument, 0, 'h'}, {"disable-readline", no_argument, &use_readline, 0}, {"scale-x", required_argument, 0, 'x'}, {"scale-y", required_argument, 0, 'y'}, {"color-depth", required_argument, 0, 'c'}, {"disable-mouse", no_argument, 0, 'm'}, {"list-savegames", no_argument, 0, 'l'}, {"show-rooms", no_argument, 0, 's'}, {"config-file", required_argument, 0, 'f'}, {"log", no_argument, 0, 'L'}, {"restore-savegame", required_argument, 0, 'R'}, {0,0,0,0} }; options[0].flag = &(cl_options->script_debug_flag); options[1].flag = &(cl_options->script_debug_flag); #endif /* HAVE_GETOPT_H */ cl_options->scale_x = cl_options->scale_y = cl_options->color_depth = 0; cl_options->version = 0; cl_options->script_debug_flag = 0; cl_options->gfx_driver_name = NULL; cl_options->gamedir = NULL; cl_options->midiout_driver_name = NULL; cl_options->pcmout_driver_name = NULL; cl_options->midi_device_name = NULL; cl_options->sound_server_name = NULL; cl_options->mouse = ON; cl_options->show_rooms = 0; #ifdef _DREAMCAST /* On the Dreamcast there is no command line, so we don't try to read ** any options and just set the savegame_name to NULL and return a ** game name of NULL. We set the path to the config file to ** "/ram/config", this file is created by the Dreamcast game ** selection menu. */ savegame_name = NULL; commandline_config_file = sci_strdup("/ram/config"); return NULL; #else /* !_DREAMCAST */ #ifdef HAVE_GETOPT_LONG while ((c = getopt_long(argc, argv, "LlvrhmsDd:V:g:x:y:c:M:O:S:P:f:R:", options, &optindex)) > -1) { #else /* !HAVE_GETOPT_LONG */ while ((c = getopt(argc, argv, "LlvrhmsDd:V:g:x:y:c:M:O:S:P:f:R:")) > -1) { #endif /* !HAVE_GETOPT_LONG */ switch (c) { case 'r': cl_options->script_debug_flag = 0; break; case 's': cl_options->show_rooms = 1; break; case 'D': cl_options->script_debug_flag = 1; break; case 'd': if (cl_options->gamedir) free(cl_options->gamedir); cl_options->gamedir = sci_strdup(optarg); break; case 'f': commandline_config_file = sci_strdup(optarg); break; case 'R': /* Restore a savegame directly by name, independent of the ** positional [game name] [savegame ID] arguments. This is what ** the OpenVMS port needs: with no FreeSCI config file, the first ** positional argument is (mis)read as a config game name and the ** run aborts, so a savegame could never be reached. With -R the ** game data is located via --gamedir / the current directory (as ** for a normal run) and the named savegame is restored on start. ** The savegame name is one listed by -l/--list-savegames. */ *savegame_name = optarg; break; case 'V': { int major = *optarg - '0'; /* One version digit */ int minor = atoi(optarg + 2); int patchlevel = atoi(optarg + 6); cl_options->version = SCI_VERSION(major, minor, patchlevel); } break; case 'g': if (cl_options->gfx_driver_name) free(cl_options->gfx_driver_name); cl_options->gfx_driver_name = sci_strdup(optarg); break; case 'O': if (cl_options->midiout_driver_name) free(cl_options->midiout_driver_name); cl_options->midiout_driver_name = sci_strdup(optarg); break; case 'P': if (cl_options->pcmout_driver_name) free(cl_options->pcmout_driver_name); cl_options->pcmout_driver_name = sci_strdup(optarg); break; case 'M': if (cl_options->midi_device_name) free(cl_options->midi_device_name); cl_options->midi_device_name = sci_strdup(optarg); break; case 'S': if (cl_options->sound_server_name) free(cl_options->sound_server_name); cl_options->sound_server_name = sci_strdup(optarg); break; case '?': /* getopt_long already printed an error message. */ exit(1); case 'x': cl_options->scale_x = atoi(optarg); break; case 'y': cl_options->scale_y = atoi(optarg); break; case 'c': cl_options->color_depth = atoi(optarg); break; case 'm': cl_options->mouse = OFF; break; case 0: /* getopt_long already did this for us */ break; case 'v': printf("This is FreeSCI, version %s\n", VERSION); printf("Supported graphics drivers: "); list_graphics_drivers(); printf("Supported sound servers: "); list_sound_servers(); printf("Supported midiout drivers: "); list_midiout_drivers(); printf("Supported midi 'devices': "); list_midi_devices(); printf("Supported pcmout drivers: "); list_pcmout_drivers(); printf("\n"); exit(0); case 'h': printf("Usage: freesci [options] [game name] [savegame ID]\n" "Runs a Sierra SCI game.\n" "\n" EXPLAIN_OPTION("--gamedir dir\t", "-ddir", "read game resources from dir") EXPLAIN_OPTION("--run\t\t", "-r", "do not start the debugger") EXPLAIN_OPTION("--sci-version\t", "-Vver", "set the version for sciv to emulate") EXPLAIN_OPTION("--version\t", "-v", "display version number and exit") EXPLAIN_OPTION("--debug\t", "-D", "start up in debug mode") EXPLAIN_OPTION("--help\t", "-h", "display this help text and exit") EXPLAIN_OPTION("--graphics gfx", "-ggfx", "use the 'gfx' graphics driver") EXPLAIN_OPTION("--scale-x\t", "-x", "Set horizontal scale factor") EXPLAIN_OPTION("--scale-y\t", "-y", "Set vertical scale factor") EXPLAIN_OPTION("--color-depth\t", "-c", "Specify color depth in bpp") EXPLAIN_OPTION("--disable-mouse", "-m", "Disable support for pointing device") EXPLAIN_OPTION("--midiout drv\t", "-Odrv", "use the 'drv' midiout driver") EXPLAIN_OPTION("--mididevice drv", "-Mdrv", "use the 'drv' midi device (eg mt32 or adlib)") EXPLAIN_OPTION("--pcmout drv\t", "-Pdrv", "use the 'drv' pcmout driver") EXPLAIN_OPTION("--sound-server srv", "-Ssrv", "Specifies the asynchronous sound server to use") EXPLAIN_OPTION("--list-savegames", "-l", "Lists all savegame IDs") EXPLAIN_OPTION("--restore-savegame nm", "-Rnm", "Restore savegame 'nm' (as listed by -l) directly, no config file needed") EXPLAIN_OPTION("--show-rooms\t", "-s","Displays room numbers on the game console") EXPLAIN_OPTION("--log\t\t", "-L", "(OpenVMS) dump debug traps to freesci_probe.log in current dir") "\n" "The game name, if provided, must be equal to a game name as specified in the\n" "FreeSCI config file.\n" "It is overridden by --gamedir.\n" "\n" ); exit(0); case 'l': sciv_action = ACTION_LIST_SAVEGAMES; break; case 'L': #ifdef OPENVMS /* Enable OpenVMS debug logging to ** sys$disk:[]freesci_probe.log (current directory). */ { extern int _openvms_log_enabled; _openvms_log_enabled = 1; } fprintf(stderr, "[PROBE] debug logging enabled (-L)\n"); #else fprintf(stderr, "-L/--log: OpenVMS debug logging not " "compiled in on this platform; ignored\n"); #endif break; default: exit(1); } } #if 0 } /* Work around EMACS paren matching bug */ #endif /* A savegame given with -R/--restore-savegame takes precedence and is ** not overridden by the (optional) positional [savegame ID] argument. */ if (!*savegame_name) { if (optind+1 >= argc) *savegame_name = NULL; else *savegame_name = argv[optind + 1]; } if (optind == argc) return NULL; return argv[optind]; #endif /* !_DREAMCAST */ } static int read_config(char *game_name, config_entry_t **conf, int *conf_entries, sci_version_t *version) { int i, conf_nr = 0; char cur_dir[PATH_MAX+1]; /* config_init() changes cwd, so we restore it after the call */ getcwd(cur_dir, PATH_MAX); *conf_entries = config_init(conf, commandline_config_file); chdir(cur_dir); for (i = 1; i < *conf_entries; i++) if (game_name && !strcasecmp((*conf)[i].name, game_name)) { conf_nr = i; *version = (*conf)[i].version; } return conf_nr; } static void init_console() { #ifdef WANT_CONSOLE con_gfx_init(); #endif con_hook_command(&c_quit, "quit", "", "console: Quits gracefully"); con_hook_command(&c_die, "die", "", "console: Quits ungracefully"); con_hook_int(&(gfx_options->buffer_pics_nr), "buffer_pics_nr", "Number of pics to buffer in LRU storage\n"); con_hook_int(&(gfx_options->pic0_dither_mode), "pic0_dither_mode", "Mode to use for pic0 dithering\n"); con_hook_int(&(gfx_options->pic0_dither_pattern), "pic0_dither_pattern", "Pattern to use for pic0 dithering\n"); con_hook_int(&(gfx_options->pic0_unscaled), "pic0_unscaled", "Whether pic0 should be drawn unscaled\n"); con_hook_int(&(gfx_options->dirty_frames), "dirty_frames", "Dirty frames management\n"); con_hook_int(&gfx_crossblit_alpha_threshold, "alpha_threshold", "Alpha threshold for crossblitting\n"); con_hook_int(&sci0_palette, "sci0_palette", "SCI0 palette- 0: EGA, 1:AGI/Amiga, 2:Grayscale\n"); con_hook_int(&sci01_priority_table_flags, "sci01_priority_table_flags", "SCI01 priority table debugging flags: 1:Disable, 2:Print on change\n"); con_passthrough = 1; /* enables all sciprintf data to be sent to stdout */ } static void init_console_input() { #ifdef HAVE_READLINE_HISTORY_H using_history(); /* Activate history for readline */ #endif /* HAVE_READLINE_HISTORY_H */ #ifdef HAVE_READLINE_READLINE_H if (use_readline) _debug_get_input = get_readline_input; /* Use readline for debugging input */ else #endif /* !HAVE_READLINE_READLINE_H */ _debug_get_input = get_gets_input; /* Use gets for debug input */ } static int init_gamestate(state_t *gamestate, resource_mgr_t *resmgr, sci_version_t version) { int errc; gamestate->resmgr = resmgr; if ((errc = script_init_engine(gamestate, version))) { /* Initialize game state */ int recovered = 0; if (errc == SCI_ERROR_INVALID_SCRIPT_VERSION) { int tversion = SCI_VERSION_FTU_NEW_SCRIPT_HEADER - ((version < SCI_VERSION_FTU_NEW_SCRIPT_HEADER)? 0 : 1); while (!recovered && tversion) { printf("Trying version %d.%03x.%03d instead\n", SCI_VERSION_MAJOR(tversion), SCI_VERSION_MINOR(tversion), SCI_VERSION_PATCHLEVEL(tversion)); errc = script_init_engine(gamestate, tversion); if ((recovered = !errc)) version = tversion; if (errc != SCI_ERROR_INVALID_SCRIPT_VERSION) break; switch (tversion) { case SCI_VERSION_FTU_NEW_SCRIPT_HEADER - 1: if (version >= SCI_VERSION_FTU_NEW_SCRIPT_HEADER) tversion = 0; else tversion = SCI_VERSION_FTU_NEW_SCRIPT_HEADER; break; case SCI_VERSION_FTU_NEW_SCRIPT_HEADER: tversion = 0; break; } } if (recovered) printf("Success.\n"); } if (!recovered) { fprintf(stderr,"Script initialization failed. Aborting...\n"); return 1; } } return 0; } static int init_gfx(config_entry_t *conf, cl_options_t *cl_options, gfx_driver_t *driver, resource_mgr_t *resmgr) { int scale_x = 0, scale_y = 0, color_depth = 0; if (conf) { if (conf->scale) scale_x = scale_y = conf->scale; if (conf->x_scale) scale_x = conf->x_scale; if (conf->y_scale) scale_y = conf->y_scale; if (conf->color_depth) color_depth = conf->color_depth; /* In there it's bpp */ } gfx_state->driver = driver; gamestate->gfx_state = gfx_state; gfx_state->version = resmgr->sci_version; if (cl_options->scale_x > 0) { scale_x = cl_options->scale_x; if (!scale_y) scale_y = cl_options->scale_x; } if (cl_options->scale_y > 0) { scale_y = cl_options->scale_y; if (!scale_x) scale_x = cl_options->scale_y; } if (cl_options->color_depth > 0) color_depth = cl_options->color_depth; if (color_depth > 0 && scale_x == 0) scale_x = scale_y = 2; /* Some default setting */ fprintf(stderr, "cd-conf=%d, cd-cl=%d, cd=%d\n", conf->color_depth, cl_options->color_depth, color_depth); /* Convert to bytespp */ color_depth = (color_depth + 7) >> 3; fprintf(stderr, "Checking byte depth %d\n", color_depth); if (scale_x > 0) { if (color_depth > 0) { if (gfxop_init(gfx_state, scale_x, scale_y, color_depth, gfx_options, resmgr)) { fprintf(stderr,"Graphics initialization failed. Aborting...\n"); return 1; } } else { color_depth = 4; while (gfxop_init(gfx_state, scale_x, scale_y, color_depth, gfx_options, resmgr) && --color_depth); if (!color_depth) { fprintf(stderr,"Could not find a matching color depth. Aborting...\n"); return 1; } } } else if (gfxop_init_default(gfx_state, gfx_options, resmgr)) { fprintf(stderr,"Graphics initialization failed. Aborting...\n"); return 1; } return 0; } typedef void *old_lookup_funct_t(char *name); void * lookup_driver(lookup_funct_t lookup_func, void explain_func(void), char *driver_class, char *driver_name, char *path) { void *retval = lookup_func(path, driver_name); if (!retval) { if (!driver_name) sciprintf("The default %s is not available; please choose" " one explicitly.\n", driver_class); else sciprintf("The %s you requested, '%s', is not available.\n" /* "Please choose one among the following: " */ , driver_class, driver_name); /* explain_func(); */ exit(1); } return retval; } static void * old_lookup_driver(old_lookup_funct_t lookup_func, void explain_func(void), char *driver_class, char *driver_name) { void *retval = lookup_func(driver_name); if (!retval) { sciprintf("The %s you requested, '%s', is not available.\n" "Please choose one among the following: ", driver_class, driver_name); explain_func(); exit(1); } return retval; } #define NAMEBUF_LEN 30 static void list_savegames(state_t *s) { sci_dir_t dir; char *filename = NULL; #ifdef OPENVMS /* OpenVMS: Check for NULL state or game_name */ if (!s || !s->game_name) { fprintf(stderr, "list_savegames: NULL state or game_name\n"); return; } #endif sci_init_dir(&dir); filename = sci_find_first(&dir, "*"); sciprintf("\nSavegame listing:\n" "-----------------\n"); while (filename) { char namebuf[NAMEBUF_LEN + 1]; #ifdef OPENVMS /* OpenVMS: Skip directory entries (.DIR files), NULL, and dots */ if (filename && strlen(filename) > 0) { /* Skip .DIR files (OpenVMS directory entries) */ char *dot = strrchr(filename, '.'); if (dot && !strcasecmp(dot, ".DIR")) { filename = sci_find_next(&dir); continue; } /* Skip . and .. entries if they got through */ if (filename[0] == '.' && (filename[1] == 0 || (filename[1] == '.' && filename[2] == 0))) { filename = sci_find_next(&dir); continue; } #endif if (test_savegame(s, filename, namebuf, NAMEBUF_LEN)) { if (namebuf[0]) sciprintf("%s:\t\"%s\"\n", filename, namebuf); else sciprintf("%s\n", filename); } #ifdef OPENVMS } #endif filename = sci_find_next(&dir); } sciprintf("-----------------\n"); sci_finish_find(&dir); } int main(int argc, char** argv) { config_entry_t *active_conf = NULL; /* Active configuration used */ config_entry_t *confs = {0}; /* Configuration read from config file (if it exists) */ cl_options_t cl_options; /* Command line options */ int conf_entries = -1; /* Number of config entries */ int conf_nr = -1; /* Element of conf to use */ FILE *console_logfile = NULL; char startdir[PATH_MAX+1] = ""; char resource_dir[PATH_MAX+1] = ""; char work_dir[PATH_MAX+1] = ""; char *gfx_driver_name = NULL; char *midiout_driver_name = NULL; char *midi_device_name = NULL; char *pcm_driver_name = NULL; char *game_name = NULL; char *savegame_name = NULL; sci_version_t version = 0; gfx_driver_t *gfx_driver = NULL; sound_server_t *sound_server = NULL; char *module_path = SCI_DEFAULT_MODULE_PATH; resource_mgr_t *resmgr; init_console(); /* So we can get any output */ game_name = parse_arguments(argc, argv, &cl_options, &savegame_name); init_console_input(); getcwd(startdir, PATH_MAX); script_debug_flag = cl_options.script_debug_flag; printf("FreeSCI %s Copyright (C) 1999, 2000-2006\n", VERSION); printf(" Dmitry Jemerov, Christopher T. Lansdown, Sergey Lapin, Rickard Lind,\n" " Carl Muckenhoupt, Christoph Reichenbach, Magnus Reftel, Lars Skovlund,\n" " Rink Springer, Petr Vyhnak, Solomon Peachy, Matt Hargett, Alex Angas,\n" " Walter van Niftrik, Ruediger Hanke, Rainer Canavan, Ismail Khatib\n" " Hugues Valois\n" "This program is free software. You can copy and/or modify it freely\n" "according to the terms of the GNU general public license, v2.0\n" "or any later version, at your option.\n" "It comes with ABSOLUTELY NO WARRANTY.\n"); #ifdef _DREAMCAST choose_game(); #endif conf_nr = read_config(game_name, &confs, &conf_entries, &version); if (game_name) { active_conf = confs + conf_nr; if (!cl_options.gamedir) if (chdir(active_conf->resource_dir)) { if (conf_nr) fprintf(stderr,"Error entering '%s' to load resource data\n", active_conf->resource_dir); else fprintf(stderr,"Game '%s' isn't registered in your config file.\n", game_name); exit(1); } } if (cl_options.gamedir) { if (chdir(cl_options.gamedir)) { printf ("Error changing to game directory '%s'\n", cl_options.gamedir); exit(1); } free(cl_options.gamedir); } /* by now, if the user specified a game name or a game directory, the working dir has been changed */ /* so if no resource are found in the working dir, invoke the game selection screen */ if (conf_entries > 1 && !game_select_resource_found()) { conf_nr = game_select(gamestate, cl_options, gfx_state, gfx_options, confs, conf_entries, startdir); if (conf_nr < 0) return 0; else active_conf = confs + conf_nr; } if (cl_options.version) version = cl_options.version; else { int got_version = version_detect_from_executable(&version); unsigned int code; sci_version_t hash_version; char *game_name = version_guess_from_hashcode(&hash_version, &code); if (got_version) { sciprintf("Interpreter version: %d.%03d.%03d (by executable scan)\n", SCI_VERSION_MAJOR(version), SCI_VERSION_MINOR(version), SCI_VERSION_PATCHLEVEL(version)); if (!game_name) sciprintf("Could not identify game by hash code: %08X\n" "Please report the preceding two lines and the name of the game you were trying\n" "to run to the FreeSCI development team to help other users!\n", code); else if (hash_version != version) sciprintf("UNEXPECTED INCONSISTENCY: Hash code %08X indicates game version %d.%03d.%03d,\n" " but analysis of the executable yields %d.%03d.%03d (for game '%s').\n" " Please report this!\n" "Proceeding with result of the executable analysis.\n", code, SCI_VERSION_MAJOR(hash_version), SCI_VERSION_MINOR(hash_version), SCI_VERSION_PATCHLEVEL(hash_version), SCI_VERSION_MAJOR(version), SCI_VERSION_MINOR(version), SCI_VERSION_PATCHLEVEL(version)); } else { if (game_name) { version = hash_version; sciprintf("Interpreter version: %d.%03d.%03d (by hash)\n", SCI_VERSION_MAJOR(version), SCI_VERSION_MINOR(version), SCI_VERSION_PATCHLEVEL(version)); } else sciprintf("Could not determine interpreter version; hash code %08X.\n", code); } if (game_name) sciprintf("Game identified as '%s'\n", game_name); } getcwd(resource_dir, PATH_MAX); /* Store resource directory */ sciprintf("Loading resources...\n"); resmgr = scir_new_resource_manager(resource_dir, SCI_VERSION_AUTODETECT, 1, 128*1024); if (!resmgr) { printf("No resources found in '%s'.\nAborting...\n", resource_dir); exit(1); } check_features(); chdir(startdir); printf("Mapping instruments to General Midi\n"); map_MIDI_instruments(resmgr); sciprintf("FreeSCI, version "VERSION"\n"); gamestate = sci_malloc(sizeof(state_t)); memset(gamestate, 0, sizeof(state_t)); if (init_gamestate(gamestate, resmgr, version)) return 1; gamestate->gfx_state = NULL; if (game_init(gamestate)) { /* Initialize */ fprintf(stderr,"Game initialization failed: Aborting...\n"); return 1; } if (init_directories(work_dir, (char *) gamestate->game_name)) { fprintf(stderr,"Error resolving the working directory\n"); exit(1); } script_set_gamestate_save_dir(gamestate); /* Set the CWD as the savegame dir */ if (sciv_action == ACTION_LIST_SAVEGAMES) { list_savegames(gamestate); exit(0); } gamestate->resource_dir = resource_dir; gamestate->work_dir = work_dir; gamestate->sound_object = 0; gamestate->port_serial = 0; if (!game_name) game_name = (char *) gamestate->game_name; /* If no game-specific configuration has been read, then read the non-specific config from file */ if (!active_conf) active_conf = confs + conf_nr; /* gcc doesn't warn about (void *)s being typecast. If your compiler doesn't like these ** implicit casts, don't hesitate to typecast appropriately. */ if (cl_options.gfx_driver_name) { gfx_driver_name = sci_strdup(cl_options.gfx_driver_name); free(cl_options.gfx_driver_name); } /* else it's still NULL */ #ifndef OPENVMS /* OpenVMS: Skip sound driver initialization - no sound support */ if (cl_options.pcmout_driver_name) pcmout_driver = old_lookup_driver((old_lookup_funct_t *)pcmout_find_driver, MSVC_FUNCTYPECAST_KLUDGE list_pcmout_drivers, "pcmout driver", cl_options.pcmout_driver_name); if (cl_options.midiout_driver_name) { midiout_driver = old_lookup_driver((old_lookup_funct_t *)midiout_find_driver, MSVC_FUNCTYPECAST_KLUDGE list_midiout_drivers, "midiout driver", cl_options.midiout_driver_name); free(cl_options.midiout_driver_name); } if (cl_options.midi_device_name) { midi_device = old_lookup_driver((old_lookup_funct_t *)midi_find_device, MSVC_FUNCTYPECAST_KLUDGE list_midi_devices, "MIDI device", cl_options.midi_device_name); free(cl_options.midi_device_name); } if (cl_options.sound_server_name) { sound_server = old_lookup_driver((old_lookup_funct_t *)sound_server_find_driver, MSVC_FUNCTYPECAST_KLUDGE list_sound_servers, "sound server", cl_options.sound_server_name); free(cl_options.sound_server_name); } #else /* OpenVMS: Free sound option names but don't try to initialize drivers */ if (cl_options.pcmout_driver_name) free(cl_options.pcmout_driver_name); if (cl_options.midiout_driver_name) free(cl_options.midiout_driver_name); if (cl_options.midi_device_name) free(cl_options.midi_device_name); if (cl_options.sound_server_name) free(cl_options.sound_server_name); #endif if (confs) { memcpy(gfx_options, &(active_conf->gfx_options), sizeof(gfx_options_t)); /* memcpy so that console works */ if (!gfx_driver_name) gfx_driver_name = active_conf->gfx_driver_name; #ifndef OPENVMS /* OpenVMS: Skip sound driver initialization - no sound support */ if (!sound_server) sound_server = active_conf->sound_server; /* make sure we have sound drivers */ if (!midiout_driver) midiout_driver = active_conf->midiout_driver; if (!midi_device) midi_device = active_conf->midi_device; if (!pcmout_driver) pcmout_driver = active_conf->pcmout_driver; #endif } if (confs) { module_path = active_conf->module_path; if (!gfx_driver_name) gfx_driver_name = active_conf->gfx_driver_name; } gfx_driver = (gfx_driver_t *) lookup_driver((lookup_funct_t *)gfx_find_driver, MSVC_FUNCTYPECAST_KLUDGE list_graphics_drivers, "graphics driver", gfx_driver_name, module_path); if (!gfx_driver) { if (gfx_driver_name) fprintf(stderr,"Failed to find graphics driver \"%s\"\n" "Please run 'sciv -v' to get a list of all " "available drivers.\n", gfx_driver_name); else fprintf(stderr,"No default gfx driver available.\n"); return 1; } if (chdir(gamestate->work_dir)) { fprintf(stderr,"Error entering working directory '%s'\n", gamestate->work_dir); exit(1); } if (!gamestate->version_lock_flag) if (active_conf->version) gamestate->version = active_conf->version; if (strlen (active_conf->debug_mode)) set_debug_mode (gamestate, 1, active_conf->debug_mode); #if 0 { int j; for (j =0; j < conf_entries; j++) { int i; config_entry_t *c = conf + j; fprintf(stderr, "[%s]\n", c->name); for (i = 0; i < 2; i++) { subsystem_options_t *subsys = c->driver_options[i]; fprintf(stderr, " <%s>\n", i? "midiout" : "gfx"); while (subsys) { driver_option_t *opt; fprintf(stderr, " {%p,%s}\n", subsys->name,subsys->name); opt = subsys->options; while (opt) { fprintf(stderr, "\t%p'%s' = %p'%s'\n", opt->option, opt->option, opt->value,opt->value); opt = opt->next; } subsys = subsys->next; } } } } #endif /* 0 */ /* Now configure the graphics driver with the specified options */ { driver_option_t *option = get_driver_options(active_conf, FREESCI_DRIVER_SUBSYSTEM_GFX, gfx_driver->name); while (option) { if ((gfx_driver->set_parameter)(gfx_driver, option->option, option->value)) { fprintf(stderr, "Fatal error occured in graphics driver while processing \"%s = %s\"\n", option->option, option->value); exit(1); } option = option->next; } } #ifndef OPENVMS /* OpenVMS: Skip sound driver configuration - no sound support */ /* Configure the pcmout driver */ { pcmout_sample_rate = active_conf->pcmout_rate; pcmout_stereo = active_conf->pcmout_stereo; pcmout_buffer_size = active_conf->pcmout_buffer_size; if (pcmout_driver) { driver_option_t *option = get_driver_options(active_conf, FREESCI_DRIVER_SUBSYSTEM_PCM, pcmout_driver->name); while (option) { if ((pcmout_driver->set_parameter)(pcmout_driver, option->option, option->value)) { fprintf(stderr, "Fatal error occured in pcmout driver while processing \"%s = %s\"\n", option->option, option->value); exit(1); } option = option->next; } } } /* Configure the midiout driver */ { driver_option_t *option = get_driver_options(active_conf, FREESCI_DRIVER_SUBSYSTEM_MIDIOUT, midiout_driver->name); while (option) { if ((midiout_driver->set_parameter)(midiout_driver, option->option, option->value)) { fprintf(stderr, "Fatal error occured in midiout driver while processing \"%s = %s\"\n", option->option, option->value); exit(1); } option = option->next; } } #endif if (init_gfx(active_conf, &cl_options, gfx_driver, resmgr)) return 1; if (game_init_graphics(gamestate)) { /* Init interpreter graphics */ fprintf(stderr,"Game initialization failed: Error in GFX subsystem. Aborting...\n"); return 1; } #ifndef OPENVMS /* OpenVMS: Skip sound server initialization - no sound support */ if (!sound_server) sound_server = sound_server_find_driver(NULL); #endif if (cl_options.show_rooms) set_debug_mode(gamestate, 1, "r"); #ifndef OPENVMS gamestate->sound_server = sound_server; #else /* OpenVMS: use the null (cue-only) sound server. It produces no audio ** but delivers the sound cue lifecycle so cue-gated game logic (intros, ** QfG1 character-select, etc.) advances instead of stalling forever. */ { extern sound_server_t sound_server_openvms_null; gamestate->sound_server = &sound_server_openvms_null; } #endif if (gamestate->sound_server) { int poly; if (gamestate->sound_server->init( gamestate, ((active_conf->reverse_stereo) ? SOUNDSERVER_INIT_FLAG_REVERSE_STEREO : 0))) { fprintf(stderr,"Sound server initialization failed- aborting.\n"); return 1; } sci_sched_yield(); if (!soundserver_dead) { poly = gamestate->sound_server->command(gamestate, get_msg_value("SOUND_COMMAND_TEST"), 0, 0); printf("Sound server reports polyphony %d\n", poly); gamestate->sound_server->command(gamestate, get_msg_value("SOUND_COMMAND_SET_VOLUME"), 0, 0xc); } gamestate->sound_server->get_event(gamestate); /* Get init message */ /* FIXME: memory allocated that is not freed */ } if (active_conf && active_conf->console_log) open_console_file (active_conf->console_log); gamestate->animation_delay = active_conf->animation_delay; gamestate->animation_granularity = active_conf->animation_granularity; gfx_crossblit_alpha_threshold = active_conf->alpha_threshold; printf("Emulating SCI version %d.%03d.%03d\n", SCI_VERSION_MAJOR(gamestate->version), SCI_VERSION_MINOR(gamestate->version), SCI_VERSION_PATCHLEVEL(gamestate->version)); printf("Graphics: Using the %s driver %s\n", gfx_driver->name, gfx_driver->version); #ifndef OPENVMS /* OpenVMS: Skip sound driver info - all NULL */ printf("MIDI-out: Using the %s driver %s\n", midiout_driver->name, midiout_driver->version); printf("MIDI-device: Using the %s driver %s\n", midi_device->name, midi_device->version); printf("PCM-out: Using the %s driver %s\n", pcmout_driver->name, pcmout_driver->version); if (sound_server) printf("Sound server: Using the %s sound server %s\n", sound_server->name, sound_server->version); else #endif printf("Sound server: Disabled.\n"); gamestate->have_mouse_flag = (cl_options.mouse == DONTCARE)? active_conf->mouse : cl_options.mouse; #ifdef _DREAMCAST if (fs_unlink("/ram/config")) sciprintf("%s, L%d: fs_unlink(\"/ram/config\") failed!\n", __FILE__, __LINE__); dc_retrieve_mirrored(gamestate->game_name); #endif if (savegame_name) game_restore(&gamestate, savegame_name); else game_run(&gamestate); /* Run the game */ if (gamestate->sound_server) gamestate->sound_server->exit(gamestate); /* Shutdown sound daemon first */ #ifdef _DREAMCAST dc_delete_save_files("/ram"); dc_delete_temp_file(); dc_store_mirrored(gamestate->game_name); #endif game_exit(gamestate); script_free_engine(gamestate); /* Uninitialize game state */ scir_free_resource_manager(resmgr); if (conf_entries >= 0) config_free(&confs, conf_entries); close_console_file(); chdir (startdir); /* ? */ #if defined HAVE_FORK && !(ARM_WINCE) printf("Waiting for sound server to die..."); wait(NULL); /* Wait for sound server process to die, if neccessary */ printf(" OK.\n"); #endif gfxop_exit(gfx_state); sci_free(gamestate); if (commandline_config_file) sci_free(commandline_config_file); #ifdef WITH_DMALLOC fprintf(stderr,"--- Everything but the two console buffers should have been freed now ---\n"); dmalloc_log_unfreed(); /* BREAKPOINT(); */ ((*(int *)NULL) = 42); #endif return 0; }