Context Navigation

Perl5.hs

Timestamp:

05/26/05 05:57:27 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* Perl 6 values now roundtrip into Perl 5 land and back.

Files:

r3894	r3901
22	22	svToVStr :: PerlSV -> IO String
23	23	svToVStr = constFail
	24
	25	svToVBool :: PerlSV -> IO Bool
	26	svToVBool = constFail
	27
	28	svToAny :: PerlSV -> IO a
	29	svToAny = constFail
	30
	31	anyToSV :: a -> IO PerlSV
	32	anyToSV = constFail
24	33
25	34	vstrToSV :: String -> IO PerlSV
…	…
61	70	foreign import ccall "perl5.h perl5_SvPV"
62	71	perl5_SvPV :: PerlSV -> IO CString
	72	foreign import ccall "perl5.h perl5_SvTRUE"
	73	perl5_SvTRUE :: PerlSV -> IO Bool
	74	foreign import ccall "perl5.h perl5_SvPtr"
	75	perl5_SvPtr :: PerlSV -> IO (StablePtr a)
63	76	foreign import ccall "perl5.h perl5_newSVpv"
64	77	perl5_newSVpv :: CString -> IO PerlSV
65	78	foreign import ccall "perl5.h perl5_newSViv"
66	79	perl5_newSViv :: CInt -> IO PerlSV
	80	foreign import ccall "perl5.h perl5_newSVptr"
	81	perl5_newSVptr :: StablePtr a -> IO PerlSV
67	82	foreign import ccall "perl5.h perl5_call"
68	83	perl5_call :: CString -> CInt -> Ptr PerlSV -> CInt -> IO PerlSV
…	…
82	97	svToVStr :: PerlSV -> IO String
83	98	svToVStr sv = peekCString =<< perl5_SvPV sv
	99
	100	svToVBool :: PerlSV -> IO Bool
	101	svToVBool = perl5_SvTRUE
	102
	103	anyToSV :: a -> IO PerlSV
	104	anyToSV x = do
	105	ptr <- newStablePtr x
	106	perl5_newSVptr ptr
	107
	108	svToAny :: PerlSV -> IO a
	109	svToAny sv = do
	110	ptr <- perl5_SvPtr sv
	111	deRefStablePtr ptr
84	112
85	113	vstrToSV :: String -> IO PerlSV