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/SMLNJ/src/runtime/c-libs/posix-filesys/utime.c
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/runtime/c-libs/posix-filesys/utime.c

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 12  Line 12 
12  #include "ml-c.h"  #include "ml-c.h"
13  #include "cfun-proto-list.h"  #include "cfun-proto-list.h"
14    
15  /* _ml_P_FileSys_utime : (string * int * int) -> unit  /* _ml_P_FileSys_utime : (string * Int32.int * Int32.int) -> unit
16   *                        name     actime modtime   *                        name     actime modtime
17   *   *
18   * Sets file access and modification times. If   * Sets file access and modification times. If
# Line 21  Line 21 
21  ml_val_t _ml_P_FileSys_utime (ml_state_t *msp, ml_val_t arg)  ml_val_t _ml_P_FileSys_utime (ml_state_t *msp, ml_val_t arg)
22  {  {
23      char            *path = REC_SELPTR(char, arg, 0);      char            *path = REC_SELPTR(char, arg, 0);
24      time_t          actime = REC_SELINT(arg, 1);      time_t          actime = REC_SELINT32(arg, 1);
25      time_t          modtime = REC_SELINT(arg, 2);      time_t          modtime = REC_SELINT32(arg, 2);
26      int             sts;      int             sts;
27    
28      if (actime == -1) {      if (actime == -1) {

Legend:
Removed from v.7  
changed lines
  Added in v.8

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