Changeset 12151 for src/Pugs/Val

Timestamp:

08/12/06 08:04:27 (2 years ago)

Author:

gaal

Message:

* add missing fields in Code for ENTER, LEAVE, CATCH and CONTROL.

Files:

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

src/Pugs/Val/Code.hs

@@ -23 +23 @@
         , c_traits            :: Table     -- ^ Any additional trait not
                                            --   explicitly mentioned below
-        , c_preBlocks         :: [Code]
+        , c_preBlocks         :: [Code]    -- ^ DBC hooks: pre(\$args --> Bool) 
         , c_postBlocks        :: [Code]
+        , c_enterBlocks       :: [Code]    -- ^ AOPish hooks
+        , c_leaveBlocks       :: [Code]
         , c_firstBlocks       :: [Code]
         , c_lastBlocks        :: [Code]
@@ -30 +32 @@
         , c_keepBlocks        :: [Code]
         , c_undoBlocks        :: [Code]
+        , c_undoBlocks        :: [Code]
+        , c_catchBlock        :: Maybe Code
+        , c_controlBlock      :: Maybe Code
         }
     | CodePrim