]> git.saurik.com Git - wxWidgets.git/blame_incremental - utils/tex2rtf/src/htmlutil.cpp
projects / wxWidgets.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
Implement wxBitmapButton::DoGetBestSize() to call wxButtonBase version so
[wxWidgets.git] / utils / tex2rtf / src / htmlutil.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: htmlutil.cpp
3// Purpose: Converts Latex to HTML
4// Author: Julian Smart
5// Modified by: Wlodzimiez ABX Skiba 2003/2004 Unicode support
6// Ron Lee
7// Created: 7.9.93
8// RCS-ID: $Id$
9// Copyright: (c) Julian Smart
10// Licence: wxWindows licence
11/////////////////////////////////////////////////////////////////////////////
12
13#ifdef __GNUG__
14#pragma implementation
15#endif
16
17// For compilers that support precompilation, includes "wx.h".
18#include "wx/wxprec.h"
19
20#ifdef __BORLANDC__
21#pragma hdrstop
22#endif
23
24#ifndef WX_PRECOMP
25#endif
26
27#include "wx/arrstr.h"
28
29#include "tex2any.h"
30#include "tex2rtf.h"
31#include "table.h"
32
33#if !WXWIN_COMPATIBILITY_2_4
34static inline wxChar* copystring(const wxChar* s)
35 { return wxStrcpy(new wxChar[wxStrlen(s) + 1], s); }
36#endif
37
38extern wxHashTable TexReferences;
39
40
41extern void DecToHex(int, wxChar *);
42void GenerateHTMLIndexFile(wxChar *fname);
43
44void GenerateHTMLWorkshopFiles(wxChar *fname);
45void HTMLWorkshopAddToContents(int level, wxChar *s, wxChar *file);
46void HTMLWorkshopStartContents();
47void HTMLWorkshopEndContents();
48
49void OutputContentsFrame(void);
50
51#include "readshg.h" // Segmented hypergraphics parsing
52
53wxChar *ChaptersName = NULL;
54wxChar *SectionsName = NULL;
55wxChar *SubsectionsName = NULL;
56wxChar *SubsubsectionsName = NULL;
57wxChar *TitlepageName = NULL;
58wxChar *lastFileName = NULL;
59wxChar *lastTopic = NULL;
60wxChar *currentFileName = NULL;
61wxChar *contentsFrameName = NULL;
62
63static TexChunk *descriptionItemArg = NULL;
64static TexChunk *helpRefFilename = NULL;
65static TexChunk *helpRefText = NULL;
66static int indentLevel = 0;
67static int citeCount = 1;
68extern FILE *Contents;
69FILE *FrameContents = NULL;
70FILE *Titlepage = NULL;
71// FILE *FrameTitlepage = NULL;
72int fileId = 0;
73bool subsectionStarted = false;
74
75// Which column of a row are we in? (Assumes no nested tables, of course)
76int currentColumn = 0;
77
78// Are we in verbatim mode? If so, format differently.
79static bool inVerbatim = false;
80
81// Need to know whether we're in a table or figure for benefit
82// of listoffigures/listoftables
83static bool inFigure = false;
84static bool inTable = false;
85
86// This is defined in the Tex2Any library.
87extern wxChar *BigBuffer;
88
89// DHS Two-column table dimensions.
90static int TwoColWidthA = -1;
91static int TwoColWidthB = -1;
92
93
94class HyperReference: public wxObject
95{
96 public:
97 wxChar *refName;
98 wxChar *refFile;
99 HyperReference(wxChar *name, wxChar *file)
100 {
101 if (name) refName = copystring(name);
102 if (file) refFile = copystring(file);
103 }
104};
105
106class TexNextPage: public wxObject
107{
108 public:
109 wxChar *label;
110 wxChar *filename;
111 TexNextPage(wxChar *theLabel, wxChar *theFile)
112 {
113 label = copystring(theLabel);
114 filename = copystring(theFile);
115 }
116 ~TexNextPage(void)
117 {
118 delete[] label;
119 delete[] filename;
120 }
121};
122
123wxHashTable TexNextPages(wxKEY_STRING);
124
125static wxChar *CurrentChapterName = NULL;
126static wxChar *CurrentChapterFile = NULL;
127static wxChar *CurrentSectionName = NULL;
128static wxChar *CurrentSectionFile = NULL;
129static wxChar *CurrentSubsectionName = NULL;
130static wxChar *CurrentSubsectionFile = NULL;
131static wxChar *CurrentSubsubsectionName = NULL;
132static wxChar *CurrentSubsubsectionFile = NULL;
133static wxChar *CurrentTopic = NULL;
134
135static void SetCurrentTopic(wxChar *s)
136{
137 if (CurrentTopic) delete[] CurrentTopic;
138 CurrentTopic = copystring(s);
139}
140
141void SetCurrentChapterName(wxChar *s, wxChar *file)
142{
143 if (CurrentChapterName) delete[] CurrentChapterName;
144 CurrentChapterName = copystring(s);
145 if (CurrentChapterFile) delete[] CurrentChapterFile;
146 CurrentChapterFile = copystring(file);
147
148 currentFileName = CurrentChapterFile;
149
150 SetCurrentTopic(s);
151}
152void SetCurrentSectionName(wxChar *s, wxChar *file)
153{
154 if (CurrentSectionName) delete[] CurrentSectionName;
155 CurrentSectionName = copystring(s);
156 if (CurrentSectionFile) delete[] CurrentSectionFile;
157 CurrentSectionFile = copystring(file);
158
159 currentFileName = CurrentSectionFile;
160 SetCurrentTopic(s);
161}
162void SetCurrentSubsectionName(wxChar *s, wxChar *file)
163{
164 if (CurrentSubsectionName) delete[] CurrentSubsectionName;
165 CurrentSubsectionName = copystring(s);
166 if (CurrentSubsectionFile) delete[] CurrentSubsectionFile;
167 CurrentSubsectionFile = copystring(file);
168 currentFileName = CurrentSubsectionFile;
169 SetCurrentTopic(s);
170}
171void SetCurrentSubsubsectionName(wxChar *s, wxChar *file)
172{
173 if (CurrentSubsubsectionName) delete[] CurrentSubsubsectionName;
174 CurrentSubsubsectionName = copystring(s);
175 if (CurrentSubsubsectionFile) delete[] CurrentSubsubsectionFile;
176 CurrentSubsubsectionFile = copystring(file);
177 currentFileName = CurrentSubsubsectionFile;
178 SetCurrentTopic(s);
179}
180
181
182// mapping between fileId and filenames if truncateFilenames=false:
183static wxArrayString gs_filenames;
184
185
186/*
187 * Close former filedescriptor and reopen using another filename.
188 *
189 */
190
191void ReopenFile(FILE **fd, wxChar **fileName, const wxChar *label)
192{
193 if (*fd)
194 {
195 wxFprintf(*fd, _T("\n</FONT></BODY></HTML>\n"));
196 fclose(*fd);
197 }
198 fileId ++;
199 wxChar buf[400];
200 if (truncateFilenames)
201 {
202 wxSnprintf(buf, sizeof(buf), _T("%s%d.htm"), FileRoot, fileId);
203 }
204 else
205 {
206 if (fileId == 1)
207 gs_filenames.Add(wxEmptyString);
208 wxSnprintf(buf, sizeof(buf), _T("%s_%s.html"), FileRoot, label);
209 gs_filenames.Add(buf);
210 }
211 if (*fileName) delete[] *fileName;
212 *fileName = copystring(wxFileNameFromPath(buf));
213 *fd = wxFopen(buf, _T("w"));
214 wxFprintf(*fd, _T("<HTML>\n"));
215}
216
217/*
218 * Reopen section contents file, i.e. the index appended to each section
219 * in subsectionCombine mode
220 */
221
222static wxChar *SectionContentsFilename = NULL;
223static FILE *SectionContentsFD = NULL;
224
225void ReopenSectionContentsFile(void)
226{
227 if ( SectionContentsFD )
228 {
229 fclose(SectionContentsFD);
230 }
231 if ( SectionContentsFilename )
232 delete[] SectionContentsFilename;
233 SectionContentsFD = NULL;
234 SectionContentsFilename = NULL;
235
236 // Create the name from the current section filename
237 if ( CurrentSectionFile )
238 {
239 wxChar buf[256];
240 wxStrcpy(buf, CurrentSectionFile);
241 wxStripExtension(buf);
242 wxStrcat(buf, _T(".con"));
243 SectionContentsFilename = copystring(buf);
244
245 SectionContentsFD = wxFopen(SectionContentsFilename, _T("w"));
246 }
247}
248
249
250/*
251 * Given a TexChunk with a string value, scans through the string
252 * converting Latex-isms into HTML-isms, such as 2 newlines -> <P>.
253 *
254 */
255
256void ProcessText2HTML(TexChunk *chunk)
257{
258 bool changed = false;
259 int ptr = 0;
260 int i = 0;
261 char ch = 1;
262 int len = wxStrlen(chunk->value);
263 while (ch != 0)
264 {
265 ch = chunk->value[i];
266
267 // 2 newlines means \par
268 if (!inVerbatim && chunk->value[i] == 10 && ((len > i+1 && chunk->value[i+1] == 10) ||
269 ((len > i+1 && chunk->value[i+1] == 13) &&
270 (len > i+2 && chunk->value[i+2] == 10))))
271 {
272 BigBuffer[ptr] = 0; wxStrcat(BigBuffer, _T("<P>\n\n")); ptr += 5;
273 i += 2;
274 changed = true;
275 }
276 else if (!inVerbatim && ch == '`' && (len >= i+1 && chunk->value[i+1] == '`'))
277 {
278 BigBuffer[ptr] = '"'; ptr ++;
279 i += 2;
280 changed = true;
281 }
282 else if (!inVerbatim && ch == '`') // Change ` to '
283 {
284 BigBuffer[ptr] = 39; ptr ++;
285 i += 1;
286 changed = true;
287 }
288 else if (ch == '<') // Change < to &lt
289 {
290 BigBuffer[ptr] = 0;
291 wxStrcat(BigBuffer, _T("&lt;"));
292 ptr += 4;
293 i += 1;
294 changed = true;
295 }
296 else if (ch == '>') // Change > to &gt
297 {
298 BigBuffer[ptr] = 0;
299 wxStrcat(BigBuffer, _T("&gt;"));
300 ptr += 4;
301 i += 1;
302 changed = true;
303 }
304 else
305 {
306 BigBuffer[ptr] = ch;
307 i ++;
308 ptr ++;
309 }
310 }
311 BigBuffer[ptr] = 0;
312
313 if (changed)
314 {
315 delete chunk->value;
316 chunk->value = copystring(BigBuffer);
317 }
318}
319
320/*
321 * Scan through all chunks starting from the given one,
322 * calling ProcessText2HTML to convert Latex-isms to RTF-isms.
323 * This should be called after Tex2Any has parsed the file,
324 * and before TraverseDocument is called.
325 *
326 */
327
328void Text2HTML(TexChunk *chunk)
329{
330 Tex2RTFYield();
331 if (stopRunning) return;
332
333 switch (chunk->type)
334 {
335 case CHUNK_TYPE_MACRO:
336 {
337 TexMacroDef *def = chunk->def;
338
339 if (def && def->ignore)
340 return;
341
342 if (def && (def->macroId == ltVERBATIM || def->macroId == ltVERB || def->macroId == ltSPECIAL))
343 inVerbatim = true;
344
345 wxNode *node = chunk->children.GetFirst();
346 while (node)
347 {
348 TexChunk *child_chunk = (TexChunk *)node->GetData();
349 Text2HTML(child_chunk);
350 node = node->GetNext();
351 }
352
353 if (def && (def->macroId == ltVERBATIM || def->macroId == ltVERB || def->macroId == ltSPECIAL))
354 inVerbatim = false;
355
356 break;
357 }
358 case CHUNK_TYPE_ARG:
359 {
360 wxNode *node = chunk->children.GetFirst();
361 while (node)
362 {
363 TexChunk *child_chunk = (TexChunk *)node->GetData();
364 Text2HTML(child_chunk);
365 node = node->GetNext();
366 }
367
368 break;
369 }
370 case CHUNK_TYPE_STRING:
371 {
372 if (chunk->value)
373 ProcessText2HTML(chunk);
374 break;
375 }
376 }
377}
378
379/*
380 * Add appropriate browse buttons to this page.
381 *
382 */
383
384void AddBrowseButtons(wxChar *upLabel, wxChar *upFilename,
385 wxChar *previousLabel, wxChar *previousFilename,
386 wxChar *thisLabel, wxChar *thisFilename)
387{
388 wxChar contentsReferenceBuf[80];
389 wxChar upReferenceBuf[80];
390 wxChar backReferenceBuf[80];
391 wxChar forwardReferenceBuf[80];
392 if (htmlBrowseButtons == HTML_BUTTONS_NONE)
393 return;
394
395 wxChar *contentsReference; // no need to initialize because always assigned below
396 if (htmlBrowseButtons == HTML_BUTTONS_TEXT)
397 contentsReference = ContentsNameString;
398 else
399 {
400// contentsReference = "<img align=center src=\"contents.gif\" BORDER=0 ALT=\"Contents\">";
401 contentsReference = contentsReferenceBuf;
402 wxSnprintf(contentsReference, sizeof(contentsReferenceBuf),
403 _T("<img align=center src=\"%s\" BORDER=0 ALT=\"Contents\">"),
404 ConvertCase(_T("contents.gif")));
405 }
406
407 wxChar *upReference; // no need to initialize because always assigned below
408 if (htmlBrowseButtons == HTML_BUTTONS_TEXT)
409 upReference = UpNameString;
410 else
411 {
412// upReference = "<img align=center src=\"up.gif\" ALT=\"Up\">";
413 upReference = upReferenceBuf;
414 wxSnprintf(upReference, sizeof(upReferenceBuf),
415 _T("<img align=center src=\"%s\" BORDER=0 ALT=\"Up\">"),
416 ConvertCase(_T("up.gif")));
417 }
418
419 wxChar *backReference; // no need to initialize because always assigned below
420 if (htmlBrowseButtons == HTML_BUTTONS_TEXT)
421 backReference = _T("&lt;&lt;");
422 else
423 {
424// backReference = "<img align=center src=\"back.gif\" ALT=\"Previous\">";
425 backReference = backReferenceBuf;
426 wxSnprintf(backReference, sizeof(backReferenceBuf),
427 _T("<img align=center src=\"%s\" BORDER=0 ALT=\"Previous\">"),
428 ConvertCase(_T("back.gif")));
429 }
430
431 wxChar *forwardReference; // no need to initialize because always assigned below
432 if (htmlBrowseButtons == HTML_BUTTONS_TEXT)
433 forwardReference = _T("&gt;&gt;");
434 else
435 {
436// forwardReference = "<img align=center src=\"forward.gif\" ALT=\"Next\">";
437 forwardReference = forwardReferenceBuf;
438 wxSnprintf(forwardReference, sizeof(forwardReferenceBuf),
439 _T("<img align=center src=\"%s\" BORDER=0 ALT=\"Next\">"),
440 ConvertCase(_T("forward.gif")));
441 }
442
443 TexOutput(_T("<CENTER>"));
444
445 wxChar buf[200];
446
447 /*
448 * Contents button
449 *
450 */
451
452 if (truncateFilenames)
453 {
454 wxChar buf1[80];
455 wxStrcpy(buf1, ConvertCase(wxFileNameFromPath(FileRoot)));
456 wxSnprintf(buf, sizeof(buf),
457 _T("\n<A HREF=\"%s.%s\">%s</A> "),
458 buf1, ConvertCase(_T("htm")), contentsReference);
459 }
460 else
461 {
462 wxChar buf1[80];
463 wxStrcpy(buf1, ConvertCase(wxFileNameFromPath(FileRoot)));
464 wxSnprintf(buf, sizeof(buf),
465 _T("\n<A HREF=\"%s%s\">%s</A> "),
466 buf1, ConvertCase(_T("_contents.html")), contentsReference);
467 }
468// TexOutput(_T("<NOFRAMES>"));
469 TexOutput(buf);
470// TexOutput(_T("</NOFRAMES>"));
471
472 /*
473 * Up button
474 *
475 */
476
477 if (upLabel && upFilename)
478 {
479 if (wxStrlen(upLabel) > 0)
480 wxSnprintf(buf, sizeof(buf),
481 _T("<A HREF=\"%s#%s\">%s</A> "),
482 ConvertCase(upFilename), upLabel, upReference);
483 else
484 wxSnprintf(buf, sizeof(buf),
485 _T("<A HREF=\"%s\">%s</A> "),
486 ConvertCase(upFilename), upReference);
487 if (wxStrcmp(upLabel, _T("contents")) == 0)
488 {
489// TexOutput(_T("<NOFRAMES>"));
490 TexOutput(buf);
491// TexOutput(_T("</NOFRAMES>"));
492 }
493 else
494 TexOutput(buf);
495 }
496
497 /*
498 * << button
499 *
500 */
501
502 if (previousLabel && previousFilename)
503 {
504 wxSnprintf(buf, sizeof(buf),
505 _T("<A HREF=\"%s#%s\">%s</A> "),
506 ConvertCase(previousFilename), previousLabel, backReference);
507 if (wxStrcmp(previousLabel, _T("contents")) == 0)
508 {
509// TexOutput(_T("<NOFRAMES>"));
510 TexOutput(buf);
511// TexOutput(_T("</NOFRAMES>"));
512 }
513 else
514 TexOutput(buf);
515 }
516 else
517 {
518 // A placeholder so the buttons don't keep moving position
519 wxSnprintf(buf, sizeof(buf), _T("%s "), backReference);
520 TexOutput(buf);
521 }
522
523 wxChar *nextLabel = NULL;
524 wxChar *nextFilename = NULL;
525
526 // Get the next page, and record the previous page's 'next' page
527 // (i.e. this page)
528 TexNextPage *nextPage = (TexNextPage *)TexNextPages.Get(thisLabel);
529 if (nextPage)
530 {
531 nextLabel = nextPage->label;
532 nextFilename = nextPage->filename;
533 }
534 if (previousLabel && previousFilename)
535 {
536 TexNextPage *oldNextPage = (TexNextPage *)TexNextPages.Get(previousLabel);
537 if (oldNextPage)
538 {
539 delete oldNextPage;
540 TexNextPages.Delete(previousLabel);
541 }
542 TexNextPage *newNextPage = new TexNextPage(thisLabel, thisFilename);
543 TexNextPages.Put(previousLabel, newNextPage);
544 }
545
546 /*
547 * >> button
548 *
549 */
550
551 if (nextLabel && nextFilename)
552 {
553 wxSnprintf(buf, sizeof(buf),
554 _T("<A HREF=\"%s#%s\">%s</A> "),
555 ConvertCase(nextFilename), nextLabel, forwardReference);
556 TexOutput(buf);
557 }
558 else
559 {
560 // A placeholder so the buttons don't keep moving position
561 wxSnprintf(buf, sizeof(buf), _T("%s "), forwardReference);
562 TexOutput(buf);
563 }
564
565 /*
566 * Horizontal rule to finish it off nicely.
567 *
568 */
569 TexOutput(_T("</CENTER>"));
570 TexOutput(_T("<HR>\n"));
571
572 // Update last topic/filename
573 if (lastFileName)
574 delete[] lastFileName;
575 lastFileName = copystring(thisFilename);
576 if (lastTopic)
577 delete[] lastTopic;
578 lastTopic = copystring(thisLabel);
579}
580
581// A colour string is either 3 numbers separated by semicolons (RGB),
582// or a reference to a GIF. Return the filename or a hex string like #934CE8
583wxChar *ParseColourString(wxChar *bkStr, bool *isPicture)
584{
585 static wxChar resStr[300];
586 wxStrcpy(resStr, bkStr);
587 wxStringTokenizer tok(resStr, _T(";"), wxTOKEN_STRTOK);
588 if (tok.HasMoreTokens())
589 {
590 wxString token1 = tok.GetNextToken();
591 if (!tok.HasMoreTokens())
592 {
593 *isPicture = true;
594 return resStr;
595 }
596 else
597 {
598 wxString token2 = tok.GetNextToken();
599 *isPicture = false;
600 if (tok.HasMoreTokens())
601 {
602 wxString token3 = tok.GetNextToken();
603
604 // Now convert 3 strings into decimal numbers, and then hex numbers.
605 int red = wxAtoi(token1.c_str());
606 int green = wxAtoi(token2.c_str());
607 int blue = wxAtoi(token3.c_str());
608
609 wxStrcpy(resStr, _T("#"));
610
611 wxChar buf[3];
612 DecToHex(red, buf);
613 wxStrcat(resStr, buf);
614 DecToHex(green, buf);
615 wxStrcat(resStr, buf);
616 DecToHex(blue, buf);
617 wxStrcat(resStr, buf);
618 return resStr;
619 }
620 else return NULL;
621 }
622 }
623 else return NULL;
624}
625
626void OutputFont(void)
627{
628 // Only output <font face> if explicitly requested by htmlFaceName= directive in
629 // tex2rtf.ini. Otherwise do NOT set the font because we want to use browser's
630 // default font:
631 if (htmlFaceName)
632 {
633 // Output <FONT FACE=...>
634 TexOutput(_T("<FONT FACE=\""));
635 TexOutput(htmlFaceName);
636 TexOutput(_T("\">\n"));
637 }
638}
639
640// Output start of <BODY> block
641void OutputBodyStart(void)
642{
643 TexOutput(_T("\n<BODY"));
644 if (backgroundImageString)
645 {
646 bool isPicture = false;
647 wxChar *s = ParseColourString(backgroundImageString, &isPicture);
648 if (s)
649 {
650 TexOutput(_T(" BACKGROUND=\""));
651 TexOutput(s);
652 TexOutput(_T("\""));
653 }
654 }
655 if (backgroundColourString)
656 {
657 bool isPicture = false;
658 wxChar *s = ParseColourString(backgroundColourString, &isPicture);
659 if (s)
660 {
661 TexOutput(_T(" BGCOLOR="));
662 TexOutput(s);
663 }
664 }
665
666 // Set foreground text colour, if one is specified
667 if (textColourString)
668 {
669 bool isPicture = false;
670 wxChar *s = ParseColourString(textColourString, &isPicture);
671 if (s)
672 {
673 TexOutput(_T(" TEXT=")); TexOutput(s);
674 }
675 }
676 // Set link text colour, if one is specified
677 if (linkColourString)
678 {
679 bool isPicture = false;
680 wxChar *s = ParseColourString(linkColourString, &isPicture);
681 if (s)
682 {
683 TexOutput(_T(" LINK=")); TexOutput(s);
684 }
685 }
686 // Set followed link text colour, if one is specified
687 if (followedLinkColourString)
688 {
689 bool isPicture = false;
690 wxChar *s = ParseColourString(followedLinkColourString, &isPicture);
691 if (s)
692 {
693 TexOutput(_T(" VLINK=")); TexOutput(s);
694 }
695 }
696 TexOutput(_T(">\n"));
697
698 OutputFont();
699}
700
701void HTMLHead()
702{
703 TexOutput(_T("<head>"));
704 if (htmlStylesheet) {
705 TexOutput(_T("<link rel=stylesheet type=\"text/css\" href=\""));
706 TexOutput(htmlStylesheet);
707 TexOutput(_T("\">"));
708 }
709};
710
711void HTMLHeadTo(FILE* f)
712{
713 if (htmlStylesheet)
714 wxFprintf(f,_T("<head><link rel=stylesheet type=\"text/css\" href=\"%s\">"),htmlStylesheet);
715 else
716 wxFprintf(f,_T("<head>"));
717}
718
719// Called on start/end of macro examination
720void HTMLOnMacro(int macroId, int no_args, bool start)
721{
722 switch (macroId)
723 {
724 case ltCHAPTER:
725 case ltCHAPTERSTAR:
726 case ltCHAPTERHEADING:
727 {
728 if (!start)
729 {
730 sectionNo = 0;
731 figureNo = 0;
732 subsectionNo = 0;
733 subsubsectionNo = 0;
734 if (macroId != ltCHAPTERSTAR)
735 chapterNo ++;
736
737 SetCurrentOutput(NULL);
738 startedSections = true;
739
740 wxChar *topicName = FindTopicName(GetNextChunk());
741 ReopenFile(&Chapters, &ChaptersName, topicName);
742 AddTexRef(topicName, ChaptersName, ChapterNameString);
743
744 SetCurrentChapterName(topicName, ChaptersName);
745 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(0, topicName, ChaptersName);
746
747 SetCurrentOutput(Chapters);
748
749 HTMLHead();
750 TexOutput(_T("<title>"));
751 OutputCurrentSection(); // Repeat section header
752 TexOutput(_T("</title></head>\n"));
753 OutputBodyStart();
754
755 wxChar titleBuf[200];
756 if (truncateFilenames)
757 wxSnprintf(titleBuf, sizeof(titleBuf), _T("%s.htm"), wxFileNameFromPath(FileRoot));
758 else
759 wxSnprintf(titleBuf, sizeof(titleBuf), _T("%s_contents.html"), wxFileNameFromPath(FileRoot));
760
761 wxFprintf(Chapters, _T("<A NAME=\"%s\"></A>"), topicName);
762
763 AddBrowseButtons(_T(""), titleBuf, // Up
764 lastTopic, lastFileName, // Last topic
765 topicName, ChaptersName); // This topic
766
767 wxFprintf(Contents, _T("\n<LI><A HREF=\"%s#%s\">"), ConvertCase(ChaptersName), topicName);
768
769 if (htmlFrameContents && FrameContents)
770 {
771 SetCurrentOutput(FrameContents);
772 wxFprintf(FrameContents, _T("\n<LI><A HREF=\"%s#%s\" TARGET=\"mainwindow\">"), ConvertCase(ChaptersName), topicName);
773 OutputCurrentSection();
774 wxFprintf(FrameContents, _T("</A>\n"));
775 }
776
777 SetCurrentOutputs(Contents, Chapters);
778 wxFprintf(Chapters, _T("\n<H2>"));
779 OutputCurrentSection();
780 wxFprintf(Contents, _T("</A>\n"));
781 wxFprintf(Chapters, _T("</H2>\n"));
782
783 SetCurrentOutput(Chapters);
784
785 // Add this section title to the list of keywords
786 if (htmlIndex)
787 {
788 OutputCurrentSectionToString(wxTex2RTFBuffer);
789 AddKeyWordForTopic(topicName, wxTex2RTFBuffer, ConvertCase(currentFileName));
790 }
791 }
792 break;
793 }
794 case ltSECTION:
795 case ltSECTIONSTAR:
796 case ltSECTIONHEADING:
797 case ltGLOSS:
798 {
799 if (!start)
800 {
801 subsectionNo = 0;
802 subsubsectionNo = 0;
803 subsectionStarted = false;
804
805 if (macroId != ltSECTIONSTAR)
806 sectionNo ++;
807
808 SetCurrentOutput(NULL);
809 startedSections = true;
810
811 wxChar *topicName = FindTopicName(GetNextChunk());
812 ReopenFile(&Sections, &SectionsName, topicName);
813 AddTexRef(topicName, SectionsName, SectionNameString);
814
815 SetCurrentSectionName(topicName, SectionsName);
816 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(1, topicName, SectionsName);
817
818 SetCurrentOutput(Sections);
819 HTMLHead();
820 TexOutput(_T("<title>"));
821 OutputCurrentSection();
822 TexOutput(_T("</title></head>\n"));
823 OutputBodyStart();
824
825 wxFprintf(Sections, _T("<A NAME=\"%s\"></A>"), topicName);
826 AddBrowseButtons(CurrentChapterName, CurrentChapterFile, // Up
827 lastTopic, lastFileName, // Last topic
828 topicName, SectionsName); // This topic
829
830 FILE *jumpFrom = ((DocumentStyle == LATEX_ARTICLE) ? Contents : Chapters);
831
832 SetCurrentOutputs(jumpFrom, Sections);
833 if (DocumentStyle == LATEX_ARTICLE)
834 wxFprintf(jumpFrom, _T("\n<LI><A HREF=\"%s#%s\">"), ConvertCase(SectionsName), topicName);
835 else
836 wxFprintf(jumpFrom, _T("\n<A HREF=\"%s#%s\"><B>"), ConvertCase(SectionsName), topicName);
837
838 wxFprintf(Sections, _T("\n<H2>"));
839 OutputCurrentSection();
840
841 if (DocumentStyle == LATEX_ARTICLE)
842 wxFprintf(jumpFrom, _T("</A>\n"));
843 else
844 wxFprintf(jumpFrom, _T("</B></A><BR>\n"));
845 wxFprintf(Sections, _T("</H2>\n"));
846
847 SetCurrentOutput(Sections);
848 // Add this section title to the list of keywords
849 if (htmlIndex)
850 {
851 OutputCurrentSectionToString(wxTex2RTFBuffer);
852 AddKeyWordForTopic(topicName, wxTex2RTFBuffer, currentFileName);
853 }
854 }
855 break;
856 }
857 case ltSUBSECTION:
858 case ltSUBSECTIONSTAR:
859 case ltMEMBERSECTION:
860 case ltFUNCTIONSECTION:
861 {
862 if (!start)
863 {
864 if (!Sections)
865 {
866 OnError(_T("You cannot have a subsection before a section!"));
867 }
868 else
869 {
870 subsubsectionNo = 0;
871
872 if (macroId != ltSUBSECTIONSTAR)
873 subsectionNo ++;
874
875 if ( combineSubSections && !subsectionStarted )
876 {
877 fflush(Sections);
878
879 // Read old .con file in at this point
880 wxChar buf[256];
881 wxStrcpy(buf, CurrentSectionFile);
882 wxStripExtension(buf);
883 wxStrcat(buf, _T(".con"));
884 FILE *fd = wxFopen(buf, _T("r"));
885 if ( fd )
886 {
887 int ch = getc(fd);
888 while (ch != EOF)
889 {
890 wxPutc(ch, Sections);
891 ch = getc(fd);
892 }
893 fclose(fd);
894 }
895 wxFprintf(Sections, _T("<P>\n"));
896
897 // Close old file, create a new file for the sub(sub)section contents entries
898 ReopenSectionContentsFile();
899 }
900
901 startedSections = true;
902 subsectionStarted = true;
903
904 wxChar *topicName = FindTopicName(GetNextChunk());
905
906 if ( !combineSubSections )
907 {
908 SetCurrentOutput(NULL);
909 ReopenFile(&Subsections, &SubsectionsName, topicName);
910 AddTexRef(topicName, SubsectionsName, SubsectionNameString);
911 SetCurrentSubsectionName(topicName, SubsectionsName);
912 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(2, topicName, SubsectionsName);
913 SetCurrentOutput(Subsections);
914
915 HTMLHead();
916 TexOutput(_T("<title>"));
917 OutputCurrentSection();
918 TexOutput(_T("</title></head>\n"));
919 OutputBodyStart();
920
921 wxFprintf(Subsections, _T("<A NAME=\"%s\"></A>"), topicName);
922 AddBrowseButtons(CurrentSectionName, CurrentSectionFile, // Up
923 lastTopic, lastFileName, // Last topic
924 topicName, SubsectionsName); // This topic
925
926 SetCurrentOutputs(Sections, Subsections);
927 wxFprintf(Sections, _T("\n<A HREF=\"%s#%s\"><B>"), ConvertCase(SubsectionsName), topicName);
928
929 wxFprintf(Subsections, _T("\n<H3>"));
930 OutputCurrentSection();
931 wxFprintf(Sections, _T("</B></A><BR>\n"));
932 wxFprintf(Subsections, _T("</H3>\n"));
933
934 SetCurrentOutput(Subsections);
935 }
936 else
937 {
938 AddTexRef(topicName, SectionsName, SubsectionNameString);
939 SetCurrentSubsectionName(topicName, SectionsName);
940
941// if ( subsectionNo != 0 )
942 wxFprintf(Sections, _T("\n<HR>\n"));
943
944 // We're putting everything into the section file
945 wxFprintf(Sections, _T("<A NAME=\"%s\"></A>"), topicName);
946 wxFprintf(Sections, _T("\n<H3>"));
947 OutputCurrentSection();
948 wxFprintf(Sections, _T("</H3>\n"));
949
950 SetCurrentOutput(SectionContentsFD);
951 wxFprintf(SectionContentsFD, _T("<A HREF=\"#%s\">"), topicName);
952 OutputCurrentSection();
953 TexOutput(_T("</A><BR>\n"));
954
955 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(2, topicName, SectionsName);
956 SetCurrentOutput(Sections);
957 }
958 // Add this section title to the list of keywords
959 if (htmlIndex)
960 {
961 OutputCurrentSectionToString(wxTex2RTFBuffer);
962 AddKeyWordForTopic(topicName, wxTex2RTFBuffer, currentFileName);
963 }
964
965 }
966 }
967 break;
968 }
969 case ltSUBSUBSECTION:
970 case ltSUBSUBSECTIONSTAR:
971 {
972 if (!start)
973 {
974 if (!Subsections && !combineSubSections)
975 {
976 OnError(_T("You cannot have a subsubsection before a subsection!"));
977 }
978 else
979 {
980 if (macroId != ltSUBSUBSECTIONSTAR)
981 subsubsectionNo ++;
982
983 startedSections = true;
984
985 wxChar *topicName = FindTopicName(GetNextChunk());
986
987 if ( !combineSubSections )
988 {
989 SetCurrentOutput(NULL);
990 ReopenFile(&Subsubsections, &SubsubsectionsName, topicName);
991 AddTexRef(topicName, SubsubsectionsName, SubsubsectionNameString);
992 SetCurrentSubsubsectionName(topicName, SubsubsectionsName);
993 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(3, topicName, SubsubsectionsName);
994
995 SetCurrentOutput(Subsubsections);
996 HTMLHead();
997 TexOutput(_T("<title>"));
998 OutputCurrentSection();
999 TexOutput(_T("</title></head>\n"));
1000 OutputBodyStart();
1001
1002 wxFprintf(Subsubsections, _T("<A NAME=\"%s\"></A>"), topicName);
1003
1004 AddBrowseButtons(CurrentSubsectionName, CurrentSubsectionFile, // Up
1005 lastTopic, lastFileName, // Last topic
1006 topicName, SubsubsectionsName); // This topic
1007
1008 SetCurrentOutputs(Subsections, Subsubsections);
1009 wxFprintf(Subsections, _T("\n<A HREF=\"%s#%s\"><B>"), ConvertCase(SubsubsectionsName), topicName);
1010
1011 wxFprintf(Subsubsections, _T("\n<H3>"));
1012 OutputCurrentSection();
1013 wxFprintf(Subsections, _T("</B></A><BR>\n"));
1014 wxFprintf(Subsubsections, _T("</H3>\n"));
1015 }
1016 else
1017 {
1018 AddTexRef(topicName, SectionsName, SubsubsectionNameString);
1019 SetCurrentSubsectionName(topicName, SectionsName);
1020 wxFprintf(Sections, _T("\n<HR>\n"));
1021
1022 // We're putting everything into the section file
1023 wxFprintf(Sections, _T("<A NAME=\"%s\"></A>"), topicName);
1024 wxFprintf(Sections, _T("\n<H3>"));
1025 OutputCurrentSection();
1026 wxFprintf(Sections, _T("</H3>\n"));
1027/* TODO: where do we put subsubsection contents entry - indented, with subsection entries?
1028 SetCurrentOutput(SectionContentsFD);
1029 wxFprintf(SectionContentsFD, "<A HREF=\"#%s\">", topicName);
1030 OutputCurrentSection();
1031 TexOutput(_T("</A><BR>"));
1032*/
1033 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(2, topicName, SectionsName);
1034 SetCurrentOutput(Sections);
1035 }
1036
1037 // Add this section title to the list of keywords
1038 if (htmlIndex)
1039 {
1040 OutputCurrentSectionToString(wxTex2RTFBuffer);
1041 AddKeyWordForTopic(topicName, wxTex2RTFBuffer, currentFileName);
1042 }
1043 }
1044 }
1045 break;
1046 }
1047 case ltFUNC:
1048 case ltPFUNC:
1049 {
1050 if ( !combineSubSections )
1051 SetCurrentOutput(Subsections);
1052 else
1053 SetCurrentOutput(Sections);
1054 if (start)
1055 {
1056 }
1057 else
1058 {
1059 }
1060 break;
1061 }
1062 case ltCLIPSFUNC:
1063 {
1064 if ( !combineSubSections )
1065 SetCurrentOutput(Subsections);
1066 else
1067 SetCurrentOutput(Sections);
1068 if (start)
1069 {
1070 }
1071 else
1072 {
1073 }
1074 break;
1075 }
1076 case ltMEMBER:
1077 {
1078 if ( !combineSubSections )
1079 SetCurrentOutput(Subsections);
1080 else
1081 SetCurrentOutput(Sections);
1082 if (start)
1083 {
1084 }
1085 else
1086 {
1087 }
1088 break;
1089 }
1090 case ltVOID:
1091// if (start)
1092// TexOutput(_T("<B>void</B>"));
1093 break;
1094 case ltHARDY:
1095 if (start)
1096 TexOutput(_T("HARDY"));
1097 break;
1098 case ltWXCLIPS:
1099 if (start)
1100 TexOutput(_T("wxCLIPS"));
1101 break;
1102 case ltAMPERSAND:
1103 if (start)
1104 TexOutput(_T("&amp;"));
1105 break;
1106 case ltSPECIALAMPERSAND:
1107 {
1108 if (start)
1109 {
1110 if (inTabular)
1111 {
1112 // End cell, start cell
1113
1114 TexOutput(_T("</FONT></TD>"));
1115
1116 // Start new row and cell, setting alignment for the first cell.
1117 if (currentColumn < noColumns)
1118 currentColumn ++;
1119
1120 wxChar buf[100];
1121 if (TableData[currentColumn].justification == 'c')
1122 wxSnprintf(buf, sizeof(buf), _T("\n<TD ALIGN=CENTER>"));
1123 else if (TableData[currentColumn].justification == 'r')
1124 wxSnprintf(buf, sizeof(buf), _T("\n<TD ALIGN=RIGHT>"));
1125 else if (TableData[currentColumn].absWidth)
1126 {
1127 // Convert from points * 20 into pixels.
1128 int points = TableData[currentColumn].width / 20;
1129
1130 // Say the display is 100 DPI (dots/pixels per inch).
1131 // There are 72 pts to the inch. So 1pt = 1/72 inch, or 100 * 1/72 dots.
1132 int pixels = (int)(points * 100.0 / 72.0);
1133 wxSnprintf(buf, sizeof(buf), _T("<TD ALIGN=CENTER WIDTH=%d>"), pixels);
1134 }
1135 else
1136 wxSnprintf(buf, sizeof(buf), _T("\n<TD ALIGN=LEFT>"));
1137 TexOutput(buf);
1138 OutputFont();
1139 }
1140 else
1141 TexOutput(_T("&amp;"));
1142 }
1143 break;
1144 }
1145 case ltBACKSLASHCHAR:
1146 {
1147 if (start)
1148 {
1149 if (inTabular)
1150 {
1151 // End row. In fact, tables without use of \row or \ruledrow isn't supported for
1152 // HTML: the syntax is too different (e.g. how do we know where to put the first </TH>
1153 // if we've ended the last row?). So normally you wouldn't use \\ to end a row.
1154 TexOutput(_T("</TR>\n"));
1155 }
1156 else
1157 TexOutput(_T("<BR>\n"));
1158 }
1159 break;
1160 }
1161 case ltROW:
1162 case ltRULEDROW:
1163 {
1164 if (start)
1165 {
1166 currentColumn = 0;
1167
1168 // Start new row and cell, setting alignment for the first cell.
1169 wxChar buf[100];
1170 if (TableData[currentColumn].justification == 'c')
1171 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=CENTER>"));
1172 else if (TableData[currentColumn].justification == 'r')
1173 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=RIGHT>"));
1174 else if (TableData[currentColumn].absWidth)
1175 {
1176 // Convert from points * 20 into pixels.
1177 int points = TableData[currentColumn].width / 20;
1178
1179 // Say the display is 100 DPI (dots/pixels per inch).
1180 // There are 72 pts to the inch. So 1pt = 1/72 inch, or 100 * 1/72 dots.
1181 int pixels = (int)(points * 100.0 / 72.0);
1182 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=CENTER WIDTH=%d>"), pixels);
1183 }
1184 else
1185 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=LEFT>"));
1186 TexOutput(buf);
1187 OutputFont();
1188 }
1189 else
1190 {
1191 // End cell and row
1192 // Start new row and cell
1193 TexOutput(_T("</FONT></TD>\n</TR>\n"));
1194 }
1195 break;
1196 }
1197 // HTML-only: break until the end of the picture (both margins are clear).
1198 case ltBRCLEAR:
1199 {
1200 if (start)
1201 TexOutput(_T("<BR CLEAR=ALL>"));
1202 break;
1203 }
1204 case ltRTFSP: // Explicit space, RTF only
1205 break;
1206 case ltSPECIALTILDE:
1207 {
1208 if (start)
1209 {
1210 #if (1) // if(inVerbatim)
1211 TexOutput(_T("~"));
1212 #else
1213 TexOutput(_T(" "));
1214 #endif
1215 }
1216 break;
1217 }
1218 case ltINDENTED :
1219 {
1220 if ( start )
1221 TexOutput(_T("<UL><UL>\n"));
1222 else
1223 TexOutput(_T("</UL></UL>\n"));
1224 break;
1225 }
1226 case ltITEMIZE:
1227 case ltENUMERATE:
1228 case ltDESCRIPTION:
1229// case ltTWOCOLLIST:
1230 {
1231 if (start)
1232 {
1233 indentLevel ++;
1234
1235 int listType;
1236 if (macroId == ltENUMERATE)
1237 listType = LATEX_ENUMERATE;
1238 else if (macroId == ltITEMIZE)
1239 listType = LATEX_ITEMIZE;
1240 else
1241 listType = LATEX_DESCRIPTION;
1242
1243 itemizeStack.Insert(new ItemizeStruc(listType));
1244 switch (listType)
1245 {
1246 case LATEX_ITEMIZE:
1247 TexOutput(_T("<UL>\n"));
1248 break;
1249 case LATEX_ENUMERATE:
1250 TexOutput(_T("<OL>\n"));
1251 break;
1252 case LATEX_DESCRIPTION:
1253 default:
1254 TexOutput(_T("<DL>\n"));
1255 break;
1256 }
1257 }
1258 else
1259 {
1260 indentLevel --;
1261 if (itemizeStack.GetFirst())
1262 {
1263 ItemizeStruc *struc = (ItemizeStruc *)itemizeStack.GetFirst()->GetData();
1264 switch (struc->listType)
1265 {
1266 case LATEX_ITEMIZE:
1267 TexOutput(_T("</UL>\n"));
1268 break;
1269 case LATEX_ENUMERATE:
1270 TexOutput(_T("</OL>\n"));
1271 break;
1272 case LATEX_DESCRIPTION:
1273 default:
1274 TexOutput(_T("</DL>\n"));
1275 break;
1276 }
1277
1278 delete struc;
1279 delete itemizeStack.GetFirst();
1280 }
1281 }
1282 break;
1283 }
1284 case ltTWOCOLLIST :
1285 {
1286 if ( start )
1287 TexOutput(_T("\n<TABLE>\n"));
1288 else {
1289 TexOutput(_T("\n</TABLE>\n"));
1290 // DHS
1291 TwoColWidthA = -1;
1292 TwoColWidthB = -1;
1293 }
1294 break;
1295 }
1296 case ltPAR:
1297 {
1298 if (start)
1299 TexOutput(_T("<P>\n"));
1300 break;
1301 }
1302/* For footnotes we need to output the text at the bottom of the page and
1303 * insert a reference to it. Is it worth the trouble...
1304 case ltFOOTNOTE:
1305 case ltFOOTNOTEPOPUP:
1306 {
1307 if (start)
1308 {
1309 TexOutput(_T("<FN>"));
1310 }
1311 else TexOutput(_T("</FN>"));
1312 break;
1313 }
1314*/
1315 case ltVERB:
1316 {
1317 if (start)
1318 TexOutput(_T("<TT>"));
1319 else TexOutput(_T("</TT>"));
1320 break;
1321 }
1322 case ltVERBATIM:
1323 {
1324 if (start)
1325 {
1326 wxChar buf[100];
1327 wxSnprintf(buf, sizeof(buf), _T("<PRE>\n"));
1328 TexOutput(buf);
1329 }
1330 else TexOutput(_T("</PRE>\n"));
1331 break;
1332 }
1333 case ltCENTERLINE:
1334 case ltCENTER:
1335 {
1336 if (start)
1337 {
1338 TexOutput(_T("<CENTER>"));
1339 }
1340 else TexOutput(_T("</CENTER>"));
1341 break;
1342 }
1343 case ltFLUSHLEFT:
1344 {
1345/*
1346 if (start)
1347 {
1348 TexOutput(_T("{\\ql "));
1349 }
1350 else TexOutput(_T("}\\par\\pard\n"));
1351*/
1352 break;
1353 }
1354 case ltFLUSHRIGHT:
1355 {
1356/*
1357 if (start)
1358 {
1359 TexOutput(_T("{\\qr "));
1360 }
1361 else TexOutput(_T("}\\par\\pard\n"));
1362*/
1363 break;
1364 }
1365 case ltSMALL:
1366 {
1367 if (start)
1368 {
1369 // Netscape extension
1370 TexOutput(_T("<FONT SIZE=2>"));
1371 }
1372 else TexOutput(_T("</FONT>"));
1373 break;
1374 }
1375 case ltTINY:
1376 {
1377 if (start)
1378 {
1379 // Netscape extension
1380 TexOutput(_T("<FONT SIZE=1>"));
1381 }
1382 else TexOutput(_T("</FONT>"));
1383 break;
1384 }
1385 case ltNORMALSIZE:
1386 {
1387 if (start)
1388 {
1389 // Netscape extension
1390 TexOutput(_T("<FONT SIZE=3>"));
1391 }
1392 else TexOutput(_T("</FONT>"));
1393 break;
1394 }
1395 case ltlarge:
1396 {
1397 if (start)
1398 {
1399 // Netscape extension
1400 TexOutput(_T("<FONT SIZE=4>"));
1401 }
1402 else TexOutput(_T("</FONT>"));
1403 break;
1404 }
1405 case ltLarge:
1406 {
1407 if (start)
1408 {
1409 // Netscape extension
1410 TexOutput(_T("<FONT SIZE=5>"));
1411 }
1412 else TexOutput(_T("</FONT>"));
1413 break;
1414 }
1415 case ltLARGE:
1416 {
1417 if (start)
1418 {
1419 // Netscape extension
1420 TexOutput(_T("<FONT SIZE=6>"));
1421 }
1422 else TexOutput(_T("</FONT>"));
1423 break;
1424 }
1425 case ltBFSERIES:
1426 case ltTEXTBF:
1427 case ltBF:
1428 {
1429 if (start)
1430 {
1431 TexOutput(_T("<B>"));
1432 }
1433 else TexOutput(_T("</B>"));
1434 break;
1435 }
1436 case ltITSHAPE:
1437 case ltTEXTIT:
1438 case ltIT:
1439 {
1440 if (start)
1441 {
1442 TexOutput(_T("<I>"));
1443 }
1444 else TexOutput(_T("</I>"));
1445 break;
1446 }
1447 case ltEMPH:
1448 case ltEM:
1449 {
1450 if (start)
1451 {
1452 TexOutput(_T("<EM>"));
1453 }
1454 else TexOutput(_T("</EM>"));
1455 break;
1456 }
1457 case ltUNDERLINE:
1458 {
1459 if (start)
1460 {
1461 TexOutput(_T("<UL>"));
1462 }
1463 else TexOutput(_T("</UL>"));
1464 break;
1465 }
1466 case ltTTFAMILY:
1467 case ltTEXTTT:
1468 case ltTT:
1469 {
1470 if (start)
1471 {
1472 TexOutput(_T("<TT>"));
1473 }
1474 else TexOutput(_T("</TT>"));
1475 break;
1476 }
1477 case ltCOPYRIGHT:
1478 {
1479 if (start)
1480 TexOutput(_T("&copy;"), true);
1481 break;
1482 }
1483 case ltREGISTERED:
1484 {
1485 if (start)
1486 TexOutput(_T("&reg;"), true);
1487 break;
1488 }
1489 // Arrows
1490 case ltLEFTARROW:
1491 {
1492 if (start) TexOutput(_T("&lt;--"));
1493 break;
1494 }
1495 case ltLEFTARROW2:
1496 {
1497 if (start) TexOutput(_T("&lt;=="));
1498 break;
1499 }
1500 case ltRIGHTARROW:
1501 {
1502 if (start) TexOutput(_T("--&gt;"));
1503 break;
1504 }
1505 case ltRIGHTARROW2:
1506 {
1507 if (start) TexOutput(_T("==&gt;"));
1508 break;
1509 }
1510 case ltLEFTRIGHTARROW:
1511 {
1512 if (start) TexOutput(_T("&lt;--&gt;"));
1513 break;
1514 }
1515 case ltLEFTRIGHTARROW2:
1516 {
1517 if (start) TexOutput(_T("&lt;==&gt;"));
1518 break;
1519 }
1520/*
1521 case ltSC:
1522 {
1523 break;
1524 }
1525*/
1526 case ltITEM:
1527 {
1528 if (!start)
1529 {
1530 wxNode *node = itemizeStack.GetFirst();
1531 if (node)
1532 {
1533 ItemizeStruc *struc = (ItemizeStruc *)node->GetData();
1534 struc->currentItem += 1;
1535 if (struc->listType == LATEX_DESCRIPTION)
1536 {
1537 if (descriptionItemArg)
1538 {
1539 TexOutput(_T("<DT> "));
1540 TraverseChildrenFromChunk(descriptionItemArg);
1541 TexOutput(_T("\n"));
1542 descriptionItemArg = NULL;
1543 }
1544 TexOutput(_T("<DD>"));
1545 }
1546 else
1547 TexOutput(_T("<LI>"));
1548 }
1549 }
1550 break;
1551 }
1552 case ltMAKETITLE:
1553 {
1554 if (start && DocumentTitle && DocumentAuthor)
1555 {
1556 // Add a special label for the contents page.
1557// TexOutput(_T("<CENTER>\n"));
1558 TexOutput(_T("<A NAME=\"contents\">"));
1559 TexOutput(_T("<H2 ALIGN=CENTER>\n"));
1560 TraverseChildrenFromChunk(DocumentTitle);
1561 TexOutput(_T("</H2>"));
1562 TexOutput(_T("<P>"));
1563 TexOutput(_T("</A>\n"));
1564 TexOutput(_T("<P>\n\n"));
1565 TexOutput(_T("<H3 ALIGN=CENTER>"));
1566 TraverseChildrenFromChunk(DocumentAuthor);
1567 TexOutput(_T("</H3><P>\n\n"));
1568 if (DocumentDate)
1569 {
1570 TexOutput(_T("<H3 ALIGN=CENTER>"));
1571 TraverseChildrenFromChunk(DocumentDate);
1572 TexOutput(_T("</H3><P>\n\n"));
1573 }
1574// TexOutput(_T("\n</CENTER>\n"));
1575 TexOutput(_T("\n<P><HR><P>\n"));
1576
1577/*
1578 // Now do optional frame contents page
1579 if (htmlFrameContents && FrameContents)
1580 {
1581 SetCurrentOutput(FrameContents);
1582
1583 // Add a special label for the contents page.
1584 TexOutput(_T("<CENTER>\n"));
1585 TexOutput(_T("<H3>\n"));
1586 TraverseChildrenFromChunk(DocumentTitle);
1587 TexOutput(_T("</H3>"));
1588 TexOutput(_T("<P>"));
1589 TexOutput(_T("</A>\n"));
1590 TexOutput(_T("<P>\n\n"));
1591 TexOutput(_T("<H3>"));
1592 TraverseChildrenFromChunk(DocumentAuthor);
1593 TexOutput(_T("</H3><P>\n\n"));
1594 if (DocumentDate)
1595 {
1596 TexOutput(_T("<H4>"));
1597 TraverseChildrenFromChunk(DocumentDate);
1598 TexOutput(_T("</H4><P>\n\n"));
1599 }
1600 TexOutput(_T("\n</CENTER>\n"));
1601 TexOutput(_T("<P><HR><P>\n"));
1602
1603 SetCurrentOutput(Titlepage);
1604 }
1605*/
1606 }
1607 break;
1608 }
1609 case ltHELPREF:
1610 case ltHELPREFN:
1611 case ltPOPREF:
1612 case ltURLREF:
1613 {
1614 if (start)
1615 {
1616 helpRefFilename = NULL;
1617 helpRefText = NULL;
1618 }
1619 break;
1620 }
1621 case ltBIBLIOGRAPHY:
1622 {
1623 if (start)
1624 {
1625 DefaultOnMacro(macroId, no_args, start);
1626 }
1627 else
1628 {
1629 DefaultOnMacro(macroId, no_args, start);
1630 TexOutput(_T("</DL>\n"));
1631 }
1632 break;
1633 }
1634 case ltHRULE:
1635 {
1636 if (start)
1637 {
1638 TexOutput(_T("<HR>\n"));
1639 }
1640 break;
1641 }
1642 case ltRULE:
1643 {
1644 if (start)
1645 {
1646 TexOutput(_T("<HR>\n"));
1647 }
1648 break;
1649 }
1650 case ltTABLEOFCONTENTS:
1651 {
1652 if (start)
1653 {
1654 // NB: if this is uncommented, the table of contents
1655 // completely disappears. If left commented, it's in the wrong
1656 // place.
1657 //fflush(Titlepage);
1658
1659 FILE *fd = wxFopen(ContentsName, _T("r"));
1660 if (fd)
1661 {
1662 int ch = getc(fd);
1663 while (ch != EOF)
1664 {
1665 wxPutc(ch, Titlepage);
1666 ch = getc(fd);
1667 }
1668 fclose(fd);
1669 fflush(Titlepage);
1670 }
1671 else
1672 {
1673 TexOutput(_T("RUN TEX2RTF AGAIN FOR CONTENTS PAGE\n"));
1674 OnInform(_T("Run Tex2RTF again to include contents page."));
1675 }
1676 }
1677 break;
1678 }
1679 case ltLANGLEBRA:
1680 {
1681 if (start)
1682 TexOutput(_T("&lt;"));
1683 break;
1684 }
1685 case ltRANGLEBRA:
1686 {
1687 if (start)
1688 TexOutput(_T("&gt;"));
1689 break;
1690 }
1691 case ltQUOTE:
1692 case ltQUOTATION:
1693 {
1694 if (start)
1695 TexOutput(_T("<BLOCKQUOTE>"));
1696 else
1697 TexOutput(_T("</BLOCKQUOTE>"));
1698 break;
1699 }
1700 case ltCAPTION:
1701 case ltCAPTIONSTAR:
1702 {
1703 if (start)
1704 {
1705 if (inTabular)
1706 TexOutput(_T("\n<CAPTION>"));
1707
1708 wxChar figBuf[40];
1709
1710 if ( inFigure )
1711 {
1712 figureNo ++;
1713
1714 if (DocumentStyle != LATEX_ARTICLE)
1715 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d.%d: "), FigureNameString, chapterNo, figureNo);
1716 else
1717 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d: "), FigureNameString, figureNo);
1718 }
1719 else
1720 {
1721 tableNo ++;
1722
1723 if (DocumentStyle != LATEX_ARTICLE)
1724 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d.%d: "), TableNameString, chapterNo, tableNo);
1725 else
1726 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d: "), TableNameString, tableNo);
1727 }
1728
1729 TexOutput(figBuf);
1730 }
1731 else
1732 {
1733 if (inTabular)
1734 TexOutput(_T("\n</CAPTION>\n"));
1735
1736 wxChar *topicName = FindTopicName(GetNextChunk());
1737
1738 int n = inFigure ? figureNo : tableNo;
1739
1740 AddTexRef(topicName, NULL, NULL,
1741 ((DocumentStyle != LATEX_ARTICLE) ? chapterNo : n),
1742 ((DocumentStyle != LATEX_ARTICLE) ? n : 0));
1743 }
1744 break;
1745 }
1746 case ltSS:
1747 {
1748 if (start) TexOutput(_T("&szlig;"));
1749 break;
1750 }
1751 case ltFIGURE:
1752 {
1753 if (start) inFigure = true;
1754 else inFigure = false;
1755 break;
1756 }
1757 case ltTABLE:
1758 {
1759 if (start) inTable = true;
1760 else inTable = false;
1761 break;
1762 }
1763 default:
1764 DefaultOnMacro(macroId, no_args, start);
1765 break;
1766 }
1767}
1768
1769// Called on start/end of argument examination
1770bool HTMLOnArgument(int macroId, int arg_no, bool start)
1771{
1772 switch (macroId)
1773 {
1774 case ltCHAPTER:
1775 case ltCHAPTERSTAR:
1776 case ltCHAPTERHEADING:
1777 case ltSECTION:
1778 case ltSECTIONSTAR:
1779 case ltSECTIONHEADING:
1780 case ltSUBSECTION:
1781 case ltSUBSECTIONSTAR:
1782 case ltSUBSUBSECTION:
1783 case ltSUBSUBSECTIONSTAR:
1784 case ltGLOSS:
1785 case ltMEMBERSECTION:
1786 case ltFUNCTIONSECTION:
1787 {
1788 if (!start && (arg_no == 1))
1789 currentSection = GetArgChunk();
1790 return false;
1791 }
1792 case ltFUNC:
1793 {
1794 if (start && (arg_no == 1))
1795 TexOutput(_T("<B>"));
1796
1797 if (!start && (arg_no == 1))
1798 TexOutput(_T("</B> "));
1799
1800 if (start && (arg_no == 2))
1801 {
1802 if (!suppressNameDecoration) TexOutput(_T("<B>"));
1803 currentMember = GetArgChunk();
1804 }
1805 if (!start && (arg_no == 2))
1806 {
1807 if (!suppressNameDecoration) TexOutput(_T("</B>"));
1808 }
1809
1810 if (start && (arg_no == 3))
1811 TexOutput(_T("("));
1812 if (!start && (arg_no == 3))
1813 TexOutput(_T(")"));
1814 break;
1815 }
1816 case ltCLIPSFUNC:
1817 {
1818 if (start && (arg_no == 1))
1819 TexOutput(_T("<B>"));
1820 if (!start && (arg_no == 1))
1821 TexOutput(_T("</B> "));
1822
1823 if (start && (arg_no == 2))
1824 {
1825 if (!suppressNameDecoration) TexOutput(_T("( "));
1826 currentMember = GetArgChunk();
1827 }
1828 if (!start && (arg_no == 2))
1829 {
1830 }
1831
1832 if (!start && (arg_no == 3))
1833 TexOutput(_T(")"));
1834 break;
1835 }
1836 case ltPFUNC:
1837 {
1838 if (!start && (arg_no == 1))
1839 TexOutput(_T(" "));
1840
1841 if (start && (arg_no == 2))
1842 TexOutput(_T("(*"));
1843 if (!start && (arg_no == 2))
1844 TexOutput(_T(")"));
1845
1846 if (start && (arg_no == 2))
1847 currentMember = GetArgChunk();
1848
1849 if (start && (arg_no == 3))
1850 TexOutput(_T("("));
1851 if (!start && (arg_no == 3))
1852 TexOutput(_T(")"));
1853 break;
1854 }
1855 case ltPARAM:
1856 {
1857 if (start && (arg_no == 1))
1858 TexOutput(_T("<B>"));
1859 if (!start && (arg_no == 1))
1860 TexOutput(_T("</B>"));
1861 if (start && (arg_no == 2))
1862 {
1863 TexOutput(_T("<I>"));
1864 }
1865 if (!start && (arg_no == 2))
1866 {
1867 TexOutput(_T("</I>"));
1868 }
1869 break;
1870 }
1871 case ltCPARAM:
1872 {
1873 if (start && (arg_no == 1))
1874 TexOutput(_T("<B>"));
1875 if (!start && (arg_no == 1))
1876 TexOutput(_T("</B> ")); // This is the difference from param - one space!
1877 if (start && (arg_no == 2))
1878 {
1879 TexOutput(_T("<I>"));
1880 }
1881 if (!start && (arg_no == 2))
1882 {
1883 TexOutput(_T("</I>"));
1884 }
1885 break;
1886 }
1887 case ltMEMBER:
1888 {
1889 if (!start && (arg_no == 1))
1890 TexOutput(_T(" "));
1891
1892 if (start && (arg_no == 2))
1893 currentMember = GetArgChunk();
1894 break;
1895 }
1896 case ltREF:
1897 {
1898 if (start)
1899 {
1900 wxChar *sec = NULL;
1901
1902 wxChar *refName = GetArgData();
1903 if (refName)
1904 {
1905 TexRef *texRef = FindReference(refName);
1906 if (texRef)
1907 {
1908 sec = texRef->sectionNumber;
1909 }
1910 }
1911 if (sec)
1912 {
1913 TexOutput(sec);
1914 }
1915 return false;
1916 }
1917 break;
1918 }
1919 case ltURLREF:
1920 {
1921 if (IsArgOptional())
1922 return false;
1923 else if ((GetNoArgs() - arg_no) == 1)
1924 {
1925 if (start)
1926 helpRefText = GetArgChunk();
1927 return false;
1928 }
1929 else if ((GetNoArgs() - arg_no) == 0) // Arg = 2, or 3 if first is optional
1930 {
1931 if (start)
1932 {
1933 TexChunk *ref = GetArgChunk();
1934 TexOutput(_T("<A HREF=\""));
1935 inVerbatim = true;
1936 TraverseChildrenFromChunk(ref);
1937 inVerbatim = false;
1938 TexOutput(_T("\">"));
1939 if (helpRefText)
1940 TraverseChildrenFromChunk(helpRefText);
1941 TexOutput(_T("</A>"));
1942 }
1943 return false;
1944 }
1945 break;
1946 }
1947 case ltHELPREF:
1948 case ltHELPREFN:
1949 case ltPOPREF:
1950 {
1951 if (IsArgOptional())
1952 {
1953 if (start)
1954 helpRefFilename = GetArgChunk();
1955 return false;
1956 }
1957 if ((GetNoArgs() - arg_no) == 1)
1958 {
1959 if (start)
1960 helpRefText = GetArgChunk();
1961 return false;
1962 }
1963 else if ((GetNoArgs() - arg_no) == 0) // Arg = 2, or 3 if first is optional
1964 {
1965 if (start)
1966 {
1967 wxChar *refName = GetArgData();
1968 wxChar *refFilename = NULL;
1969
1970 if (refName)
1971 {
1972 TexRef *texRef = FindReference(refName);
1973 if (texRef)
1974 {
1975 if (texRef->refFile && wxStrcmp(texRef->refFile, _T("??")) != 0)
1976 refFilename = texRef->refFile;
1977
1978 TexOutput(_T("<A HREF=\""));
1979 // If a filename is supplied, use it, otherwise try to
1980 // use the filename associated with the reference (from this document).
1981 if (helpRefFilename)
1982 {
1983 TraverseChildrenFromChunk(helpRefFilename);
1984 TexOutput(_T("#"));
1985 }
1986 else if (refFilename)
1987 {
1988 TexOutput(ConvertCase(refFilename));
1989 TexOutput(_T("#"));
1990 }
1991 TexOutput(refName);
1992 TexOutput(_T("\">"));
1993 if (helpRefText)
1994 TraverseChildrenFromChunk(helpRefText);
1995 TexOutput(_T("</A>"));
1996 }
1997 else
1998 {
1999 if (helpRefText)
2000 TraverseChildrenFromChunk(helpRefText);
2001 if (!ignoreBadRefs)
2002 TexOutput(_T(" (REF NOT FOUND)"));
2003 wxString errBuf;
2004 errBuf.Printf(_T("Warning: unresolved reference '%s'"), refName);
2005 OnInform((wxChar *)errBuf.c_str());
2006 }
2007 }
2008 else TexOutput(_T("??"));
2009 }
2010 return false;
2011 }
2012 break;
2013 }
2014 case ltIMAGE:
2015 case ltIMAGEL:
2016 case ltIMAGER:
2017 case ltPSBOXTO:
2018 {
2019 if (arg_no == 2)
2020 {
2021 if (start)
2022 {
2023 wxChar *alignment = _T("");
2024 if (macroId == ltIMAGEL)
2025 alignment = _T(" align=left");
2026 else if (macroId == ltIMAGER)
2027 alignment = _T(" align=right");
2028
2029 // Try to find an XBM or GIF image first.
2030 wxChar *filename = copystring(GetArgData());
2031 wxChar buf[500];
2032
2033 wxStrcpy(buf, filename);
2034 StripExtension(buf);
2035 wxStrcat(buf, _T(".xbm"));
2036 wxString f = TexPathList.FindValidPath(buf);
2037
2038 if (f == _T("")) // Try for a GIF instead
2039 {
2040 wxStrcpy(buf, filename);
2041 StripExtension(buf);
2042 wxStrcat(buf, _T(".gif"));
2043 f = TexPathList.FindValidPath(buf);
2044 }
2045
2046 if (f == _T("")) // Try for a JPEG instead
2047 {
2048 wxStrcpy(buf, filename);
2049 StripExtension(buf);
2050 wxStrcat(buf, _T(".jpg"));
2051 f = TexPathList.FindValidPath(buf);
2052 }
2053
2054 if (f == _T("")) // Try for a PNG instead
2055 {
2056 wxStrcpy(buf, filename);
2057 StripExtension(buf);
2058 wxStrcat(buf, _T(".png"));
2059 f = TexPathList.FindValidPath(buf);
2060 }
2061
2062 if (f != _T(""))
2063 {
2064 wxChar *inlineFilename = copystring(f);
2065#if 0
2066 wxChar *originalFilename = TexPathList.FindValidPath(filename);
2067 // If we have found the existing filename, make the inline
2068 // image point to the original file (could be PS, for example)
2069 if (originalFilename && (wxStrcmp(inlineFilename, originalFilename) != 0))
2070 {
2071 TexOutput(_T("<A HREF=\""));
2072 TexOutput(ConvertCase(originalFilename));
2073 TexOutput(_T("\">"));
2074 TexOutput(_T("<img src=\""));
2075 TexOutput(ConvertCase(wxFileNameFromPath(inlineFilename)));
2076 TexOutput(_T("\""));
2077 TexOutput(alignment);
2078 TexOutput(_T("></A>"));
2079 }
2080 else
2081#endif
2082 {
2083 TexOutput(_T("<img src=\""));
2084 TexOutput(ConvertCase(wxFileNameFromPath(inlineFilename)));
2085 TexOutput(_T("\""));
2086 TexOutput(alignment);
2087 TexOutput(_T(">"));
2088 delete[] inlineFilename;
2089 }
2090 }
2091 else
2092 {
2093 // Last resort - a link to a PS file.
2094 TexOutput(_T("<A HREF=\""));
2095 TexOutput(ConvertCase(wxFileNameFromPath(filename)));
2096 TexOutput(_T("\">Picture</A>\n"));
2097 wxSnprintf(buf, sizeof(buf), _T("Warning: could not find an inline XBM/GIF for %s."), filename);
2098 OnInform(buf);
2099 }
2100 }
2101 }
2102 return false;
2103 }
2104 // First arg is PSBOX spec (ignored), second is image file, third is map name.
2105 case ltIMAGEMAP:
2106 {
2107 static wxChar *imageFile = NULL;
2108 if (start && (arg_no == 2))
2109 {
2110 // Try to find an XBM or GIF image first.
2111 wxChar *filename = copystring(GetArgData());
2112 wxChar buf[500];
2113
2114 wxStrcpy(buf, filename);
2115 StripExtension(buf);
2116 wxStrcat(buf, _T(".xbm"));
2117 wxString f = TexPathList.FindValidPath(buf);
2118
2119 if (f == _T("")) // Try for a GIF instead
2120 {
2121 wxStrcpy(buf, filename);
2122 StripExtension(buf);
2123 wxStrcat(buf, _T(".gif"));
2124 f = TexPathList.FindValidPath(buf);
2125 }
2126 if (f == _T(""))
2127 {
2128 wxChar buf[300];
2129 wxSnprintf(buf, sizeof(buf), _T("Warning: could not find an inline XBM/GIF for %s."), filename);
2130 OnInform(buf);
2131 }
2132 delete[] filename;
2133 if (imageFile)
2134 delete[] imageFile;
2135 imageFile = NULL;
2136 if (!f.IsEmpty())
2137 {
2138 imageFile = copystring(f);
2139 }
2140 }
2141 else if (start && (arg_no == 3))
2142 {
2143 if (imageFile)
2144 {
2145 // First, try to find a .shg (segmented hypergraphics file)
2146 // that we can convert to a map file
2147 wxChar buf[256];
2148 wxStrcpy(buf, imageFile);
2149 StripExtension(buf);
2150 wxStrcat(buf, _T(".shg"));
2151 wxString f = TexPathList.FindValidPath(buf);
2152
2153 if (f != _T(""))
2154 {
2155 // The default HTML file to go to is THIS file (so a no-op)
2156 SHGToMap((wxChar *)f.c_str(), currentFileName);
2157 }
2158
2159 wxChar *mapName = GetArgData();
2160 TexOutput(_T("<A HREF=\"/cgi-bin/imagemap/"));
2161 if (mapName)
2162 TexOutput(mapName);
2163 else
2164 TexOutput(_T("unknown"));
2165 TexOutput(_T("\">"));
2166 TexOutput(_T("<img src=\""));
2167 TexOutput(ConvertCase(wxFileNameFromPath(imageFile)));
2168 TexOutput(_T("\" ISMAP></A><P>"));
2169 delete[] imageFile;
2170 imageFile = NULL;
2171 }
2172 }
2173 return false;
2174 }
2175 case ltINDENTED :
2176 {
2177 if ( arg_no == 1 )
2178 return false;
2179 else
2180 {
2181 return true;
2182 }
2183 }
2184 case ltITEM:
2185 {
2186 if (start)
2187 {
2188 descriptionItemArg = GetArgChunk();
2189 return false;
2190 }
2191 return true;
2192 }
2193 case ltTWOCOLITEM:
2194 case ltTWOCOLITEMRULED:
2195 {
2196/*
2197 if (start && (arg_no == 1))
2198 TexOutput(_T("\n<DT> "));
2199 if (start && (arg_no == 2))
2200 TexOutput(_T("<DD> "));
2201*/
2202 if (arg_no == 1)
2203 {
2204 if ( start ) {
2205 // DHS
2206 if (TwoColWidthA > -1)
2207 {
2208 wxChar buf[100];
2209 wxSnprintf(buf, sizeof(buf), _T("\n<TR><TD VALIGN=TOP WIDTH=%d>\n"),TwoColWidthA);
2210 TexOutput(buf);
2211 }
2212 else
2213 {
2214 TexOutput(_T("\n<TR><TD VALIGN=TOP>\n"));
2215 }
2216 OutputFont();
2217 } else
2218 TexOutput(_T("\n</FONT></TD>\n"));
2219 }
2220 if (arg_no == 2)
2221 {
2222 // DHS
2223 if ( start )
2224 {
2225 if (TwoColWidthB > -1)
2226 {
2227 wxChar buf[100];
2228 wxSnprintf(buf, sizeof(buf), _T("\n<TD VALIGN=TOP WIDTH=%d>\n"),TwoColWidthB);
2229 TexOutput(buf);
2230 }
2231 else
2232 {
2233 TexOutput(_T("\n<TD VALIGN=TOP>\n"));
2234 }
2235 OutputFont();
2236 } else
2237 TexOutput(_T("\n</FONT></TD></TR>\n"));
2238 }
2239 return true;
2240 }
2241 case ltNUMBEREDBIBITEM:
2242 {
2243 if (arg_no == 1 && start)
2244 {
2245 TexOutput(_T("\n<DT> "));
2246 }
2247 if (arg_no == 2 && !start)
2248 TexOutput(_T("<P>\n"));
2249 break;
2250 }
2251 case ltBIBITEM:
2252 {
2253 wxChar buf[100];
2254 if (arg_no == 1 && start)
2255 {
2256 wxChar *citeKey = GetArgData();
2257 TexRef *ref = (TexRef *)TexReferences.Get(citeKey);
2258 if (ref)
2259 {
2260 if (ref->sectionNumber) delete[] ref->sectionNumber;
2261 wxSnprintf(buf, sizeof(buf), _T("[%d]"), citeCount);
2262 ref->sectionNumber = copystring(buf);
2263 }
2264
2265 wxSnprintf(buf, sizeof(buf), _T("\n<DT> [%d] "), citeCount);
2266 TexOutput(buf);
2267 citeCount ++;
2268 return false;
2269 }
2270 if (arg_no == 2 && !start)
2271 TexOutput(_T("<P>\n"));
2272 return true;
2273 }
2274 case ltMARGINPAR:
2275 case ltMARGINPARODD:
2276 case ltMARGINPAREVEN:
2277 case ltNORMALBOX:
2278 case ltNORMALBOXD:
2279 {
2280 if (start)
2281 {
2282 TexOutput(_T("<HR>\n"));
2283 return true;
2284 }
2285 else
2286 TexOutput(_T("<HR><P>\n"));
2287 break;
2288 }
2289 // DHS
2290 case ltTWOCOLWIDTHA:
2291 {
2292 if (start)
2293 {
2294 wxChar *val = GetArgData();
2295 float points = ParseUnitArgument(val);
2296 TwoColWidthA = (int)((points * 100.0) / 72.0);
2297 }
2298 return false;
2299 }
2300 // DHS
2301 case ltTWOCOLWIDTHB:
2302 {
2303 if (start)
2304 {
2305 wxChar *val = GetArgData();
2306 float points = ParseUnitArgument(val);
2307 TwoColWidthB = (int)((points * 100.0) / 72.0);
2308 }
2309 return false;
2310 }
2311 /*
2312 * Accents
2313 *
2314 */
2315 case ltACCENT_GRAVE:
2316 {
2317 if (start)
2318 {
2319 wxChar *val = GetArgData();
2320 if (val)
2321 {
2322 switch (val[0])
2323 {
2324 case 'a':
2325 TexOutput(_T("&agrave;"));
2326 break;
2327 case 'e':
2328 TexOutput(_T("&egrave;"));
2329 break;
2330 case 'i':
2331 TexOutput(_T("&igrave;"));
2332 break;
2333 case 'o':
2334 TexOutput(_T("&ograve;"));
2335 break;
2336 case 'u':
2337 TexOutput(_T("&ugrave;"));
2338 break;
2339 case 'A':
2340 TexOutput(_T("&Agrave;"));
2341 break;
2342 case 'E':
2343 TexOutput(_T("&Egrave;"));
2344 break;
2345 case 'I':
2346 TexOutput(_T("&Igrave;"));
2347 break;
2348 case 'O':
2349 TexOutput(_T("&Ograve;"));
2350 break;
2351 case 'U':
2352 TexOutput(_T("&Igrave;"));
2353 break;
2354 default:
2355 break;
2356 }
2357 }
2358 }
2359 return false;
2360 }
2361 case ltACCENT_ACUTE:
2362 {
2363 if (start)
2364 {
2365 wxChar *val = GetArgData();
2366 if (val)
2367 {
2368 switch (val[0])
2369 {
2370 case 'a':
2371 TexOutput(_T("&aacute;"));
2372 break;
2373 case 'e':
2374 TexOutput(_T("&eacute;"));
2375 break;
2376 case 'i':
2377 TexOutput(_T("&iacute;"));
2378 break;
2379 case 'o':
2380 TexOutput(_T("&oacute;"));
2381 break;
2382 case 'u':
2383 TexOutput(_T("&uacute;"));
2384 break;
2385 case 'y':
2386 TexOutput(_T("&yacute;"));
2387 break;
2388 case 'A':
2389 TexOutput(_T("&Aacute;"));
2390 break;
2391 case 'E':
2392 TexOutput(_T("&Eacute;"));
2393 break;
2394 case 'I':
2395 TexOutput(_T("&Iacute;"));
2396 break;
2397 case 'O':
2398 TexOutput(_T("&Oacute;"));
2399 break;
2400 case 'U':
2401 TexOutput(_T("&Uacute;"));
2402 break;
2403 case 'Y':
2404 TexOutput(_T("&Yacute;"));
2405 break;
2406 default:
2407 break;
2408 }
2409 }
2410 }
2411 return false;
2412 }
2413 case ltACCENT_CARET:
2414 {
2415 if (start)
2416 {
2417 wxChar *val = GetArgData();
2418 if (val)
2419 {
2420 switch (val[0])
2421 {
2422 case 'a':
2423 TexOutput(_T("&acirc;"));
2424 break;
2425 case 'e':
2426 TexOutput(_T("&ecirc;"));
2427 break;
2428 case 'i':
2429 TexOutput(_T("&icirc;"));
2430 break;
2431 case 'o':
2432 TexOutput(_T("&ocirc;"));
2433 break;
2434 case 'u':
2435 TexOutput(_T("&ucirc;"));
2436 break;
2437 case 'A':
2438 TexOutput(_T("&Acirc;"));
2439 break;
2440 case 'E':
2441 TexOutput(_T("&Ecirc;"));
2442 break;
2443 case 'I':
2444 TexOutput(_T("&Icirc;"));
2445 break;
2446 case 'O':
2447 TexOutput(_T("&Ocirc;"));
2448 break;
2449 case 'U':
2450 TexOutput(_T("&Icirc;"));
2451 break;
2452 default:
2453 break;
2454 }
2455 }
2456 }
2457 return false;
2458 }
2459 case ltACCENT_TILDE:
2460 {
2461 if (start)
2462 {
2463 wxChar *val = GetArgData();
2464 if (val)
2465 {
2466 switch (val[0])
2467 {
2468 case ' ':
2469 TexOutput(_T("~"));
2470 break;
2471 case 'a':
2472 TexOutput(_T("&atilde;"));
2473 break;
2474 case 'n':
2475 TexOutput(_T("&ntilde;"));
2476 break;
2477 case 'o':
2478 TexOutput(_T("&otilde;"));
2479 break;
2480 case 'A':
2481 TexOutput(_T("&Atilde;"));
2482 break;
2483 case 'N':
2484 TexOutput(_T("&Ntilde;"));
2485 break;
2486 case 'O':
2487 TexOutput(_T("&Otilde;"));
2488 break;
2489 default:
2490 break;
2491 }
2492 }
2493 }
2494 return false;
2495 }
2496 case ltACCENT_UMLAUT:
2497 {
2498 if (start)
2499 {
2500 wxChar *val = GetArgData();
2501 if (val)
2502 {
2503 switch (val[0])
2504 {
2505 case 'a':
2506 TexOutput(_T("&auml;"));
2507 break;
2508 case 'e':
2509 TexOutput(_T("&euml;"));
2510 break;
2511 case 'i':
2512 TexOutput(_T("&iuml;"));
2513 break;
2514 case 'o':
2515 TexOutput(_T("&ouml;"));
2516 break;
2517 case 'u':
2518 TexOutput(_T("&uuml;"));
2519 break;
2520 case 'y':
2521 TexOutput(_T("&yuml;"));
2522 break;
2523 case 'A':
2524 TexOutput(_T("&Auml;"));
2525 break;
2526 case 'E':
2527 TexOutput(_T("&Euml;"));
2528 break;
2529 case 'I':
2530 TexOutput(_T("&Iuml;"));
2531 break;
2532 case 'O':
2533 TexOutput(_T("&Ouml;"));
2534 break;
2535 case 'U':
2536 TexOutput(_T("&Uuml;"));
2537 break;
2538 case 'Y':
2539 TexOutput(_T("&Yuml;"));
2540 break;
2541 default:
2542 break;
2543 }
2544 }
2545 }
2546 return false;
2547 }
2548 case ltACCENT_DOT:
2549 {
2550 if (start)
2551 {
2552 wxChar *val = GetArgData();
2553 if (val)
2554 {
2555 switch (val[0])
2556 {
2557 case 'a':
2558 TexOutput(_T("&aring;"));
2559 break;
2560 case 'A':
2561 TexOutput(_T("&Aring;"));
2562 break;
2563 default:
2564 break;
2565 }
2566 }
2567 }
2568 return false;
2569 }
2570 case ltBACKGROUND:
2571 {
2572 if (start)
2573 {
2574 wxChar *val = GetArgData();
2575 if (val)
2576 {
2577 bool isPicture = false;
2578 ParseColourString(val, &isPicture);
2579 if (isPicture)
2580 {
2581 if (backgroundImageString)
2582 delete[] backgroundImageString;
2583 backgroundImageString = copystring(val);
2584 }
2585 else
2586 {
2587 if (backgroundColourString)
2588 delete[] backgroundColourString;
2589 backgroundColourString = copystring(val);
2590 }
2591 }
2592 }
2593 return false;
2594 }
2595 case ltBACKGROUNDIMAGE:
2596 {
2597 if (start)
2598 {
2599 wxChar *val = GetArgData();
2600 if (val)
2601 {
2602 if (backgroundImageString)
2603 delete[] backgroundImageString;
2604 backgroundImageString = copystring(val);
2605 }
2606 }
2607 return false;
2608 }
2609 case ltBACKGROUNDCOLOUR:
2610 {
2611 if (start)
2612 {
2613 wxChar *val = GetArgData();
2614 if (val)
2615 {
2616 if (backgroundColourString)
2617 delete[] backgroundColourString;
2618 backgroundColourString = copystring(val);
2619 }
2620 }
2621 return false;
2622 }
2623 case ltTEXTCOLOUR:
2624 {
2625 if (start)
2626 {
2627 wxChar *val = GetArgData();
2628 if (val)
2629 {
2630 if (textColourString)
2631 delete[] textColourString;
2632 textColourString = copystring(val);
2633 }
2634 }
2635 return false;
2636 }
2637 case ltLINKCOLOUR:
2638 {
2639 if (start)
2640 {
2641 wxChar *val = GetArgData();
2642 if (val)
2643 {
2644 if (linkColourString)
2645 delete[] linkColourString;
2646 linkColourString = copystring(val);
2647 }
2648 }
2649 return false;
2650 }
2651 case ltFOLLOWEDLINKCOLOUR:
2652 {
2653 if (start)
2654 {
2655 wxChar *val = GetArgData();
2656 if (val)
2657 {
2658 if (followedLinkColourString)
2659 delete[] followedLinkColourString;
2660 followedLinkColourString = copystring(val);
2661 }
2662 }
2663 return false;
2664 }
2665 case ltACCENT_CADILLA:
2666 {
2667 if (start)
2668 {
2669 wxChar *val = GetArgData();
2670 if (val)
2671 {
2672 switch (val[0])
2673 {
2674 case 'c':
2675 TexOutput(_T("&ccedil;"));
2676 break;
2677 case 'C':
2678 TexOutput(_T("&Ccedil;"));
2679 break;
2680 default:
2681 break;
2682 }
2683 }
2684 }
2685 return false;
2686 }
2687/*
2688 case ltFOOTNOTE:
2689 case ltFOOTNOTEPOPUP:
2690 {
2691 if (arg_no == 1)
2692 return true;
2693 else
2694 return false;
2695 break;
2696 }
2697*/
2698 case ltTABULAR:
2699 case ltSUPERTABULAR:
2700 {
2701 if (arg_no == 1)
2702 {
2703 if (start)
2704 {
2705 currentRowNumber = 0;
2706 inTabular = true;
2707 startRows = true;
2708 tableVerticalLineLeft = false;
2709 tableVerticalLineRight = false;
2710
2711 wxChar *alignString = copystring(GetArgData());
2712 ParseTableArgument(alignString);
2713
2714 TexOutput(_T("<TABLE BORDER>\n"));
2715
2716 // Write the first row formatting for compatibility
2717 // with standard Latex
2718 if (compatibilityMode)
2719 {
2720 TexOutput(_T("<TR>\n<TD>"));
2721 OutputFont();
2722/*
2723 for (int i = 0; i < noColumns; i++)
2724 {
2725 currentWidth += TableData[i].width;
2726 wxSnprintf(buf, sizeof(buf), _T("\\cellx%d"), currentWidth);
2727 TexOutput(buf);
2728 }
2729 TexOutput(_T("\\pard\\intbl\n"));
2730*/
2731 }
2732 delete[] alignString;
2733
2734 return false;
2735 }
2736 }
2737 else if (arg_no == 2 && !start)
2738 {
2739 TexOutput(_T("</TABLE>\n"));
2740 inTabular = false;
2741 }
2742 break;
2743 }
2744 case ltTHEBIBLIOGRAPHY:
2745 {
2746 if (start && (arg_no == 1))
2747 {
2748 ReopenFile(&Chapters, &ChaptersName, _T("bibliography"));
2749 AddTexRef(_T("bibliography"), ChaptersName, _T("bibliography"));
2750 SetCurrentSubsectionName(_T("bibliography"), ChaptersName);
2751
2752 citeCount = 1;
2753
2754 SetCurrentOutput(Chapters);
2755
2756 wxChar titleBuf[150];
2757 if (truncateFilenames)
2758 wxSnprintf(titleBuf, sizeof(titleBuf), _T("%s.htm"), wxFileNameFromPath(FileRoot));
2759 else
2760 wxSnprintf(titleBuf, sizeof(titleBuf), _T("%s_contents.html"), wxFileNameFromPath(FileRoot));
2761
2762 HTMLHead();
2763 TexOutput(_T("<title>"));
2764 TexOutput(ReferencesNameString);
2765 TexOutput(_T("</title></head>\n"));
2766 OutputBodyStart();
2767
2768 wxFprintf(Chapters, _T("<A NAME=\"%s\">\n<H2>%s"), _T("bibliography"), ReferencesNameString);
2769 AddBrowseButtons(_T("contents"), titleBuf, // Up
2770 lastTopic, lastFileName, // Last topic
2771 _T("bibliography"), ChaptersName); // This topic
2772
2773 SetCurrentOutputs(Contents, Chapters);
2774 wxFprintf(Contents, _T("\n<LI><A HREF=\"%s#%s\">"), ConvertCase(ChaptersName), "bibliography");
2775
2776 wxFprintf(Contents, _T("%s</A>\n"), ReferencesNameString);
2777 wxFprintf(Chapters, _T("</H2>\n</A>\n"));
2778
2779 SetCurrentOutput(Chapters);
2780 return false;
2781 }
2782 if (!start && (arg_no == 2))
2783 {
2784 }
2785 return true;
2786 }
2787 case ltINDEX:
2788 {
2789 /* Build up list of keywords associated with topics */
2790 if (start)
2791 {
2792// wxChar *entry = GetArgData();
2793 wxChar buf[300];
2794 OutputChunkToString(GetArgChunk(), buf);
2795 if (CurrentTopic)
2796 {
2797 AddKeyWordForTopic(CurrentTopic, buf, currentFileName);
2798 }
2799 }
2800 return false;
2801 }
2802 case ltFCOL:
2803// case ltBCOL:
2804 {
2805 if (start)
2806 {
2807 switch (arg_no)
2808 {
2809 case 1:
2810 {
2811 wxChar *name = GetArgData();
2812 wxChar buf2[10];
2813 if (!FindColourHTMLString(name, buf2))
2814 {
2815 wxStrcpy(buf2, _T("#000000"));
2816 wxChar buf[100];
2817 wxSnprintf(buf, sizeof(buf), _T("Could not find colour name %s"), name);
2818 OnError(buf);
2819 }
2820 TexOutput(_T("<FONT COLOR=\""));
2821 TexOutput(buf2);
2822 TexOutput(_T("\">"));
2823 break;
2824 }
2825 case 2:
2826 {
2827 return true;
2828 }
2829 default:
2830 break;
2831 }
2832 }
2833 else
2834 {
2835 if (arg_no == 2) TexOutput(_T("</FONT>"));
2836 }
2837 return false;
2838 }
2839 case ltINSERTATLEVEL:
2840 {
2841 // This macro allows you to insert text at a different level
2842 // from the current level, e.g. into the Sections from within a subsubsection.
2843 if (useWord)
2844 return false;
2845 static int currentLevelNo = 1;
2846 static FILE* oldLevelFile = Chapters;
2847 if (start)
2848 {
2849 switch (arg_no)
2850 {
2851 case 1:
2852 {
2853 oldLevelFile = CurrentOutput1;
2854
2855 wxChar *str = GetArgData();
2856 currentLevelNo = wxAtoi(str);
2857 FILE* outputFile;
2858 // TODO: cope with article style (no chapters)
2859 switch (currentLevelNo)
2860 {
2861 case 1:
2862 {
2863 outputFile = Chapters;
2864 break;
2865 }
2866 case 2:
2867 {
2868 outputFile = Sections;
2869 break;
2870 }
2871 case 3:
2872 {
2873 outputFile = Subsections;
2874 break;
2875 }
2876 case 4:
2877 {
2878 outputFile = Subsubsections;
2879 break;
2880 }
2881 default:
2882 {
2883 outputFile = NULL;
2884 break;
2885 }
2886 }
2887 if (outputFile)
2888 CurrentOutput1 = outputFile;
2889 return false;
2890 }
2891 case 2:
2892 {
2893 return true;
2894 }
2895 default:
2896 break;
2897 }
2898 return true;
2899 }
2900 else
2901 {
2902 if (arg_no == 2)
2903 {
2904 CurrentOutput1 = oldLevelFile;
2905 }
2906 return true;
2907 }
2908 }
2909 default:
2910 return DefaultOnArgument(macroId, arg_no, start);
2911 }
2912 return true;
2913}
2914
2915bool HTMLGo(void)
2916{
2917 fileId = 0;
2918 inVerbatim = false;
2919 indentLevel = 0;
2920 inTabular = false;
2921 startRows = false;
2922 tableVerticalLineLeft = false;
2923 tableVerticalLineRight = false;
2924 noColumns = 0;
2925
2926 if (InputFile && OutputFile)
2927 {
2928 // Do some HTML-specific transformations on all the strings,
2929 // recursively
2930 Text2HTML(GetTopLevelChunk());
2931
2932 wxChar buf[300];
2933 if (truncateFilenames)
2934 wxSnprintf(buf, sizeof(buf), _T("%s.htm"), FileRoot);
2935 else
2936 wxSnprintf(buf, sizeof(buf), _T("%s_contents.html"), FileRoot);
2937 if (TitlepageName) delete[] TitlepageName;
2938 TitlepageName = copystring(buf);
2939 Titlepage = wxFopen(buf, _T("w"));
2940
2941 if (truncateFilenames)
2942 wxSnprintf(buf, sizeof(buf), _T("%s_fc.htm"), FileRoot);
2943 else
2944 wxSnprintf(buf, sizeof(buf), _T("%s_fcontents.html"), FileRoot);
2945
2946 contentsFrameName = copystring(buf);
2947
2948 Contents = wxFopen(TmpContentsName, _T("w"));
2949
2950 if (htmlFrameContents)
2951 {
2952// FrameContents = wxFopen(TmpFrameContentsName, _T("w"));
2953 FrameContents = wxFopen(contentsFrameName, _T("w"));
2954 wxFprintf(FrameContents, _T("<HTML>\n<UL>\n"));
2955 }
2956
2957 if (!Titlepage || !Contents)
2958 {
2959 OnError(_T("Cannot open output file!"));
2960 return false;
2961 }
2962 AddTexRef(_T("contents"), wxFileNameFromPath(TitlepageName), ContentsNameString);
2963
2964 wxFprintf(Contents, _T("<P><P><H2>%s</H2><P><P>\n"), ContentsNameString);
2965
2966 wxFprintf(Contents, _T("<UL>\n"));
2967
2968 SetCurrentOutput(Titlepage);
2969 if (htmlWorkshopFiles) HTMLWorkshopStartContents();
2970 OnInform(_T("Converting..."));
2971
2972 TraverseDocument();
2973 wxFprintf(Contents, _T("</UL>\n\n"));
2974
2975// SetCurrentOutput(Titlepage);
2976 fclose(Titlepage);
2977
2978 if (Contents)
2979 {
2980// wxFprintf(Titlepage, _T("\n</BODY></HTML>\n"));
2981 fclose(Contents);
2982 Contents = NULL;
2983 }
2984
2985 if (FrameContents)
2986 {
2987 wxFprintf(FrameContents, _T("\n</UL>\n"));
2988 wxFprintf(FrameContents, _T("</HTML>\n"));
2989 fclose(FrameContents);
2990 FrameContents = NULL;
2991 }
2992
2993 if (Chapters)
2994 {
2995 wxFprintf(Chapters, _T("\n</FONT></BODY></HTML>\n"));
2996 fclose(Chapters);
2997 Chapters = NULL;
2998 }
2999 if (Sections)
3000 {
3001 wxFprintf(Sections, _T("\n</FONT></BODY></HTML>\n"));
3002 fclose(Sections);
3003 Sections = NULL;
3004 }
3005 if (Subsections && !combineSubSections)
3006 {
3007 wxFprintf(Subsections, _T("\n</FONT></BODY></HTML>\n"));
3008 fclose(Subsections);
3009 Subsections = NULL;
3010 }
3011 if (Subsubsections && !combineSubSections)
3012 {
3013 wxFprintf(Subsubsections, _T("\n</FONT></BODY></HTML>\n"));
3014 fclose(Subsubsections);
3015 Subsubsections = NULL;
3016 }
3017 if ( SectionContentsFD )
3018 {
3019 fclose(SectionContentsFD);
3020 SectionContentsFD = NULL;
3021 }
3022
3023 // Create a temporary file for the title page header, add some info,
3024 // and concat the titlepage just generated.
3025 // This is necessary in order to put the title of the document
3026 // at the TOP of the file within <HEAD>, even though we only find out
3027 // what it is later on.
3028 FILE *tmpTitle = wxFopen(_T("title.tmp"), _T("w"));
3029 if (tmpTitle)
3030 {
3031 if (DocumentTitle)
3032 {
3033 SetCurrentOutput(tmpTitle);
3034 HTMLHead();
3035 TexOutput(_T("\n<TITLE>"));
3036 TraverseChildrenFromChunk(DocumentTitle);
3037 TexOutput(_T("</TITLE></HEAD>\n"));
3038 }
3039 else
3040 {
3041 SetCurrentOutput(tmpTitle);
3042 HTMLHeadTo(tmpTitle);
3043 if (contentsString)
3044 wxFprintf(tmpTitle, _T("<TITLE>%s</TITLE></HEAD>\n\n"), contentsString);
3045 else
3046 wxFprintf(tmpTitle, _T("<TITLE>%s</TITLE></HEAD>\n\n"), wxFileNameFromPath(FileRoot));
3047 }
3048
3049 // Output frame information
3050 if (htmlFrameContents)
3051 {
3052 wxChar firstFileName[300];
3053 if (truncateFilenames)
3054 wxSnprintf(firstFileName, sizeof(firstFileName), _T("%s1.htm"), FileRoot);
3055 else
3056 wxStrcpy(firstFileName, gs_filenames[1].c_str());
3057
3058 wxFprintf(tmpTitle, _T("<FRAMESET COLS=\"30%%,70%%\">\n"));
3059
3060 wxFprintf(tmpTitle, _T("<FRAME SRC=\"%s\">\n"), ConvertCase(wxFileNameFromPath(contentsFrameName)));
3061 wxFprintf(tmpTitle, _T("<FRAME SRC=\"%s\" NAME=\"mainwindow\">\n"), ConvertCase(wxFileNameFromPath(firstFileName)));
3062 wxFprintf(tmpTitle, _T("</FRAMESET>\n"));
3063
3064 wxFprintf(tmpTitle, _T("<NOFRAMES>\n"));
3065 }
3066
3067 // Output <BODY...> to temporary title page
3068 OutputBodyStart();
3069 fflush(tmpTitle);
3070
3071 // Concat titlepage
3072 FILE *fd = wxFopen(TitlepageName, _T("r"));
3073 if (fd)
3074 {
3075 int ch = getc(fd);
3076 while (ch != EOF)
3077 {
3078 wxPutc(ch, tmpTitle);
3079 ch = getc(fd);
3080 }
3081 fclose(fd);
3082 }
3083
3084 wxFprintf(tmpTitle, _T("\n</FONT></BODY>\n"));
3085
3086 if (htmlFrameContents)
3087 {
3088 wxFprintf(tmpTitle, _T("\n</NOFRAMES>\n"));
3089 }
3090 wxFprintf(tmpTitle, _T("\n</HTML>\n"));
3091
3092 fclose(tmpTitle);
3093 if (wxFileExists(TitlepageName)) wxRemoveFile(TitlepageName);
3094 if (!wxRenameFile(_T("title.tmp"), TitlepageName))
3095 {
3096 wxCopyFile(_T("title.tmp"), TitlepageName);
3097 wxRemoveFile(_T("title.tmp"));
3098 }
3099 }
3100
3101 if (lastFileName) delete[] lastFileName;
3102 lastFileName = NULL;
3103 if (lastTopic) delete[] lastTopic;
3104 lastTopic = NULL;
3105
3106 if (wxFileExists(ContentsName)) wxRemoveFile(ContentsName);
3107
3108 if (!wxRenameFile(TmpContentsName, ContentsName))
3109 {
3110 wxCopyFile(TmpContentsName, ContentsName);
3111 wxRemoveFile(TmpContentsName);
3112 }
3113
3114 // Generate .htx file if requested
3115 if (htmlIndex)
3116 {
3117 wxChar htmlIndexName[300];
3118 wxSnprintf(htmlIndexName, sizeof(htmlIndexName), _T("%s.htx"), FileRoot);
3119 GenerateHTMLIndexFile(htmlIndexName);
3120 }
3121
3122 // Generate HTML Help Workshop files if requested
3123 if (htmlWorkshopFiles)
3124 {
3125 HTMLWorkshopEndContents();
3126 GenerateHTMLWorkshopFiles(FileRoot);
3127 }
3128
3129
3130 return true;
3131 }
3132
3133 return false;
3134}
3135
3136// Output .htx index file
3137void GenerateHTMLIndexFile(wxChar *fname)
3138{
3139 FILE *fd = wxFopen(fname, _T("w"));
3140 if (!fd)
3141 return;
3142
3143 TopicTable.BeginFind();
3144 wxHashTable::Node *node = TopicTable.Next();
3145 while (node)
3146 {
3147 TexTopic *texTopic = (TexTopic *)node->GetData();
3148 const wxChar *topicName = node->GetKeyString();
3149 if (texTopic->filename && texTopic->keywords)
3150 {
3151 wxStringListNode *node1 = texTopic->keywords->GetFirst();
3152 while (node1)
3153 {
3154 wxChar *s = (wxChar *)node1->GetData();
3155 wxFprintf(fd, _T("%s|%s|%s\n"), topicName, texTopic->filename, s);
3156 node1 = node1->GetNext();
3157 }
3158 }
3159 node = TopicTable.Next();
3160 }
3161 fclose(fd);
3162}
3163
3164
3165
3166
3167
3168
3169
3170// output .hpp, .hhc and .hhk files:
3171
3172
3173void GenerateHTMLWorkshopFiles(wxChar *fname)
3174{
3175 FILE *f;
3176 wxChar buf[300];
3177
3178 /* Generate project file : */
3179
3180 wxSnprintf(buf, sizeof(buf), _T("%s.hhp"), fname);
3181 f = wxFopen(buf, _T("wt"));
3182 wxFprintf(f,
3183 _T("[OPTIONS]\n")
3184 _T("Compatibility=1.1\n")
3185 _T("Full-text search=Yes\n")
3186 _T("Contents file=%s.hhc\n")
3187 _T("Compiled file=%s.chm\n")
3188 _T("Default Window=%sHelp\n")
3189 _T("Default topic=%s\n")
3190 _T("Index file=%s.hhk\n")
3191 _T("Title="),
3192 wxFileNameFromPath(fname),
3193 wxFileNameFromPath(fname),
3194 wxFileNameFromPath(fname),
3195 wxFileNameFromPath(TitlepageName),
3196 wxFileNameFromPath(fname)
3197 );
3198
3199 if (DocumentTitle) {
3200 SetCurrentOutput(f);
3201 TraverseChildrenFromChunk(DocumentTitle);
3202 }
3203 else wxFprintf(f, _T("(unknown)"));
3204
3205 wxFprintf(f, _T("\n\n[WINDOWS]\n")
3206 _T("%sHelp=,\"%s.hhc\",\"%s.hhk\",\"%s\",,,,,,0x2420,,0x380e,,,,,0,,,"),
3207 wxFileNameFromPath(fname),
3208 wxFileNameFromPath(fname),
3209 wxFileNameFromPath(fname),
3210 wxFileNameFromPath(TitlepageName));
3211
3212
3213 wxFprintf(f, _T("\n\n[FILES]\n"));
3214 wxFprintf(f, _T("%s\n"), wxFileNameFromPath(TitlepageName));
3215 for (int i = 1; i <= fileId; i++) {
3216 if (truncateFilenames)
3217 wxSnprintf(buf, sizeof(buf), _T("%s%d.htm"), wxFileNameFromPath(FileRoot), i);
3218 else
3219 wxStrcpy(buf, wxFileNameFromPath(gs_filenames[i].c_str()));
3220 wxFprintf(f, _T("%s\n"), buf);
3221 }
3222 fclose(f);
3223
3224 /* Generate index file : */
3225
3226 wxSnprintf(buf, sizeof(buf), _T("%s.hhk"), fname);
3227 f = wxFopen(buf, _T("wt"));
3228
3229 wxFprintf(f,
3230 _T("<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">\n")
3231 _T("<HTML>\n"));
3232 HTMLHeadTo(f);
3233 wxFprintf(f,
3234 _T("\n")
3235 _T("<meta name=\"GENERATOR\" content=\"tex2rtf\">\n")
3236 _T("<!-- Sitemap 1.0 -->\n")
3237 _T("</HEAD><BODY>\n")
3238 _T("<OBJECT type=\"text/site properties\">\n")
3239 _T(" <param name=\"ImageType\" value=\"Folder\">\n")
3240 _T("</OBJECT>\n")
3241 _T("<UL>\n"));
3242
3243 TopicTable.BeginFind();
3244 wxHashTable::Node *node = TopicTable.Next();
3245 while (node)
3246 {
3247 TexTopic *texTopic = (TexTopic *)node->GetData();
3248 const wxChar *topicName = node->GetKeyString();
3249 if (texTopic->filename && texTopic->keywords)
3250 {
3251 wxStringListNode *node1 = texTopic->keywords->GetFirst();
3252 while (node1)
3253 {
3254 wxChar *s = (wxChar *)node1->GetData();
3255 wxFprintf(f,
3256 _T(" <LI> <OBJECT type=\"text/sitemap\">\n")
3257 _T(" <param name=\"Local\" value=\"%s#%s\">\n")
3258 _T(" <param name=\"Name\" value=\"%s\">\n")
3259 _T(" </OBJECT>\n"),
3260 texTopic->filename, topicName, s);
3261 node1 = node1->GetNext();
3262 }
3263 }
3264 node = TopicTable.Next();
3265 }
3266
3267 wxFprintf(f, _T("</UL>\n"));
3268 fclose(f);
3269}
3270
3271
3272
3273static FILE *HTMLWorkshopContents = NULL;
3274static int HTMLWorkshopLastLevel = 0;
3275
3276void HTMLWorkshopAddToContents(int level, wxChar *s, wxChar *file)
3277{
3278 int i;
3279
3280 if (level > HTMLWorkshopLastLevel)
3281 for (i = HTMLWorkshopLastLevel; i < level; i++)
3282 wxFprintf(HTMLWorkshopContents, _T("<UL>"));
3283 if (level < HTMLWorkshopLastLevel)
3284 for (i = level; i < HTMLWorkshopLastLevel; i++)
3285 wxFprintf(HTMLWorkshopContents, _T("</UL>"));
3286
3287 SetCurrentOutput(HTMLWorkshopContents);
3288 wxFprintf(HTMLWorkshopContents,
3289 _T(" <LI> <OBJECT type=\"text/sitemap\">\n")
3290 _T(" <param name=\"Local\" value=\"%s#%s\">\n")
3291 _T(" <param name=\"Name\" value=\""),
3292 file, s);
3293 OutputCurrentSection();
3294 wxFprintf(HTMLWorkshopContents,
3295 _T("\">\n")
3296 _T(" </OBJECT>\n"));
3297 HTMLWorkshopLastLevel = level;
3298}
3299
3300
3301void HTMLWorkshopStartContents()
3302{
3303 wxChar buf[300];
3304 wxSnprintf(buf, sizeof(buf), _T("%s.hhc"), FileRoot);
3305 HTMLWorkshopContents = wxFopen(buf, _T("wt"));
3306 HTMLWorkshopLastLevel = 0;
3307
3308 wxFprintf(HTMLWorkshopContents,
3309 _T("<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">\n")
3310 _T("<HTML>\n"));
3311 HTMLHeadTo(HTMLWorkshopContents);
3312 wxFprintf(HTMLWorkshopContents,
3313 _T("\n")
3314 _T("<meta name=\"GENERATOR\" content=\"tex2rtf\">\n")
3315 _T("<!-- Sitemap 1.0 -->\n")
3316 _T("</HEAD><BODY>\n")
3317 _T("<OBJECT type=\"text/site properties\">\n")
3318 _T(" <param name=\"ImageType\" value=\"Folder\">\n")
3319 _T("</OBJECT>\n")
3320 _T("<UL>\n")
3321 _T("<LI> <OBJECT type=\"text/sitemap\">\n")
3322 _T("<param name=\"Local\" value=\"%s\">\n")
3323 _T("<param name=\"Name\" value=\"Contents\">\n</OBJECT>\n"),
3324 wxFileNameFromPath(TitlepageName)
3325 );
3326
3327}
3328
3329
3330void HTMLWorkshopEndContents()
3331{
3332 for (int i = HTMLWorkshopLastLevel; i >= 0; i--)
3333 wxFprintf(HTMLWorkshopContents, _T("</UL>\n"));
3334 fclose(HTMLWorkshopContents);
3335}
wxWidgets (Impactor)