Context.hs

-- | Interpreter (module) contexts for hsc3.
module Sound.Sc3.Common.Context where

import Text.Printf {- base -}

-- | (moduleName, qualifierName, packageName)
type Context = [(String, Maybe String, String)]

-- | Format a Context as a sequence of import commands.
context_format :: Context -> [String]
context_format =
  let f (moduleName, qualifier, packageName) =
        case qualifier of
          Nothing -> printf "import %s {- %s -}" moduleName packageName
          Just qualifierName -> printf "import qualified %s as %s {- %s -}" moduleName qualifierName packageName
  in map f

-- | writeFile of context_format
context_write :: FilePath -> Context -> IO ()
context_write fn = writeFile fn . unlines . context_format

-- | Minimal hsc3 context
min_context :: Context
min_context =
  [ ("Prelude", Nothing, "base")
  , ("Control.Monad", Nothing, "base")
  , ("Data.Bits", Nothing, "base")
  , ("Data.Function", Nothing, "base")
  , ("Data.List", Nothing, "base")
  , ("Sound.Sc3", Nothing, "hsc3")
  ]

-- | Standard hsc3 context
std_context :: Context
std_context =
  [ ("Prelude", Nothing, "base")
  , ("Control.Monad", Nothing, "base")
  , ("Data.Bits", Nothing, "base")
  , ("Data.Function", Nothing, "base")
  , ("Data.List", Nothing, "base")
  , ("System.Random", Nothing, "random")
  , ("Sound.Osc", Nothing, "hosc")
  , ("Sound.Sc3", Nothing, "hsc3")
  , ("Sound.Sc3.Common.Base", Just "Sound.Sc3.Common.Base", "hsc3")
  , ("Sound.Sc3.Common.Buffer.Gen", Just "Gen", "hsc3")
  , ("Sound.Sc3.Common.Math.Filter.Beq", Just "Sound.Sc3.Common.Math.Filter.Beq", "hsc3")
  , ("Sound.Sc3.Ugen.Bindings.Db.External", Just "X", "hsc3")
  , ("Sound.Sc3.Ugen.Bindings.Composite.External", Just "X", "hsc3")
  , ("Sound.Sc3.Ugen.Bindings.Hw.External.F0", Just "X", "hsc3")
  , ("Sound.Sc3.Ugen.Bindings.Hw.External.SC3_Plugins", Just "X", "hsc3")
  , ("Sound.Sc3.Ugen.Bindings.Hw.External.Zita", Just "X", "hsc3")
  , ("Sound.Sc3.Ugen.Bindings.Db.Rdu", Just "X", "sc3-rdu")
  , ("Sound.Sc3.Ugen.Dot", Just "Sound.Sc3.Ugen.Dot", "hsc3-dot")
  , ("Sound.Sc3.Ugen.Unsafe", Nothing, "hsc3-unsafe")
  , ("Sound.Sc3.Ugen.Unsafe", Nothing, "hsc3-unsafe")
  , ("Sound.Sc3.Ugen.Protect", Just "Protect", "hsc3-rw")
  , ("Sound.Sc3.Ui.Html", Just "Ui", "hsc3-ui")
  , ("Sound.Sc3.Ui.Plot", Just "Ui", "hsc3-ui")
  , ("Sound.Sc3.Ui.Qarma", Just "Ui", "hsc3-ui")
  , ("Sound.Sc3.Ui.ScLang", Just "Ui", "hsc3-ui")
  , ("Sound.Sc3.Ui.ScLang.Control", Just "Ui", "hsc3-ui")
  ]