Changeset 12924 for src/Pugs/Val

Timestamp:

09/01/06 15:11:03 (2 years ago)

Author:

gaal

Message:

* Basic support for parsing Signatures with :().

Only named parameters are parsed, and optionals (incorrectly)
require a '?' even if they have a default value. No parameter
decoration (type constraints, access traits, etc.) is supported
yet. The following forms do work:

:($x:)
:($x)
:($x: $y, $z)
:($x: $y, $z? = 42)
:($x: $y?, $z) # correctly raises a parse error

Files:

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

src/Pugs/Val/Code.hs

@@ -97 +97 @@
 values.
 -}
-data Param = MkParam
+data SigParam = MkParam
     { p_variable    :: ID            -- ^ E.g. $m above
     , p_types       :: [Types.Type]  -- ^ Static pieces of inferencer-food
@@ -113 +113 @@
     }
     deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
+
+type Param = SigParam -- to get around name clashes in Pugs.AST :(
 
 newtype CodeBody = MkCodeBody [Stmt]