module System.USB.IDDB.UsbDotOrg
( parseDb
, staticDb
, fromFile
, dbURL
) where
import Control.Monad ( fmap )
import Data.Maybe ( fromJust )
import Parsimony
import Parsimony.Char ( char, digit )
import System.IO ( FilePath, readFile )
import System.USB.IDDB.Base ( IDDB(..)
, getDataFileName
)
import System.USB.IDDB.Misc ( eitherMaybe, swap, restOfLine )
import qualified Data.IntMap as IM ( fromList, empty )
import qualified Data.Map as MP ( fromList )
parseDb :: String -> Maybe IDDB
parseDb = eitherMaybe . parse staticDbParser
staticDbParser :: Parser String IDDB
staticDbParser = do
vendors <- many vendorParser
return IDDB { dbVendorNameId = MP.fromList $ fmap swap vendors
, dbVendorIdName = IM.fromList vendors
, dbProducts = IM.empty
, dbClasses = IM.empty
, dbAudioCTType = IM.empty
, dbVideoCTType = IM.empty
, dbHIDDescType = IM.empty
, dbHIDDescItem = IM.empty
, dbHIDDescCCode = IM.empty
, dbHIDUsage = IM.empty
, dbPhysDescBias = IM.empty
, dbPhysDescItem = IM.empty
, dbLanguages = IM.empty
}
where
vendorParser :: Parser String (Int, String)
vendorParser = do vid <- many1 digit
char '|'
name <- restOfLine
return (read vid, name)
fromFile :: FilePath -> IO (Maybe IDDB)
fromFile = fmap parseDb . readFile
staticDbPath :: FilePath
staticDbPath = "usb_dot_org_db.txt"
staticDb :: IO IDDB
staticDb = getDataFileName staticDbPath >>= fmap fromJust . fromFile
dbURL :: String
dbURL = "http://www.usb.org/developers/tools/comp_dump"