Changeset 10561 for src/Pugs/Run

Timestamp:

06/05/06 11:29:24 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

14011

Message:

* Pugs.Run.Args: support for the "=" variant of -M:

pugs -Mlib=foo

Files:

• src/Pugs/Run/Args.hs (modified) (1 diff)

src/Pugs/Run/Args.hs

@@ -174 +174 @@
 --   "-e foo bar.p6" executes "foo" with @*ARGS[0] eq "bar.p6",
 --   "-E foo bar.p6" executes "foo" and then bar.p6.
-desugarDashE ((Opt "-M" mod):args) = desugarDashE ((Opt "-E" (";use " ++ mod ++ ";\n")):args)
+desugarDashE ((Opt "-M" mod):args)
+    | (mod', (_:args)) <- break (== '=') mod
+    = useWith $ mod' ++ " '" ++ escape args ++ "'.split(',')"
+    | otherwise
+    = useWith mod
+    where
+    useWith mod = desugarDashE ((Opt "-E" (";use " ++ mod ++ ";\n")):args)
+    escape [] = []
+    escape ('\'':xs) = '\\':'\'':escape xs
+    escape ('\\':xs) = '\\':'\\':escape xs
+    escape (x:xs) = x:escape xs
+
 
 -- Preserve the curious Perl5 behaviour: