# HG changeset patch
# User clasohm
# Date 827324472 -3600
# Node ID fd6a571cb2b00bf07d8e1389ab5849339bcba2ab
# Parent  fff3738830f540d254a0f8a0056f7dcd98c4ad90
added warning and automatic deactivation of HTML generation if we cannot write
.theory_list.txt;
fixed bug which occured when index_path's value is "/"

diff -r fff3738830f5 -r fd6a571cb2b0 src/Pure/Thy/thy_read.ML
--- a/src/Pure/Thy/thy_read.ML	Mon Mar 18 13:42:35 1996 +0100
+++ b/src/Pure/Thy/thy_read.ML	Wed Mar 20 13:21:12 1996 +0100
@@ -201,6 +201,11 @@
 
 fun file_exists file = (file_info file <> "");
 
+(*Get last directory in path (e.g. /usr/proj/isabelle -> isabelle) *)
+fun last_path s = case space_explode "/" s of
+                      [] => ""
+                    | ds => last_elem ds;
+
 (*Get thy_info for a loaded theory *)
 fun get_thyinfo tname = Symtab.lookup (!loaded_thys, tname);
 
@@ -402,8 +407,7 @@
               \'make_html := true'"
       else if (!index_path) subdir_of (!base_path) then
         relative_path (!base_path) (!index_path)
-      else
-        last_elem (space_explode "/" (!index_path));
+      else last_path (!index_path);
     val rel_index_path = relative_path tpath (!index_path);
 
     (*Make list of all theories and all theories that own a .thy file*)
@@ -684,7 +688,14 @@
             end;
  
           val theory_list =
-            open_append (tack_on (!index_path) ".theory_list.txt");
+            open_append (tack_on (!index_path) ".theory_list.txt")
+              handle _ => (make_html := false;
+                           writeln ("Warning: Cannot write to " ^
+                                  (!index_path) ^ " while making HTML files.\n\
+                                  \HTML generation has been switched off.\n\
+                                  \Call init_html() from within a \
+                                  \writeable directory to reactivate it.");
+                           raise MK_HTML)
       in output (theory_list, tname ^ " " ^ abs_path ^ "\n");
          close_out theory_list;
  
@@ -751,7 +762,8 @@
          and add it to its parents' sub-charts*)
        if !make_html then
          let val path = path_of tname;
-         in if path = "" then mk_html ()    (*first time theory has been read*)
+         in if path = "" then               (*first time theory has been read*)
+              (mk_html()  handle MK_HTML => ())
             else ()
          end
        else ();
@@ -1144,8 +1156,7 @@
             val package =
               if cwd subdir_of (!base_path) then
                 relative_path (!base_path) cwd
-              else
-                last_elem (space_explode "/" cwd);
+              else last_path cwd;
         in mk_charthead pure_out "Pure" "Children" false rel_gif_path ""
                         package;
            mk_charthead cpure_out "CPure" "Children" false rel_gif_path ""
@@ -1210,7 +1221,7 @@
       val inside_isabelle = (!index_path) subdir_of (!base_path);
       val subdir =
         if inside_isabelle then relative_path (!base_path) (!index_path)
-        else last_elem (space_explode "/" (!index_path));
+        else last_path (!index_path);
       val subdirs = space_explode "/" subdir;
 
       (*Look for index.html in superdirectories; stop when Isabelle's