src/Pure/ML-Systems/ml_system.ML

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/ML-Systems/ml_system.ML	Sat Jul 23 17:22:28 2011 +0200
@@ -0,0 +1,27 @@
+(*  Title:      Pure/ML-Systems/ml_system.ML
+    Author:     Makarius
+
+ML system and platform information.
+*)
+
+signature ML_SYSTEM =
+sig
+  val name: string
+  val is_polyml: bool
+  val is_smlnj: bool
+  val platform: string
+  val platform_is_cygwin: bool
+end;
+
+structure ML_System: ML_SYSTEM =
+struct
+
+val SOME name = OS.Process.getEnv "ML_SYSTEM";
+val is_polyml = String.isPrefix "polyml" name;
+val is_smlnj = String.isPrefix "smlnj" name;
+
+val SOME platform = OS.Process.getEnv "ML_PLATFORM";
+val platform_is_cygwin = String.isSuffix "cygwin" platform;
+
+end;
+