diff options
author | Charles.Lee <cheoljoo@gmail.com> | 2018-08-14 00:45:13 (GMT) |
---|---|---|
committer | Charles.Lee <cheoljoo@gmail.com> | 2018-08-14 00:45:13 (GMT) |
commit | 6a0f531d104d80fb1ab220ea952d3c45d3474f57 (patch) | |
tree | 6946353799e758298683e70d83ec3a613982ffb9 /src/perlmodgen.cpp | |
parent | c82abe1f23ec55aa1d05f118c2bae3aac3b68296 (diff) | |
download | Doxygen-6a0f531d104d80fb1ab220ea952d3c45d3474f57.zip Doxygen-6a0f531d104d80fb1ab220ea952d3c45d3474f57.tar.gz Doxygen-6a0f531d104d80fb1ab220ea952d3c45d3474f57.tar.bz2 |
perlmod syntax correction
# What is the problem
- doxygen perlmod generates the wrong result for retvals / params / templateparam type.
- ex.] Although we want to get hash value , we can get only list.
```
detailed => {
doc => [
params => [
{
parameters => [
{
name => 'isOn',
dir => 'in'
}
],
doc => [
{
```
- We should have the following result. Because **"params => ..."** is in hash braces.
```
detailed => {
doc => [
{
params => [
{
parameters => [
{
name => 'isOn',
dir => 'in'
}
],
doc => [
{
```
# What can not we do
- Can not run the doxylatex.pl (./OUTPUT/perlmod)
- We can not get the perl variables to make a successfully.
# Modified Code
- add hash notation : diff
```
diff --git a/src/perlmodgen.cpp b/src/perlmodgen.cpp
index ef5cbc22..7bf0b823 100644
--- a/src/perlmodgen.cpp
+++ b/src/perlmodgen.cpp
@@ -1254,6 +1254,7 @@ void PerlModDocVisitor::visitPre(DocParamSect *s)
err("unknown parameter section found\n");
break;
}
+ m_output.openHash();
openOther();
openSubBlock(type);
}
@@ -1262,6 +1263,7 @@ void PerlModDocVisitor::visitPost(DocParamSect *)
{
closeSubBlock();
closeOther();
+ m_output.closeHash();
}
```
Diffstat (limited to 'src/perlmodgen.cpp')
-rw-r--r-- | src/perlmodgen.cpp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/perlmodgen.cpp b/src/perlmodgen.cpp index ef5cbc2..7bf0b82 100644 --- a/src/perlmodgen.cpp +++ b/src/perlmodgen.cpp @@ -1254,6 +1254,7 @@ void PerlModDocVisitor::visitPre(DocParamSect *s) err("unknown parameter section found\n"); break; } + m_output.openHash(); openOther(); openSubBlock(type); } @@ -1262,6 +1263,7 @@ void PerlModDocVisitor::visitPost(DocParamSect *) { closeSubBlock(); closeOther(); + m_output.closeHash(); } void PerlModDocVisitor::visitPre(DocParamList *pl) |