diff options
author | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2002-10-30 20:57:53 (GMT) |
---|---|---|
committer | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2002-10-30 20:57:53 (GMT) |
commit | c6d6555a949e86be5c859311eb4db5dcc092c258 (patch) | |
tree | dd06bd100b0bd88b6ee40c8464efac800a749c32 /addon/perlmod/doxytemplate-latex.pl | |
parent | 7c34dd2b1594925d0a012e9ba290bf9c80574db5 (diff) | |
download | Doxygen-c6d6555a949e86be5c859311eb4db5dcc092c258.zip Doxygen-c6d6555a949e86be5c859311eb4db5dcc092c258.tar.gz Doxygen-c6d6555a949e86be5c859311eb4db5dcc092c258.tar.bz2 |
Release-1.2.18-20021030
Diffstat (limited to 'addon/perlmod/doxytemplate-latex.pl')
-rw-r--r-- | addon/perlmod/doxytemplate-latex.pl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/addon/perlmod/doxytemplate-latex.pl b/addon/perlmod/doxytemplate-latex.pl deleted file mode 100644 index 8caddf6..0000000 --- a/addon/perlmod/doxytemplate-latex.pl +++ /dev/null @@ -1,28 +0,0 @@ -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; |