module Distribution.Gentoo.PackageManager where

data Options = Enabled String
             | Disabled String
             | Choice String String
             | None

optionEnabled              :: Options -> String
optionEnabled (Enabled e)  = e
optionEnabled (Disabled _) = ""
optionEnabled (Choice e _) = e
optionEnabled None         = ""

optionDisabled              :: Options -> String
optionDisabled (Enabled _)  = ""
optionDisabled (Disabled d) = d
optionDisabled (Choice _ d) = d
optionDisabled None         = ""

data Package = Pkg

data PackageManager = PM { name :: String
                         , command :: String
                         , pretend :: Options
                         , install :: InstallOptions
                         , uninstall :: UninstallOptions
                         , fixLinkingCmd :: String
                         }

data InstallOptions = IOps { iflag :: String
                           , verbose :: Options
                           , deep :: Options
                           , checkUse :: Options
                           , update :: Options
                           , packages :: Options
                           }

data UninstallOptions = UOps { uflag :: String
                             , recursive :: Options
                             , unneeded :: Options
                             , force :: Options
                             }

data InstallWhat = Update | Packages [Package]