2

如何在shake中传递参数，然后在我们的规则中使用它们？我想做一些等价物：

make ARCH=x86_64
或者
make DEBUG=YES 等等……

现在我一直在使用环境变量和getEnv函数来模拟这些。
如何对给定参数（环境变量）建立依赖关系，以便可以在构建中读取一次，将其存储在某处并从多个规则访问它？

例如，现在我在多个规则中多次执行 getEnv，但在编译期间环境变量可能会发生变化。此外，例如，调试标志可以更改编译器和链接器标志，这意味着信息需要在链接和编译输出规则中都可用。

4

1 回答 1

1

您现有的使用环境变量的方法应该可以工作，并且由于 Shake 已经跟踪了环境变量，因此一种方法是解析DEBUG=YES并将其转换为环境变量。例如：

main = shakeArgsWith shakeOptions [] $ \_ args -> do
    let (vars,files) = partition ('=' `elem`) args
    forM_ vars $ \v -> let (a,'=':b) = break (== '=') v in setEnv a b
    return $ Just $ if null files then rules else want files >> withoutActions rules

rules :: Rules ()
rules = ...

由于环境变量是进程（及其子进程）的本地变量，因此这可能会正常工作。

当然，将这些信息存储在环境变量中有点难看。您可以创建自己的预言机来存储信息：

main = shakeArgsWith shakeOptions [] $ \_ args -> do
    let (vars,files) = partition ('=' `elem`) args
    let vars2 = [(a,b) | v <- vars, let (a,'=':b) = break (== '=') v]
    return $ Just $ do
        global <- addOracle $ \(Global x) -> return $ lookup x vars2
        if null files then rules global else want files >> withoutActions (rules global)

newtype Global = Global String deriving (Show,Typeable,Eq,Hashable,Binary,NFData)

rules :: (Global -> Action (Maybe String)) -> Rules ()
rules global = undefined

现在，我们不再将信息写入环境变量中setEnv，而是将其存储在一个 oracle 中addOracle，它仍将被跟踪，并且不会与任何其他环境变量片段发生冲突。

于 2015-10-06T20:41:01.280 回答