src/Pure/RAW/ml_system.ML
author wenzelm
Mon, 29 Feb 2016 15:23:13 +0100
changeset 62467 c1b88e647e2f
parent 62354 fdd6989cc8a0
child 62468 d97e13e5ea5b
permissions -rw-r--r--
clarified ML heap operations;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
61925
ab52f183f020 clarified directory structure;
wenzelm
parents: 60989
diff changeset
     1
(*  Title:      Pure/RAW/ml_system.ML
43948
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
     3
48416
5787e1c911d0 more ML_System operations;
wenzelm
parents: 43948
diff changeset
     4
ML system and platform operations.
43948
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
     5
*)
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
     6
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
     7
signature ML_SYSTEM =
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
     8
sig
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
     9
  val name: string
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    10
  val platform: string
60962
faa452d8e265 basic setup for native Windows (RAW session without image);
wenzelm
parents: 48416
diff changeset
    11
  val platform_is_windows: bool
43948
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    12
end;
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    13
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    14
structure ML_System: ML_SYSTEM =
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    15
struct
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    16
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    17
val SOME name = OS.Process.getEnv "ML_SYSTEM";
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    18
val SOME platform = OS.Process.getEnv "ML_PLATFORM";
60962
faa452d8e265 basic setup for native Windows (RAW session without image);
wenzelm
parents: 48416
diff changeset
    19
val platform_is_windows = String.isSuffix "windows" platform;
43948
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    20
8f5add916a99 explicit structure ML_System;
wenzelm
parents:
diff changeset
    21
end;