src/Pure/Thy/browser_info.ML
changeset 3868 86981c4bffdb
parent 3834 278f0a1e5986
child 3870 6913700d7c79
equal deleted inserted replaced
3867:3b2587c809f4 3868:86981c4bffdb
   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 ()