equal
deleted
inserted
replaced
326 let |
326 let |
327 val s = "\"$ISABELLE_TOOL\" document -c -o '" ^ format ^ "' \ |
327 val s = "\"$ISABELLE_TOOL\" document -c -o '" ^ format ^ "' \ |
328 \-n '" ^ name ^ "' -t '" ^ tags ^ "' " ^ File.shell_path path ^ " 2>&1"; |
328 \-n '" ^ name ^ "' -t '" ^ tags ^ "' " ^ File.shell_path path ^ " 2>&1"; |
329 val doc_path = Path.append result_path (Path.ext format (Path.basic name)); |
329 val doc_path = Path.append result_path (Path.ext format (Path.basic name)); |
330 val _ = if verbose then writeln s else (); |
330 val _ = if verbose then writeln s else (); |
331 val (out, rc) = system_out s; |
331 val (out, rc) = bash_output s; |
332 val _ = |
332 val _ = |
333 if not (File.exists doc_path) orelse rc <> 0 then |
333 if not (File.exists doc_path) orelse rc <> 0 then |
334 cat_error out ("Failed to build document " ^ quote (show_path doc_path)) |
334 cat_error out ("Failed to build document " ^ quote (show_path doc_path)) |
335 else if verbose then writeln out |
335 else if verbose then writeln out |
336 else (); |
336 else (); |