]> 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
changed hand cursor to look like Windows' hand cursor
[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 // Read old .con file in at this point
878 wxChar buf[256];
879 wxStrcpy(buf, CurrentSectionFile);
880 wxStripExtension(buf);
881 wxStrcat(buf, _T(".con"));
882 FILE *fd = wxFopen(buf, _T("r"));
883 if ( fd )
884 {
885 int ch = getc(fd);
886 while (ch != EOF)
887 {
888 putc(ch, Sections);
889 ch = getc(fd);
890 }
891 fclose(fd);
892 }
893 wxFprintf(Sections, _T("<P>\n"));
894
895 // Close old file, create a new file for the sub(sub)section contents entries
896 ReopenSectionContentsFile();
897 }
898
899 startedSections = true;
900 subsectionStarted = true;
901
902 wxChar *topicName = FindTopicName(GetNextChunk());
903
904 if ( !combineSubSections )
905 {
906 SetCurrentOutput(NULL);
907 ReopenFile(&Subsections, &SubsectionsName, topicName);
908 AddTexRef(topicName, SubsectionsName, SubsectionNameString);
909 SetCurrentSubsectionName(topicName, SubsectionsName);
910 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(2, topicName, SubsectionsName);
911 SetCurrentOutput(Subsections);
912
913 HTMLHead();
914 TexOutput(_T("<title>"));
915 OutputCurrentSection();
916 TexOutput(_T("</title></head>\n"));
917 OutputBodyStart();
918
919 wxFprintf(Subsections, _T("<A NAME=\"%s\"></A>"), topicName);
920 AddBrowseButtons(CurrentSectionName, CurrentSectionFile, // Up
921 lastTopic, lastFileName, // Last topic
922 topicName, SubsectionsName); // This topic
923
924 SetCurrentOutputs(Sections, Subsections);
925 wxFprintf(Sections, _T("\n<A HREF=\"%s#%s\"><B>"), ConvertCase(SubsectionsName), topicName);
926
927 wxFprintf(Subsections, _T("\n<H3>"));
928 OutputCurrentSection();
929 wxFprintf(Sections, _T("</B></A><BR>\n"));
930 wxFprintf(Subsections, _T("</H3>\n"));
931
932 SetCurrentOutput(Subsections);
933 }
934 else
935 {
936 AddTexRef(topicName, SectionsName, SubsectionNameString);
937 SetCurrentSubsectionName(topicName, SectionsName);
938
939// if ( subsectionNo != 0 )
940 wxFprintf(Sections, _T("\n<HR>\n"));
941
942 // We're putting everything into the section file
943 wxFprintf(Sections, _T("<A NAME=\"%s\"></A>"), topicName);
944 wxFprintf(Sections, _T("\n<H3>"));
945 OutputCurrentSection();
946 wxFprintf(Sections, _T("</H3>\n"));
947
948 SetCurrentOutput(SectionContentsFD);
949 wxFprintf(SectionContentsFD, _T("<A HREF=\"#%s\">"), topicName);
950 OutputCurrentSection();
951 TexOutput(_T("</A><BR>\n"));
952
953 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(2, topicName, SectionsName);
954 SetCurrentOutput(Sections);
955 }
956 // Add this section title to the list of keywords
957 if (htmlIndex)
958 {
959 OutputCurrentSectionToString(wxTex2RTFBuffer);
960 AddKeyWordForTopic(topicName, wxTex2RTFBuffer, currentFileName);
961 }
962
963 }
964 }
965 break;
966 }
967 case ltSUBSUBSECTION:
968 case ltSUBSUBSECTIONSTAR:
969 {
970 if (!start)
971 {
972 if (!Subsections && !combineSubSections)
973 {
974 OnError(_T("You cannot have a subsubsection before a subsection!"));
975 }
976 else
977 {
978 if (macroId != ltSUBSUBSECTIONSTAR)
979 subsubsectionNo ++;
980
981 startedSections = true;
982
983 wxChar *topicName = FindTopicName(GetNextChunk());
984
985 if ( !combineSubSections )
986 {
987 SetCurrentOutput(NULL);
988 ReopenFile(&Subsubsections, &SubsubsectionsName, topicName);
989 AddTexRef(topicName, SubsubsectionsName, SubsubsectionNameString);
990 SetCurrentSubsubsectionName(topicName, SubsubsectionsName);
991 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(3, topicName, SubsubsectionsName);
992
993 SetCurrentOutput(Subsubsections);
994 HTMLHead();
995 TexOutput(_T("<title>"));
996 OutputCurrentSection();
997 TexOutput(_T("</title></head>\n"));
998 OutputBodyStart();
999
1000 wxFprintf(Subsubsections, _T("<A NAME=\"%s\"></A>"), topicName);
1001
1002 AddBrowseButtons(CurrentSubsectionName, CurrentSubsectionFile, // Up
1003 lastTopic, lastFileName, // Last topic
1004 topicName, SubsubsectionsName); // This topic
1005
1006 SetCurrentOutputs(Subsections, Subsubsections);
1007 wxFprintf(Subsections, _T("\n<A HREF=\"%s#%s\"><B>"), ConvertCase(SubsubsectionsName), topicName);
1008
1009 wxFprintf(Subsubsections, _T("\n<H3>"));
1010 OutputCurrentSection();
1011 wxFprintf(Subsections, _T("</B></A><BR>\n"));
1012 wxFprintf(Subsubsections, _T("</H3>\n"));
1013 }
1014 else
1015 {
1016 AddTexRef(topicName, SectionsName, SubsubsectionNameString);
1017 SetCurrentSubsectionName(topicName, SectionsName);
1018 wxFprintf(Sections, _T("\n<HR>\n"));
1019
1020 // We're putting everything into the section file
1021 wxFprintf(Sections, _T("<A NAME=\"%s\"></A>"), topicName);
1022 wxFprintf(Sections, _T("\n<H3>"));
1023 OutputCurrentSection();
1024 wxFprintf(Sections, _T("</H3>\n"));
1025/* TODO: where do we put subsubsection contents entry - indented, with subsection entries?
1026 SetCurrentOutput(SectionContentsFD);
1027 wxFprintf(SectionContentsFD, "<A HREF=\"#%s\">", topicName);
1028 OutputCurrentSection();
1029 TexOutput(_T("</A><BR>"));
1030*/
1031 if (htmlWorkshopFiles) HTMLWorkshopAddToContents(2, topicName, SectionsName);
1032 SetCurrentOutput(Sections);
1033 }
1034
1035 // Add this section title to the list of keywords
1036 if (htmlIndex)
1037 {
1038 OutputCurrentSectionToString(wxTex2RTFBuffer);
1039 AddKeyWordForTopic(topicName, wxTex2RTFBuffer, currentFileName);
1040 }
1041 }
1042 }
1043 break;
1044 }
1045 case ltFUNC:
1046 case ltPFUNC:
1047 {
1048 if ( !combineSubSections )
1049 SetCurrentOutput(Subsections);
1050 else
1051 SetCurrentOutput(Sections);
1052 if (start)
1053 {
1054 }
1055 else
1056 {
1057 }
1058 break;
1059 }
1060 case ltCLIPSFUNC:
1061 {
1062 if ( !combineSubSections )
1063 SetCurrentOutput(Subsections);
1064 else
1065 SetCurrentOutput(Sections);
1066 if (start)
1067 {
1068 }
1069 else
1070 {
1071 }
1072 break;
1073 }
1074 case ltMEMBER:
1075 {
1076 if ( !combineSubSections )
1077 SetCurrentOutput(Subsections);
1078 else
1079 SetCurrentOutput(Sections);
1080 if (start)
1081 {
1082 }
1083 else
1084 {
1085 }
1086 break;
1087 }
1088 case ltVOID:
1089// if (start)
1090// TexOutput(_T("<B>void</B>"));
1091 break;
1092 case ltHARDY:
1093 if (start)
1094 TexOutput(_T("HARDY"));
1095 break;
1096 case ltWXCLIPS:
1097 if (start)
1098 TexOutput(_T("wxCLIPS"));
1099 break;
1100 case ltAMPERSAND:
1101 if (start)
1102 TexOutput(_T("&amp;"));
1103 break;
1104 case ltSPECIALAMPERSAND:
1105 {
1106 if (start)
1107 {
1108 if (inTabular)
1109 {
1110 // End cell, start cell
1111
1112 TexOutput(_T("</FONT></TD>"));
1113
1114 // Start new row and cell, setting alignment for the first cell.
1115 if (currentColumn < noColumns)
1116 currentColumn ++;
1117
1118 wxChar buf[100];
1119 if (TableData[currentColumn].justification == 'c')
1120 wxSnprintf(buf, sizeof(buf), _T("\n<TD ALIGN=CENTER>"));
1121 else if (TableData[currentColumn].justification == 'r')
1122 wxSnprintf(buf, sizeof(buf), _T("\n<TD ALIGN=RIGHT>"));
1123 else if (TableData[currentColumn].absWidth)
1124 {
1125 // Convert from points * 20 into pixels.
1126 int points = TableData[currentColumn].width / 20;
1127
1128 // Say the display is 100 DPI (dots/pixels per inch).
1129 // There are 72 pts to the inch. So 1pt = 1/72 inch, or 100 * 1/72 dots.
1130 int pixels = (int)(points * 100.0 / 72.0);
1131 wxSnprintf(buf, sizeof(buf), _T("<TD ALIGN=CENTER WIDTH=%d>"), pixels);
1132 }
1133 else
1134 wxSnprintf(buf, sizeof(buf), _T("\n<TD ALIGN=LEFT>"));
1135 TexOutput(buf);
1136 OutputFont();
1137 }
1138 else
1139 TexOutput(_T("&amp;"));
1140 }
1141 break;
1142 }
1143 case ltBACKSLASHCHAR:
1144 {
1145 if (start)
1146 {
1147 if (inTabular)
1148 {
1149 // End row. In fact, tables without use of \row or \ruledrow isn't supported for
1150 // HTML: the syntax is too different (e.g. how do we know where to put the first </TH>
1151 // if we've ended the last row?). So normally you wouldn't use \\ to end a row.
1152 TexOutput(_T("</TR>\n"));
1153 }
1154 else
1155 TexOutput(_T("<BR>\n"));
1156 }
1157 break;
1158 }
1159 case ltROW:
1160 case ltRULEDROW:
1161 {
1162 if (start)
1163 {
1164 currentColumn = 0;
1165
1166 // Start new row and cell, setting alignment for the first cell.
1167 wxChar buf[100];
1168 if (TableData[currentColumn].justification == 'c')
1169 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=CENTER>"));
1170 else if (TableData[currentColumn].justification == 'r')
1171 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=RIGHT>"));
1172 else if (TableData[currentColumn].absWidth)
1173 {
1174 // Convert from points * 20 into pixels.
1175 int points = TableData[currentColumn].width / 20;
1176
1177 // Say the display is 100 DPI (dots/pixels per inch).
1178 // There are 72 pts to the inch. So 1pt = 1/72 inch, or 100 * 1/72 dots.
1179 int pixels = (int)(points * 100.0 / 72.0);
1180 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=CENTER WIDTH=%d>"), pixels);
1181 }
1182 else
1183 wxSnprintf(buf, sizeof(buf), _T("<TR>\n<TD ALIGN=LEFT>"));
1184 TexOutput(buf);
1185 OutputFont();
1186 }
1187 else
1188 {
1189 // End cell and row
1190 // Start new row and cell
1191 TexOutput(_T("</FONT></TD>\n</TR>\n"));
1192 }
1193 break;
1194 }
1195 // HTML-only: break until the end of the picture (both margins are clear).
1196 case ltBRCLEAR:
1197 {
1198 if (start)
1199 TexOutput(_T("<BR CLEAR=ALL>"));
1200 break;
1201 }
1202 case ltRTFSP: // Explicit space, RTF only
1203 break;
1204 case ltSPECIALTILDE:
1205 {
1206 if (start)
1207 {
1208 #if (1) // if(inVerbatim)
1209 TexOutput(_T("~"));
1210 #else
1211 TexOutput(_T(" "));
1212 #endif
1213 }
1214 break;
1215 }
1216 case ltINDENTED :
1217 {
1218 if ( start )
1219 TexOutput(_T("<UL><UL>\n"));
1220 else
1221 TexOutput(_T("</UL></UL>\n"));
1222 break;
1223 }
1224 case ltITEMIZE:
1225 case ltENUMERATE:
1226 case ltDESCRIPTION:
1227// case ltTWOCOLLIST:
1228 {
1229 if (start)
1230 {
1231 indentLevel ++;
1232
1233 int listType;
1234 if (macroId == ltENUMERATE)
1235 listType = LATEX_ENUMERATE;
1236 else if (macroId == ltITEMIZE)
1237 listType = LATEX_ITEMIZE;
1238 else
1239 listType = LATEX_DESCRIPTION;
1240
1241 itemizeStack.Insert(new ItemizeStruc(listType));
1242 switch (listType)
1243 {
1244 case LATEX_ITEMIZE:
1245 TexOutput(_T("<UL>\n"));
1246 break;
1247 case LATEX_ENUMERATE:
1248 TexOutput(_T("<OL>\n"));
1249 break;
1250 case LATEX_DESCRIPTION:
1251 default:
1252 TexOutput(_T("<DL>\n"));
1253 break;
1254 }
1255 }
1256 else
1257 {
1258 indentLevel --;
1259 if (itemizeStack.GetFirst())
1260 {
1261 ItemizeStruc *struc = (ItemizeStruc *)itemizeStack.GetFirst()->GetData();
1262 switch (struc->listType)
1263 {
1264 case LATEX_ITEMIZE:
1265 TexOutput(_T("</UL>\n"));
1266 break;
1267 case LATEX_ENUMERATE:
1268 TexOutput(_T("</OL>\n"));
1269 break;
1270 case LATEX_DESCRIPTION:
1271 default:
1272 TexOutput(_T("</DL>\n"));
1273 break;
1274 }
1275
1276 delete struc;
1277 delete itemizeStack.GetFirst();
1278 }
1279 }
1280 break;
1281 }
1282 case ltTWOCOLLIST :
1283 {
1284 if ( start )
1285 TexOutput(_T("\n<TABLE>\n"));
1286 else {
1287 TexOutput(_T("\n</TABLE>\n"));
1288 // DHS
1289 TwoColWidthA = -1;
1290 TwoColWidthB = -1;
1291 }
1292 break;
1293 }
1294 case ltPAR:
1295 {
1296 if (start)
1297 TexOutput(_T("<P>\n"));
1298 break;
1299 }
1300/* For footnotes we need to output the text at the bottom of the page and
1301 * insert a reference to it. Is it worth the trouble...
1302 case ltFOOTNOTE:
1303 case ltFOOTNOTEPOPUP:
1304 {
1305 if (start)
1306 {
1307 TexOutput(_T("<FN>"));
1308 }
1309 else TexOutput(_T("</FN>"));
1310 break;
1311 }
1312*/
1313 case ltVERB:
1314 {
1315 if (start)
1316 TexOutput(_T("<TT>"));
1317 else TexOutput(_T("</TT>"));
1318 break;
1319 }
1320 case ltVERBATIM:
1321 {
1322 if (start)
1323 {
1324 wxChar buf[100];
1325 wxSnprintf(buf, sizeof(buf), _T("<PRE>\n"));
1326 TexOutput(buf);
1327 }
1328 else TexOutput(_T("</PRE>\n"));
1329 break;
1330 }
1331 case ltCENTERLINE:
1332 case ltCENTER:
1333 {
1334 if (start)
1335 {
1336 TexOutput(_T("<CENTER>"));
1337 }
1338 else TexOutput(_T("</CENTER>"));
1339 break;
1340 }
1341 case ltFLUSHLEFT:
1342 {
1343/*
1344 if (start)
1345 {
1346 TexOutput(_T("{\\ql "));
1347 }
1348 else TexOutput(_T("}\\par\\pard\n"));
1349*/
1350 break;
1351 }
1352 case ltFLUSHRIGHT:
1353 {
1354/*
1355 if (start)
1356 {
1357 TexOutput(_T("{\\qr "));
1358 }
1359 else TexOutput(_T("}\\par\\pard\n"));
1360*/
1361 break;
1362 }
1363 case ltSMALL:
1364 {
1365 if (start)
1366 {
1367 // Netscape extension
1368 TexOutput(_T("<FONT SIZE=2>"));
1369 }
1370 else TexOutput(_T("</FONT>"));
1371 break;
1372 }
1373 case ltTINY:
1374 {
1375 if (start)
1376 {
1377 // Netscape extension
1378 TexOutput(_T("<FONT SIZE=1>"));
1379 }
1380 else TexOutput(_T("</FONT>"));
1381 break;
1382 }
1383 case ltNORMALSIZE:
1384 {
1385 if (start)
1386 {
1387 // Netscape extension
1388 TexOutput(_T("<FONT SIZE=3>"));
1389 }
1390 else TexOutput(_T("</FONT>"));
1391 break;
1392 }
1393 case ltlarge:
1394 {
1395 if (start)
1396 {
1397 // Netscape extension
1398 TexOutput(_T("<FONT SIZE=4>"));
1399 }
1400 else TexOutput(_T("</FONT>"));
1401 break;
1402 }
1403 case ltLarge:
1404 {
1405 if (start)
1406 {
1407 // Netscape extension
1408 TexOutput(_T("<FONT SIZE=5>"));
1409 }
1410 else TexOutput(_T("</FONT>"));
1411 break;
1412 }
1413 case ltLARGE:
1414 {
1415 if (start)
1416 {
1417 // Netscape extension
1418 TexOutput(_T("<FONT SIZE=6>"));
1419 }
1420 else TexOutput(_T("</FONT>"));
1421 break;
1422 }
1423 case ltBFSERIES:
1424 case ltTEXTBF:
1425 case ltBF:
1426 {
1427 if (start)
1428 {
1429 TexOutput(_T("<B>"));
1430 }
1431 else TexOutput(_T("</B>"));
1432 break;
1433 }
1434 case ltITSHAPE:
1435 case ltTEXTIT:
1436 case ltIT:
1437 {
1438 if (start)
1439 {
1440 TexOutput(_T("<I>"));
1441 }
1442 else TexOutput(_T("</I>"));
1443 break;
1444 }
1445 case ltEMPH:
1446 case ltEM:
1447 {
1448 if (start)
1449 {
1450 TexOutput(_T("<EM>"));
1451 }
1452 else TexOutput(_T("</EM>"));
1453 break;
1454 }
1455 case ltUNDERLINE:
1456 {
1457 if (start)
1458 {
1459 TexOutput(_T("<UL>"));
1460 }
1461 else TexOutput(_T("</UL>"));
1462 break;
1463 }
1464 case ltTTFAMILY:
1465 case ltTEXTTT:
1466 case ltTT:
1467 {
1468 if (start)
1469 {
1470 TexOutput(_T("<TT>"));
1471 }
1472 else TexOutput(_T("</TT>"));
1473 break;
1474 }
1475 case ltCOPYRIGHT:
1476 {
1477 if (start)
1478 TexOutput(_T("&copy;"), true);
1479 break;
1480 }
1481 case ltREGISTERED:
1482 {
1483 if (start)
1484 TexOutput(_T("&reg;"), true);
1485 break;
1486 }
1487 // Arrows
1488 case ltLEFTARROW:
1489 {
1490 if (start) TexOutput(_T("&lt;--"));
1491 break;
1492 }
1493 case ltLEFTARROW2:
1494 {
1495 if (start) TexOutput(_T("&lt;=="));
1496 break;
1497 }
1498 case ltRIGHTARROW:
1499 {
1500 if (start) TexOutput(_T("--&gt;"));
1501 break;
1502 }
1503 case ltRIGHTARROW2:
1504 {
1505 if (start) TexOutput(_T("==&gt;"));
1506 break;
1507 }
1508 case ltLEFTRIGHTARROW:
1509 {
1510 if (start) TexOutput(_T("&lt;--&gt;"));
1511 break;
1512 }
1513 case ltLEFTRIGHTARROW2:
1514 {
1515 if (start) TexOutput(_T("&lt;==&gt;"));
1516 break;
1517 }
1518/*
1519 case ltSC:
1520 {
1521 break;
1522 }
1523*/
1524 case ltITEM:
1525 {
1526 if (!start)
1527 {
1528 wxNode *node = itemizeStack.GetFirst();
1529 if (node)
1530 {
1531 ItemizeStruc *struc = (ItemizeStruc *)node->GetData();
1532 struc->currentItem += 1;
1533 if (struc->listType == LATEX_DESCRIPTION)
1534 {
1535 if (descriptionItemArg)
1536 {
1537 TexOutput(_T("<DT> "));
1538 TraverseChildrenFromChunk(descriptionItemArg);
1539 TexOutput(_T("\n"));
1540 descriptionItemArg = NULL;
1541 }
1542 TexOutput(_T("<DD>"));
1543 }
1544 else
1545 TexOutput(_T("<LI>"));
1546 }
1547 }
1548 break;
1549 }
1550 case ltMAKETITLE:
1551 {
1552 if (start && DocumentTitle && DocumentAuthor)
1553 {
1554 // Add a special label for the contents page.
1555// TexOutput(_T("<CENTER>\n"));
1556 TexOutput(_T("<A NAME=\"contents\">"));
1557 TexOutput(_T("<H2 ALIGN=CENTER>\n"));
1558 TraverseChildrenFromChunk(DocumentTitle);
1559 TexOutput(_T("</H2>"));
1560 TexOutput(_T("<P>"));
1561 TexOutput(_T("</A>\n"));
1562 TexOutput(_T("<P>\n\n"));
1563 TexOutput(_T("<H3 ALIGN=CENTER>"));
1564 TraverseChildrenFromChunk(DocumentAuthor);
1565 TexOutput(_T("</H3><P>\n\n"));
1566 if (DocumentDate)
1567 {
1568 TexOutput(_T("<H3 ALIGN=CENTER>"));
1569 TraverseChildrenFromChunk(DocumentDate);
1570 TexOutput(_T("</H3><P>\n\n"));
1571 }
1572// TexOutput(_T("\n</CENTER>\n"));
1573 TexOutput(_T("\n<P><HR><P>\n"));
1574
1575/*
1576 // Now do optional frame contents page
1577 if (htmlFrameContents && FrameContents)
1578 {
1579 SetCurrentOutput(FrameContents);
1580
1581 // Add a special label for the contents page.
1582 TexOutput(_T("<CENTER>\n"));
1583 TexOutput(_T("<H3>\n"));
1584 TraverseChildrenFromChunk(DocumentTitle);
1585 TexOutput(_T("</H3>"));
1586 TexOutput(_T("<P>"));
1587 TexOutput(_T("</A>\n"));
1588 TexOutput(_T("<P>\n\n"));
1589 TexOutput(_T("<H3>"));
1590 TraverseChildrenFromChunk(DocumentAuthor);
1591 TexOutput(_T("</H3><P>\n\n"));
1592 if (DocumentDate)
1593 {
1594 TexOutput(_T("<H4>"));
1595 TraverseChildrenFromChunk(DocumentDate);
1596 TexOutput(_T("</H4><P>\n\n"));
1597 }
1598 TexOutput(_T("\n</CENTER>\n"));
1599 TexOutput(_T("<P><HR><P>\n"));
1600
1601 SetCurrentOutput(Titlepage);
1602 }
1603*/
1604 }
1605 break;
1606 }
1607 case ltHELPREF:
1608 case ltHELPREFN:
1609 case ltPOPREF:
1610 case ltURLREF:
1611 {
1612 if (start)
1613 {
1614 helpRefFilename = NULL;
1615 helpRefText = NULL;
1616 }
1617 break;
1618 }
1619 case ltBIBLIOGRAPHY:
1620 {
1621 if (start)
1622 {
1623 DefaultOnMacro(macroId, no_args, start);
1624 }
1625 else
1626 {
1627 DefaultOnMacro(macroId, no_args, start);
1628 TexOutput(_T("</DL>\n"));
1629 }
1630 break;
1631 }
1632 case ltHRULE:
1633 {
1634 if (start)
1635 {
1636 TexOutput(_T("<HR>\n"));
1637 }
1638 break;
1639 }
1640 case ltRULE:
1641 {
1642 if (start)
1643 {
1644 TexOutput(_T("<HR>\n"));
1645 }
1646 break;
1647 }
1648 case ltTABLEOFCONTENTS:
1649 {
1650 if (start)
1651 {
1652 FILE *fd = wxFopen(ContentsName, _T("r"));
1653 if (fd)
1654 {
1655 int ch = getc(fd);
1656 while (ch != EOF)
1657 {
1658 putc(ch, Titlepage);
1659 ch = getc(fd);
1660 }
1661 fclose(fd);
1662 }
1663 else
1664 {
1665 TexOutput(_T("RUN TEX2RTF AGAIN FOR CONTENTS PAGE\n"));
1666 OnInform(_T("Run Tex2RTF again to include contents page."));
1667 }
1668 }
1669 break;
1670 }
1671 case ltLANGLEBRA:
1672 {
1673 if (start)
1674 TexOutput(_T("&lt;"));
1675 break;
1676 }
1677 case ltRANGLEBRA:
1678 {
1679 if (start)
1680 TexOutput(_T("&gt;"));
1681 break;
1682 }
1683 case ltQUOTE:
1684 case ltQUOTATION:
1685 {
1686 if (start)
1687 TexOutput(_T("<BLOCKQUOTE>"));
1688 else
1689 TexOutput(_T("</BLOCKQUOTE>"));
1690 break;
1691 }
1692 case ltCAPTION:
1693 case ltCAPTIONSTAR:
1694 {
1695 if (start)
1696 {
1697 if (inTabular)
1698 TexOutput(_T("\n<CAPTION>"));
1699
1700 wxChar figBuf[40];
1701
1702 if ( inFigure )
1703 {
1704 figureNo ++;
1705
1706 if (DocumentStyle != LATEX_ARTICLE)
1707 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d.%d: "), FigureNameString, chapterNo, figureNo);
1708 else
1709 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d: "), FigureNameString, figureNo);
1710 }
1711 else
1712 {
1713 tableNo ++;
1714
1715 if (DocumentStyle != LATEX_ARTICLE)
1716 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d.%d: "), TableNameString, chapterNo, tableNo);
1717 else
1718 wxSnprintf(figBuf, sizeof(figBuf), _T("%s %d: "), TableNameString, tableNo);
1719 }
1720
1721 TexOutput(figBuf);
1722 }
1723 else
1724 {
1725 if (inTabular)
1726 TexOutput(_T("\n</CAPTION>\n"));
1727
1728 wxChar *topicName = FindTopicName(GetNextChunk());
1729
1730 int n = inFigure ? figureNo : tableNo;
1731
1732 AddTexRef(topicName, NULL, NULL,
1733 ((DocumentStyle != LATEX_ARTICLE) ? chapterNo : n),
1734 ((DocumentStyle != LATEX_ARTICLE) ? n : 0));
1735 }
1736 break;
1737 }
1738 case ltSS:
1739 {
1740 if (start) TexOutput(_T("&szlig;"));
1741 break;
1742 }
1743 case ltFIGURE:
1744 {
1745 if (start) inFigure = true;
1746 else inFigure = false;
1747 break;
1748 }
1749 case ltTABLE:
1750 {
1751 if (start) inTable = true;
1752 else inTable = false;
1753 break;
1754 }
1755 default:
1756 DefaultOnMacro(macroId, no_args, start);
1757 break;
1758 }
1759}
1760
1761// Called on start/end of argument examination
1762bool HTMLOnArgument(int macroId, int arg_no, bool start)
1763{
1764 switch (macroId)
1765 {
1766 case ltCHAPTER:
1767 case ltCHAPTERSTAR:
1768 case ltCHAPTERHEADING:
1769 case ltSECTION:
1770 case ltSECTIONSTAR:
1771 case ltSECTIONHEADING:
1772 case ltSUBSECTION:
1773 case ltSUBSECTIONSTAR:
1774 case ltSUBSUBSECTION:
1775 case ltSUBSUBSECTIONSTAR:
1776 case ltGLOSS:
1777 case ltMEMBERSECTION:
1778 case ltFUNCTIONSECTION:
1779 {
1780 if (!start && (arg_no == 1))
1781 currentSection = GetArgChunk();
1782 return false;
1783 }
1784 case ltFUNC:
1785 {
1786 if (start && (arg_no == 1))
1787 TexOutput(_T("<B>"));
1788
1789 if (!start && (arg_no == 1))
1790 TexOutput(_T("</B> "));
1791
1792 if (start && (arg_no == 2))
1793 {
1794 if (!suppressNameDecoration) TexOutput(_T("<B>"));
1795 currentMember = GetArgChunk();
1796 }
1797 if (!start && (arg_no == 2))
1798 {
1799 if (!suppressNameDecoration) TexOutput(_T("</B>"));
1800 }
1801
1802 if (start && (arg_no == 3))
1803 TexOutput(_T("("));
1804 if (!start && (arg_no == 3))
1805 TexOutput(_T(")"));
1806 break;
1807 }
1808 case ltCLIPSFUNC:
1809 {
1810 if (start && (arg_no == 1))
1811 TexOutput(_T("<B>"));
1812 if (!start && (arg_no == 1))
1813 TexOutput(_T("</B> "));
1814
1815 if (start && (arg_no == 2))
1816 {
1817 if (!suppressNameDecoration) TexOutput(_T("( "));
1818 currentMember = GetArgChunk();
1819 }
1820 if (!start && (arg_no == 2))
1821 {
1822 }
1823
1824 if (!start && (arg_no == 3))
1825 TexOutput(_T(")"));
1826 break;
1827 }
1828 case ltPFUNC:
1829 {
1830 if (!start && (arg_no == 1))
1831 TexOutput(_T(" "));
1832
1833 if (start && (arg_no == 2))
1834 TexOutput(_T("(*"));
1835 if (!start && (arg_no == 2))
1836 TexOutput(_T(")"));
1837
1838 if (start && (arg_no == 2))
1839 currentMember = GetArgChunk();
1840
1841 if (start && (arg_no == 3))
1842 TexOutput(_T("("));
1843 if (!start && (arg_no == 3))
1844 TexOutput(_T(")"));
1845 break;
1846 }
1847 case ltPARAM:
1848 {
1849 if (start && (arg_no == 1))
1850 TexOutput(_T("<B>"));
1851 if (!start && (arg_no == 1))
1852 TexOutput(_T("</B>"));
1853 if (start && (arg_no == 2))
1854 {
1855 TexOutput(_T("<I>"));
1856 }
1857 if (!start && (arg_no == 2))
1858 {
1859 TexOutput(_T("</I>"));
1860 }
1861 break;
1862 }
1863 case ltCPARAM:
1864 {
1865 if (start && (arg_no == 1))
1866 TexOutput(_T("<B>"));
1867 if (!start && (arg_no == 1))
1868 TexOutput(_T("</B> ")); // This is the difference from param - one space!
1869 if (start && (arg_no == 2))
1870 {
1871 TexOutput(_T("<I>"));
1872 }
1873 if (!start && (arg_no == 2))
1874 {
1875 TexOutput(_T("</I>"));
1876 }
1877 break;
1878 }
1879 case ltMEMBER:
1880 {
1881 if (!start && (arg_no == 1))
1882 TexOutput(_T(" "));
1883
1884 if (start && (arg_no == 2))
1885 currentMember = GetArgChunk();
1886 break;
1887 }
1888 case ltREF:
1889 {
1890 if (start)
1891 {
1892 wxChar *sec = NULL;
1893
1894 wxChar *refName = GetArgData();
1895 if (refName)
1896 {
1897 TexRef *texRef = FindReference(refName);
1898 if (texRef)
1899 {
1900 sec = texRef->sectionNumber;
1901 }
1902 }
1903 if (sec)
1904 {
1905 TexOutput(sec);
1906 }
1907 return false;
1908 }
1909 break;
1910 }
1911 case ltURLREF:
1912 {
1913 if (IsArgOptional())
1914 return false;
1915 else if ((GetNoArgs() - arg_no) == 1)
1916 {
1917 if (start)
1918 helpRefText = GetArgChunk();
1919 return false;
1920 }
1921 else if ((GetNoArgs() - arg_no) == 0) // Arg = 2, or 3 if first is optional
1922 {
1923 if (start)
1924 {
1925 TexChunk *ref = GetArgChunk();
1926 TexOutput(_T("<A HREF=\""));
1927 inVerbatim = true;
1928 TraverseChildrenFromChunk(ref);
1929 inVerbatim = false;
1930 TexOutput(_T("\">"));
1931 if (helpRefText)
1932 TraverseChildrenFromChunk(helpRefText);
1933 TexOutput(_T("</A>"));
1934 }
1935 return false;
1936 }
1937 break;
1938 }
1939 case ltHELPREF:
1940 case ltHELPREFN:
1941 case ltPOPREF:
1942 {
1943 if (IsArgOptional())
1944 {
1945 if (start)
1946 helpRefFilename = GetArgChunk();
1947 return false;
1948 }
1949 if ((GetNoArgs() - arg_no) == 1)
1950 {
1951 if (start)
1952 helpRefText = GetArgChunk();
1953 return false;
1954 }
1955 else if ((GetNoArgs() - arg_no) == 0) // Arg = 2, or 3 if first is optional
1956 {
1957 if (start)
1958 {
1959 wxChar *refName = GetArgData();
1960 wxChar *refFilename = NULL;
1961
1962 if (refName)
1963 {
1964 TexRef *texRef = FindReference(refName);
1965 if (texRef)
1966 {
1967 if (texRef->refFile && wxStrcmp(texRef->refFile, _T("??")) != 0)
1968 refFilename = texRef->refFile;
1969
1970 TexOutput(_T("<A HREF=\""));
1971 // If a filename is supplied, use it, otherwise try to
1972 // use the filename associated with the reference (from this document).
1973 if (helpRefFilename)
1974 {
1975 TraverseChildrenFromChunk(helpRefFilename);
1976 TexOutput(_T("#"));
1977 }
1978 else if (refFilename)
1979 {
1980 TexOutput(ConvertCase(refFilename));
1981 TexOutput(_T("#"));
1982 }
1983 TexOutput(refName);
1984 TexOutput(_T("\">"));
1985 if (helpRefText)
1986 TraverseChildrenFromChunk(helpRefText);
1987 TexOutput(_T("</A>"));
1988 }
1989 else
1990 {
1991 if (helpRefText)
1992 TraverseChildrenFromChunk(helpRefText);
1993 if (!ignoreBadRefs)
1994 TexOutput(_T(" (REF NOT FOUND)"));
1995 wxString errBuf;
1996 errBuf.Printf(_T("Warning: unresolved reference '%s'"), refName);
1997 OnInform((wxChar *)errBuf.c_str());
1998 }
1999 }
2000 else TexOutput(_T("??"));
2001 }
2002 return false;
2003 }
2004 break;
2005 }
2006 case ltIMAGE:
2007 case ltIMAGEL:
2008 case ltIMAGER:
2009 case ltPSBOXTO:
2010 {
2011 if (arg_no == 2)
2012 {
2013 if (start)
2014 {
2015 wxChar *alignment = _T("");
2016 if (macroId == ltIMAGEL)
2017 alignment = _T(" align=left");
2018 else if (macroId == ltIMAGER)
2019 alignment = _T(" align=right");
2020
2021 // Try to find an XBM or GIF image first.
2022 wxChar *filename = copystring(GetArgData());
2023 wxChar buf[500];
2024
2025 wxStrcpy(buf, filename);
2026 StripExtension(buf);
2027 wxStrcat(buf, _T(".xbm"));
2028 wxString f = TexPathList.FindValidPath(buf);
2029
2030 if (f == _T("")) // Try for a GIF instead
2031 {
2032 wxStrcpy(buf, filename);
2033 StripExtension(buf);
2034 wxStrcat(buf, _T(".gif"));
2035 f = TexPathList.FindValidPath(buf);
2036 }
2037
2038 if (f == _T("")) // Try for a JPEG instead
2039 {
2040 wxStrcpy(buf, filename);
2041 StripExtension(buf);
2042 wxStrcat(buf, _T(".jpg"));
2043 f = TexPathList.FindValidPath(buf);
2044 }
2045
2046 if (f == _T("")) // Try for a PNG instead
2047 {
2048 wxStrcpy(buf, filename);
2049 StripExtension(buf);
2050 wxStrcat(buf, _T(".png"));
2051 f = TexPathList.FindValidPath(buf);
2052 }
2053
2054 if (f != _T(""))
2055 {
2056 wxChar *inlineFilename = copystring(f);
2057#if 0
2058 wxChar *originalFilename = TexPathList.FindValidPath(filename);
2059 // If we have found the existing filename, make the inline
2060 // image point to the original file (could be PS, for example)
2061 if (originalFilename && (wxStrcmp(inlineFilename, originalFilename) != 0))
2062 {
2063 TexOutput(_T("<A HREF=\""));
2064 TexOutput(ConvertCase(originalFilename));
2065 TexOutput(_T("\">"));
2066 TexOutput(_T("<img src=\""));
2067 TexOutput(ConvertCase(wxFileNameFromPath(inlineFilename)));
2068 TexOutput(_T("\""));
2069 TexOutput(alignment);
2070 TexOutput(_T("></A>"));
2071 }
2072 else
2073#endif
2074 {
2075 TexOutput(_T("<img src=\""));
2076 TexOutput(ConvertCase(wxFileNameFromPath(inlineFilename)));
2077 TexOutput(_T("\""));
2078 TexOutput(alignment);
2079 TexOutput(_T(">"));
2080 delete[] inlineFilename;
2081 }
2082 }
2083 else
2084 {
2085 // Last resort - a link to a PS file.
2086 TexOutput(_T("<A HREF=\""));
2087 TexOutput(ConvertCase(wxFileNameFromPath(filename)));
2088 TexOutput(_T("\">Picture</A>\n"));
2089 wxSnprintf(buf, sizeof(buf), _T("Warning: could not find an inline XBM/GIF for %s."), filename);
2090 OnInform(buf);
2091 }
2092 }
2093 }
2094 return false;
2095 }
2096 // First arg is PSBOX spec (ignored), second is image file, third is map name.
2097 case ltIMAGEMAP:
2098 {
2099 static wxChar *imageFile = NULL;
2100 if (start && (arg_no == 2))
2101 {
2102 // Try to find an XBM or GIF image first.
2103 wxChar *filename = copystring(GetArgData());
2104 wxChar buf[500];
2105
2106 wxStrcpy(buf, filename);
2107 StripExtension(buf);
2108 wxStrcat(buf, _T(".xbm"));
2109 wxString f = TexPathList.FindValidPath(buf);
2110
2111 if (f == _T("")) // Try for a GIF instead
2112 {
2113 wxStrcpy(buf, filename);
2114 StripExtension(buf);
2115 wxStrcat(buf, _T(".gif"));
2116 f = TexPathList.FindValidPath(buf);
2117 }
2118 if (f == _T(""))
2119 {
2120 wxChar buf[300];
2121 wxSnprintf(buf, sizeof(buf), _T("Warning: could not find an inline XBM/GIF for %s."), filename);
2122 OnInform(buf);
2123 }
2124 delete[] filename;
2125 if (imageFile)
2126 delete[] imageFile;
2127 imageFile = NULL;
2128 if (!f.IsEmpty())
2129 {
2130 imageFile = copystring(f);
2131 }
2132 }
2133 else if (start && (arg_no == 3))
2134 {
2135 if (imageFile)
2136 {
2137 // First, try to find a .shg (segmented hypergraphics file)
2138 // that we can convert to a map file
2139 wxChar buf[256];
2140 wxStrcpy(buf, imageFile);
2141 StripExtension(buf);
2142 wxStrcat(buf, _T(".shg"));
2143 wxString f = TexPathList.FindValidPath(buf);
2144
2145 if (f != _T(""))
2146 {
2147 // The default HTML file to go to is THIS file (so a no-op)
2148 SHGToMap((wxChar *)f.c_str(), currentFileName);
2149 }
2150
2151 wxChar *mapName = GetArgData();
2152 TexOutput(_T("<A HREF=\"/cgi-bin/imagemap/"));
2153 if (mapName)
2154 TexOutput(mapName);
2155 else
2156 TexOutput(_T("unknown"));
2157 TexOutput(_T("\">"));
2158 TexOutput(_T("<img src=\""));
2159 TexOutput(ConvertCase(wxFileNameFromPath(imageFile)));
2160 TexOutput(_T("\" ISMAP></A><P>"));
2161 delete[] imageFile;
2162 imageFile = NULL;
2163 }
2164 }
2165 return false;
2166 }
2167 case ltINDENTED :
2168 {
2169 if ( arg_no == 1 )
2170 return false;
2171 else
2172 {
2173 return true;
2174 }
2175 }
2176 case ltITEM:
2177 {
2178 if (start)
2179 {
2180 descriptionItemArg = GetArgChunk();
2181 return false;
2182 }
2183 return true;
2184 }
2185 case ltTWOCOLITEM:
2186 case ltTWOCOLITEMRULED:
2187 {
2188/*
2189 if (start && (arg_no == 1))
2190 TexOutput(_T("\n<DT> "));
2191 if (start && (arg_no == 2))
2192 TexOutput(_T("<DD> "));
2193*/
2194 if (arg_no == 1)
2195 {
2196 if ( start ) {
2197 // DHS
2198 if (TwoColWidthA > -1) {
2199 wxChar buf[100];
2200 wxSnprintf(buf, sizeof(buf), _T("\n<TR><TD VALIGN=TOP WIDTH=%d>\n"),TwoColWidthA);
2201 TexOutput(buf);
2202 } else
2203 TexOutput(_T("\n<TR><TD VALIGN=TOP>\n"));
2204 OutputFont();
2205 } else
2206 TexOutput(_T("\n</FONT></TD>\n"));
2207 }
2208 if (arg_no == 2)
2209 {
2210 // DHS
2211 if ( start ) {
2212 if (TwoColWidthB > -1) {
2213 wxChar buf[100];
2214 wxSnprintf(buf, sizeof(buf), _T("\n<TD VALIGN=TOP WIDTH=%d>\n"),TwoColWidthB);
2215 TexOutput(buf);
2216 } else
2217 TexOutput(_T("\n<TD VALIGN=TOP>\n"));
2218 OutputFont();
2219 } else
2220 TexOutput(_T("\n</FONT></TD></TR>\n"));
2221 }
2222 return true;
2223 }
2224 case ltNUMBEREDBIBITEM:
2225 {
2226 if (arg_no == 1 && start)
2227 {
2228 TexOutput(_T("\n<DT> "));
2229 }
2230 if (arg_no == 2 && !start)
2231 TexOutput(_T("<P>\n"));
2232 break;
2233 }
2234 case ltBIBITEM:
2235 {
2236 wxChar buf[100];
2237 if (arg_no == 1 && start)
2238 {
2239 wxChar *citeKey = GetArgData();
2240 TexRef *ref = (TexRef *)TexReferences.Get(citeKey);
2241 if (ref)
2242 {
2243 if (ref->sectionNumber) delete[] ref->sectionNumber;
2244 wxSnprintf(buf, sizeof(buf), _T("[%d]"), citeCount);
2245 ref->sectionNumber = copystring(buf);
2246 }
2247
2248 wxSnprintf(buf, sizeof(buf), _T("\n<DT> [%d] "), citeCount);
2249 TexOutput(buf);
2250 citeCount ++;
2251 return false;
2252 }
2253 if (arg_no == 2 && !start)
2254 TexOutput(_T("<P>\n"));
2255 return true;
2256 }
2257 case ltMARGINPAR:
2258 case ltMARGINPARODD:
2259 case ltMARGINPAREVEN:
2260 case ltNORMALBOX:
2261 case ltNORMALBOXD:
2262 {
2263 if (start)
2264 {
2265 TexOutput(_T("<HR>\n"));
2266 return true;
2267 }
2268 else
2269 TexOutput(_T("<HR><P>\n"));
2270 break;
2271 }
2272 // DHS
2273 case ltTWOCOLWIDTHA:
2274 {
2275 if (start)
2276 {
2277 wxChar *val = GetArgData();
2278 float points = ParseUnitArgument(val);
2279 TwoColWidthA = (int)((points * 100.0) / 72.0);
2280 }
2281 return false;
2282 }
2283 // DHS
2284 case ltTWOCOLWIDTHB:
2285 {
2286 if (start)
2287 {
2288 wxChar *val = GetArgData();
2289 float points = ParseUnitArgument(val);
2290 TwoColWidthB = (int)((points * 100.0) / 72.0);
2291 }
2292 return false;
2293 }
2294 /*
2295 * Accents
2296 *
2297 */
2298 case ltACCENT_GRAVE:
2299 {
2300 if (start)
2301 {
2302 wxChar *val = GetArgData();
2303 if (val)
2304 {
2305 switch (val[0])
2306 {
2307 case 'a':
2308 TexOutput(_T("&agrave;"));
2309 break;
2310 case 'e':
2311 TexOutput(_T("&egrave;"));
2312 break;
2313 case 'i':
2314 TexOutput(_T("&igrave;"));
2315 break;
2316 case 'o':
2317 TexOutput(_T("&ograve;"));
2318 break;
2319 case 'u':
2320 TexOutput(_T("&ugrave;"));
2321 break;
2322 case 'A':
2323 TexOutput(_T("&Agrave;"));
2324 break;
2325 case 'E':
2326 TexOutput(_T("&Egrave;"));
2327 break;
2328 case 'I':
2329 TexOutput(_T("&Igrave;"));
2330 break;
2331 case 'O':
2332 TexOutput(_T("&Ograve;"));
2333 break;
2334 case 'U':
2335 TexOutput(_T("&Igrave;"));
2336 break;
2337 default:
2338 break;
2339 }
2340 }
2341 }
2342 return false;
2343 }
2344 case ltACCENT_ACUTE:
2345 {
2346 if (start)
2347 {
2348 wxChar *val = GetArgData();
2349 if (val)
2350 {
2351 switch (val[0])
2352 {
2353 case 'a':
2354 TexOutput(_T("&aacute;"));
2355 break;
2356 case 'e':
2357 TexOutput(_T("&eacute;"));
2358 break;
2359 case 'i':
2360 TexOutput(_T("&iacute;"));
2361 break;
2362 case 'o':
2363 TexOutput(_T("&oacute;"));
2364 break;
2365 case 'u':
2366 TexOutput(_T("&uacute;"));
2367 break;
2368 case 'y':
2369 TexOutput(_T("&yacute;"));
2370 break;
2371 case 'A':
2372 TexOutput(_T("&Aacute;"));
2373 break;
2374 case 'E':
2375 TexOutput(_T("&Eacute;"));
2376 break;
2377 case 'I':
2378 TexOutput(_T("&Iacute;"));
2379 break;
2380 case 'O':
2381 TexOutput(_T("&Oacute;"));
2382 break;
2383 case 'U':
2384 TexOutput(_T("&Uacute;"));
2385 break;
2386 case 'Y':
2387 TexOutput(_T("&Yacute;"));
2388 break;
2389 default:
2390 break;
2391 }
2392 }
2393 }
2394 return false;
2395 }
2396 case ltACCENT_CARET:
2397 {
2398 if (start)
2399 {
2400 wxChar *val = GetArgData();
2401 if (val)
2402 {
2403 switch (val[0])
2404 {
2405 case 'a':
2406 TexOutput(_T("&acirc;"));
2407 break;
2408 case 'e':
2409 TexOutput(_T("&ecirc;"));
2410 break;
2411 case 'i':
2412 TexOutput(_T("&icirc;"));
2413 break;
2414 case 'o':
2415 TexOutput(_T("&ocirc;"));
2416 break;
2417 case 'u':
2418 TexOutput(_T("&ucirc;"));
2419 break;
2420 case 'A':
2421 TexOutput(_T("&Acirc;"));
2422 break;
2423 case 'E':
2424 TexOutput(_T("&Ecirc;"));
2425 break;
2426 case 'I':
2427 TexOutput(_T("&Icirc;"));
2428 break;
2429 case 'O':
2430 TexOutput(_T("&Ocirc;"));
2431 break;
2432 case 'U':
2433 TexOutput(_T("&Icirc;"));
2434 break;
2435 default:
2436 break;
2437 }
2438 }
2439 }
2440 return false;
2441 }
2442 case ltACCENT_TILDE:
2443 {
2444 if (start)
2445 {
2446 wxChar *val = GetArgData();
2447 if (val)
2448 {
2449 switch (val[0])
2450 {
2451 case ' ':
2452 TexOutput(_T("~"));
2453 break;
2454 case 'a':
2455 TexOutput(_T("&atilde;"));
2456 break;
2457 case 'n':
2458 TexOutput(_T("&ntilde;"));
2459 break;
2460 case 'o':
2461 TexOutput(_T("&otilde;"));
2462 break;
2463 case 'A':
2464 TexOutput(_T("&Atilde;"));
2465 break;
2466 case 'N':
2467 TexOutput(_T("&Ntilde;"));
2468 break;
2469 case 'O':
2470 TexOutput(_T("&Otilde;"));
2471 break;
2472 default:
2473 break;
2474 }
2475 }
2476 }
2477 return false;
2478 }
2479 case ltACCENT_UMLAUT:
2480 {
2481 if (start)
2482 {
2483 wxChar *val = GetArgData();
2484 if (val)
2485 {
2486 switch (val[0])
2487 {
2488 case 'a':
2489 TexOutput(_T("&auml;"));
2490 break;
2491 case 'e':
2492 TexOutput(_T("&euml;"));
2493 break;
2494 case 'i':
2495 TexOutput(_T("&iuml;"));
2496 break;
2497 case 'o':
2498 TexOutput(_T("&ouml;"));
2499 break;
2500 case 'u':
2501 TexOutput(_T("&uuml;"));
2502 break;
2503 case 'y':
2504 TexOutput(_T("&yuml;"));
2505 break;
2506 case 'A':
2507 TexOutput(_T("&Auml;"));
2508 break;
2509 case 'E':
2510 TexOutput(_T("&Euml;"));
2511 break;
2512 case 'I':
2513 TexOutput(_T("&Iuml;"));
2514 break;
2515 case 'O':
2516 TexOutput(_T("&Ouml;"));
2517 break;
2518 case 'U':
2519 TexOutput(_T("&Uuml;"));
2520 break;
2521 case 'Y':
2522 TexOutput(_T("&Yuml;"));
2523 break;
2524 default:
2525 break;
2526 }
2527 }
2528 }
2529 return false;
2530 }
2531 case ltACCENT_DOT:
2532 {
2533 if (start)
2534 {
2535 wxChar *val = GetArgData();
2536 if (val)
2537 {
2538 switch (val[0])
2539 {
2540 case 'a':
2541 TexOutput(_T("&aring;"));
2542 break;
2543 case 'A':
2544 TexOutput(_T("&Aring;"));
2545 break;
2546 default:
2547 break;
2548 }
2549 }
2550 }
2551 return false;
2552 }
2553 case ltBACKGROUND:
2554 {
2555 if (start)
2556 {
2557 wxChar *val = GetArgData();
2558 if (val)
2559 {
2560 bool isPicture = false;
2561 ParseColourString(val, &isPicture);
2562 if (isPicture)
2563 {
2564 if (backgroundImageString)
2565 delete[] backgroundImageString;
2566 backgroundImageString = copystring(val);
2567 }
2568 else
2569 {
2570 if (backgroundColourString)
2571 delete[] backgroundColourString;
2572 backgroundColourString = copystring(val);
2573 }
2574 }
2575 }
2576 return false;
2577 }
2578 case ltBACKGROUNDIMAGE:
2579 {
2580 if (start)
2581 {
2582 wxChar *val = GetArgData();
2583 if (val)
2584 {
2585 if (backgroundImageString)
2586 delete[] backgroundImageString;
2587 backgroundImageString = copystring(val);
2588 }
2589 }
2590 return false;
2591 }
2592 case ltBACKGROUNDCOLOUR:
2593 {
2594 if (start)
2595 {
2596 wxChar *val = GetArgData();
2597 if (val)
2598 {
2599 if (backgroundColourString)
2600 delete[] backgroundColourString;
2601 backgroundColourString = copystring(val);
2602 }
2603 }
2604 return false;
2605 }
2606 case ltTEXTCOLOUR:
2607 {
2608 if (start)
2609 {
2610 wxChar *val = GetArgData();
2611 if (val)
2612 {
2613 if (textColourString)
2614 delete[] textColourString;
2615 textColourString = copystring(val);
2616 }
2617 }
2618 return false;
2619 }
2620 case ltLINKCOLOUR:
2621 {
2622 if (start)
2623 {
2624 wxChar *val = GetArgData();
2625 if (val)
2626 {
2627 if (linkColourString)
2628 delete[] linkColourString;
2629 linkColourString = copystring(val);
2630 }
2631 }
2632 return false;
2633 }
2634 case ltFOLLOWEDLINKCOLOUR:
2635 {
2636 if (start)
2637 {
2638 wxChar *val = GetArgData();
2639 if (val)
2640 {
2641 if (followedLinkColourString)
2642 delete[] followedLinkColourString;
2643 followedLinkColourString = copystring(val);
2644 }
2645 }
2646 return false;
2647 }
2648 case ltACCENT_CADILLA:
2649 {
2650 if (start)
2651 {
2652 wxChar *val = GetArgData();
2653 if (val)
2654 {
2655 switch (val[0])
2656 {
2657 case 'c':
2658 TexOutput(_T("&ccedil;"));
2659 break;
2660 case 'C':
2661 TexOutput(_T("&Ccedil;"));
2662 break;
2663 default:
2664 break;
2665 }
2666 }
2667 }
2668 return false;
2669 }
2670/*
2671 case ltFOOTNOTE:
2672 case ltFOOTNOTEPOPUP:
2673 {
2674 if (arg_no == 1)
2675 return true;
2676 else
2677 return false;
2678 break;
2679 }
2680*/
2681 case ltTABULAR:
2682 case ltSUPERTABULAR:
2683 {
2684 if (arg_no == 1)
2685 {
2686 if (start)
2687 {
2688 currentRowNumber = 0;
2689 inTabular = true;
2690 startRows = true;
2691 tableVerticalLineLeft = false;
2692 tableVerticalLineRight = false;
2693
2694 wxChar *alignString = copystring(GetArgData());
2695 ParseTableArgument(alignString);
2696
2697 TexOutput(_T("<TABLE BORDER>\n"));
2698
2699 // Write the first row formatting for compatibility
2700 // with standard Latex
2701 if (compatibilityMode)
2702 {
2703 TexOutput(_T("<TR>\n<TD>"));
2704 OutputFont();
2705/*
2706 for (int i = 0; i < noColumns; i++)
2707 {
2708 currentWidth += TableData[i].width;
2709 wxSnprintf(buf, sizeof(buf), _T("\\cellx%d"), currentWidth);
2710 TexOutput(buf);
2711 }
2712 TexOutput(_T("\\pard\\intbl\n"));
2713*/
2714 }
2715 delete[] alignString;
2716
2717 return false;
2718 }
2719 }
2720 else if (arg_no == 2 && !start)
2721 {
2722 TexOutput(_T("</TABLE>\n"));
2723 inTabular = false;
2724 }
2725 break;
2726 }
2727 case ltTHEBIBLIOGRAPHY:
2728 {
2729 if (start && (arg_no == 1))
2730 {
2731 ReopenFile(&Chapters, &ChaptersName, _T("bibliography"));
2732 AddTexRef(_T("bibliography"), ChaptersName, _T("bibliography"));
2733 SetCurrentSubsectionName(_T("bibliography"), ChaptersName);
2734
2735 citeCount = 1;
2736
2737 SetCurrentOutput(Chapters);
2738
2739 wxChar titleBuf[150];
2740 if (truncateFilenames)
2741 wxSnprintf(titleBuf, sizeof(titleBuf), _T("%s.htm"), wxFileNameFromPath(FileRoot));
2742 else
2743 wxSnprintf(titleBuf, sizeof(titleBuf), _T("%s_contents.html"), wxFileNameFromPath(FileRoot));
2744
2745 HTMLHead();
2746 TexOutput(_T("<title>"));
2747 TexOutput(ReferencesNameString);
2748 TexOutput(_T("</title></head>\n"));
2749 OutputBodyStart();
2750
2751 wxFprintf(Chapters, _T("<A NAME=\"%s\">\n<H2>%s"), _T("bibliography"), ReferencesNameString);
2752 AddBrowseButtons(_T("contents"), titleBuf, // Up
2753 lastTopic, lastFileName, // Last topic
2754 _T("bibliography"), ChaptersName); // This topic
2755
2756 SetCurrentOutputs(Contents, Chapters);
2757 wxFprintf(Contents, _T("\n<LI><A HREF=\"%s#%s\">"), ConvertCase(ChaptersName), "bibliography");
2758
2759 wxFprintf(Contents, _T("%s</A>\n"), ReferencesNameString);
2760 wxFprintf(Chapters, _T("</H2>\n</A>\n"));
2761
2762 SetCurrentOutput(Chapters);
2763 return false;
2764 }
2765 if (!start && (arg_no == 2))
2766 {
2767 }
2768 return true;
2769 }
2770 case ltINDEX:
2771 {
2772 /* Build up list of keywords associated with topics */
2773 if (start)
2774 {
2775// wxChar *entry = GetArgData();
2776 wxChar buf[300];
2777 OutputChunkToString(GetArgChunk(), buf);
2778 if (CurrentTopic)
2779 {
2780 AddKeyWordForTopic(CurrentTopic, buf, currentFileName);
2781 }
2782 }
2783 return false;
2784 }
2785 case ltFCOL:
2786// case ltBCOL:
2787 {
2788 if (start)
2789 {
2790 switch (arg_no)
2791 {
2792 case 1:
2793 {
2794 wxChar *name = GetArgData();
2795 wxChar buf2[10];
2796 if (!FindColourHTMLString(name, buf2))
2797 {
2798 wxStrcpy(buf2, _T("#000000"));
2799 wxChar buf[100];
2800 wxSnprintf(buf, sizeof(buf), _T("Could not find colour name %s"), name);
2801 OnError(buf);
2802 }
2803 TexOutput(_T("<FONT COLOR=\""));
2804 TexOutput(buf2);
2805 TexOutput(_T("\">"));
2806 break;
2807 }
2808 case 2:
2809 {
2810 return true;
2811 }
2812 default:
2813 break;
2814 }
2815 }
2816 else
2817 {
2818 if (arg_no == 2) TexOutput(_T("</FONT>"));
2819 }
2820 return false;
2821 }
2822 case ltINSERTATLEVEL:
2823 {
2824 // This macro allows you to insert text at a different level
2825 // from the current level, e.g. into the Sections from within a subsubsection.
2826 if (useWord)
2827 return false;
2828 static int currentLevelNo = 1;
2829 static FILE* oldLevelFile = Chapters;
2830 if (start)
2831 {
2832 switch (arg_no)
2833 {
2834 case 1:
2835 {
2836 oldLevelFile = CurrentOutput1;
2837
2838 wxChar *str = GetArgData();
2839 currentLevelNo = wxAtoi(str);
2840 FILE* outputFile;
2841 // TODO: cope with article style (no chapters)
2842 switch (currentLevelNo)
2843 {
2844 case 1:
2845 {
2846 outputFile = Chapters;
2847 break;
2848 }
2849 case 2:
2850 {
2851 outputFile = Sections;
2852 break;
2853 }
2854 case 3:
2855 {
2856 outputFile = Subsections;
2857 break;
2858 }
2859 case 4:
2860 {
2861 outputFile = Subsubsections;
2862 break;
2863 }
2864 default:
2865 {
2866 outputFile = NULL;
2867 break;
2868 }
2869 }
2870 if (outputFile)
2871 CurrentOutput1 = outputFile;
2872 return false;
2873 }
2874 case 2:
2875 {
2876 return true;
2877 }
2878 default:
2879 break;
2880 }
2881 return true;
2882 }
2883 else
2884 {
2885 if (arg_no == 2)
2886 {
2887 CurrentOutput1 = oldLevelFile;
2888 }
2889 return true;
2890 }
2891 }
2892 default:
2893 return DefaultOnArgument(macroId, arg_no, start);
2894 }
2895 return true;
2896}
2897
2898bool HTMLGo(void)
2899{
2900 fileId = 0;
2901 inVerbatim = false;
2902 indentLevel = 0;
2903 inTabular = false;
2904 startRows = false;
2905 tableVerticalLineLeft = false;
2906 tableVerticalLineRight = false;
2907 noColumns = 0;
2908
2909 if (InputFile && OutputFile)
2910 {
2911 // Do some HTML-specific transformations on all the strings,
2912 // recursively
2913 Text2HTML(GetTopLevelChunk());
2914
2915 wxChar buf[300];
2916 if (truncateFilenames)
2917 wxSnprintf(buf, sizeof(buf), _T("%s.htm"), FileRoot);
2918 else
2919 wxSnprintf(buf, sizeof(buf), _T("%s_contents.html"), FileRoot);
2920 if (TitlepageName) delete[] TitlepageName;
2921 TitlepageName = copystring(buf);
2922 Titlepage = wxFopen(buf, _T("w"));
2923
2924 if (truncateFilenames)
2925 wxSnprintf(buf, sizeof(buf), _T("%s_fc.htm"), FileRoot);
2926 else
2927 wxSnprintf(buf, sizeof(buf), _T("%s_fcontents.html"), FileRoot);
2928
2929 contentsFrameName = copystring(buf);
2930
2931 Contents = wxFopen(TmpContentsName, _T("w"));
2932
2933 if (htmlFrameContents)
2934 {
2935// FrameContents = wxFopen(TmpFrameContentsName, _T("w"));
2936 FrameContents = wxFopen(contentsFrameName, _T("w"));
2937 wxFprintf(FrameContents, _T("<HTML>\n<UL>\n"));
2938 }
2939
2940 if (!Titlepage || !Contents)
2941 {
2942 OnError(_T("Cannot open output file!"));
2943 return false;
2944 }
2945 AddTexRef(_T("contents"), wxFileNameFromPath(TitlepageName), ContentsNameString);
2946
2947 wxFprintf(Contents, _T("<P><P><H2>%s</H2><P><P>\n"), ContentsNameString);
2948
2949 wxFprintf(Contents, _T("<UL>\n"));
2950
2951 SetCurrentOutput(Titlepage);
2952 if (htmlWorkshopFiles) HTMLWorkshopStartContents();
2953 OnInform(_T("Converting..."));
2954
2955 TraverseDocument();
2956 wxFprintf(Contents, _T("</UL>\n\n"));
2957
2958// SetCurrentOutput(Titlepage);
2959 fclose(Titlepage);
2960
2961 if (Contents)
2962 {
2963// wxFprintf(Titlepage, _T("\n</BODY></HTML>\n"));
2964 fclose(Contents);
2965 Contents = NULL;
2966 }
2967
2968 if (FrameContents)
2969 {
2970 wxFprintf(FrameContents, _T("\n</UL>\n"));
2971 wxFprintf(FrameContents, _T("</HTML>\n"));
2972 fclose(FrameContents);
2973 FrameContents = NULL;
2974 }
2975
2976 if (Chapters)
2977 {
2978 wxFprintf(Chapters, _T("\n</FONT></BODY></HTML>\n"));
2979 fclose(Chapters);
2980 Chapters = NULL;
2981 }
2982 if (Sections)
2983 {
2984 wxFprintf(Sections, _T("\n</FONT></BODY></HTML>\n"));
2985 fclose(Sections);
2986 Sections = NULL;
2987 }
2988 if (Subsections && !combineSubSections)
2989 {
2990 wxFprintf(Subsections, _T("\n</FONT></BODY></HTML>\n"));
2991 fclose(Subsections);
2992 Subsections = NULL;
2993 }
2994 if (Subsubsections && !combineSubSections)
2995 {
2996 wxFprintf(Subsubsections, _T("\n</FONT></BODY></HTML>\n"));
2997 fclose(Subsubsections);
2998 Subsubsections = NULL;
2999 }
3000 if ( SectionContentsFD )
3001 {
3002 fclose(SectionContentsFD);
3003 SectionContentsFD = NULL;
3004 }
3005
3006 // Create a temporary file for the title page header, add some info,
3007 // and concat the titlepage just generated.
3008 // This is necessary in order to put the title of the document
3009 // at the TOP of the file within <HEAD>, even though we only find out
3010 // what it is later on.
3011 FILE *tmpTitle = wxFopen(_T("title.tmp"), _T("w"));
3012 if (tmpTitle)
3013 {
3014 if (DocumentTitle)
3015 {
3016 SetCurrentOutput(tmpTitle);
3017 HTMLHead();
3018 TexOutput(_T("\n<HEAD><TITLE>"));
3019 TraverseChildrenFromChunk(DocumentTitle);
3020 TexOutput(_T("</TITLE></HEAD>\n"));
3021 }
3022 else
3023 {
3024 SetCurrentOutput(tmpTitle);
3025 HTMLHeadTo(tmpTitle);
3026 if (contentsString)
3027 wxFprintf(tmpTitle, _T("<TITLE>%s</TITLE></HEAD>\n\n"), contentsString);
3028 else
3029 wxFprintf(tmpTitle, _T("<TITLE>%s</TITLE></HEAD>\n\n"), wxFileNameFromPath(FileRoot));
3030 }
3031
3032 // Output frame information
3033 if (htmlFrameContents)
3034 {
3035 wxChar firstFileName[300];
3036 if (truncateFilenames)
3037 wxSnprintf(firstFileName, sizeof(firstFileName), _T("%s1.htm"), FileRoot);
3038 else
3039 wxStrcpy(firstFileName, gs_filenames[1].c_str());
3040
3041 wxFprintf(tmpTitle, _T("<FRAMESET COLS=\"30%%,70%%\">\n"));
3042
3043 wxFprintf(tmpTitle, _T("<FRAME SRC=\"%s\">\n"), ConvertCase(wxFileNameFromPath(contentsFrameName)));
3044 wxFprintf(tmpTitle, _T("<FRAME SRC=\"%s\" NAME=\"mainwindow\">\n"), ConvertCase(wxFileNameFromPath(firstFileName)));
3045 wxFprintf(tmpTitle, _T("</FRAMESET>\n"));
3046
3047 wxFprintf(tmpTitle, _T("<NOFRAMES>\n"));
3048 }
3049
3050 // Output <BODY...> to temporary title page
3051 OutputBodyStart();
3052
3053 // Concat titlepage
3054 FILE *fd = wxFopen(TitlepageName, _T("r"));
3055 if (fd)
3056 {
3057 int ch = getc(fd);
3058 while (ch != EOF)
3059 {
3060 putc(ch, tmpTitle);
3061 ch = getc(fd);
3062 }
3063 fclose(fd);
3064 }
3065
3066 wxFprintf(tmpTitle, _T("\n</FONT></BODY>\n"));
3067
3068 if (htmlFrameContents)
3069 {
3070 wxFprintf(tmpTitle, _T("\n</NOFRAMES>\n"));
3071 }
3072 wxFprintf(tmpTitle, _T("\n</HTML>\n"));
3073
3074 fclose(tmpTitle);
3075 if (wxFileExists(TitlepageName)) wxRemoveFile(TitlepageName);
3076 if (!wxRenameFile(_T("title.tmp"), TitlepageName))
3077 {
3078 wxCopyFile(_T("title.tmp"), TitlepageName);
3079 wxRemoveFile(_T("title.tmp"));
3080 }
3081 }
3082
3083 if (lastFileName) delete[] lastFileName;
3084 lastFileName = NULL;
3085 if (lastTopic) delete[] lastTopic;
3086 lastTopic = NULL;
3087
3088 if (wxFileExists(ContentsName)) wxRemoveFile(ContentsName);
3089
3090 if (!wxRenameFile(TmpContentsName, ContentsName))
3091 {
3092 wxCopyFile(TmpContentsName, ContentsName);
3093 wxRemoveFile(TmpContentsName);
3094 }
3095
3096 // Generate .htx file if requested
3097 if (htmlIndex)
3098 {
3099 wxChar htmlIndexName[300];
3100 wxSnprintf(htmlIndexName, sizeof(htmlIndexName), _T("%s.htx"), FileRoot);
3101 GenerateHTMLIndexFile(htmlIndexName);
3102 }
3103
3104 // Generate HTML Help Workshop files if requested
3105 if (htmlWorkshopFiles)
3106 {
3107 HTMLWorkshopEndContents();
3108 GenerateHTMLWorkshopFiles(FileRoot);
3109 }
3110
3111
3112 return true;
3113 }
3114
3115 return false;
3116}
3117
3118// Output .htx index file
3119void GenerateHTMLIndexFile(wxChar *fname)
3120{
3121 FILE *fd = wxFopen(fname, _T("w"));
3122 if (!fd)
3123 return;
3124
3125 TopicTable.BeginFind();
3126 wxNode *node = TopicTable.Next();
3127 while (node)
3128 {
3129 TexTopic *texTopic = (TexTopic *)node->GetData();
3130 const wxChar *topicName = node->GetKeyString();
3131 if (texTopic->filename && texTopic->keywords)
3132 {
3133 wxStringListNode *node1 = texTopic->keywords->GetFirst();
3134 while (node1)
3135 {
3136 wxChar *s = (wxChar *)node1->GetData();
3137 wxFprintf(fd, _T("%s|%s|%s\n"), topicName, texTopic->filename, s);
3138 node1 = node1->GetNext();
3139 }
3140 }
3141 node = TopicTable.Next();
3142 }
3143 fclose(fd);
3144}
3145
3146
3147
3148
3149
3150
3151
3152// output .hpp, .hhc and .hhk files:
3153
3154
3155void GenerateHTMLWorkshopFiles(wxChar *fname)
3156{
3157 FILE *f;
3158 wxChar buf[300];
3159
3160 /* Generate project file : */
3161
3162 wxSnprintf(buf, sizeof(buf), _T("%s.hhp"), fname);
3163 f = wxFopen(buf, _T("wt"));
3164 wxFprintf(f,
3165 _T("[OPTIONS]\n")
3166 _T("Compatibility=1.1\n")
3167 _T("Full-text search=Yes\n")
3168 _T("Contents file=%s.hhc\n")
3169 _T("Compiled file=%s.chm\n")
3170 _T("Default Window=%sHelp\n")
3171 _T("Default topic=%s\n")
3172 _T("Index file=%s.hhk\n")
3173 _T("Title="),
3174 wxFileNameFromPath(fname),
3175 wxFileNameFromPath(fname),
3176 wxFileNameFromPath(fname),
3177 wxFileNameFromPath(TitlepageName),
3178 wxFileNameFromPath(fname)
3179 );
3180
3181 if (DocumentTitle) {
3182 SetCurrentOutput(f);
3183 TraverseChildrenFromChunk(DocumentTitle);
3184 }
3185 else wxFprintf(f, _T("(unknown)"));
3186
3187 wxFprintf(f, _T("\n\n[WINDOWS]\n")
3188 _T("%sHelp=,\"%s.hhc\",\"%s.hhk\",\"%s\",,,,,,0x2420,,0x380e,,,,,0,,,"),
3189 wxFileNameFromPath(fname),
3190 wxFileNameFromPath(fname),
3191 wxFileNameFromPath(fname),
3192 wxFileNameFromPath(TitlepageName));
3193
3194
3195 wxFprintf(f, _T("\n\n[FILES]\n"));
3196 wxFprintf(f, _T("%s\n"), wxFileNameFromPath(TitlepageName));
3197 for (int i = 1; i <= fileId; i++) {
3198 if (truncateFilenames)
3199 wxSnprintf(buf, sizeof(buf), _T("%s%d.htm"), wxFileNameFromPath(FileRoot), i);
3200 else
3201 wxStrcpy(buf, wxFileNameFromPath(gs_filenames[i].c_str()));
3202 wxFprintf(f, _T("%s\n"), buf);
3203 }
3204 fclose(f);
3205
3206 /* Generate index file : */
3207
3208 wxSnprintf(buf, sizeof(buf), _T("%s.hhk"), fname);
3209 f = wxFopen(buf, _T("wt"));
3210
3211 wxFprintf(f,
3212 _T("<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">\n")
3213 _T("<HTML>\n"));
3214 HTMLHeadTo(f);
3215 wxFprintf(f,
3216 _T("\n")
3217 _T("<meta name=\"GENERATOR\" content=\"tex2rtf\">\n")
3218 _T("<!-- Sitemap 1.0 -->\n")
3219 _T("</HEAD><BODY>\n")
3220 _T("<OBJECT type=\"text/site properties\">\n")
3221 _T(" <param name=\"ImageType\" value=\"Folder\">\n")
3222 _T("</OBJECT>\n")
3223 _T("<UL>\n"));
3224
3225 TopicTable.BeginFind();
3226 wxNode *node = TopicTable.Next();
3227 while (node)
3228 {
3229 TexTopic *texTopic = (TexTopic *)node->GetData();
3230 const wxChar *topicName = node->GetKeyString();
3231 if (texTopic->filename && texTopic->keywords)
3232 {
3233 wxStringListNode *node1 = texTopic->keywords->GetFirst();
3234 while (node1)
3235 {
3236 wxChar *s = (wxChar *)node1->GetData();
3237 wxFprintf(f,
3238 _T(" <LI> <OBJECT type=\"text/sitemap\">\n")
3239 _T(" <param name=\"Local\" value=\"%s#%s\">\n")
3240 _T(" <param name=\"Name\" value=\"%s\">\n")
3241 _T(" </OBJECT>\n"),
3242 texTopic->filename, topicName, s);
3243 node1 = node1->GetNext();
3244 }
3245 }
3246 node = TopicTable.Next();
3247 }
3248
3249 wxFprintf(f, _T("</UL>\n"));
3250 fclose(f);
3251}
3252
3253
3254
3255static FILE *HTMLWorkshopContents = NULL;
3256static int HTMLWorkshopLastLevel = 0;
3257
3258void HTMLWorkshopAddToContents(int level, wxChar *s, wxChar *file)
3259{
3260 int i;
3261
3262 if (level > HTMLWorkshopLastLevel)
3263 for (i = HTMLWorkshopLastLevel; i < level; i++)
3264 wxFprintf(HTMLWorkshopContents, _T("<UL>"));
3265 if (level < HTMLWorkshopLastLevel)
3266 for (i = level; i < HTMLWorkshopLastLevel; i++)
3267 wxFprintf(HTMLWorkshopContents, _T("</UL>"));
3268
3269 SetCurrentOutput(HTMLWorkshopContents);
3270 wxFprintf(HTMLWorkshopContents,
3271 _T(" <LI> <OBJECT type=\"text/sitemap\">\n")
3272 _T(" <param name=\"Local\" value=\"%s#%s\">\n")
3273 _T(" <param name=\"Name\" value=\""),
3274 file, s);
3275 OutputCurrentSection();
3276 wxFprintf(HTMLWorkshopContents,
3277 _T("\">\n")
3278 _T(" </OBJECT>\n"));
3279 HTMLWorkshopLastLevel = level;
3280}
3281
3282
3283void HTMLWorkshopStartContents()
3284{
3285 wxChar buf[300];
3286 wxSnprintf(buf, sizeof(buf), _T("%s.hhc"), FileRoot);
3287 HTMLWorkshopContents = wxFopen(buf, _T("wt"));
3288 HTMLWorkshopLastLevel = 0;
3289
3290 wxFprintf(HTMLWorkshopContents,
3291 _T("<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">\n")
3292 _T("<HTML>\n"));
3293 HTMLHeadTo(HTMLWorkshopContents);
3294 wxFprintf(HTMLWorkshopContents,
3295 _T("\n")
3296 _T("<meta name=\"GENERATOR\" content=\"tex2rtf\">\n")
3297 _T("<!-- Sitemap 1.0 -->\n")
3298 _T("</HEAD><BODY>\n")
3299 _T("<OBJECT type=\"text/site properties\">\n")
3300 _T(" <param name=\"ImageType\" value=\"Folder\">\n")
3301 _T("</OBJECT>\n")
3302 _T("<UL>\n")
3303 _T("<LI> <OBJECT type=\"text/sitemap\">\n")
3304 _T("<param name=\"Local\" value=\"%s\">\n")
3305 _T("<param name=\"Name\" value=\"Contents\">\n</OBJECT>\n"),
3306 wxFileNameFromPath(TitlepageName)
3307 );
3308
3309}
3310
3311
3312void HTMLWorkshopEndContents()
3313{
3314 for (int i = HTMLWorkshopLastLevel; i >= 0; i--)
3315 wxFprintf(HTMLWorkshopContents, _T("</UL>\n"));
3316 fclose(HTMLWorkshopContents);
3317}
wxWidgets (Impactor)