Context Navigation

Perl5.hs

Timestamp:

05/27/05 16:36:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* refactor newSVval to handler Val->PerlSV casting.
* beginning of unifying two GCs together.

Files:

r3957	r3975
78	78	val <- runEvalIO env $
79	79	evalExp (Cxt (cxtEnum cxt) $ App subExp (fmap Val inv) (map Val args))
80		case val of
81		PerlSV sv -> return sv
82		VStr str -> vstrToSV str
83		VBool bool -> vintToSV (fromEnum bool)
84		VInt int -> vintToSV int
85		VRat rat -> vnumToSV rat
86		VNum num -> vnumToSV num
87		_ -> mkValRef val
	80	newSVval val
88	81
89	82	deVal :: PugsVal -> IO Val
…	…
102	95	-- print "1"
103	96	val <- deVal ptr
104		case val of
105		PerlSV sv -> return sv
106		_ -> mkValRef val
	97	newSVval val
	98
	99	newSVval :: Val -> IO PerlSV
	100	newSVval val = case val of
	101	PerlSV sv -> return sv
	102	VStr str -> vstrToSV str
	103	VBool bool -> vintToSV (fromEnum bool)
	104	VInt int -> vintToSV int
	105	VRat rat -> vnumToSV rat
	106	VNum num -> vnumToSV num
	107	_ -> mkValRef val
107	108
108	109	valToIv :: PugsVal -> IO CInt