Changeset 3848 for src/Pugs/Embed/Perl5.hs
- Timestamp:
- 05/25/05 03:25:15 (4 years ago)
- svk:copy_cache_prev:
- 5385
- Files:
-
- 1 modified
-
src/Pugs/Embed/Perl5.hs (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Embed/Perl5.hs
r3846 r3848 8 8 9 9 type PerlInterpreter = () 10 type PerlSV = () 10 11 11 12 initPerl5 :: String -> IO PerlInterpreter … … 28 29 29 30 type PerlInterpreter = Ptr () 31 type PerlSV = Ptr () 30 32 31 33 foreign import ccall "perl.h perl_alloc" … … 33 35 foreign import ccall "perl.h perl_construct" 34 36 perl_construct :: PerlInterpreter -> IO () 35 foreign import ccall "perl.h perl_parse"36 perl_parse :: PerlInterpreter -> FunPtr (Ptr () -> IO ()) -> CInt -> Ptr CString -> Ptr CString -> IO CInt37 37 foreign import ccall "perl.h perl_run" 38 38 perl_run :: PerlInterpreter -> IO CInt … … 42 42 perl_free :: PerlInterpreter -> IO () 43 43 foreign import ccall "perl.h Perl_eval_pv" 44 eval_pv :: CString -> Word32 -> IO () 45 foreign import ccall "perl.h Perl_newXS" 46 newXS :: CString -> FunPtr () -> CString -> IO () 47 foreign import ccall "perl.h boot_DynaLoader" 48 boot_DynaLoader :: Ptr () -> IO () 49 foreign import ccall "wrapper" 50 mkBootCallback :: (Ptr () -> IO ()) -> IO (FunPtr (Ptr () -> IO ())) 44 eval_pv :: CString -> Word32 -> IO PerlSV 51 45 foreign import ccall "perl5.h perl5_init" 52 46 perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter
