Changeset 7413 for src/Pugs/Embed/Perl5.hs

Timestamp:

10/07/05 22:45:57 (3 years ago)

Author:

autrijus

Message:

* rename perl5.[ch] into p5embed.[ch] to avoid silly

case-insensitive filesystems.

Files:

• src/Pugs/Embed/Perl5.hs (modified) (2 diffs)

src/Pugs/Embed/Perl5.hs

@@ -65 +65 @@
 #else
 
-{-# INCLUDE <perl5.h> #-}
+{-# INCLUDE <p5embed.h> #-}
 {-# INCLUDE <pugsembed.h> #-}
 
@@ -90 +90 @@
 foreign import ccall "perl.h boot_DynaLoader"
     boot_DynaLoader :: Ptr () -> IO ()
-foreign import ccall "perl5.h perl5_finalize"
+foreign import ccall "p5embed.h perl5_finalize"
     perl5_finalize :: PerlSV -> IO ()
-foreign import ccall "perl5.h perl5_SvPV"
+foreign import ccall "p5embed.h perl5_SvPV"
     perl5_SvPV :: PerlSV -> IO CString
-foreign import ccall "perl5.h perl5_SvIV"
+foreign import ccall "p5embed.h perl5_SvIV"
     perl5_SvIV :: PerlSV -> IO CInt
-foreign import ccall "perl5.h perl5_SvNV"
+foreign import ccall "p5embed.h perl5_SvNV"
     perl5_SvNV :: PerlSV -> IO CDouble
-foreign import ccall "perl5.h perl5_SvTRUE"
+foreign import ccall "p5embed.h perl5_SvTRUE"
     perl5_SvTRUE :: PerlSV -> IO Bool
-foreign import ccall "perl5.h perl5_newSVpv"
+foreign import ccall "p5embed.h perl5_newSVpv"
     perl5_newSVpv :: CString -> IO PerlSV
-foreign import ccall "perl5.h perl5_newSViv"
+foreign import ccall "p5embed.h perl5_newSViv"
     perl5_newSViv :: CInt -> IO PerlSV
-foreign import ccall "perl5.h perl5_newSVnv"
+foreign import ccall "p5embed.h perl5_newSVnv"
     perl5_newSVnv :: CDouble -> IO PerlSV
-foreign import ccall "perl5.h perl5_get_sv"
+foreign import ccall "p5embed.h perl5_get_sv"
     perl5_get_sv :: CString -> IO PerlSV
-foreign import ccall "perl5.h perl5_apply"
+foreign import ccall "p5embed.h perl5_apply"
     perl5_apply :: PerlSV -> PerlSV -> Ptr PerlSV -> PugsVal -> CInt -> IO (Ptr PerlSV)
-foreign import ccall "perl5.h perl5_can"
+foreign import ccall "p5embed.h perl5_can"
     perl5_can :: PerlSV -> CString -> IO Bool
-foreign import ccall "perl5.h perl5_eval"
+foreign import ccall "p5embed.h perl5_eval"
     perl5_eval :: CString -> PugsVal -> CInt -> IO PerlSV
-foreign import ccall "perl5.h perl5_init"
+foreign import ccall "p5embed.h perl5_init"
     perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter