equal
deleted
inserted
replaced
323 |
323 |
324 (* isabelle tool wrappers *) |
324 (* isabelle tool wrappers *) |
325 |
325 |
326 fun isabelle_document verbose format name tags path result_path = |
326 fun isabelle_document verbose format name tags path result_path = |
327 let |
327 let |
328 val s = "\"$ISATOOL\" document -c -o '" ^ format ^ "' \ |
328 val s = "\"$ISABELLE_TOOL\" document -c -o '" ^ format ^ "' \ |
329 \-n '" ^ name ^ "' -t '" ^ tags ^ "' " ^ File.shell_path path ^ |
329 \-n '" ^ name ^ "' -t '" ^ tags ^ "' " ^ File.shell_path path ^ |
330 " 2>&1" ^ (if verbose then "" else " >/dev/null"); |
330 " 2>&1" ^ (if verbose then "" else " >/dev/null"); |
331 val doc_path = Path.append result_path (Path.ext format (Path.basic name)); |
331 val doc_path = Path.append result_path (Path.ext format (Path.basic name)); |
332 in |
332 in |
333 if verbose then writeln s else (); |
333 if verbose then writeln s else (); |