Changeset 2956 for src/Pugs/Bind.hs

Timestamp:

05/11/05 02:17:58 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4498

Message:

* Initial sketch of class and object support.

Files:

• src/Pugs/Bind.hs (modified) (3 diffs)

src/Pugs/Bind.hs

@@ -26 +26 @@
           -> [Param] -- ^ List of parameters to try binding; includes both
                      --     named params and positional params
-          -> (Bindings, [Exp], [Param]) -- ^ Bindings made; remaining (unbound)
-                                        --     named args; remaining
-                                        --     (positional) params
+          -> (Bindings, [Exp], [Param]) -- ^ Bindings made;
+                                        --   remaining (unbound) named args;
+                                        --   remaining (positional) params
 bindNames exps prms = (bound, exps', prms')
     where
@@ -37 +37 @@
         = ( ((prm, exp) : bound), exps )
         | otherwise
-        = ( bound, (exp:exps) )
+        = ( bound, (Syn "=>" [Val (VStr name), exp]:exps) )
 
 emptyHashExp :: Exp
@@ -59 +59 @@
     first <- (bindHash vs [p])
     return $ first ++ (ps `zip` repeat emptyHashExp)
-bindHash vs [p]         = return [ (p, Syn "\\{}" vs) ] -- XXX cast to Hash
+bindHash vs [p]         = return [ (p, Syn "\\{}" [Syn "," vs]) ] -- XXX cast to Hash
 
 bindArray :: [Exp] -> [Param] -> SlurpLimit -> MaybeError (Bindings, SlurpLimit)