-beginInteractive mods
- = do state <- cmInit Interactive
- let mod = case mods of
- [] -> Nothing
- [mod] -> Just mod
- _ -> throwDyn (UsageError
- "only one module allowed with --interactive")
- interactiveUI state mod
+beginInteractive fileish_args
+ = let is_libraryish nm
+ = let nmr = map toLower (reverse nm)
+ in take 2 nmr == "o." ||
+ take 3 nmr == "os." ||
+ take 4 nmr == "lld."
+ libs = filter is_libraryish fileish_args
+ mods = filter (not.is_libraryish) fileish_args
+ mod = case mods of
+ [] -> Nothing
+ [mod] -> Just mod
+ _ -> throwDyn (UsageError
+ "only one module allowed with --interactive")
+ in
+ do state <- cmInit Interactive
+ interactiveUI state mod libs