#!/usr/bin/env ruby
def htmlfix(str)
  str.sub!("&","&");
  str.sub!("æ","æ");
  str.sub!("Æ","&Aelig;");
  str.sub!("ø","ø");
  str.sub!("Ø","Ø");
  str.sub!("å","å");
  str.sub!("Å","Å");
  return str;
end
def indexdir(dir)
  index=Array.new
  Dir.entries(dir).sort.each do |name|
    next if not name[-4..-1] == ".tex"
    findex=Array.new
    #puts "F:"+name
    IO.readlines(ARGV[0]+File::Separator+name).each do |line|
      ttl= line.scan(/^\\(sub)?(sub)?section\*?\{([^\}]*)\}/)[0]
      next if(ttl==nil)    
      next if(line.length<3)
      if(ttl[0]=="sub") 
        if(ttl[1]=="sub") #subsubsect
	  findex<< ["",Array.new] if(findex[-1]==nil)
	  findex[-1]<< ["",Array.new] if(findex[-1][-1]==nil)
	  findex[-1][-1][1]<< ttl[2]
        else #subsect
	  findex<< ["",Array.new] if(findex[-1]==nil)
	  #puts findex[-1][0]
	  findex[-1][1]<< [ttl[2],Array.new]
        end
      else #sect
        findex<< [ttl[2],Array.new]
      end    
    end
    index<< [name,findex]
  end
  return index
end
def printcli(index)
   index.each do |fli|
     puts fli[0]+":"
     fli[1].each do |sect|
       puts "-"+sect[0]
       sect[1].each do |subsect|
         puts "--"+subsect[0]
         subsect[1].each do |subsubsect|
	   puts "--"+subsubsect
         end
       end
    end
  end
end
def printhtml(index,pfx)
  pfx="" if pfx==nil
  puts "<ul>"
  index.each do |fli|
    fln=fli[0][0..-5]+".pdf"
    puts "<li><a href=\""+pfx+fln+"\"/>"+htmlfix(fli[0])+"</a>"+((fli[1].length>0)?"<ul>":"")
    fli[1].each do |sect|
      puts "<li><a href=\""+pfx+fln+"\"/>"+htmlfix(sect[0])+"</a>"+((sect[1].length>0)?"<ul>":"")
      sect[1].each do |subsect|
        puts "<li><a href=\""+pfx+fln+"\"/>"+htmlfix(subsect[0])+"</a>"+((subsect[1].length>0)?"<ul>":"")
	subsect[1].each do |subsubsect|
	  puts "<li><a href=\""+pfx+fln+"\"/>"+htmlfix(subsubsect)+"</a>"+"</li>"
	end
        puts ((subsect[1].length>0)?"</ul>":"")+"</li>"
      end
      puts ((sect[1].length>0)?"</ul>":"")+"</li>"
    end
    puts ((fli[1].length>0)?"</ul>":"")+"</li>"
  end
  puts "</ul>"
end
printhtml(indexdir(ARGV[0]),ARGV[1]);