Changeset 21710 for util

Timestamp:

08/01/08 16:28:08 (4 months ago)

Author:

audreyt

Message:

* A better gen_prelude.pl that takes the FFI-based inclusion into account.

Files:

• util/gen_prelude.pl (modified) (2 diffs)

util/gen_prelude.pl

@@ -70 +70 @@
 
     print OUT <<'.';
+{-# LANGUAGE ForeignFunctionInterface #-}
 module Pugs.Prelude where
+import Foreign.C.String
+import Data.ByteString.Unsafe (unsafePackCStringLen)
+import System.IO.Unsafe
+import qualified Data.ByteString as S
+import qualified Data.ByteString.Lazy as L
 
 {-
@@ -86 +92 @@
 --                  util/gen_prelude.pl                       --
 ----------------------------------------------------------------
+
+{-# NOINLINE preludeByteString #-}
+preludeByteString :: S.ByteString
+preludeByteString = unsafePerformIO $ unsafePackCStringLen (text__prelude_pm, size__prelude_pm)
+
+preludeByteStringLazy :: L.ByteString
+preludeByteStringLazy = L.fromChunks [preludeByteString]
+
+{-# NOINLINE testByteString #-}
+testByteString :: S.ByteString
+testByteString = unsafePerformIO $ unsafePackCStringLen (text__test_pm, size__test_pm)
+
+testByteStringLazy :: L.ByteString
+testByteStringLazy = L.fromChunks [testByteString]
+
+foreign import ccall unsafe "text__prelude_pm"
+    text__prelude_pm :: CString
+foreign import ccall unsafe "size__prelude_pm"
+    size__prelude_pm :: Int
+
+foreign import ccall unsafe "text__test_pm"
+    text__test_pm :: CString
+foreign import ccall unsafe "size__test_pm"
+    size__test_pm :: Int
 
 preludeStr :: String