Commits

Anonymous committed f14150e Draft

flushing output

Comments (0)

Files changed (1)

       "box of %s:\n\
        x = %f .. %f\n\
        y = %f .. %f\n\
-       z = %f .. %f\n"
+       z = %f .. %f\n%!"
        title
        b.xmin b.xmax
        b.ymin b.ymax
     ; printf
       "step = %f\n\
        out = %s\n\
-       template = %s\n\
-      "
+       template = %s\n%!"
        step
        out
        template
     )
   in
-  let () = printf "check size..\n" in
+  let () = printf "check size..\n%!" in
   if bad
   then
     failwith "Size out of range!"
         fmt
     in
     let q () = Filename.quote in
-    ( printf "merge stl with border..\n"
+    ( printf "merge stl with border..\n%!"
     ; cmd_ok "stlmerge %a %a %a" q template q arg q tmpstl
-    ; printf "start slice.py..\n"
+    ; printf "start slice.py..\n%!"
     ; cmd_ok "slice.py %s %a -o %a -z%f,%f,%f"
         defs q tmpstl q out b.zmin b.zmax step
-    ; printf " Done."
+    ; printf " Done.%!"
     )
 
 let () =
-  let err msg = (eprintf "error from slicer.ml: %s\n" msg; exit 1) in
+  let err msg = (eprintf "error from slicer.ml: %s\n%!" msg; exit 1) in
   try
     match Sys.argv with
     | [| _me ; arg |] -> read_all arg