Parse the “media flags” section

as described in https://github.com/entropia/tip-toi-reveng/wiki/GME-Media-flag-table

No exposure in YAML yet, but at least `tttool explain` will show it. And
`tttool lint` will report if we find entries that are not 0 or 1.

Author: nomeata

src/GMEParser.hs

@@ -409,6 +409,9 @@ getRealGame gGameType = do
 getInitialRegs :: SGet [Word16]
 getInitialRegs = getArray getWord16 getWord16
 
+getMediaFlags :: Int -> SGet [Word16]
+getMediaFlags size = getArray (return size) getWord16
+
 getSpecials :: SGet (Word16, Word16)
 getSpecials = (,) <$> getWord16 <*> getWord16
 
@@ -431,7 +434,8 @@ getTipToiFile = getSegAt 0x00 "Header" $ do
     jumpTo 0x0071
     ttWelcome <- indirection "initial play lists" getPlayListList
 
-    jumpTo 0x0090
+    jumpTo 0x008C
+    ttMediaFlags <- maybeIndirection "Mediaflags" (getMediaFlags (length ttAudioFiles))
     ttBinaries1 <- fromMaybe [] <$> maybeIndirection "Binaries 1" getBinaries
     ttSpecialOIDs <- maybeIndirection "special symbols" getSpecials
     ttBinaries2 <- fromMaybe [] <$> maybeIndirection "Binaries 2" getBinaries

src/Lint.hs

@@ -23,6 +23,9 @@ lintTipToi tt segments = do
             forM_ wrong $ \line -> do
                 printf "    %s\n" (ppLine M.empty line)
 
+    forM_ (fromMaybe [] (ttMediaFlags tt)) $ \f ->
+        when (f > 1) $ printf "Media flag >1: %d" f
+
     let overlapping_segments =
             filter (\((o1,l1,_),(o2,l2,_)) -> o1+l1 > o2) $
             zip segments (tail segments)

src/TipToiYaml.hs

@@ -885,6 +885,7 @@ ttYaml2tt no_date dir (TipToiYAML {..}) extCodes = do
         , ttAudioFiles = files
         , ttAudioXor = knownXOR
         , ttAudioFilesDoubles = False
+        , ttMediaFlags = Nothing
         , ttChecksum = 0x00
         , ttChecksumCalc = 0x00
         , ttBinaries1 = []

src/Types.hs

@@ -78,6 +78,7 @@ data TipToiFile = TipToiFile
     , ttAudioFiles :: [B.ByteString]
     , ttAudioFilesDoubles :: Bool
     , ttAudioXor :: Word8
+    , ttMediaFlags :: Maybe [Word16]
     , ttBinaries1 :: [(B.ByteString, B.ByteString)]
     , ttBinaries2 :: [(B.ByteString, B.ByteString)]
     , ttBinaries3 :: [(B.ByteString, B.ByteString)]