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

Timestamp:

02/02/07 04:10:20 (22 months ago)

Author:

audreyt

Message:

* Filetest operators are now removed; use smartmatch against Pairs instead:

-e 'README'

!-e 'README'

becomes:

'README':e
'README':!e

Files:

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

src/Pugs/Prim/Match.hs

@@ -12 +12 @@
 import qualified Data.Map as Map
 import qualified Data.Array as Array
+import qualified Pugs.Prim.FileTest as FileTest
 
 -- XXX - kluge: before we figure out the parrot calling convention,
@@ -122 +123 @@
     op2Match x y'
 
+op2Match x (VRef (MkRef (IPair pv))) = do 
+    -- Pair match: ~~ :e executes the -e filetest.
+    (k, v)  <- pair_fetch pv
+    isTrue  <- fromVal v :: Eval Bool
+    testOp  <- fromVal k
+    file    <- fromVal x
+    rv      <- ($ file) $ case testOp of
+        "r" -> FileTest.isReadable
+        "w" -> FileTest.isWritable
+        "x" -> FileTest.isExecutable
+        "e" -> FileTest.exists
+        "z" -> FileTest.sizeIsZero
+        "s" -> FileTest.fileSize
+        "M" -> FileTest.fileMTime
+        "A" -> FileTest.fileATime
+        "C" -> FileTest.fileCTime
+        "f" -> FileTest.isFile
+        "d" -> FileTest.isDirectory
+        _   -> const $ die "Unknown file test operator" testOp
+    if isTrue
+        then return rv
+        else fmap (castV . not) (fromVal rv)
+
 op2Match x (VRef y) = do
     y' <- readRef y