Changeset 12150 for src/Pugs/Val

Timestamp:

08/12/06 07:40:18 (2 years ago)

Author:

gaal

Message:

* Captures in da house

Files:

• src/Pugs/Val/Code.hs (modified) (2 diffs)

src/Pugs/Val/Code.hs

@@ -49 +49 @@
     deriving (Show, Eq, Ord, Data, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
 
+--------------------------------------------------------------------------------------
 
 -- | AST for function signature. Separated to method and function variants
@@ -110 +111 @@
     deriving (Show, Eq, Ord, Data, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
 
+--------------------------------------------------------------------------------------
+
+-- | Capture.
+data Cap 
+    = CaptMeth
+        { c_invocant :: Exp
+        , c_argstack :: [Arglist]
+        }
+    | CaptSub
+        { c_argstack :: [Arglist]
+        }
+    deriving (Show, Eq, Ord, Data, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
+
+data Arglist = MkArglist
+    { a_positional :: [Exp]
+    , a_named      :: Map Ident [Exp]
+    }
+    deriving (Show, Eq, Ord, Data, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
+
 type Exp = () -- XXX bogus