(* Title: Pure/ML/ml_pid.ML
Author: Makarius
Native PID for ML process.
*)
signature ML_PID =
sig
val get: unit -> int
end;
if ML_System.platform_is_windows then ML
\<open>
structure ML_Pid: ML_PID =
struct
val get =
Foreign.buildCall0
(Foreign.getSymbol (Foreign.loadLibrary "kernel32.dll") "GetCurrentProcessId", (), Foreign.cInt);
end;
\<close>
else ML
\<open>
structure ML_Pid: ML_PID =
struct
val get = Posix.ProcEnv.getpid #> Posix.Process.pidToWord #> SysWord.toLargeInt
end;
\<close>
¤ Dauer der Verarbeitung: 0.18 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|