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/primop-branch-3/system/Basis/Implementation/date.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/system/Basis/Implementation/date.sml

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

revision 2560, Wed May 16 22:24:49 2007 UTC revision 2561, Thu May 17 03:41:11 2007 UTC
# Line 322  Line 322 
322                           | NONE => NONE)                           | NONE => NONE)
323                    | NONE => NONE                    | NONE => NONE
324    
325                (* day can be two digits or one digit preceded by a space *)
326                fun getday s =
327                    case get2dig s
328                      of NONE =>
329                           expect #" " s (fn s' => getdig s')
330                       | (res as SOME (n, s')) => res
331    
332    
333              fun year0 (wday, mon, d, hr, mn, sc) s =              fun year0 (wday, mon, d, hr, mn, sc) s =
334                  case IntImp.scan StringCvt.DEC getc s of                  case IntImp.scan StringCvt.DEC getc s of
335                      NONE => NONE                      NONE => NONE
# Line 358  Line 366 
366              fun time args s = expect #" " s (time0 args)              fun time args s = expect #" " s (time0 args)
367    
368              fun mday0 (wday, mon) s =              fun mday0 (wday, mon) s =
369                  case get2dig s of                  case getday s of
370                      NONE => NONE                      NONE => NONE
371                    | SOME (d, s') => time (wday, mon, d) s'                    | SOME (d, s') => time (wday, mon, d) s'
372    

Legend:
Removed from v.2560  
changed lines
  Added in v.2561

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