Context Navigation

Perl5.hs

Timestamp:

05/25/05 02:48:29 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* init dynaloader; add ccopts back.

Files:

r3840	r3843
35	35	perl_construct :: PerlInterpreter -> IO ()
36	36	foreign import ccall "perl.h perl_parse"
37		perl_parse :: PerlInterpreter -> FunPtr () -> CInt -> Ptr CString -> Ptr CString -> IO CInt
	37	perl_parse :: PerlInterpreter -> FunPtr (Ptr () -> IO ()) -> CInt -> Ptr CString -> Ptr CString -> IO CInt
38	38	foreign import ccall "perl.h perl_run"
39	39	perl_run :: PerlInterpreter -> IO CInt
…	…
44	44	foreign import ccall "perl.h Perl_eval_pv"
45	45	eval_pv :: CString -> Word32 -> IO ()
	46	foreign import ccall "perl.h newXS"
	47	newXS :: CString -> FunPtr () -> CString -> IO ()
	48	foreign import ccall "perl.h boot_DynaLoader"
	49	boot_DynaLoader :: Ptr () -> IO ()
	50	foreign import ccall "wrapper"
	51	mkBootCallback :: (Ptr () -> IO ()) -> IO (FunPtr (Ptr () -> IO ()))
46	52
47	53	initPerl5 :: String -> IO PerlInterpreter
…	…
49	55	my_perl <- perl_alloc
50	56	perl_construct my_perl
	57	-- callback <- mkBootCallback boot_DynaLoader
51	58	withCString "-e" $ \prog -> withCString str $ \cstr -> do
52	59	withArray [prog, prog, cstr] $ \argv -> do