From: David Griffith <dave@661.org>
Date: Wed, 1 Aug 2018 04:21:59 +0000 (-0700)
Subject: Add -I flag to SDL Frotz to allow for setting the interpreter number.
X-Git-Url: https://scope-eye.net/git/?a=commitdiff_plain;h=842996d57c174b46fcb659e28395db3e795ffa98;p=liskon_frotz.git

Add -I flag to SDL Frotz to allow for setting the interpreter number.
---

diff --git a/src/sdl/sf_resource.c b/src/sdl/sf_resource.c
index ec6a107..a65f3d2 100644
--- a/src/sdl/sf_resource.c
+++ b/src/sdl/sf_resource.c
@@ -449,7 +449,11 @@ void sf_readsettings(void)
   ResSnd = sf_GetProfileString("Resources","Snd",ResSnd);
 
 //printf("sf_readsettings\n");
-  h_interpreter_number = sf_GetProfileInt("Interpreter","Number",INTERP_AMIGA);
+  if (f_setup.interpreter_number == 0)
+    h_interpreter_number = sf_GetProfileInt("Interpreter","Number",INTERP_AMIGA);
+  else
+    h_interpreter_number = f_setup.interpreter_number;
+
   f_setup.err_report_mode = sf_GetProfileInt("Interpreter","Error Reporting",ERR_REPORT_ONCE);
   f_setup.ignore_errors = sf_GetProfileInt("Interpreter","Ignore Errors",0);
   f_setup.expand_abbreviations = sf_GetProfileInt("Interpreter","Expand Abbreviations",0);
@@ -1031,6 +1035,7 @@ void os_init_setup(void)
     f_setup.left_margin = 0;
     f_setup.right_margin = 0;
     f_setup.ignore_errors = 0;
+    f_setup.interpreter_number = 0;
     f_setup.piracy = 0;             /* enable the piracy opcode */
     f_setup.undo_slots = MAX_UNDO_SLOTS;
     f_setup.expand_abbreviations = 0;
diff --git a/src/sdl/sf_util.c b/src/sdl/sf_util.c
index 1e5df1d..4ff43d9 100644
--- a/src/sdl/sf_util.c
+++ b/src/sdl/sf_util.c
@@ -121,6 +121,7 @@ static char *infos[] = {
 	"-F   fullscreen mode",
 	"-h # screen height",
 	"-i   ignore runtime errors",
+	"-I # interpreter number",
 	"-l # left margin",
 	"-L   use local resources",
 	"-o   watch object movement",
@@ -234,6 +235,8 @@ static void parse_options (int argc, char **argv)
 	    user_screen_height = num;
 	if (c == 'i')
 	    f_setup.ignore_errors = 1;
+	if (c == 'I')
+	    f_setup.interpreter_number = num;
 	if (c == 'l')
 	    f_setup.left_margin = num;
 	if (c == 'L')