diff options
author | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2002-10-06 19:08:54 (GMT) |
---|---|---|
committer | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2002-10-06 19:08:54 (GMT) |
commit | eb9911da9adbb91449d7fcad9bbc33a8152e1727 (patch) | |
tree | c1062a06b0267bdf027f00efb00f1fb2b70db5c5 /addon/perlmod/doxytemplate-latex.pl | |
parent | 5ed55684b0226c2371f1d39cd7f984da44c9ccb1 (diff) | |
download | Doxygen-eb9911da9adbb91449d7fcad9bbc33a8152e1727.zip Doxygen-eb9911da9adbb91449d7fcad9bbc33a8152e1727.tar.gz Doxygen-eb9911da9adbb91449d7fcad9bbc33a8152e1727.tar.bz2 |
Release-1.2.18-20021006
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; |