Changeset 14475 for src/Pugs/Prim.hs

Timestamp:

10/22/06 01:37:56 (2 years ago)

Author:

yiyihu

svk:copy_cache_prev:

21625

Message:

r14635@HomePc?: xinming | 2006-10-22 01:26:30 +0000
Update t/builtins/io/dir.t file.
Added testing for short version of IO::Dir class.
read rewind close etc...

r14636@HomePc?: xinming | 2006-10-22 01:28:58 +0000
Alias rewinddir readdir to rewind read for IO::Dir class.
rewinddir and readdir still works.

Files:

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

src/Pugs/Prim.hs

@@ -457 +457 @@
     obj <- createObject (mkType "IO::Dir") []
     return . VObject $ obj{ objOpaque = Just $ toDyn dir }
-op1 "IO::Dir::close" = guardedIO (closeDirStream . fromObject)
+op1 "IO::Dir::close" = op1 "IO::Dir::closedir"
 op1 "IO::Dir::closedir" = guardedIO (closeDirStream . fromObject)
+op1 "IO::Dir::rewind" = op1 "IO::Dir::rewinddir"
 op1 "IO::Dir::rewinddir" = guardedIO (rewindDirStream . fromObject)
+op1 "IO::Dir::read" = op1 "IO::Dir::readdir"
 op1 "IO::Dir::readdir" = \v -> do
     dir <- fmap fromObject (fromVal v)
@@ -2138 +2140 @@
 \\n   Any       pre     Code::retry_with    safe   (List)\
 \\n   IO::Dir   pre     opendir    unsafe (Str)\
+\\n   Str       pre     IO::Dir::read       unsafe,export (IO::Dir)\
+\\n   List      pre     IO::Dir::read       unsafe,export (IO::Dir)\
 \\n   Str       pre     IO::Dir::readdir    unsafe,export (IO::Dir)\
 \\n   List      pre     IO::Dir::readdir    unsafe,export (IO::Dir)\
-\\n   Bool      pre     IO::Dir::close   unsafe,export (IO::Dir)\
+\\n   Bool      pre     IO::Dir::close      unsafe,export (IO::Dir)\
 \\n   Bool      pre     IO::Dir::closedir   unsafe,export (IO::Dir)\
+\\n   Bool      pre     IO::Dir::rewind     unsafe,export (IO::Dir)\
 \\n   Bool      pre     IO::Dir::rewinddir  unsafe,export (IO::Dir)\
 \\n   Any       pre     Pugs::Internals::reduceVar  unsafe (Str)\