#!/usr/bin/env dag

#  %join my_join  (not necessary -> default)
    
%t_by_depth S,Livro,Capitulo
    
S        ---> Livro         { open F, ">file.tex"; print F $_[1]; close F };
Livro    ---> tex Capitulo* { tex($_[1],$_[2])   };
Capitulo ---> tex png* txt* { $_n=~s/^\d\d_//;"\\section{$_n}\n".$_j };
tex { $_c };
png { "\\includegraphics[width=0.8\\textwidth]{$_p}\n" };
txt { "\\include{$_p}\n" };
        
%%
    
sub tex{"
\\documentclass{article}
$_[0]
\\usepackage{graphicx}
\\begin{document}
$_[1]
\\end{document}
" 
}

sub my_join { join "\n", @_; }