args.hs

module Main where

import Foreign.Storable (peek)
import Foreign.Marshal.Array (peekArray0)
import Foreign.C (CInt, CString, peekCString)
import Foreign.Ptr (Ptr, nullPtr)

foreign import ccall "&rts_argv" rts_argv_p :: Ptr (Ptr CString)
foreign import ccall "&rts_argc" rts_argc_p :: Ptr CInt

main = print =<< getRTSArgs

getRTSArgs :: IO [String]
getRTSArgs =
  do rts_argv <- peek rts_argv_p
     ptrs <- peekArray0 nullPtr rts_argv
     mapM peekCString ptrs