SCM Repository
View of /branches/vis12/src/compiler/nrrd/run-dnorm_sml.in
Parent Directory
|
Revision Log
Revision 1997 -
(download)
(annotate)
Thu Oct 4 11:00:44 2012 UTC (9 years, 8 months ago) by jhr
File size: 1782 byte(s)
Thu Oct 4 11:00:44 2012 UTC (9 years, 8 months ago) by jhr
File size: 1782 byte(s)
Moved nrrd support into its own directory
(* run-dnorm_sml.in * * COPYRIGHT (c) 2012 The Diderot Project (http://diderot-language.cs.uchicago.edu) * All rights reserved. * * This module supports running the dnorm program on a nrrd file. *) structure RunDNorm : sig val run : string -> { version : string, header : (string * string) list } end = struct structure SS = Substring (* search path for the dnorm executable *) val paths = [ "@DIDEROT_ROOT@/bin", "@prefix@/bin" ] fun findExe () = (case PathUtil.findExe paths "dnorm" of SOME cmd => cmd | NONE => raise Fail "unable to find dnorm executable" (* end case *)) fun run srcFile = if OS.FileSys.access(srcFile, [OS.FileSys.A_READ]) then let val proc = Unix.execute (findExe(), ["-h", "-i", srcFile]) val inS = Unix.textInstreamOf proc fun stripWS ss = SS.string (SS.dropl Char.isSpace (SS.dropr Char.isSpace ss)) fun read content = (case TextIO.inputLine inS of SOME "\n" => read content (* dnorm outputs an extra blank line at the end *) | SOME ln => ( case SS.fields (fn #":" => true | _ => false) (SS.full ln) of [name, value] => read((SS.string name, stripWS value)::content) | _ => raise Fail(concat["bogus nrrd header line \"", String.toString ln, "\""]) (* end case *)) | NONE => List.rev content (* end case *)) val info = (case TextIO.inputLine inS of SOME version => { version = stripWS(SS.full version), header = read [] } | NONE => raise Fail "bogus nrrd file" (* end case *)) val sts = Unix.reap proc in if OS.Process.isSuccess sts then info else raise Fail "error running dnorm" end else raise Fail(concat["image file \"", srcFile, "\" not found"]) end
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |