如何安全地杀死从内核? [英] How to kill slave kernel securely?
问题描述
LinkClose[link]
不一定在另一端终止程序
文档中所说的连接的连接".是否有一种方法可以杀死该连接
从内核的安全过程?
LinkClose[link]
"does not necessarily terminate the program at the other end
of the connection" as it is said in the Documentation. Is there a way to kill the
process of the slave kernel securely?
实际上,我需要 Mathematica 中的一个函数,该函数仅在从属内核的进程已终止并且其内存已释放时才返回.从属内核退出时,LinkInterrupt[link, 1]
和LinkClose[link]
都不等待.目前,唯一的此类功能似乎是我在本页答案之一中显示的killProc[procID]
功能.但是有内置的模拟吗?
In really I need a function in Mathematica that returns only when the process of the slave kernel has already killed and its memory has already released. Both LinkInterrupt[link, 1]
and LinkClose[link]
do not wait while the slave kernel exits. At this moment the only such function is seemed to be killProc[procID]
function I had showed in one of answers at this page. But is there a built-in analog?
推荐答案
目前,我只知道一种安全地杀死MathKernel
进程的方法.此方法使用NETLink
,并且似乎仅在Windows下有效,并且需要安装Microsoft .NET 2或更高版本.
At this moment I know only one method to kill the MathKernel
process securely. This method uses NETLink
and seems to work only under Windows and requires Microsoft .NET 2 or later to be installed.
killProc[processID_] := If[$OperatingSystem === "Windows",
Needs["NETLink`"];
Symbol["LoadNETType"]["System.Diagnostics.Process"];
With[{procID = processID},
killProc[procID_] := (
proc = Process`GetProcessById[procID];
proc@Kill[]
);
];
killProc[processID]
];
(*Killing the current MathKernel process*)
killProc[$ProcessID]
任何建议或改进将不胜感激.
Any suggestions or improvements will be appreciated.
更正确的方法:
Needs["NETLink`"];
LoadNETType["System.Diagnostics.Process"];
$kern = LinkLaunch[First[$CommandLine] <> " -mathlink -noinit"];
LinkRead[$kern];
LinkWrite[$kern, Unevaluated[$ProcessID]];
$kernProcessID = First@LinkRead[$kern];
$kernProcess = Process`GetProcessById[$kernProcessID];
AbortProtect[If[! ($kernProcess@Refresh[]; $kernProcess@HasExited),
$kernProcess@Kill[]; $kernProcess@WaitForExit[];
$kernProcess@Close[]];
LinkClose[$kern]]
更正确的方法:
Edit 2:
Even more correct method:
Needs["NETLink`"];
LoadNETType["System.Diagnostics.Process"];
$kern = LinkLaunch[First[$CommandLine] <> " -mathlink -noinit"];
LinkRead[$kern];
LinkWrite[$kern, Unevaluated[$ProcessID]];
$kernProcessID = First@LinkRead[$kern];
$kernProcess = Process`GetProcessById[$kernProcessID];
krnKill := AbortProtect[
If[TrueQ[MemberQ[Links[], $kern]], LinkClose[$kern]];
If[TrueQ[MemberQ[LoadedNETObjects[], $kernProcess]],
If[! TrueQ[$kernProcess@WaitForExit[100]],
Quiet@$kernProcess@Kill[]; $kernProcess@WaitForExit[]];
$kernProcess@Close[]; ReleaseNETObject[$kernProcess];
]
];
这篇关于如何安全地杀死从内核?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!