src/Pure/ML-Systems/polyml.ML
changeset 16266 7a6616be8712
parent 15851 6b445e021bc8
child 16374 f4b7cf8975af
equal deleted inserted replaced
16265:ee2497cde564 16266:7a6616be8712
   149 (*plain version; with return code*)
   149 (*plain version; with return code*)
   150 fun system cmd =
   150 fun system cmd =
   151   if OS.Process.isSuccess (OS.Process.system cmd) then 0 else 1;
   151   if OS.Process.isSuccess (OS.Process.system cmd) then 0 else 1;
   152 
   152 
   153 
   153 
   154 (* file handling *)
       
   155 
       
   156 (*get time of last modification*)
       
   157 fun file_info name = Time.toString (OS.FileSys.modTime name) handle _ => "";
       
   158 
       
   159 
       
   160 (* getenv *)
   154 (* getenv *)
   161 
   155 
   162 fun getenv var =
   156 fun getenv var =
   163   (case OS.Process.getEnv var of
   157   (case OS.Process.getEnv var of
   164     NONE => ""
   158     NONE => ""