Changeset 2957 for src/Pugs/Prim/Match.hs

Timestamp:

05/11/05 02:32:56 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4498

Message:

* $obj.clone() support.
* $obj ~~ Class support.

Files:

• src/Pugs/Prim/Match.hs (modified) (2 diffs)

src/Pugs/Prim/Match.hs

@@ -9 +9 @@
 import Pugs.AST
 import Pugs.Types
+import Pugs.Context
 import Pugs.Config
 import qualified RRegex.PCRE as PCRE
@@ -67 +68 @@
     y' <- readRef y
     op2Match x y'
+
+op2Match x (VType t) = do
+    typ <- evalValType x
+    cls <- asks envClasses
+    return $ VBool (isaType cls (showType t) typ)
 
 op2Match x (VSubst (rx, subst)) | rxGlobal rx = do