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