diff options
Diffstat (limited to 'addon/perlmod/doxytemplate-latex.pl')
-rw-r--r-- | addon/perlmod/doxytemplate-latex.pl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/addon/perlmod/doxytemplate-latex.pl b/addon/perlmod/doxytemplate-latex.pl new file mode 100644 index 0000000..8caddf6 --- /dev/null +++ b/addon/perlmod/doxytemplate-latex.pl @@ -0,0 +1,28 @@ +use DoxyModel; + +sub template($) { + my $model = $_[0]; + my ($type, $name) = @$model[0, 1]; + if ($type eq "field") { + print TEXTEMPLATE "\\def\\" . $name . "#1{#1}%\n"; + } elsif ($type eq "doc") { + print TEXTEMPLATE "\\def\\" . $name . "#1{#1}%\n"; + } elsif ($type eq "hash") { + my ($key, $value); + while (($key, $submodel) = each %{$$model[2]}) { + my $subname = $$submodel[1]; + print TEXTEMPLATE "\\def\\" . $subname . "Empty{}%\n"; + print TEXTEMPLATE "\\def\\f" . $subname . "Empty{\\" . $subname . "Empty}%\n"; + template($submodel); + } + print TEXTEMPLATE "\\def\\" . $name . "{}%\n"; + } elsif ($type eq "list") { + template($$model[2]); + print TEXTEMPLATE "\\def\\" . $name . "#1{#1}%\n"; + print TEXTEMPLATE "\\def\\" . $name . "Sep{}%\n"; + } +} + +open TEXTEMPLATE, ">doxytemplate.tex"; +template($doxymodel); +close TEXTEMPLATE; |