Changeset 2300 for src/Pugs/External.hs

Timestamp:

04/24/05 18:58:13 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3669

Message:

* New, much much faster implementation type for Pad:

type Pad = Map Var [IORef VRef]

Files:

• src/Pugs/External.hs (modified) (2 diffs)

src/Pugs/External.hs

@@ -13 +13 @@
 import Pugs.Internals
 import Pugs.AST
-import Pugs.Types
 import Pugs.External.Haskell (externalizeHaskell, loadHaskell)
 
@@ -38 +37 @@
     liftIO $ do
         bindings    <- externLoad lang name
-        newSyms     <- mapM gensym bindings
-        modifyIORef glob (newSyms ++)
+        newSyms     <- mapM gen bindings
+        modifyIORef glob (\pad -> combine newSyms pad)
     where
-    gensym (name, fun) = genSym ('&':name) . codeRef $ MkCode
-        { isMulti       = True
-        , subName       = ('&':name)
-        , subPad        = []
-        , subType       = SubPrim
-        , subAssoc      = "pre"
+    gen (name, fun) = genSym ('&':name) . codeRef $ mkPrim
+        { subName       = ('&':name)
         , subParams     = [buildParam "List" "" "*@?1" (Val VUndef)]
-        , subBindings   = []
-        , subReturns    = anyType
-        , subSlurpLimit = []
         , subFun        = (Prim fun)
         }