src/Pure/Thy/present.ML
changeset 28500 4b79e5d3d0aa
parent 28496 4cff10648928
child 28840 049f0a8faa35
equal deleted inserted replaced
28499:eff93bc3c14f 28500:4b79e5d3d0aa
   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 ();