GLK: ALAN2: Set up main game loop for restarting game

engines/glk/alan2/alan2.cpp

@@ -39,7 +39,7 @@ namespace Alan2 {
 Alan2 *g_vm = nullptr;
 
 Alan2::Alan2(OSystem *syst, const GlkGameDescription &gameDesc) : GlkAPI(syst, gameDesc),
-	vm_exited_cleanly(false) {
+		vm_exited_cleanly(false), _restartFlag(false) {
 	g_vm = this;
 }
 

engines/glk/alan2/alan2.h

@@ -35,6 +35,8 @@ namespace Alan2 {
  * Alan2 game interpreter
  */
 class Alan2 : public GlkAPI {
+private:
+	bool _restartFlag;
 public:
 	bool vm_exited_cleanly;
 	Common::String _advName;
@@ -64,6 +66,16 @@ public:
 	 */
 	void runGame();
 
+	/**
+	 * Flag for the game to restart
+	 */
+	void setRestart(bool flag) { _restartFlag = flag; }
+
+	/**
+	 * Returns whether the game should restart
+	 */
+	bool shouldRestart() const { return _restartFlag; }
+
 	/**
 	 * Returns the running interpreter type
 	 */

engines/glk/alan2/main.cpp

@@ -1415,12 +1415,13 @@ void run() {
 	// Set default line and column
 	col = lin = 1;
 
-	//setjmp(restart_label);    /* Return here if he wanted to restart */
+	while (!g_vm->shouldQuit()) {
-
+		// Load, initialise and start the adventure
-	init();         /* Load, initialise and start the adventure */
+		g_vm->setRestart(false);
+		init();
 
 		Context ctx;
-	for (;;) {
+		while (!g_vm->shouldQuit()) {
 			if (!ctx._break) {
 				if (dbgflg)
 					debug();
@@ -1441,6 +1442,7 @@ void run() {
 			}
 		}
 	}
+}
 
 } // End of namespace Alan2
 } // End of namespace Glk