2 module GHC.Environment (getFullArgs) where
9 getFullArgs :: IO [String]
12 alloca $ \ p_argv -> do
13 getFullProgArgv p_argc p_argv
14 p <- fromIntegral `liftM` peek p_argc
16 peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString
18 foreign import ccall unsafe "getFullProgArgv"
19 getFullProgArgv :: Ptr CInt -> Ptr (Ptr CString) -> IO ()