Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-util/output-util.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/output-util.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2834, Wed Nov 19 15:20:13 2014 UTC revision 2835, Wed Nov 19 16:25:50 2014 UTC
# Line 178  Line 178 
178                      (* else *)                      (* else *)
179                        CL.mkIfThen(                        CL.mkIfThen(
180                          CL.mkBinOp(                          CL.mkBinOp(
181                            CL.mkApply("nrrdSave", [                            CL.mkApply("NrrdSaveHelper", [
182                                CL.mkStr(OS.Path.joinBaseExt{base=name^"-len", ext=SOME "nrrd"}),                                CL.mkVar(outstem name), CL.mkStr "-len", CL.mkStr "nrrd", nLengthsV
                               nLengthsV, CL.mkVar "NULL"  
183                              ]),                              ]),
184                            CL.#||,                            CL.#||,
185                            CL.mkApply("nrrdSave", [                            CL.mkApply("NrrdSaveHelper", [
186                                CL.mkStr(OS.Path.joinBaseExt{base=name^"-data", ext=SOME "nrrd"}),                                CL.mkVar(outstem name), CL.mkStr "-data", CL.mkStr "nrrd", nDataV
                               nDataV, CL.mkVar "NULL"  
187                              ])),                              ])),
188                        (* then *)                        (* then *)
189                          error ("Error saving nrrd:\n%s\n", CL.mkApply("biffGetDone", [NRRD]))                          error ("Error saving nrrd:\n%s\n", CL.mkApply("biffGetDone", [NRRD]))
# Line 203  Line 201 
201                            CL.mkApply("biffMsgStrGet", [CL.mkIndirect(wrldV, "errors")])),                            CL.mkApply("biffMsgStrGet", [CL.mkIndirect(wrldV, "errors")])),
202                      (* else *)                      (* else *)
203                        CL.mkIfThen(                        CL.mkIfThen(
204                          CL.mkApply("nrrdSave", [  (* TODO: single output file case *)
205                              CL.mkStr(OS.Path.joinBaseExt{base=name, ext=SOME "nrrd"}),                          CL.mkApply("NrrdSaveHelper", [
206                              nDataV, CL.mkVar "NULL"                              CL.mkVar(outstem name), CL.mkStr "", CL.mkStr "nrrd", nDataV
207                            ]),                            ]),
208                        (* then *)                        (* then *)
209                          error ("Error saving nrrd:\n%s\n", CL.mkApply("biffGetDone", [NRRD]))                          error ("Error saving nrrd:\n%s\n", CL.mkApply("biffGetDone", [NRRD]))

Legend:
Removed from v.2834  
changed lines
  Added in v.2835

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0