#!/usr/bin/perl
if(scalar(@ARGV)==0 || $ARGV[0] eq "--help" || $ARGV[0] eq "-h"){
	print "usage:\n";
	print "tex2label [inputfile] \n";
	print " to list sections, labels, cites and bibitems.\n";
	exit;
}
$targetfilename=shift(@ARGV);
open (FH, "<$targetfilename");
	@targetfile=<FH>;
close FH;

$line="";
$indent=0;
$section=0;
$out="";
$comment="";
foreach $line (@targetfile){
		if($line =~ /^\%/){next;}
		if($line =~ /(\\begin\{document\})/){$out="$1";&printextracted();$indent++;}
		if($line =~ /(\\end\{document\})/){$out="$1";&printextracted();$indent--;}
		if($line =~ /(\\begin\{thebibliography\})/){$out="$1";&printextracted();$indent++;}
		if($line =~ /(\\end\{thebibliography\})/){$out="$1";&printextracted();$indent--;}
		if($line =~ /(\\section\{.*\})/){$section=0;$out="\n$1";&printextracted();$section=1;}
		if($line =~ /(\\subsection\{.*\})/){$section=1;$out=$1;&printextracted();$section=2;}
		if($line =~ /(\\subsubsection\{.*\})/){$section=2;$out=$1;&printextracted();$section=3;}
		if($line =~ /(\\label\{.*\})/){$out=$1;&printextracted();}
		if($line =~ /(\\cite\{.*\})/){$out=$1;&printextracted();}
		if($line =~ /(\\bibitem\{.*\})/){$out=$1;&printextracted();}
}
sub printextracted{
	for($i=0;$i<$indent+$section;$i++){
		print " ";
	}
	print "$out\n";
}