Changeset 14480 for src/Pugs/Prim.hs

Timestamp:

10/22/06 09:49:01 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

21625

Message:

* Pugs.Types: IO::Dir is not a subtype of IO, really...
* Pugs.Prim: Socket::close and IO::close should be two different things.

Files:

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

src/Pugs/Prim.hs

@@ -550 +550 @@
     return $ VSocket socket
 op1 "flush" = guardedIO hFlush
-op1 "close" = \v -> do
-    case v of
-        (VSocket _) -> guardedIO sClose v
-        _           -> guardedIO hClose v
+op1 "IO::close" = guardedIO hClose
+op1 "Socket::close" = guardedIO sClose
 op1 "Pair::key" = fmap fst . (fromVal :: Val -> Eval VPair)
 op1 "Pair::value" = \v -> do
@@ -1952 +1950 @@
 \\n   Bool      pre     say     safe (List)\
 \\n   Bool      pre     Pugs::Safe::safe_print     safe     (Str)\
-\\n   Bool      pre     close   unsafe (IO)\
 \\n   Bool      pre     flush   unsafe (IO)\
-\\n   Bool      pre     close   unsafe (Socket)\
+\\n   Bool      pre     IO::close   unsafe (IO:)\
+\\n   Bool      pre     Socket::close   unsafe (Socket:)\
 \\n   Bool      pre     die     safe   (?Object)\
 \\n   Bool      pre     warn    safe   (List)\
@@ -2140 +2138 @@
 \\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::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   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::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)\
 \\n   Str       pre     Pugs::Internals::rule_pattern safe (Regex)\