Changeset 15165 for src/Pugs/Prim.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.hs (modified) (3 diffs)

src/Pugs/Prim.hs

@@ -44 +44 @@
 import Pugs.Prim.Yaml
 import Pugs.Prim.Match
-import qualified Pugs.Prim.FileTest as FileTest
 import Pugs.Prim.List
 import Pugs.Prim.Numeric
@@ -417 +416 @@
 op1 "rmdir" = guardedIO removeDirectory
 op1 "chdir" = guardedIO setCurrentDirectory
-op1 "-r"    = FileTest.isReadable
-op1 "-w"    = FileTest.isWritable
-op1 "-x"    = FileTest.isExecutable
-op1 "-e"    = FileTest.exists
-op1 "-z"    = FileTest.sizeIsZero
-op1 "-s"    = FileTest.fileSize
-op1 "-M"    = FileTest.fileMTime
-op1 "-A"    = FileTest.fileATime
-op1 "-C"    = FileTest.fileCTime
-op1 "-f"    = FileTest.isFile
-op1 "-d"    = FileTest.isDirectory
 op1 "graphs"= op1Cast (VInt . (genericLength :: String -> VInt)) -- XXX Wrong
 op1 "codes" = op1Cast (VInt . (genericLength :: String -> VInt))
@@ -1825 +1813 @@
 \\n   Num       pre     exp     safe   (Num, ?Num)\
 \\n   Num       pre     sqrt    safe   (Num)\
-\\n   Bool      spre    -z      unsafe (Str)\
-\\n   Bool      spre    -r      unsafe (Str)\
-\\n   Bool      spre    -w      unsafe (Str)\
-\\n   Bool      spre    -x      unsafe (Str)\
-\\n   Bool      spre    -e      unsafe (Str)\
-\\n   Int       spre    -s      unsafe (Str)\
-\\n   Num       spre    -M      unsafe (Str)\
-\\n   Num       spre    -A      unsafe (Str)\
-\\n   Num       spre    -C      unsafe (Str)\
-\\n   Bool      spre    -f      unsafe (Str)\
-\\n   Bool      spre    -d      unsafe (Str)\
 \\n   Num       spre    -       safe   (Num)\
 \\n   Str       spre    ~       safe   (Str)\