Context Navigation

Perl5.hs

Timestamp:

05/26/05 23:10:37 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* marshall pugs execution environment into $pugs::env.

Files:

r3918	r3919
17	17	freePerl5 _ = return ()
18	18
19		evalPerl5 :: String -> CInt -> IO PerlSV
20		evalPerl5 _ = constFail
	19	evalPerl5 :: String -> PerlSV -> CInt -> IO PerlSV
	20	evalPerl5 _ _ = constFail
21	21
22	22	svToVStr :: PerlSV -> IO String
…	…
49	49	canPerl5 :: PerlSV -> String -> IO Bool
50	50	canPerl5 _ = constFail
	51
	52	nullSV :: PerlSV
	53	nullSV = error "perl5 not embedded"
51	54
52	55	#else
…	…
93	96	perl5_can :: PerlSV -> CString -> IO Bool
94	97	foreign import ccall "perl.h perl5_eval"
95		perl5_eval :: CString -> CInt -> IO PerlSV
	98	perl5_eval :: CString -> PerlSV -> CInt -> IO PerlSV
96	99	foreign import ccall "perl5.h perl5_init"
97	100	perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter
…	…
147	150	canPerl5 sv meth = withCString meth $ \cstr -> perl5_can sv cstr
148	151
149		evalPerl5 :: String -> CInt -> IO PerlSV
150		evalPerl5 str ~~cxt = withCString str $ \cstr -> perl5_eval cstr~~ cxt
	152	evalPerl5 :: String -> PerlSV -> CInt -> IO PerlSV
	153	evalPerl5 str env cxt = withCString str $ \cstr -> perl5_eval cstr env cxt
151	154
152	155	freePerl5 :: PerlInterpreter -> IO ()
…	…
155	158	return ()
156	159
	160	nullSV :: PerlSV
	161	nullSV = nullPtr
	162
157	163	#endif
158	164