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-process.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/Posix/posix-process.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 93  Line 93 
93          fun fromWord w = WF w          fun fromWord w = WF w
94          fun toWord (WF w) = w          fun toWord (WF w) = w
95    
96            val all = WF (SysWord.notb 0w0) (* too much? *)
97    
98          fun flags ms = WF(List.foldl (fn (WF m,acc) => m ++ acc) 0w0 ms)          fun flags ms = WF(List.foldl (fn (WF m,acc) => m ++ acc) 0w0 ms)
99            fun intersect ms = WF (List.foldl (fn (WF m, acc) => m & acc)
100                                              (SysWord.notb 0w0) ms)
101            fun clear (WF m, WF m') = WF (SysWord.notb m & m')
102          fun anySet (WF m, WF m') = (m & m') <> 0w0          fun anySet (WF m, WF m') = (m & m') <> 0w0
103          fun allSet (WF m, WF m') = (m & m') = m          fun allSet (WF m, WF m') = (m & m') = m
104    
# Line 135  Line 140 
140    
141      val pause : unit -> unit = cfun "pause"      val pause : unit -> unit = cfun "pause"
142    
143        fun fromStatus 0 = W_EXITED
144          | fromStatus x = W_EXITSTATUS (Word8Imp.fromInt x)(* FIXME: information loss!!! *)
145    
146    end (* structure POSIX_Process *)    end (* structure POSIX_Process *)
147  end  end

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