-- |Quake VM data reader.
module Read (readFrom) where

import Call

import TagParse

-- |Reads Quake VM data from C source.
readFrom :: [String] -> FilePath -> IO ()
readFrom cflags source = do
  tags <- getTags cflags source
  mapM_ call [ b | Right t <- tags
                 , b@Builtin{} <- tagData t
                 ]
  --print tags
  where
    call :: TagData -> IO ()
    call t =
      print $ callBuiltin t

  -- builtins <- getBuiltins cflags source
  -- mapM_ print $ sort [ (pretty . declType $ funDef, tagData t) | (row, funDef) <- toList builtins
  --                                                              , Right t <- tags
  --                                                              , row == (posRow . endPos $ t)
  --                                                              ]
  -- where
  --   sort = sortBy $ \(_, Builtin{index = x}:_) (_, Builtin{index = y}:_) -> compare x y