[project @ 2000-10-27 09:36:39 by sewardj]

No longer needed.  Bye bye Argv!

ghc/compiler/utils/Argv.lhs

-%
-% (c) The AQUA Project, Glasgow University, 1996-1998
-%
-\section[Argv]{@Argv@: direct (non-standard) access to command-line arguments}
-
-\begin{code}
-module Argv ( argv ) where
-
-#include "HsVersions.h"
-
-import FastString
-
-#if __GLASGOW_HASKELL__ <= 302
-import GlaExts		( Addr )
-import ByteArray 	( indexAddrOffAddr )
-#else
-import Addr		( Addr, indexAddrOffAddr )
-#endif
-
-argv :: [FAST_STRING]
-argv = unpackArgv ``prog_argv'' (``prog_argc''::Int)
-
-unpackArgv :: Addr -> Int -> [FAST_STRING] -- argv[1 .. argc-1]
-
-unpackArgv argv argc = unpack 1
-  where
-    unpack :: Int -> [FAST_STRING]
-    unpack n
-      | n >= argc = []
-      | otherwise =
-	 case (indexAddrOffAddr argv n) of 
-	   item -> mkFastCharString item : unpack (n + 1)
-
-\end{code}