1 /******************************************************************************

     2  *

     3  *

     4  *

     5  *

     6  * Copyright (C) 1997-2008 by Dimitri van Heesch.

     7  * Authors: Dimitri van Heesch, Miguel Lobo.

     8  *

     9  * Permission to use, copy, modify, and distribute this software and its

    10  * documentation under the terms of the GNU General Public License is hereby

    11  * granted. No representations are made about the suitability of this software

    12  * for any purpose. It is provided "as is" without express or implied warranty.

    13  * See the GNU General Public License for more details.

    14  *

    15  * Documents produced by Doxygen are derivative works derived from the

    16  * input used in their production; they are not affected by this license.

    17  *

    18  */

    19 

    20 #include <stdlib.h>

    21 

    22 #include "perlmodgen.h"

    23 #include "docparser.h"

    24 #include "message.h"

    25 #include "doxygen.h"

    26 #include "pagedef.h"

    27 

    28 #include <qdir.h>

    29 #include <qstack.h>

    30 #include <qdict.h>

    31 #include <qfile.h>

    32 #include <qtextstream.h>

    33 

    34 #define PERLOUTPUT_MAX_INDENTATION 40

    35 

    36 class PerlModOutputStream

    37 {

    38 public:

    39 

    40   QString m_s;

    41   QTextStream *m_t;

    42 

    43   PerlModOutputStream(QTextStream *t = 0) : m_t(t) { }

    44 

    45   void add(char c);

    46   void add(const char *s);

    47   void add(QCString &s);

    48   void add(QString &s);

    49   void add(int n);

    50   void add(unsigned int n);

    51 };

    52 

    53 void PerlModOutputStream::add(char c)

    54 {

    55   if (m_t != 0)

    56     (*m_t) << c;

    57   else

    58     m_s += c;

    59 }

    60 

    61 void PerlModOutputStream::add(const char *s)

    62 {

    63   if (m_t != 0)

    64     (*m_t) << s;

    65   else

    66     m_s += s;

    67 }

    68 

    69 void PerlModOutputStream::add(QCString &s)

    70 {

    71   if (m_t != 0)

    72     (*m_t) << s;

    73   else

    74     m_s += s;

    75 }

    76 

    77 void PerlModOutputStream::add(QString &s)

    78 {

    79   if (m_t != 0)

    80     (*m_t) << s;

    81   else

    82     m_s += s;

    83 }

    84 

    85 void PerlModOutputStream::add(int n)

    86 {

    87   if (m_t != 0)

    88     (*m_t) << n;

    89   else

    90     m_s += n;

    91 }

    92 

    93 void PerlModOutputStream::add(unsigned int n)

    94 {

    95   if (m_t != 0)

    96     (*m_t) << n;

    97   else

    98     m_s += n;

    99 }

   100 

   101 class PerlModOutput

   102 {

   103 public:

   104 

   105   bool m_pretty;

   106 

   107   inline PerlModOutput(bool pretty)

   108     : m_pretty(pretty), m_stream(0), m_indentation(false), m_blockstart(true)

   109   {

   110     m_spaces[0] = 0;

   111   }

   112 

   113   virtual ~PerlModOutput() { }

   114 

   115   inline void setPerlModOutputStream(PerlModOutputStream *os) { m_stream = os; }

   116 

   117   inline PerlModOutput &openSave() { iopenSave(); return *this; }

   118   inline PerlModOutput &closeSave(QString &s) { icloseSave(s); return *this; }

   119 

   120   inline PerlModOutput &continueBlock()

   121   {

   122     if (m_blockstart)

   123       m_blockstart = false;

   124     else

   125       m_stream->add(',');

   126     indent();

   127     return *this;

   128   }

   129 

   130   inline PerlModOutput &add(char c) { m_stream->add(c); return *this; }

   131   inline PerlModOutput &add(const char *s) { m_stream->add(s); return *this; }

   132   inline PerlModOutput &add(QCString &s) { m_stream->add(s); return *this; }

   133   inline PerlModOutput &add(QString &s) { m_stream->add(s); return *this; }

   134   inline PerlModOutput &add(int n) { m_stream->add(n); return *this; }

   135   inline PerlModOutput &add(unsigned int n) { m_stream->add(n); return *this; }

   136 

   137   PerlModOutput &addQuoted(const char *s) { iaddQuoted(s); return *this; }

   138 

   139   inline PerlModOutput &indent()

   140   {

   141     if (m_pretty) {

   142       m_stream->add('\n');

   143       m_stream->add(m_spaces);

   144     }

   145     return *this;

   146   }

   147 

   148   inline PerlModOutput &open(char c, const char *s = 0) { iopen(c, s); return *this; }

   149   inline PerlModOutput &close(char c = 0) { iclose(c); return *this; }

   150 

   151   inline PerlModOutput &addField(const char *s) { iaddField(s); return *this; }

   152   inline PerlModOutput &addFieldQuotedChar(const char *field, char content)

   153   {

   154     iaddFieldQuotedChar(field, content); return *this;

   155   }

   156   inline PerlModOutput &addFieldQuotedString(const char *field, const char *content)

   157   {

   158     iaddFieldQuotedString(field, content); return *this;

   159   }

   160   inline PerlModOutput &addFieldBoolean(const char *field, bool content)

   161   {

   162     return addFieldQuotedString(field, content ? "yes" : "no");

   163   }

   164   inline PerlModOutput &openList(const char *s = 0) { open('[', s); return *this; }

   165   inline PerlModOutput &closeList() { close(']'); return *this; }

   166   inline PerlModOutput &openHash(const char *s = 0 ) { open('{', s); return *this; }

   167   inline PerlModOutput &closeHash() { close('}'); return *this; }

   168 

   169 protected:

   170   

   171   void iopenSave();

   172   void icloseSave(QString &);

   173   

   174   void incIndent();

   175   void decIndent();

   176 

   177   void iaddQuoted(const char *);

   178   void iaddFieldQuotedChar(const char *, char);

   179   void iaddFieldQuotedString(const char *, const char *);

   180   void iaddField(const char *);

   181 

   182   void iopen(char, const char *);

   183   void iclose(char);

   184 

   185 private:

   186   

   187   PerlModOutputStream *m_stream;

   188   int m_indentation;

   189   bool m_blockstart;

   190 

   191   QStack<PerlModOutputStream> m_saved;

   192   char m_spaces[PERLOUTPUT_MAX_INDENTATION * 2 + 2];

   193 };

   194 

   195 void PerlModOutput::iopenSave()

   196 {

   197   m_saved.push(m_stream);

   198   m_stream = new PerlModOutputStream();

   199 }

   200 

   201 void PerlModOutput::icloseSave(QString &s)

   202 {

   203   s = m_stream->m_s;

   204   delete m_stream;

   205   m_stream = m_saved.pop();

   206 }

   207 

   208 void PerlModOutput::incIndent()

   209 {

   210   if (m_indentation < PERLOUTPUT_MAX_INDENTATION)

   211   {

   212     char *s = &m_spaces[m_indentation * 2];

   213     *s++ = ' '; *s++ = ' '; *s = 0;

   214   }

   215   m_indentation++;

   216 }

   217 

   218 void PerlModOutput::decIndent()

   219 {

   220   m_indentation--;

   221   if (m_indentation < PERLOUTPUT_MAX_INDENTATION)

   222     m_spaces[m_indentation * 2] = 0;

   223 }

   224 

   225 void PerlModOutput::iaddQuoted(const char *s) 

   226 {

   227   char c;

   228   while ((c = *s++) != 0) {

   229     if ((c == '\'') || (c == '\\'))

   230       m_stream->add('\\');

   231     m_stream->add(c);

   232   }

   233 }

   234   

   235 void PerlModOutput::iaddField(const char *s)

   236 {

   237   continueBlock();

   238   m_stream->add(s);

   239   m_stream->add(m_pretty ? " => " : "=>");

   240 }

   241 

   242 void PerlModOutput::iaddFieldQuotedChar(const char *field, char content)

   243 {

   244   iaddField(field);

   245   m_stream->add('\'');

   246   if ((content == '\'') || (content == '\\'))

   247     m_stream->add('\\');

   248   m_stream->add(content);

   249   m_stream->add('\'');

   250 }

   251 

   252 void PerlModOutput::iaddFieldQuotedString(const char *field, const char *content)

   253 {

   254   if (content == 0)

   255     return;

   256   iaddField(field);

   257   m_stream->add('\'');

   258   iaddQuoted(content);

   259   m_stream->add('\'');

   260 }

   261 

   262 void PerlModOutput::iopen(char c, const char *s)

   263 {

   264   if (s != 0)

   265     iaddField(s);

   266   else

   267     continueBlock();

   268   m_stream->add(c);

   269   incIndent();

   270   m_blockstart = true;

   271 }

   272 

   273 void PerlModOutput::iclose(char c)

   274 {

   275   decIndent(); 

   276   indent();

   277   if (c != 0)

   278     m_stream->add(c); 

   279   m_blockstart = false;

   280 }

   281 

   282 /*! @brief Concrete visitor implementation for PerlMod output. */

   283 class PerlModDocVisitor : public DocVisitor

   284 {

   285 public:

   286   PerlModDocVisitor(PerlModOutput &);

   287   virtual ~PerlModDocVisitor() { }

   288 

   289   void finish();

   290   

   291   //--------------------------------------

   292   // visitor functions for leaf nodes

   293   //--------------------------------------

   294    

   295   void visit(DocWord *);

   296   void visit(DocLinkedWord *);

   297   void visit(DocWhiteSpace *);

   298   void visit(DocSymbol *);

   299   void visit(DocURL *);

   300   void visit(DocLineBreak *);

   301   void visit(DocHorRuler *);

   302   void visit(DocStyleChange *);

   303   void visit(DocVerbatim *);

   304   void visit(DocAnchor *);

   305   void visit(DocInclude *);

   306   void visit(DocIncOperator *);

   307   void visit(DocFormula *);

   308   void visit(DocIndexEntry *);

   309   void visit(DocSimpleSectSep *);

   310 

   311   //--------------------------------------

   312   // visitor functions for compound nodes

   313   //--------------------------------------

   314    

   315   void visitPre(DocAutoList *);

   316   void visitPost(DocAutoList *);

   317   void visitPre(DocAutoListItem *);

   318   void visitPost(DocAutoListItem *);

   319   void visitPre(DocPara *) ;

   320   void visitPost(DocPara *);

   321   void visitPre(DocRoot *);

   322   void visitPost(DocRoot *);

   323   void visitPre(DocSimpleSect *);

   324   void visitPost(DocSimpleSect *);

   325   void visitPre(DocTitle *);

   326   void visitPost(DocTitle *);

   327   void visitPre(DocSimpleList *);

   328   void visitPost(DocSimpleList *);

   329   void visitPre(DocSimpleListItem *);

   330   void visitPost(DocSimpleListItem *);

   331   void visitPre(DocSection *);

   332   void visitPost(DocSection *);

   333   void visitPre(DocHtmlList *);

   334   void visitPost(DocHtmlList *) ;

   335   void visitPre(DocHtmlListItem *);

   336   void visitPost(DocHtmlListItem *);

   337   //void visitPre(DocHtmlPre *);

   338   //void visitPost(DocHtmlPre *);

   339   void visitPre(DocHtmlDescList *);

   340   void visitPost(DocHtmlDescList *);

   341   void visitPre(DocHtmlDescTitle *);

   342   void visitPost(DocHtmlDescTitle *);

   343   void visitPre(DocHtmlDescData *);

   344   void visitPost(DocHtmlDescData *);

   345   void visitPre(DocHtmlTable *);

   346   void visitPost(DocHtmlTable *);

   347   void visitPre(DocHtmlRow *);

   348   void visitPost(DocHtmlRow *) ;

   349   void visitPre(DocHtmlCell *);

   350   void visitPost(DocHtmlCell *);

   351   void visitPre(DocHtmlCaption *);

   352   void visitPost(DocHtmlCaption *);

   353   void visitPre(DocInternal *);

   354   void visitPost(DocInternal *);

   355   void visitPre(DocHRef *);

   356   void visitPost(DocHRef *);

   357   void visitPre(DocHtmlHeader *);

   358   void visitPost(DocHtmlHeader *);

   359   void visitPre(DocImage *);

   360   void visitPost(DocImage *);

   361   void visitPre(DocDotFile *);

   362   void visitPost(DocDotFile *);

   363   void visitPre(DocLink *);

   364   void visitPost(DocLink *);

   365   void visitPre(DocRef *);

   366   void visitPost(DocRef *);

   367   void visitPre(DocSecRefItem *);

   368   void visitPost(DocSecRefItem *);

   369   void visitPre(DocSecRefList *);

   370   void visitPost(DocSecRefList *);

   371   //void visitPre(DocLanguage *);

   372   //void visitPost(DocLanguage *);

   373   void visitPre(DocParamSect *);

   374   void visitPost(DocParamSect *);

   375   void visitPre(DocParamList *);

   376   void visitPost(DocParamList *);

   377   void visitPre(DocXRefItem *);

   378   void visitPost(DocXRefItem *);

   379   void visitPre(DocInternalRef *);

   380   void visitPost(DocInternalRef *);

   381   void visitPre(DocCopy *);

   382   void visitPost(DocCopy *);

   383   void visitPre(DocText *);

   384   void visitPost(DocText *);

   385 

   386 private:

   387 

   388   //--------------------------------------

   389   // helper functions

   390   //--------------------------------------

   391 

   392   void addLink(const QString &ref, const QString &file,

   393 	       const QString &anchor);

   394    

   395   void enterText();

   396   void leaveText();

   397 

   398   void openItem(const char *);

   399   void closeItem();

   400   void singleItem(const char *);

   401   void openSubBlock(const char * = 0);

   402   void closeSubBlock();

   403   void openOther();

   404   void closeOther();

   405 

   406   //--------------------------------------

   407   // state variables

   408   //--------------------------------------

   409 

   410   PerlModOutput &m_output;

   411   bool m_textmode;

   412   bool m_textblockstart;

   413   QString m_other;

   414 };

   415 

   416 PerlModDocVisitor::PerlModDocVisitor(PerlModOutput &output)

   417   : DocVisitor(DocVisitor_Other), m_output(output), m_textmode(false)

   418 {

   419   m_output.openList("doc");

   420 }

   421 

   422 void PerlModDocVisitor::finish()

   423 {

   424   leaveText();

   425   m_output.closeList()

   426     .add(m_other);

   427 }

   428 

   429 void PerlModDocVisitor::addLink(const QString &,const QString &file,const QString &anchor)

   430 {

   431   QString link = file;

   432   if (!anchor.isEmpty())

   433     (link += "_1") += anchor;

   434   m_output.addFieldQuotedString("link", link);

   435 }

   436 

   437 void PerlModDocVisitor::openItem(const char *name)

   438 {

   439   leaveText();

   440   m_output.openHash().addFieldQuotedString("type", name);

   441 }

   442 

   443 void PerlModDocVisitor::closeItem()

   444 {

   445   leaveText();

   446   m_output.closeHash();

   447 }

   448 

   449 void PerlModDocVisitor::enterText()

   450 {

   451   if (m_textmode)

   452     return;

   453   openItem("text");

   454   m_output.addField("content").add('\'');

   455   m_textmode = true;

   456 }

   457 

   458 void PerlModDocVisitor::leaveText()

   459 {

   460   if (!m_textmode)

   461     return;

   462   m_textmode = false;

   463   m_output

   464     .add('\'')

   465     .closeHash();

   466 }

   467 

   468 void PerlModDocVisitor::singleItem(const char *name)

   469 {

   470   openItem(name);

   471   closeItem();

   472 }

   473 

   474 void PerlModDocVisitor::openSubBlock(const char *s)

   475 {

   476   leaveText();

   477   m_output.openList(s);

   478   m_textblockstart = true;

   479 }

   480 

   481 void PerlModDocVisitor::closeSubBlock()

   482 {

   483   leaveText();

   484   m_output.closeList();

   485 }

   486 

   487 void PerlModDocVisitor::openOther()

   488 {

   489   // Using a secondary text stream will corrupt the perl file. Instead of

   490   // printing doc => [ data => [] ], it will print doc => [] data => [].

   491   /*

   492   leaveText();

   493   m_output.openSave();

   494   */

   495 }

   496 

   497 void PerlModDocVisitor::closeOther()

   498 {

   499   // Using a secondary text stream will corrupt the perl file. Instead of

   500   // printing doc => [ data => [] ], it will print doc => [] data => [].

   501   /*

   502   QString other;

   503   leaveText();

   504   m_output.closeSave(other);

   505   m_other += other;

   506   */

   507 }

   508 

   509 void PerlModDocVisitor::visit(DocWord *w)

   510 {

   511   enterText();

   512   m_output.addQuoted(w->word());

   513 }

   514 

   515 void PerlModDocVisitor::visit(DocLinkedWord *w)

   516 {

   517   openItem("url");

   518   addLink(w->ref(), w->file(), w->anchor());

   519   m_output.addFieldQuotedString("content", w->word());

   520   closeItem();

   521 }

   522 

   523 void PerlModDocVisitor::visit(DocWhiteSpace *)

   524 {

   525   enterText();

   526   m_output.add(' ');

   527 }

   528 

   529 void PerlModDocVisitor::visit(DocSymbol *sy)

   530 {

   531   char c = 0;

   532   const char *s = 0;

   533   const char *accent = 0;

   534   const char *symbol = 0;

   535   switch(sy->symbol())

   536   {

   537   case DocSymbol::At:      c = '@'; break;

   538   case DocSymbol::Less:    c = '<'; break;

   539   case DocSymbol::Greater: c = '>'; break;

   540   case DocSymbol::Amp:     c = '&'; break;

   541   case DocSymbol::Dollar:  c = '$'; break;

   542   case DocSymbol::Hash:    c = '#'; break;

   543   case DocSymbol::Percent: c = '%'; break;

   544   case DocSymbol::Quot:    c = '"'; break;

   545   case DocSymbol::Lsquo:   s = "\\\'"; break;

   546   case DocSymbol::Rsquo:   s = "\\\'"; break;

   547   case DocSymbol::Ldquo:   c = '"'; break;

   548   case DocSymbol::Rdquo:   c = '"'; break;

   549   case DocSymbol::Ndash:   c = '-'; break;

   550   case DocSymbol::Mdash:   s = "--"; break;

   551   case DocSymbol::Nbsp:    c = ' '; break;

   552   case DocSymbol::Uml:     accent = "umlaut"; break;

   553   case DocSymbol::Acute:   accent = "acute"; break;

   554   case DocSymbol::Grave:   accent = "grave"; break;

   555   case DocSymbol::Circ:    accent = "circ"; break;

   556   case DocSymbol::Slash:   accent = "slash"; break;

   557   case DocSymbol::Tilde:   accent = "tilde"; break;

   558   case DocSymbol::Cedil:   accent = "cedilla"; break;

   559   case DocSymbol::Ring:    accent = "ring"; break;

   560   case DocSymbol::BSlash:  s = "\\\\"; break;

   561   case DocSymbol::Copy:    symbol = "copyright"; break;

   562   case DocSymbol::Tm:      symbol = "trademark"; break;

   563   case DocSymbol::Reg:     symbol = "registered"; break;

   564   case DocSymbol::Szlig:   symbol = "szlig"; break;

   565   case DocSymbol::Apos:    s = "\\\'"; break;

   566   case DocSymbol::Aelig:   symbol = "aelig"; break;

   567   case DocSymbol::AElig:   symbol = "AElig"; break;

   568   case DocSymbol::Unknown:

   569     err("Error: unknown symbol found\n");

   570     break;

   571   }

   572   if (c != 0) {

   573     enterText();

   574     m_output.add(c);

   575   } else if (s != 0) {

   576     enterText();

   577     m_output.add(s);

   578   } else if (symbol != 0) {

   579     leaveText();

   580     openItem("symbol");

   581     m_output.addFieldQuotedString("symbol", symbol);

   582     closeItem();

   583   } else if (accent != 0) {

   584     leaveText();

   585     openItem("accent");

   586     m_output

   587       .addFieldQuotedString("accent", accent)

   588       .addFieldQuotedChar("letter", sy->letter());

   589     closeItem();

   590   }

   591 }

   592 

   593 void PerlModDocVisitor::visit(DocURL *u)

   594 {

   595   openItem("url");

   596   m_output.addFieldQuotedString("content", u->url());

   597   closeItem();

   598 }

   599 

   600 void PerlModDocVisitor::visit(DocLineBreak *) { singleItem("linebreak"); }

   601 void PerlModDocVisitor::visit(DocHorRuler *) { singleItem("hruler"); }

   602 

   603 void PerlModDocVisitor::visit(DocStyleChange *s)

   604 {

   605   const char *style = 0;

   606   switch (s->style())

   607   {

   608     case DocStyleChange::Bold:          style = "bold"; break;

   609     case DocStyleChange::Italic:        style = "italic"; break;

   610     case DocStyleChange::Code:          style = "code"; break;

   611     case DocStyleChange::Subscript:     style = "subscript"; break;

   612     case DocStyleChange::Superscript:   style = "superscript"; break;

   613     case DocStyleChange::Center:        style = "center"; break;

   614     case DocStyleChange::Small:         style = "small"; break;

   615     case DocStyleChange::Preformatted:  style = "preformatted"; break;

   616     case DocStyleChange::Div:           style = "div"; break;

   617     case DocStyleChange::Span:          style = "span"; break;

   618                                         

   619   }

   620   openItem("style");

   621   m_output.addFieldQuotedString("style", style)

   622     .addFieldBoolean("enable", s->enable());

   623   closeItem();

   624 }

   625 

   626 void PerlModDocVisitor::visit(DocVerbatim *s)

   627 {

   628   const char *type = 0;

   629   switch(s->type())

   630   {

   631   case DocVerbatim::Code:

   632 #if 0

   633     m_output.add("<programlisting>");

   634     parseCode(m_ci,s->context(),s->text(),FALSE,0);

   635     m_output.add("</programlisting>");

   636 #endif

   637     return;

   638   case DocVerbatim::Verbatim:	type = "preformatted"; break;

   639   case DocVerbatim::HtmlOnly:	type = "htmlonly"; break;

   640   case DocVerbatim::ManOnly:	type = "manonly"; break;

   641   case DocVerbatim::LatexOnly:	type = "latexonly"; break;

   642   case DocVerbatim::XmlOnly:	type = "xmlonly"; break;

   643   case DocVerbatim::Dot:	type = "dot"; break;

   644   case DocVerbatim::Msc:	type = "msc"; break;

   645   }

   646   openItem(type);

   647   m_output.addFieldQuotedString("content", s->text());

   648   closeItem();

   649 }

   650 

   651 void PerlModDocVisitor::visit(DocAnchor *anc)

   652 {

   653   QString anchor = anc->file() + "_1" + anc->anchor();

   654   openItem("anchor");

   655   m_output.addFieldQuotedString("id", anchor);

   656   closeItem();

   657 }

   658 

   659 void PerlModDocVisitor::visit(DocInclude *inc)

   660 {

   661   const char *type = 0;

   662   switch(inc->type())

   663   {

   664   case DocInclude::IncWithLines:

   665   #if 0

   666       { 

   667          m_t << "<div class=\"fragment\"><pre>";

   668          QFileInfo cfi( inc->file() );

   669          FileDef fd( cfi.dirPath(), cfi.fileName() );

   670          parseCode(m_ci,inc->context(),inc->text().latin1(),inc->isExample(),inc->exampleFile(), &fd);

   671          m_t << "</pre></div>"; 

   672       }

   673       break;

   674   #endif

   675     return;

   676   case DocInclude::Include:

   677 #if 0

   678     m_output.add("<programlisting>");

   679     parseCode(m_ci,inc->context(),inc->text(),FALSE,0);

   680     m_output.add("</programlisting>");

   681 #endif

   682     return;

   683   case DocInclude::DontInclude:	return;

   684   case DocInclude::HtmlInclude:	type = "htmlonly"; break;

   685   case DocInclude::VerbInclude:	type = "preformatted"; break;

   686   }

   687   openItem(type);

   688   m_output.addFieldQuotedString("content", inc->text());

   689   closeItem();

   690 }

   691 

   692 void PerlModDocVisitor::visit(DocIncOperator *)

   693 {

   694 #if 0

   695   //printf("DocIncOperator: type=%d first=%d, last=%d text=`%s'\n",

   696   //    op->type(),op->isFirst(),op->isLast(),op->text().data());

   697   if (op->isFirst())

   698   {

   699     m_output.add("<programlisting>");

   700   }

   701   if (op->type()!=DocIncOperator::Skip)

   702   {

   703     parseCode(m_ci,op->context(),op->text(),FALSE,0);

   704   }

   705   if (op->isLast()) 

   706   {

   707     m_output.add("</programlisting>");

   708   }

   709   else

   710   {

   711     m_output.add('\n');

   712   }

   713 #endif

   714 }

   715 

   716 void PerlModDocVisitor::visit(DocFormula *f)

   717 {

   718   openItem("formula");

   719   QString id;

   720   id += f->id();

   721   m_output.addFieldQuotedString("id", id).addFieldQuotedString("content", f->text());

   722   closeItem();

   723 }

   724 

   725 void PerlModDocVisitor::visit(DocIndexEntry *)

   726 {

   727 #if 0

   728   m_output.add("<indexentry>"

   729 	       "<primaryie>");

   730   m_output.addQuoted(ie->entry());

   731   m_output.add("</primaryie>"

   732 	       "<secondaryie></secondaryie>"

   733 	       "</indexentry>");

   734 #endif

   735 }

   736 

   737 void PerlModDocVisitor::visit(DocSimpleSectSep *)

   738 {

   739 }

   740 

   741 //--------------------------------------

   742 // visitor functions for compound nodes

   743 //--------------------------------------

   744 

   745 void PerlModDocVisitor::visitPre(DocAutoList *l)

   746 {

   747   openItem("list");

   748   m_output.addFieldQuotedString("style", l->isEnumList() ? "ordered" : "itemized");

   749   openSubBlock("content");

   750 }

   751 

   752 void PerlModDocVisitor::visitPost(DocAutoList *)

   753 {

   754   closeSubBlock();

   755   closeItem();

   756 }

   757 

   758 void PerlModDocVisitor::visitPre(DocAutoListItem *)

   759 {

   760   openSubBlock();

   761 }

   762 

   763 void PerlModDocVisitor::visitPost(DocAutoListItem *)

   764 {

   765   closeSubBlock();

   766 }

   767 

   768 void PerlModDocVisitor::visitPre(DocPara *)

   769 {

   770   if (m_textblockstart)

   771     m_textblockstart = false;

   772   else

   773     singleItem("parbreak");

   774   /*

   775   openItem("para");

   776   openSubBlock("content");

   777   */

   778 }

   779 

   780 void PerlModDocVisitor::visitPost(DocPara *)

   781 {

   782   /*

   783   closeSubBlock();

   784   closeItem();

   785   */

   786 }

   787 

   788 void PerlModDocVisitor::visitPre(DocRoot *)

   789 {

   790 }

   791 

   792 void PerlModDocVisitor::visitPost(DocRoot *)

   793 {

   794 }

   795 

   796 void PerlModDocVisitor::visitPre(DocSimpleSect *s)

   797 {

   798   const char *type = 0;

   799   switch (s->type())

   800   {

   801   case DocSimpleSect::See:		type = "see"; break;

   802   case DocSimpleSect::Return:		type = "return"; break;

   803   case DocSimpleSect::Author:		type = "author"; break;

   804   case DocSimpleSect::Authors:		type = "authors"; break;

   805   case DocSimpleSect::Version:		type = "version"; break;

   806   case DocSimpleSect::Since:		type = "since"; break;

   807   case DocSimpleSect::Date:		type = "date"; break;

   808   case DocSimpleSect::Note:		type = "bug"; break;

   809   case DocSimpleSect::Warning:		type = "warning"; break;

   810   case DocSimpleSect::Pre:		type = "pre"; break;

   811   case DocSimpleSect::Post:		type = "post"; break;

   812   case DocSimpleSect::Invar:		type = "invariant"; break;

   813   case DocSimpleSect::Remark:		type = "remark"; break;

   814   case DocSimpleSect::Attention:	type = "attention"; break;

   815   case DocSimpleSect::User:		type = "par"; break;

   816   case DocSimpleSect::Rcs:		type = "rcs"; break;

   817   case DocSimpleSect::Unknown:

   818     err("Error: unknown simple section found\n");

   819     break;

   820   }

   821   openOther();

   822   openSubBlock(type);

   823 }

   824 

   825 void PerlModDocVisitor::visitPost(DocSimpleSect *)

   826 {

   827   closeSubBlock();

   828   closeOther();

   829 }

   830 

   831 void PerlModDocVisitor::visitPre(DocTitle *)

   832 {

   833   openItem("title");

   834   openSubBlock("content");

   835 }

   836 

   837 void PerlModDocVisitor::visitPost(DocTitle *)

   838 {

   839   closeSubBlock();

   840   closeItem();

   841 }

   842 

   843 void PerlModDocVisitor::visitPre(DocSimpleList *) 

   844 {

   845   openItem("list");

   846   m_output.addFieldQuotedString("style", "itemized");

   847   openSubBlock("content");

   848 }

   849 

   850 void PerlModDocVisitor::visitPost(DocSimpleList *)

   851 {

   852   closeSubBlock();

   853   closeItem();

   854 }

   855 

   856 void PerlModDocVisitor::visitPre(DocSimpleListItem *) { openSubBlock(); }

   857 void PerlModDocVisitor::visitPost(DocSimpleListItem *) { closeSubBlock(); }

   858 

   859 void PerlModDocVisitor::visitPre(DocSection *s)

   860 {

   861   QString sect = QString("sect%1").arg(s->level());

   862   openItem(sect);

   863   openSubBlock("content");

   864 }

   865 

   866 void PerlModDocVisitor::visitPost(DocSection *)

   867 {

   868   closeSubBlock();

   869   closeItem();

   870 }

   871 

   872 void PerlModDocVisitor::visitPre(DocHtmlList *l)

   873 {

   874   openItem("list");

   875   m_output.addFieldQuotedString("style", (l->type() == DocHtmlList::Ordered) ? "ordered" : "itemized");

   876   openSubBlock("content");

   877 }

   878 

   879 void PerlModDocVisitor::visitPost(DocHtmlList *)

   880 {

   881   closeSubBlock();

   882   closeItem();

   883 }

   884 

   885 void PerlModDocVisitor::visitPre(DocHtmlListItem *) { openSubBlock(); }

   886 void PerlModDocVisitor::visitPost(DocHtmlListItem *) { closeSubBlock(); }

   887 

   888 //void PerlModDocVisitor::visitPre(DocHtmlPre *)

   889 //{

   890 //  openItem("preformatted");

   891 //  openSubBlock("content");

   892 //  //m_insidePre=TRUE;

   893 //}

   894 

   895 //void PerlModDocVisitor::visitPost(DocHtmlPre *)

   896 //{

   897 //  //m_insidePre=FALSE;

   898 //  closeSubBlock();

   899 //  closeItem();

   900 //}

   901 

   902 void PerlModDocVisitor::visitPre(DocHtmlDescList *)

   903 {

   904 #if 0

   905   m_output.add("<variablelist>\n");

   906 #endif

   907 }

   908 

   909 void PerlModDocVisitor::visitPost(DocHtmlDescList *)

   910 {

   911 #if 0

   912   m_output.add("</variablelist>\n");

   913 #endif

   914 }

   915 

   916 void PerlModDocVisitor::visitPre(DocHtmlDescTitle *)

   917 {

   918 #if 0

   919   m_output.add("<varlistentry><term>");

   920 #endif

   921 }

   922 

   923 void PerlModDocVisitor::visitPost(DocHtmlDescTitle *)

   924 {

   925 #if 0

   926   m_output.add("</term></varlistentry>\n");

   927 #endif

   928 }

   929 

   930 void PerlModDocVisitor::visitPre(DocHtmlDescData *)

   931 {

   932 #if 0

   933   m_output.add("<listitem>");

   934 #endif

   935 }

   936 

   937 void PerlModDocVisitor::visitPost(DocHtmlDescData *)

   938 {

   939 #if 0

   940   m_output.add("</listitem>\n");

   941 #endif

   942 }

   943 

   944 void PerlModDocVisitor::visitPre(DocHtmlTable *)

   945 {

   946 #if 0

   947   m_output.add("<table rows=\""); m_output.add(t->numRows());

   948   m_output.add("\" cols=\""); m_output.add(t->numCols()); m_output.add("\">");

   949 #endif

   950 }

   951 

   952 void PerlModDocVisitor::visitPost(DocHtmlTable *)

   953 {

   954 #if 0

   955   m_output.add("</table>\n");

   956 #endif

   957 }

   958 

   959 void PerlModDocVisitor::visitPre(DocHtmlRow *)

   960 {

   961 #if 0

   962   m_output.add("<row>\n");

   963 #endif

   964 }

   965 

   966 void PerlModDocVisitor::visitPost(DocHtmlRow *)

   967 {

   968 #if 0

   969   m_output.add("</row>\n");

   970 #endif

   971 }

   972 

   973 void PerlModDocVisitor::visitPre(DocHtmlCell *)

   974 {

   975 #if 0

   976   if (c->isHeading()) m_output.add("<entry thead=\"yes\">"); else m_output.add("<entry thead=\"no\">");

   977 #endif

   978 }

   979 

   980 void PerlModDocVisitor::visitPost(DocHtmlCell *)

   981 {

   982 #if 0

   983   m_output.add("</entry>");

   984 #endif

   985 }

   986 

   987 void PerlModDocVisitor::visitPre(DocHtmlCaption *)

   988 {

   989 #if 0

   990   m_output.add("<caption>");

   991 #endif

   992 }

   993 

   994 void PerlModDocVisitor::visitPost(DocHtmlCaption *)

   995 {

   996 #if 0

   997   m_output.add("</caption>\n");

   998 #endif

   999 }

  1000 

  1001 void PerlModDocVisitor::visitPre(DocInternal *)

  1002 {

  1003 #if 0

  1004   m_output.add("<internal>");

  1005 #endif

  1006 }

  1007 

  1008 void PerlModDocVisitor::visitPost(DocInternal *)

  1009 {

  1010 #if 0

  1011   m_output.add("</internal>");

  1012 #endif

  1013 }

  1014 

  1015 void PerlModDocVisitor::visitPre(DocHRef *)

  1016 {

  1017 #if 0

  1018   m_output.add("<ulink url=\""); m_output.add(href->url()); m_output.add("\">");

  1019 #endif

  1020 }

  1021 

  1022 void PerlModDocVisitor::visitPost(DocHRef *)

  1023 {

  1024 #if 0

  1025   m_output.add("</ulink>");

  1026 #endif

  1027 }

  1028 

  1029 void PerlModDocVisitor::visitPre(DocHtmlHeader *)

  1030 {

  1031 #if 0

  1032   m_output.add("<sect"); m_output.add(header->level()); m_output.add(">");

  1033 #endif

  1034 }

  1035 

  1036 void PerlModDocVisitor::visitPost(DocHtmlHeader *)

  1037 {

  1038 #if 0

  1039   m_output.add("</sect"); m_output.add(header->level()); m_output.add(">\n");

  1040 #endif

  1041 }

  1042 

  1043 void PerlModDocVisitor::visitPre(DocImage *)

  1044 {

  1045 #if 0

  1046   m_output.add("<image type=\"");

  1047   switch(img->type())

  1048   {

  1049   case DocImage::Html:  m_output.add("html"); break;

  1050   case DocImage::Latex: m_output.add("latex"); break;

  1051   case DocImage::Rtf:   m_output.add("rtf"); break;

  1052   }

  1053   m_output.add("\"");

  1054   

  1055   QCString baseName=img->name();

  1056   int i;

  1057   if ((i=baseName.findRev('/'))!=-1 || (i=baseName.findRev('\\'))!=-1)

  1058   {

  1059     baseName=baseName.right(baseName.length()-i-1);

  1060   }

  1061   m_output.add(" name=\""); m_output.add(baseName); m_output.add("\"");

  1062   if (!img->width().isEmpty())

  1063   {

  1064     m_output.add(" width=\"");

  1065     m_output.addQuoted(img->width());

  1066     m_output.add("\"");

  1067   }

  1068   else if (!img->height().isEmpty())

  1069   {

  1070     m_output.add(" height=\"");

  1071     m_output.addQuoted(img->height());

  1072     m_output.add("\"");

  1073   }

  1074   m_output.add(">");

  1075 #endif

  1076 }

  1077 

  1078 void PerlModDocVisitor::visitPost(DocImage *)

  1079 {

  1080 #if 0

  1081   m_output.add("</image>");

  1082 #endif

  1083 }

  1084 

  1085 void PerlModDocVisitor::visitPre(DocDotFile *)

  1086 {

  1087 #if 0

  1088   m_output.add("<dotfile name=\""); m_output.add(df->file()); m_output.add("\">");

  1089 #endif

  1090 }

  1091 

  1092 void PerlModDocVisitor::visitPost(DocDotFile *)

  1093 {

  1094 #if 0

  1095   m_output.add("</dotfile>");

  1096 #endif

  1097 }

  1098 

  1099 void PerlModDocVisitor::visitPre(DocLink *lnk)

  1100 {

  1101   openItem("link");

  1102   addLink(lnk->ref(), lnk->file(), lnk->anchor());

  1103 }

  1104 

  1105 void PerlModDocVisitor::visitPost(DocLink *)

  1106 {

  1107   closeItem();

  1108 }

  1109 

  1110 void PerlModDocVisitor::visitPre(DocRef *ref)

  1111 {

  1112   openItem("ref");

  1113   if (!ref->hasLinkText())

  1114     m_output.addFieldQuotedString("text", ref->targetTitle());

  1115   openSubBlock("content");

  1116 }

  1117 

  1118 void PerlModDocVisitor::visitPost(DocRef *)

  1119 {

  1120   closeSubBlock();

  1121   closeItem();

  1122 }

  1123 

  1124 void PerlModDocVisitor::visitPre(DocSecRefItem *)

  1125 {

  1126 #if 0

  1127   m_output.add("<tocitem id=\""); m_output.add(ref->file()); m_output.add("_1"); m_output.add(ref->anchor()); m_output.add("\">");

  1128 #endif

  1129 }

  1130 

  1131 void PerlModDocVisitor::visitPost(DocSecRefItem *)

  1132 {

  1133 #if 0

  1134   m_output.add("</tocitem>");