Add 'game-sml/' from commit '113c3e67abe635f714f972a1e2ab0e4b24ff10f4'

git-subtree-dir: game-sml
git-subtree-mainline: aa5357714d
git-subtree-split: 113c3e67ab

game-sml/fcore/game-update.sml

@@ -0,0 +1,14 @@
+structure GameUpdate =
+struct
+  open GameType
+
+  fun update (game: GameType.game_type, input, time) =
+    let
+      val {mode, userKeys, saveKeys = _} = game
+    in
+      case mode of
+        LEVEL level => LevelUpdate.update (level, input, userKeys, time)
+      | TITLE title => TitleUpdate.update (title, input, userKeys, time)
+      | OPTIONS options => OptionsUpdate.update (options, input, userKeys, time)
+    end
+end