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

Diff of /sml/trunk/src/system/Basis/Implementation/Win32/os-filesys.sml

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

revision 1454, Mon Feb 9 22:32:05 2004 UTC revision 1455, Fri Feb 13 20:42:49 2004 UTC
# Line 132  Line 132 
132            | intToMonth 10 = Date.Oct            | intToMonth 10 = Date.Oct
133            | intToMonth 11 = Date.Nov            | intToMonth 11 = Date.Nov
134            | intToMonth 12 = Date.Dec            | intToMonth 12 = Date.Dec
135              | intToMonth _ = rse "intToMonth" "not in 1-12"
136    
137          fun monthToInt Date.Jan = 1          fun monthToInt Date.Jan = 1
138            | monthToInt Date.Feb = 2            | monthToInt Date.Feb = 2
# Line 153  Line 154 
154            | intToWeekDay 4 = Date.Thu            | intToWeekDay 4 = Date.Thu
155            | intToWeekDay 5 = Date.Fri            | intToWeekDay 5 = Date.Fri
156            | intToWeekDay 6 = Date.Sat            | intToWeekDay 6 = Date.Sat
157              | intToWeekDay _ = rse "intToWeekDay" "not in 0-6"
158    
159          fun weekDayToInt Date.Sun = 0          fun weekDayToInt Date.Sun = 0
160            | weekDayToInt Date.Mon = 1            | weekDayToInt Date.Mon = 1

Legend:
Removed from v.1454  
changed lines
  Added in v.1455

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