Changeset 7579 for src/Pugs/Embed
- Timestamp:
- 10/12/05 17:11:11 (3 years ago)
- Files:
-
- 1 modified
-
src/Pugs/Embed/Perl5.hs (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Embed/Perl5.hs
r7553 r7579 65 65 #else 66 66 67 {-# INCLUDE <p5embed.h>#-}68 {-# INCLUDE <pugsembed.h>#-}67 {-# INCLUDE "../../perl5/p5embed.h" #-} 68 {-# INCLUDE "../../perl5/pugsembed.h" #-} 69 69 70 70 module Pugs.Embed.Perl5 where … … 91 91 foreign import ccall "perl.h boot_DynaLoader" 92 92 boot_DynaLoader :: Ptr () -> IO () 93 foreign import ccall " p5embed.h perl5_finalize"93 foreign import ccall "../../perl5/p5embed.h perl5_finalize" 94 94 perl5_finalize :: PerlSV -> IO () 95 foreign import ccall " p5embed.h perl5_SvPV"95 foreign import ccall "../../perl5/p5embed.h perl5_SvPV" 96 96 perl5_SvPV :: PerlSV -> IO CString 97 foreign import ccall " p5embed.h perl5_SvIV"97 foreign import ccall "../../perl5/p5embed.h perl5_SvIV" 98 98 perl5_SvIV :: PerlSV -> IO CInt 99 foreign import ccall " p5embed.h perl5_SvNV"99 foreign import ccall "../../perl5/p5embed.h perl5_SvNV" 100 100 perl5_SvNV :: PerlSV -> IO CDouble 101 foreign import ccall " p5embed.h perl5_SvTRUE"101 foreign import ccall "../../perl5/p5embed.h perl5_SvTRUE" 102 102 perl5_SvTRUE :: PerlSV -> IO Bool 103 foreign import ccall " p5embed.h perl5_newSVpv"103 foreign import ccall "../../perl5/p5embed.h perl5_newSVpv" 104 104 perl5_newSVpv :: CString -> IO PerlSV 105 foreign import ccall " p5embed.h perl5_newSViv"105 foreign import ccall "../../perl5/p5embed.h perl5_newSViv" 106 106 perl5_newSViv :: CInt -> IO PerlSV 107 foreign import ccall " p5embed.h perl5_newSVnv"107 foreign import ccall "../../perl5/p5embed.h perl5_newSVnv" 108 108 perl5_newSVnv :: CDouble -> IO PerlSV 109 foreign import ccall " p5embed.h perl5_get_sv"109 foreign import ccall "../../perl5/p5embed.h perl5_get_sv" 110 110 perl5_get_sv :: CString -> IO PerlSV 111 foreign import ccall " p5embed.h perl5_apply"111 foreign import ccall "../../perl5/p5embed.h perl5_apply" 112 112 perl5_apply :: PerlSV -> PerlSV -> Ptr PerlSV -> PugsVal -> CInt -> IO (Ptr PerlSV) 113 foreign import ccall " p5embed.h perl5_can"113 foreign import ccall "../../perl5/p5embed.h perl5_can" 114 114 perl5_can :: PerlSV -> CString -> IO Bool 115 foreign import ccall " p5embed.h perl5_eval"115 foreign import ccall "../../perl5/p5embed.h perl5_eval" 116 116 perl5_eval :: CString -> PugsVal -> CInt -> IO PerlSV 117 foreign import ccall " p5embed.h perl5_init"117 foreign import ccall "../../perl5/p5embed.h perl5_init" 118 118 perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter 119 119 120 foreign import ccall " pugsembed.h pugs_getenv"120 foreign import ccall "../../perl5/pugsembed.h pugs_getenv" 121 121 pugs_getenv :: IO PugsVal 122 foreign import ccall " pugsembed.h pugs_setenv"122 foreign import ccall "../../perl5/pugsembed.h pugs_setenv" 123 123 pugs_setenv :: PugsVal -> IO () 124 124 125 foreign import ccall " pugsembed.h pugs_SvToVal"125 foreign import ccall "../../perl5/pugsembed.h pugs_SvToVal" 126 126 pugs_SvToVal :: PerlSV -> IO PugsVal 127 foreign import ccall " pugsembed.h pugs_MkValRef"127 foreign import ccall "../../perl5/pugsembed.h pugs_MkValRef" 128 128 pugs_MkValRef :: PugsVal -> IO PerlSV 129 129
