Changeset 3975 for src/Pugs/Run

Show
Ignore:
Timestamp:
05/27/05 16:36:18 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
5515
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Run/Perl5.hs

    r3957 r3975  
    7878    val <- runEvalIO env $ 
    7979        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 
    8881 
    8982deVal :: PugsVal -> IO Val 
    … …  
    10295    -- print "1" 
    10396    val <- deVal ptr 
    104     case val of 
    105         PerlSV sv   -> return sv 
    106         _           -> mkValRef val 
     97    newSVval val 
     98 
     99newSVval :: Val -> IO PerlSV 
     100newSVval 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 
    107108 
    108109valToIv :: PugsVal -> IO CInt