Show
Ignore:
Timestamp:
08/14/05 19:25:02 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
8452
Message:

* JSON serialization. Deserialization for JSON and Binary

should be trivial, too.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/CodeGen/Perl5.hs

    r6248 r6250  
    1111genPerl5 :: Eval Val 
    1212genPerl5 = do 
    13     penv <- compile () 
    14     return . VStr . unlines $ 
    15         [ "bless({" 
    16         , "    pilMain => " ++ showPerl5 (pilMain penv) ++ "," 
    17         , "    pilGlob => " ++ showPerl5 (pilGlob penv) 
    18         , "} => 'PIL::Environment')" 
    19         ] 
     13    penv <- compile () :: Eval PIL_Environment 
     14    return . VStr . unlines $ [showPerl5 penv]