equal
deleted
inserted
replaced
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 => "" |