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

Diff of /sml/trunk/src/system/Basis/Implementation/Posix/posix-filesys.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 171  Line 171 
171      val rmdir : string -> unit = cfun "rmdir"      val rmdir : string -> unit = cfun "rmdir"
172      val readlink : string -> string = cfun "readlink"      val readlink : string -> string = cfun "readlink"
173    
174      val ftruncate' : s_int * Position.int -> unit = cfun "ftruncate"      val ftruncate' : s_int * Int31Imp.int -> unit = cfun "ftruncate"
175      fun ftruncate (FD{fd,...}, len) = ftruncate' (fd, len);      fun ftruncate (FD{fd,...}, len) = ftruncate' (fd, len);
176    
177      datatype dev = DEV of word      datatype dev = DEV of word
# Line 230  Line 230 
230        * word                    (* nlink *)        * word                    (* nlink *)
231        * word                    (* uid *)        * word                    (* uid *)
232        * word                    (* gid *)        * word                    (* gid *)
233        * Position.int            (* size *)        * Int31.int               (* size *)
234        * Int32.int               (* atime *)        * Int32.int               (* atime *)
235        * Int32.int               (* mtime *)        * Int32.int               (* mtime *)
236        * Int32.int               (* ctime *)        * Int32.int               (* ctime *)

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