Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/Posix/posix-filesys.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/Posix/posix-filesys.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 866, Mon Jul 2 16:33:10 2001 UTC revision 867, Mon Jul 2 20:14:11 2001 UTC
# Line 75  Line 75 
75            }            }
76      fun readdir (DS{dirStrm, isOpen = ref false}) =      fun readdir (DS{dirStrm, isOpen = ref false}) =
77            raise Assembly.SysErr("readdir on closed directory stream", NONE)            raise Assembly.SysErr("readdir on closed directory stream", NONE)
78        | readdir (DS{dirStrm, ...}) = readdir' dirStrm        | readdir (DS{dirStrm, ...}) =
79            (case readdir' dirStrm of "" => NONE | n => SOME n)
80      fun rewinddir (DS{dirStrm, isOpen = ref false}) =      fun rewinddir (DS{dirStrm, isOpen = ref false}) =
81            raise Assembly.SysErr("rewinddir on closed directory stream", NONE)            raise Assembly.SysErr("rewinddir on closed directory stream", NONE)
82        | rewinddir (DS{dirStrm, ...}) = rewinddir' dirStrm        | rewinddir (DS{dirStrm, ...}) = rewinddir' dirStrm
# Line 99  Line 100 
100          fun fromWord w = MODE w          fun fromWord w = MODE w
101          fun toWord (MODE w) = w          fun toWord (MODE w) = w
102    
103            val all = MODE (SysWord.notb 0w0)(* too much? *)
104    
105          fun flags ms = MODE(List.foldl (fn (MODE m,acc) => m ++ acc) 0w0 ms)          fun flags ms = MODE(List.foldl (fn (MODE m,acc) => m ++ acc) 0w0 ms)
106            fun intersect ms = MODE(List.foldl (fn (MODE m,acc) => m & acc)
107                                               (SysWord.notb 0w0) ms)
108            fun clear (MODE m, MODE m') = MODE (SysWord.notb m & m')
109          fun anySet (MODE m, MODE m') = (m & m') <> 0w0          fun anySet (MODE m, MODE m') = (m & m') <> 0w0
110          fun allSet (MODE m, MODE m') = (m & m') = m          fun allSet (MODE m, MODE m') = (m & m') = m
111    
# Line 127  Line 133 
133          fun fromWord w = OFL w          fun fromWord w = OFL w
134          fun toWord (OFL w) = w          fun toWord (OFL w) = w
135    
136            val all = OFL (SysWord.notb 0w0)(* too much? *)
137    
138          fun flags ms = OFL(List.foldl (fn (OFL m,acc) => m ++ acc) 0w0 ms)          fun flags ms = OFL(List.foldl (fn (OFL m,acc) => m ++ acc) 0w0 ms)
139            fun intersect ms = OFL(List.foldl (fn (OFL m,acc) => m & acc)
140                                              (SysWord.notb 0w0) ms)
141            fun clear (OFL m, OFL m') = OFL (SysWord.notb m & m')
142          fun anySet (OFL m, OFL m') = (m & m') <> 0w0          fun anySet (OFL m, OFL m') = (m & m') <> 0w0
143          fun allSet (OFL m, OFL m') = (m & m') = m          fun allSet (OFL m, OFL m') = (m & m') = m
144    

Legend:
Removed from v.866  
changed lines
  Added in v.867

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0