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