Changeset 12484 for src/Pugs/Val

Timestamp:

08/19/06 22:43:33 (2 years ago)

Author:

luqui

Message:

* Added the beginnings of Code::signature (returning a VV Sig).
* Changed all references to Val from AST/Internals to qualified.

Files:

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

src/Pugs/Val/Code.hs

@@ -105 +105 @@
     , p_unpacking   :: Maybe PureSig -- ^ E.g. BinTree $t (Left $l, Right $r)
     , p_default     :: ParamDefault  -- ^ E.g. $answer? = 42
-    , p_label       :: ID            -- ^ E.g. :mode
+    , p_label       :: ID            -- ^ The external name for the param ('m' above)
     , p_slots       :: Table         -- ^ Any additional attrib not
                                      --   explicitly mentioned below
     , p_hasAccess   :: ParamAccess   -- ^ is ro, is rw, is copy
-    , p_isRef       :: Bool
+    , p_isRef       :: Bool          -- ^ must be true if hasAccess = AccessRW
     , p_isLazy      :: Bool
     }
@@ -134 +134 @@
     | AccessCopy
     deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
+
+instance ICoercible P Sig where
+        asStr _ = return (cast "<sig>")  -- XXX
+
+instance Pure Sig where {}
+        
 
 --------------------------------------------------------------------------------------