equal
deleted
inserted
replaced
562 hd (tl (rev (BAD_space_explode "/" (!index_path)))) |
562 hd (tl (rev (BAD_space_explode "/" (!index_path)))) |
563 else if level = 0 then "Isabelle logics" |
563 else if level = 0 then "Isabelle logics" |
564 else space_implode "/" (take (level, subdirs))))) ^ |
564 else space_implode "/" (take (level, subdirs))))) ^ |
565 "\n" ^ |
565 "\n" ^ |
566 (if file_exists (tack_on (!index_path) "README.html") then |
566 (if file_exists (tack_on (!index_path) "README.html") then |
567 "<BR>View the <A HREF = \"README.html\">ReadMe</A> file.\n" |
567 "<BR>View the <A HREF = \"README.html\">README</A> file.\n" |
568 else if file_exists (tack_on (!index_path) "README") then |
568 else if file_exists (tack_on (!index_path) "README") then |
569 "<BR>View the <A HREF = \"README\">ReadMe</A> file.\n" |
569 "<BR>View the <A HREF = \"README\">README</A> file.\n" |
570 else "") ^ |
570 else "") ^ |
571 "<HR>" ^ implode (map main_entry theories) ^ "<!-->"); |
571 "<HR>" ^ implode (map main_entry theories) ^ "<!-->"); |
572 TextIO.closeOut out; |
572 TextIO.closeOut out; |
573 if super_index = "" orelse (inside_isabelle andalso level = 0) then () |
573 if super_index = "" orelse (inside_isabelle andalso level = 0) then () |
574 else link_directory () |
574 else link_directory () |