git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@8393 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
73f412bdca
commit
09466ebea0
|
@ -85,7 +85,7 @@ fun check_umlocl_dtd () = (OS.FileSys.chDir (su4sml_share());OS.FileSys.access (
|
||||||
|
|
||||||
fun check_unzip () = let
|
fun check_unzip () = let
|
||||||
val tmpFile = OS.FileSys.tmpName ()
|
val tmpFile = OS.FileSys.tmpName ()
|
||||||
val result = (OS.Process.system (unzip^" > "^tmpFile) = OS.Process.success)
|
val result = (Posix.Process.fromStatus(OS.Process.system (unzip^" > "^tmpFile)) = Posix.Process.W_EXITED)
|
||||||
val _ = OS.FileSys.remove tmpFile
|
val _ = OS.FileSys.remove tmpFile
|
||||||
in
|
in
|
||||||
result
|
result
|
||||||
|
|
Loading…
Reference in New Issue