Changeset 2656 for src/Pugs/Prim.hs

Show
Ignore:
Timestamp:
05/03/05 20:15:53 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
4152
Message:

* experimental require_parrot() support.

(set the PUGS_EMBED env var to "parrot" to activate.)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim.hs

    r2645 r2656  
    182182    externRequire "Haskell" name 
    183183    return $ VBool True 
     184op1 "require_parrot" = \v -> do 
     185    name    <- fromVal v 
     186    liftIO $ evalParrot name 
     187    return $ VBool True 
    184188op1 "require" = \v -> do 
    185189    file    <- fromVal v 
    … …  
    14491453\\n   Any       pre     require (?Str=$_)\ 
    14501454\\n   Any       pre     require_haskell (Str)\ 
     1455\\n   Any       pre     require_parrot  (Str)\ 
    14511456\\n   Any       pre     last    (?Int=1)\ 
    14521457\\n   Any       pre     next    (?Int=1)\