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/trunk/src/system/Basis/Implementation/Posix/posix-io.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/Posix/posix-io.sml

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

revision 1714, Wed Nov 24 19:59:47 2004 UTC revision 1715, Wed Nov 24 20:27:30 2004 UTC
# Line 147  Line 147 
147          fun pid (FLOCK fv) = #pid fv          fun pid (FLOCK fv) = #pid fv
148        end        end
149    
150      type flock_rep = s_int * s_int * Position.int * Position.int * s_int      type flock_rep = s_int * s_int * Int31.int * Int31.int * s_int
151    
152      val fcntl_l : s_int * s_int * flock_rep -> flock_rep = cfun "fcntl_l"      val fcntl_l : s_int * s_int * flock_rep -> flock_rep = cfun "fcntl_l"
153      val f_getlk = osval "F_GETLK"      val f_getlk = osval "F_GETLK"
# Line 187  Line 187 
187      fun setlkw (fd, flock) =      fun setlkw (fd, flock) =
188            flockFromRep(false,fcntl_l(FS.intOf fd,f_setlkw,flockToRep flock))            flockFromRep(false,fcntl_l(FS.intOf fd,f_setlkw,flockToRep flock))
189    
190      val lseek' : s_int * Position.int * s_int -> Position.int = cfun "lseek"      val lseek' : s_int * Int31.int * s_int -> Int31.int = cfun "lseek"
191      fun lseek (fd,offset,whence) = lseek'(FS.intOf fd,offset, whToWord whence)      fun lseek (fd,offset,whence) = lseek'(FS.intOf fd,offset, whToWord whence)
192    
193      val fsync' : s_int -> unit = cfun "fsync"      val fsync' : s_int -> unit = cfun "fsync"

Legend:
Removed from v.1714  
changed lines
  Added in v.1715

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