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/NJ/sysinfo.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/NJ/sysinfo.sml

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

revision 809, Wed Apr 18 17:53:01 2001 UTC revision 810, Fri Apr 20 13:26:46 2001 UTC
# Line 30  Line 30 
30    
31      fun getOSName () = getInfoStr(sysInfo "OS_NAME")      fun getOSName () = getInfoStr(sysInfo "OS_NAME")
32      fun getOSKind () = (case (getOSName())      fun getOSKind () = (case (getOSName())
33             of ("SunOS"|"Solaris"|"Irix"|"OSF/1"|"AIX"|"SVR4"|"NeXTStep"             of ("SunOS"|"Solaris"|"Irix"|"OSF/1"|"AIX"|"SVR4"|"NeXTStep"|
34                |"Ultrix"|"HPUX"|"Linux"|"BSD"|"PLAN9"|"MACH"                 "Ultrix"|"HPUX"|"Linux"|"BSD"|"PLAN9"|"MACH" |"Darwin"
35                ) => UNIX                ) => UNIX
36              | "OS/2" => OS2              | "OS/2" => OS2
37              | "Win32" => WIN32              | "Win32" => WIN32

Legend:
Removed from v.809  
changed lines
  Added in v.810

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