module Puppet.Interpreter.Pure where
import Puppet.PP
import Puppet.Parser.Types
import Puppet.Interpreter.Types
import Puppet.Interpreter.IO
import Puppet.NativeTypes
import Erb.Parser
import Erb.Evaluate
import PuppetDB.Dummy
import qualified Data.HashMap.Strict as HM
import Control.Monad.Identity
import qualified Data.Either.Strict as S
import qualified Data.Maybe.Strict as S
import Data.Tuple.Strict
import Data.Monoid
import qualified Data.Text as T
import Control.Lens
impurePure :: ImpureMethods Identity
impurePure = ImpureMethods (return []) (const (return (Left "Can't read file"))) (\_ -> return ()) (\_ _ _ -> return (Left "Can't call lua"))
pureReader :: HM.HashMap (TopLevelType, T.Text) Statement
-> InterpreterReader Identity
pureReader sttmap = InterpreterReader baseNativeTypes getstatementdummy templatedummy dummyPuppetDB mempty "dummy" hieradummy impurePure mempty
where
templatedummy (Right _) _ _ = return (S.Left "Can't interpret files")
templatedummy (Left cnt) ctx scope =
return $ case parseErbString (T.unpack cnt) of
Left rr -> S.Left (PrettyError (text (show rr)))
Right stmts -> case rubyEvaluate scope ctx stmts of
Right x -> S.Right x
Left rr -> S.Left (PrettyError rr)
hieradummy _ _ _ = return (S.Right (mempty :!: S.Nothing))
getstatementdummy tlt n = return $ case HM.lookup (tlt,n) sttmap of
Just x -> S.Right x
Nothing -> S.Left "Can't get statement"
pureEval :: Facts
-> HM.HashMap (TopLevelType, T.Text) Statement
-> InterpreterMonad a
-> (Either PrettyError a, InterpreterState, InterpreterWriter)
pureEval facts sttmap action = runIdentity (interpretMonad (pureReader sttmap) startingState action)
where
startingState = initialState facts
dummyFacts :: Facts
dummyFacts = HM.fromList $
[ ("architecture", "amd64")
, ("augeasversion", "0.10.0")
, ("bios_release_date", "07/06/2010")
, ("bios_vendor", "Dell Inc.")
, ("bios_version", "2.2.0")
, ("boardmanufacturer", "Dell Inc.")
, ("domain", "dummy.domain")
, ("facterversion", "1.7.5")
, ("filesystems", "ext2,ext3,ext4,vfat")
, ("fqdn", "dummy.dummy.domain")
, ("hardwareisa", "x86_64")
, ("hardwaremodel", "x86_64")
, ("hostname", "dummy")
, ("id", "root")
, ("interfaces", "eth0,lo")
, ("ipaddress", "172.17.42.1")
, ("ipaddress_eth0", "172.17.42.1")
, ("ipaddress_lo", "127.0.0.1")
, ("is_virtual", "false")
, ("kernel", "Linux")
, ("kernelmajversion", "3.8")
, ("kernelrelease", "3.8.0-37-generic")
, ("kernelversion", "3.8.0")
, ("lsbdistcodename", "precise")
, ("lsbdistdescription", "Ubuntu 12.04.4 LTS")
, ("lsbdistid", "Ubuntu")
, ("lsbdistrelease", "12.04")
, ("lsbmajdistrelease", "12")
, ("macaddress", "a5:cb:10:b0:9a:4b")
, ("macaddress_eth0", "72:53:10:c1:eb:70")
, ("manufacturer", "Dell Inc.")
, ("memoryfree", "12.57 GB")
, ("memoryfree_mb", "12869.89")
, ("memorysize", "15.63 GB")
, ("memorysize_mb", "16009.07")
, ("memorytotal", "15.63 GB")
, ("mtu_eth0", "1500")
, ("mtu_lo", "65536")
, ("netmask", "255.255.0.0")
, ("netmask_eth0", "255.255.255.0")
, ("netmask_lo", "255.0.0.0")
, ("network_eth0", "172.17.42.0")
, ("network_lo", "127.0.0.0")
, ("operatingsystem", "Ubuntu")
, ("operatingsystemrelease", "12.04")
, ("osfamily", "Debian")
, ("path", "/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin")
, ("physicalprocessorcount", "1")
, ("processor0", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processor1", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processor2", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processor3", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processor4", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processor5", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processor6", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processor7", "Intel(R) Core(TM) i7 CPU 860 @ 2.80GHz")
, ("processorcount", "8")
, ("productname", "Vostro 430")
, ("ps", "ps -ef")
, ("puppetversion", "3.4.3")
, ("rubysitedir", "/usr/local/lib/site_ruby/1.8")
, ("rubyversion", "1.8.7")
, ("selinux", "false")
, ("serialnumber", "9L3FW4J")
, ("swapfree", "15.96 GB")
, ("swapfree_mb", "16340.00")
, ("swapsize", "15.96 GB")
, ("swapsize_mb", "16340.00")
, ("timezone", "CEST")
, ("type", "Desktop")
, ("uniqueid", "007f0101")
, ("uptime", "5:48 hours")
, ("uptime_days", "0")
, ("uptime_hours", "5")
, ("uptime_seconds", "20932")
, ("uuid", "97b75940-be55-11e3-b1b6-0800200c9a66")
, ("virtual", "physical")
]
dummyEval :: InterpreterMonad a -> Either PrettyError a
dummyEval action = pureEval dummyFacts mempty action ^. _1