[Uml-devel] kdesdk/umbrello/umbrello/codegenerators

[Sebastian Stein]

CVS commit by sstein: 

patch by Laurent Bardi: format of documentation is nearest pod spec, adding
type of param before writting param in doc and suppress formatDoc which produce
bad output

CCMAIL: laurent.Bardi at ipbs.fr


  M +10 -10    perlwriter.cpp   1.20


--- kdesdk/umbrello/umbrello/codegenerators/perlwriter.cpp  #1.19:1.20
@@ -139,5 +139,5 @@ void PerlWriter::writeClass(UMLClassifie
                 perl << m_newLineEndingChars << "=head1";
                 perl << " " << classname.upper() << m_newLineEndingChars << m_newLineEndingChars;
-                perl << formatDoc(c->getDoc(),"");
+                perl << c->getDoc();
                 perl << m_newLineEndingChars << m_newLineEndingChars << "=cut" << m_newLineEndingChars << m_newLineEndingChars;
         }
@@ -285,5 +285,5 @@ void PerlWriter::writeOperations(QString
                                 if(forceDoc() || !at->getDoc().isEmpty()) 
                                 {
-                                        perl << "      " << cleanName(at->getName()) << "  " << at->getDoc();
+                                        perl << "      " << at->getTypeName() <<cleanName(at->getName()) << "  " << at->getDoc();
                                         perl << m_newLineEndingChars;
                                 }
@@ -289,16 +289,16 @@ void PerlWriter::writeOperations(QString
                                 }
                         }//end for : write parameter documentation
+
                         perl << m_newLineEndingChars;
-                        perl << "   Return : " << m_newLineEndingChars ;
-                        perl << "      " << op->getTypeName() ;
-                        perl << m_newLineEndingChars 
-                        << m_newLineEndingChars ;                       
-                        perl << "   Description : " << m_newLineEndingChars ;
-                        perl << "      " << formatDoc(op->getDoc(),"");
+                        perl << "   Return : " << m_newLineEndingChars;
+                        perl << "      " << op->getTypeName();
+                        perl << m_newLineEndingChars << m_newLineEndingChars;
+                        perl << "   Description : " << m_newLineEndingChars;
+                        perl << "      " << op->getDoc();
                         perl << m_newLineEndingChars << m_newLineEndingChars << "=cut" << m_newLineEndingChars << m_newLineEndingChars;
                 }//end if : write method documentation
-                perl <<  "sub " << cleanName(op->getName()) <<  m_newLineEndingChars << "{" <<  m_newLineEndingChars ;
+                perl <<  "sub " << cleanName(op->getName()) << m_newLineEndingChars << "{" << m_newLineEndingChars;
                 perl << "#UML_MODELER_BEGIN_PERSONAL_CODE_" << cleanName(op->getName());
-                perl << m_newLineEndingChars << "#UML_MODELER_END_PERSONAL_CODE_" << cleanName(op->getName()) << m_newLineEndingChars ;
+                perl << m_newLineEndingChars << "#UML_MODELER_END_PERSONAL_CODE_" << cleanName(op->getName()) << m_newLineEndingChars;
                 perl << "}" << m_newLineEndingChars;
                 perl << m_newLineEndingChars << m_newLineEndingChars;