Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > Browser Client > View Code
HTML.c
Package: arena-beta-2b-src.tar.gz　[view]
Upload User: zlh9724
Upload Date: 2007-01-04
Package Size: 1991k
Code Size: 25k
Category:

Browser Client

Development Platform:

Unix_Linux

HTML.c：Code Content
  1. /*  HTML.c
  2. ** STRUCTURED STREAM TO RICH HYPERTEXT CONVERTER
  3. **
  4. ** (c) COPYRIGHT MIT 1995.
  5. ** Please first read the full copyright statement in the file COPYRIGH.
  6. **
  7. ** This generates of a hypertext object.  It converts from the
  8. ** structured stream interface fro HTMl events into the style-
  9. ** oriented iunterface of the HText interface.  This module is
  10. ** only used in clients and shouldnot be linked into servers.
  11. **
  12. ** Override this module if making a new GUI browser.
  13. **
  14. ** HISTORY:
  15. **  8 Jul 94  FM Insulate free() from _free structure element.
  16. **
  17. */
  19. /* Library include files */
  20. #include "tcp.h"
  21. #include "HTUtils.h"
  22. #include "HTString.h"
  23. #include "HTAtom.h"
  24. #include "HTChunk.h"
  25. #include "HText.h"
  26. #include "HTStyle.h"
  27. #include "HTAlert.h"
  28. #include "HTMLGen.h"
  29. #include "HTParse.h"
  30. #include "HTML.h"
  32. extern HTStyleSheet * styleSheet; /* Application-wide */
  34. /* Module-wide style cache
  35. */
  36. PRIVATE int  got_styles = 0;
  37. PRIVATE HTStyle *styles[HTMLP_ELEMENTS];
  38. PRIVATE HTStyle *default_style;
  41. /* HTML Object
  42. ** -----------
  43. */
  44. #define MAX_NESTING 20 /* Should be checked by parser */
  46. typedef struct _stack_element {
  47.         HTStyle * style;
  48. int tag_number;
  49. } stack_element;
  51. struct _HTStructured {
  52.     CONST HTStructuredClass *  isa;
  53.     HTRequest * request;
  54.     HTParentAnchor *  node_anchor;
  55.     HText *  text;
  57.     HTStream* target; /* Output stream */
  58.     HTStreamClass targetClass; /* Output routines */
  60.     HTChunk *  title; /* Grow by 128 */
  61.     
  62.     char * comment_start; /* for literate programming */
  63.     char * comment_end;
  64.     
  65.     CONST SGML_dtd* dtd;
  66.     
  67.     HTTag * current_tag;
  68.     BOOL style_change;
  69.     HTStyle * new_style;
  70.     HTStyle * old_style;
  71.     BOOL in_word;  /* Have just had a non-white char */
  73.     stack_element  stack[MAX_NESTING];
  74.     stack_element  *sp;       /* Style stack pointer */
  75.     int overflow;  /* Keep track of overflow nesting */
  76. };
  78. struct _HTStream {
  79.     CONST HTStreamClass * isa;
  80.     /* .... */
  81. };
  83. /* Forward declarations of routines
  84. */
  85. PRIVATE void get_styles (void);
  88. PRIVATE void actually_set_style (HTStructured * me);
  89. PRIVATE void change_paragraph_style (HTStructured * me, HTStyle * style);
  91. /* Style buffering avoids dummy paragraph begin/ends.
  92. */
  93. #define UPDATE_STYLE if (me->style_change) { actually_set_style(me); }
  96. #ifdef OLD_CODE
  97. /* The following accented characters are from peter Flynn, curia project */
  99. /* these ifdefs don't solve the problem of a simple terminal emulator
  100. ** with a different character set to the client machine. But nothing does,
  101. ** except looking at the TERM setting */
  104.         { "ocus" , "&" },       /* for CURIA */
  105. #ifdef IBMPC
  106.         { "aacute" , "240" }, /* For PC display */
  107.         { "eacute" , "202" },
  108.         { "iacute" , "241" },
  109.         { "oacute" , "242" },
  110.         { "uacute" , "243" },
  111.         { "Aacute" , "101" },
  112.         { "Eacute" , "220" },
  113.         { "Iacute" , "111" },
  114.         { "Oacute" , "117" },
  115.         { "Uacute" , "125" },
  116. #else
  117.         { "aacute" , "341" }, /* Works for openwindows -- Peter Flynn */
  118.         { "eacute" , "351" },
  119.         { "iacute" , "355" },
  120.         { "oacute" , "363" },
  121.         { "uacute" , "372" },
  122.         { "Aacute" , "301" },
  123.         { "Eacute" , "310" },
  124.         { "Iacute" , "315" },
  125.         { "Oacute" , "323" },
  126.         { "Uacute" , "332" }, 
  127. #endif
  128. { 0, 0 }  /* Terminate list */
  129. };
  130. #endif
  133. /*  Entity values -- for ISO Latin 1 local representation
  134. **
  135. ** This MUST match exactly the table referred to in the DTD!
  136. */
  137. static char * ISO_Latin1[] = {
  138.    "306", /* capital AE diphthong (ligature) */ 
  139.    "301", /* capital A, acute accent */ 
  140.    "302", /* capital A, circumflex accent */ 
  141.    "300", /* capital A, grave accent */ 
  142.    "305", /* capital A, ring */ 
  143.    "303", /* capital A, tilde */ 
  144.    "304", /* capital A, dieresis or umlaut mark */ 
  145.    "307", /* capital C, cedilla */ 
  146.    "320", /* capital Eth, Icelandic */ 
  147.    "311", /* capital E, acute accent */ 
  148.    "312", /* capital E, circumflex accent */ 
  149.    "310", /* capital E, grave accent */ 
  150.    "313", /* capital E, dieresis or umlaut mark */ 
  151.    "315", /* capital I, acute accent */ 
  152.    "316", /* capital I, circumflex accent */ 
  153.    "314", /* capital I, grave accent */ 
  154.    "317", /* capital I, dieresis or umlaut mark */ 
  155.    "321", /* capital N, tilde */ 
  156.    "323", /* capital O, acute accent */ 
  157.    "324", /* capital O, circumflex accent */ 
  158.    "322", /* capital O, grave accent */ 
  159.    "330", /* capital O, slash */ 
  160.    "325", /* capital O, tilde */ 
  161.    "326", /* capital O, dieresis or umlaut mark */ 
  162.    "336", /* capital THORN, Icelandic */ 
  163.    "332", /* capital U, acute accent */ 
  164.    "333", /* capital U, circumflex accent */ 
  165.    "331", /* capital U, grave accent */ 
  166.    "334", /* capital U, dieresis or umlaut mark */ 
  167.    "335", /* capital Y, acute accent */ 
  168.    "341", /* small a, acute accent */ 
  169.    "342", /* small a, circumflex accent */ 
  170.    "346", /* small ae diphthong (ligature) */ 
  171.    "340", /* small a, grave accent */ 
  172.    "46", /* ampersand */ 
  173.    "345", /* small a, ring */ 
  174.    "343", /* small a, tilde */ 
  175.    "344", /* small a, dieresis or umlaut mark */ 
  176.    "347", /* small c, cedilla */ 
  177.    "351", /* small e, acute accent */ 
  178.    "352", /* small e, circumflex accent */ 
  179.    "350", /* small e, grave accent */ 
  180.    "360", /* small eth, Icelandic */ 
  181.    "353", /* small e, dieresis or umlaut mark */ 
  182.    "76", /* greater than */ 
  183.    "355", /* small i, acute accent */ 
  184.    "356", /* small i, circumflex accent */ 
  185.    "354", /* small i, grave accent */ 
  186.    "357", /* small i, dieresis or umlaut mark */ 
  187.    "74", /* less than */ 
  188.    "361", /* small n, tilde */ 
  189.    "363", /* small o, acute accent */ 
  190.    "364", /* small o, circumflex accent */ 
  191.    "362", /* small o, grave accent */ 
  192.    "370", /* small o, slash */ 
  193.    "365", /* small o, tilde */ 
  194.    "366", /* small o, dieresis or umlaut mark */ 
  195.         "42", /* double quote sign - June 94 */
  196.    "337", /* small sharp s, German (sz ligature) */ 
  197.    "376", /* small thorn, Icelandic */ 
  198.    "372", /* small u, acute accent */ 
  199.    "373", /* small u, circumflex accent */ 
  200.    "371", /* small u, grave accent */ 
  201.    "374", /* small u, dieresis or umlaut mark */ 
  202.    "375", /* small y, acute accent */ 
  203.    "377", /* small y, dieresis or umlaut mark */ 
  204. };
  207. /*  Entity values -- for NeXT local representation
  208. **
  209. ** This MUST match exactly the table referred to in the DTD!
  210. **
  211. */
  212. static char * NeXTCharacters[] = {
  213.    "341", /* capital AE diphthong (ligature)  */ 
  214.    "202", /* capital A, acute accent */ 
  215.    "203", /* capital A, circumflex accent  */ 
  216.    "201", /* capital A, grave accent  */ 
  217.    "206", /* capital A, ring  */ 
  218.    "204", /* capital A, tilde  */ 
  219.    "205", /* capital A, dieresis or umlaut mark */ 
  220.    "207", /* capital C, cedilla  */ 
  221.    "220", /* capital Eth, Icelandic  */ 
  222.    "211", /* capital E, acute accent  */ 
  223.    "212", /* capital E, circumflex accent  */ 
  224.    "210", /* capital E, grave accent  */ 
  225.    "213", /* capital E, dieresis or umlaut mark  */ 
  226.    "215", /* capital I, acute accent  */ 
  227.    "216", /* capital I, circumflex accent  these are */ 
  228.    "214", /* capital I, grave accent ISO -100 hex */ 
  229.    "217", /* capital I, dieresis or umlaut mark */ 
  230.    "221", /* capital N, tilde  */ 
  231.    "223", /* capital O, acute accent  */ 
  232.    "224", /* capital O, circumflex accent  */ 
  233.    "222", /* capital O, grave accent  */ 
  234.    "351", /* capital O, slash  'cept this */ 
  235.    "225", /* capital O, tilde  */ 
  236.    "226", /* capital O, dieresis or umlaut mark */ 
  237.    "234", /* capital THORN, Icelandic */ 
  238.    "230", /* capital U, acute accent */ 
  239.    "231", /* capital U, circumflex accent */ 
  240.    "227", /* capital U, grave accent */ 
  241.    "232", /* capital U, dieresis or umlaut mark */ 
  242.    "233", /* capital Y, acute accent */ 
  243.    "326", /* small a, acute accent */ 
  244.    "327", /* small a, circumflex accent */ 
  245.    "361", /* small ae diphthong (ligature) */ 
  246.    "325", /* small a, grave accent */ 
  247.    "46", /* ampersand */ 
  248.    "332", /* small a, ring */ 
  249.    "330", /* small a, tilde */ 
  250.    "331", /* small a, dieresis or umlaut mark */ 
  251.    "333", /* small c, cedilla */ 
  252.    "335", /* small e, acute accent */ 
  253.    "336", /* small e, circumflex accent */ 
  254.    "334", /* small e, grave accent */ 
  255.    "346", /* small eth, Icelandic  */ 
  256.    "337", /* small e, dieresis or umlaut mark */ 
  257.    "76", /* greater than */ 
  258.    "342", /* small i, acute accent */ 
  259.    "344", /* small i, circumflex accent */ 
  260.    "340", /* small i, grave accent */ 
  261.    "345", /* small i, dieresis or umlaut mark */ 
  262.    "74", /* less than */ 
  263.    "347", /* small n, tilde */ 
  264.    "355", /* small o, acute accent */ 
  265.    "356", /* small o, circumflex accent */ 
  266.    "354", /* small o, grave accent */ 
  267.    "371", /* small o, slash */ 
  268.    "357", /* small o, tilde */ 
  269.    "360", /* small o, dieresis or umlaut mark */ 
  270.         "42", /* double quote sign - June 94 */
  271.    "373", /* small sharp s, German (sz ligature) */ 
  272.    "374", /* small thorn, Icelandic */ 
  273.    "363", /* small u, acute accent */ 
  274.    "364", /* small u, circumflex accent */ 
  275.    "362", /* small u, grave accent */ 
  276.    "366", /* small u, dieresis or umlaut mark */ 
  277.    "367", /* small y, acute accent */ 
  278.    "375", /* small y, dieresis or umlaut mark */ 
  279. };
  281. /*  Entity values -- for IBM/PC Code Page 850 (International)
  282. **
  283. ** This MUST match exactly the table referred to in the DTD!
  284. **
  285. */
  286. /* @@@@@@@@@@@@@@@@@ TBD */
  290. /* Set character set
  291. ** ----------------
  292. */
  294. PRIVATE char** p_entity_values = ISO_Latin1; /* Pointer to translation */
  296. PUBLIC void HTMLUseCharacterSet (HTMLCharacterSet i)
  297. {
  298.     p_entity_values = (i == HTML_NEXT_CHARS) ? NeXTCharacters
  299.           : ISO_Latin1;
  300. }
  303. /* Flattening the style structure
  304. ** ------------------------------
  305. **
  306. On the NeXT, and on any read-only browser, it is simpler for the text to have
  307. a sequence of styles, rather than a nested tree of styles. In this
  308. case we have to flatten the structure as it arrives from SGML tags into
  309. a sequence of styles.
  310. */
  312. /* If style really needs to be set, call this
  313. */
  314. PRIVATE void actually_set_style (HTStructured * me)
  315. {
  316.     if (!me->text) { /* First time through */
  317.     me->text = HText_new2(me->request, me->node_anchor, me->target);
  318.     HText_beginAppend(me->text);
  319.     HText_setStyle(me->text, me->new_style);
  320.     me->in_word = NO;
  321.     } else {
  322.     HText_setStyle(me->text, me->new_style);
  323.     }
  324.     me->old_style = me->new_style;
  325.     me->style_change = NO;
  326. }
  328. /*      If you THINK you need to change style, call this
  329. */
  331. PRIVATE void change_paragraph_style (HTStructured * me, HTStyle *style)
  332. {
  333.     if (me->new_style!=style) {
  334.      me->style_change = YES;
  335. me->new_style = style;
  336.     }
  337.     me->in_word = NO;
  338. }
  340. /*_________________________________________________________________________
  341. **
  342. ** A C T I O N  R O U T I N E S
  343. */
  345. /* Character handling
  346. ** ------------------
  347. */
  348. PRIVATE int HTML_put_character (HTStructured * me, char c)
  349. {
  351.     switch (me->sp[0].tag_number) {
  352.     case HTML_COMMENT:
  353.      break; /* Do Nothing */
  355.     case HTML_TITLE:
  356.      HTChunk_putb(me->title, &c, 1);
  357. break;
  360.     case HTML_LISTING: /* Litteral text */
  361.     case HTML_XMP:
  362.     case HTML_PLAINTEXT:
  363.     case HTML_PRE:
  364. /* We guarrantee that the style is up-to-date in begin_litteral
  365. */
  366.      HText_appendCharacter(me->text, c);
  367. break;
  369.     default: /* Free format text */
  370. if (me->style_change) {
  371.     if ((c=='n') || (c==' ')) return HT_OK; /* Ignore it */
  372.     UPDATE_STYLE;
  373. }
  374. if (c=='n') {
  375.     if (me->in_word) {
  376. HText_appendCharacter(me->text, ' ');
  377. me->in_word = NO;
  378.     }
  379. } else {
  380.     HText_appendCharacter(me->text, c);
  381.     me->in_word = YES;
  382. }
  383.     } /* end switch */
  384.     return HT_OK;
  385. }
  389. /* String handling
  390. ** ---------------
  391. **
  392. ** This is written separately from put_character becuase the loop can
  393. ** in some cases be promoted to a higher function call level for speed.
  394. */
  395. PRIVATE int HTML_put_string (HTStructured * me, CONST char* s)
  396. {
  398.     switch (me->sp[0].tag_number) {
  399.     case HTML_COMMENT:
  400.      break; /* Do Nothing */
  402.     case HTML_TITLE:
  403.      HTChunk_putb(me->title, s, strlen(s));
  404. break;
  407.     case HTML_LISTING: /* Litteral text */
  408.     case HTML_XMP:
  409.     case HTML_PLAINTEXT:
  410.     case HTML_PRE:
  412. /* We guarrantee that the style is up-to-date in begin_litteral
  413. */
  414.      HText_appendText(me->text, s);
  415. break;
  417.     default: /* Free format text */
  418.         {
  419.     CONST char *p = s;
  420.     if (me->style_change) {
  421. for (; *p && ((*p=='n') || (*p==' ')); p++)  ;  /* Ignore leaders */
  422. if (!*p) return HT_OK;
  423. UPDATE_STYLE;
  424.     }
  425.     for(; *p; p++) {
  426. if (me->style_change) {
  427.     if ((*p=='n') || (*p==' ')) continue;  /* Ignore it */
  428.     UPDATE_STYLE;
  429. }
  430. if (*p=='n') {
  431.     if (me->in_word) {
  432. HText_appendCharacter(me->text, ' ');
  433. me->in_word = NO;
  434.     }
  435. } else {
  436.     HText_appendCharacter(me->text, *p);
  437.     me->in_word = YES;
  438. }
  439.     } /* for */
  440. }
  441.     } /* end switch */
  442.     return HT_OK;
  443. }
  446. /* Buffer write
  447. ** ------------
  448. */
  449. PRIVATE int HTML_write (HTStructured * me, CONST char* s, int l)
  450. {
  451.     while (l-- > 0)
  452. HTML_put_character(me, *s++);
  453.     return HT_OK;
  454. }
  457. /* Start Element
  458. ** -------------
  459. */
  460. PRIVATE void HTML_start_element (
  461. HTStructured *  me,
  462. int element_number,
  463. CONST BOOL*   present,
  464. CONST char ** value)
  465. {
  466.     switch (element_number) {
  467.     case HTML_A:
  468. {
  469.     HTChildAnchor * source;
  470.     char * href = NULL;
  471.     if (present[HTML_A_HREF])
  472.      StrAllocCopy(href, value[HTML_A_HREF]);
  473.     source = HTAnchor_findChildAndLink(
  474. me->node_anchor, /* parent */
  475. present[HTML_A_NAME] ? value[HTML_A_NAME] : 0, /* Tag */
  476. present[HTML_A_HREF] ? href : 0, /* Addresss */
  477. present[HTML_A_REL] && value[HTML_A_REL] ? 
  478. (HTLinkType) HTAtom_for(value[HTML_A_REL])
  479.        : 0);
  480.     
  481.     if (present[HTML_A_TITLE] && value[HTML_A_TITLE]) {
  482.         HTParentAnchor * dest = 
  483.     HTAnchor_parent(
  484. HTAnchor_followMainLink((HTAnchor*)source)
  485.     );
  486. if (!HTAnchor_title(dest))
  487. HTAnchor_setTitle(dest, value[HTML_A_TITLE]);
  488.     }
  489.     UPDATE_STYLE;
  490.     HText_beginAnchor(me->text, source);
  491.     HT_FREE(href);         /* Leak fix Henrik 17/02-94 */
  492. }
  493.      break;
  495.     case HTML_TITLE:
  496.         HTChunk_clear(me->title);
  497. break;
  499.     case HTML_NEXTID:
  500.      /* if (present[NEXTID_N] && value[NEXTID_N])
  501. HText_setNextId(me->text, atoi(value[NEXTID_N])); */
  502.      break;
  504.     case HTML_ISINDEX:
  505.     HTAnchor_setIndex(me->node_anchor);
  506. break;
  508.     case HTML_BR: 
  509. UPDATE_STYLE;
  510. HText_appendCharacter(me->text, 'n');
  511. me->in_word = NO;
  512. break;
  514.     case HTML_HR: 
  515. UPDATE_STYLE;
  516. HText_appendCharacter(me->text, 'n');
  517. HText_appendText(me->text, "___________________________________");
  518. HText_appendCharacter(me->text, 'n');
  519. me->in_word = NO;
  520. break;
  522.     case HTML_P:
  523. UPDATE_STYLE;
  524. HText_appendParagraph(me->text);
  525. me->in_word = NO;
  526. break;
  528.     case HTML_DL:
  529.         change_paragraph_style(me, present && present[DL_COMPACT]
  530.      ? styles[HTML_DL]
  531. : styles[HTML_DL]);
  532. break;
  534.     case HTML_DT:
  535.         if (!me->style_change) {
  536.     HText_appendParagraph(me->text);
  537.     me->in_word = NO;
  538. }
  539. break;
  541.     case HTML_DD:
  542.         UPDATE_STYLE;
  543. HTML_put_character(me, 't'); /* Just tab out one stop */
  544. me->in_word = NO;
  545. break;
  547.     case HTML_UL:
  548.     case HTML_OL:
  549.     case HTML_MENU:
  550.     case HTML_DIR:
  551. change_paragraph_style(me, styles[element_number]);
  552. break;
  554.     case HTML_LI:
  555.         UPDATE_STYLE;
  556. if (me->sp[0].tag_number != HTML_DIR)
  557.     HText_appendParagraph(me->text);
  558. else
  559.     HText_appendCharacter(me->text, 't'); /* Tab @@ nl for UL? */
  560. me->in_word = NO;
  561. break;
  563.     case HTML_LISTING: /* Litteral text */
  564.     case HTML_XMP:
  565.     case HTML_PLAINTEXT:
  566.     case HTML_PRE:
  567. change_paragraph_style(me, styles[element_number]);
  568. UPDATE_STYLE;
  569.      if (me->comment_end)
  570.          HText_appendText(me->text, me->comment_end);
  571. break;
  573.     case HTML_IMG: /* Images */
  574. {
  575.     HTChildAnchor *source;
  576.     char *src = NULL;
  577.     if (present[HTML_IMG_SRC])
  578. StrAllocCopy(src, value[HTML_IMG_SRC]);
  579.     source = HTAnchor_findChildAndLink(
  580.        me->node_anchor,    /* parent */
  581.        0,                     /* Tag */
  582.        src ? src : 0,    /* Addresss */
  583.        0);
  584.     UPDATE_STYLE;
  585.     HText_appendImage(me->text, source,
  586.       present[HTML_IMG_ALT] ? value[HTML_IMG_ALT] : NULL,
  587.       present[HTML_IMG_ALIGN] ? value[HTML_IMG_ALIGN] : NULL,
  588.       present[HTML_IMG_ISMAP] ? YES : NO);
  589.     HT_FREE(src);
  590. }
  591. break;
  593.     case HTML_HTML: /* Ignore these altogether */
  594.     case HTML_HEAD:
  595.     case HTML_BODY:
  596.     
  597.     case HTML_TT: /* Physical character highlighting */
  598.     case HTML_B: /* Currently ignored */
  599.     case HTML_I:
  600.     case HTML_U:
  601.     
  602.     case HTML_EM: /* Logical character highlighting */
  603.     case HTML_STRONG: /* Currently ignored */
  604.     case HTML_CODE:
  605.     case HTML_SAMP:
  606.     case HTML_KBD:
  607.     case HTML_VAR:
  608.     case HTML_DFN:
  609.     case HTML_CITE:
  610.      break;
  612.     case HTML_H1: /* paragraph styles */
  613.     case HTML_H2:
  614.     case HTML_H3:
  615.     case HTML_H4:
  616.     case HTML_H5:
  617.     case HTML_H6:
  618.     case HTML_H7:
  619.     case HTML_ADDRESS:
  620.     case HTML_BLOCKQUOTE:
  621.      change_paragraph_style(me, styles[element_number]); /* May be postponed */
  622. break;
  624.     } /* end switch */
  626.     if (me->dtd->tags[element_number].contents!= SGML_EMPTY) {
  627.         if (me->sp == me->stack) {
  628.     if (SGML_TRACE)
  629. TTYPrint(TDEST, "HTML........ Maximum nesting of %d exceded!n",
  630. MAX_NESTING); 
  631.     me->overflow++;
  632.     return;
  633. }
  634.      --(me->sp);
  635. me->sp[0].style = me->new_style; /* Stack new style */
  636. me->sp[0].tag_number = element_number;
  637.     }
  638. }
  641. /* End Element
  642. ** -----------
  643. **
  644. */
  645. /* When we end an element, the style must be returned to that
  646. ** in effect before that element.  Note that anchors (etc?)
  647. ** don't have an associated style, so that we must scan down the
  648. ** stack for an element with a defined style. (In fact, the styles
  649. ** should be linked to the whole stack not just the top one.)
  650. ** TBL 921119
  651. **
  652. ** We don't turn on "CAREFUL" check because the parser produces
  653. ** (internal code errors apart) good nesting. The parser checks
  654. ** incoming code errors, not this module.
  655. */
  656. PRIVATE void HTML_end_element (HTStructured * me, int element_number)
  657. {
  658. #ifdef CAREFUL /* parser assumed to produce good nesting */
  659.     if (element_number != me->sp[0].tag_number) {
  660.         TTYPrint(TDEST, "HTMLText: end of element %s when expecting end of %sn",
  661. me->dtd->tags[element_number].name,
  662. me->dtd->tags[me->sp->tag_number].name);
  663. /* panic */
  664.     }
  665. #endif
  667.     /* HFN, If overflow of nestings, we need to get back to reality */
  668.     if (me->overflow > 0) {
  669. me->overflow--;
  670. return;
  671.     }
  673.     me->sp++; /* Pop state off stack */
  675.     switch(element_number) {
  677.     case HTML_A:
  678. UPDATE_STYLE;
  679. HText_endAnchor(me->text);
  680. break;
  682.     case HTML_TITLE:
  683.      HTAnchor_setTitle(me->node_anchor, HTChunk_data(me->title));
  684. break;
  686.     case HTML_LISTING: /* Litteral text */
  687.     case HTML_XMP:
  688.     case HTML_PLAINTEXT:
  689.     case HTML_PRE:
  690.      if (me->comment_start)
  691.          HText_appendText(me->text, me->comment_start);
  692. /* Fall through */
  694.     default:
  696. /* Often won't really change */
  697. change_paragraph_style(me, me->sp->style);
  698. break;
  700.     } /* switch */
  701. }
  704. /* Expanding entities
  705. ** ------------------
  706. */
  707. /* (In fact, they all shrink!)
  708. */
  710. PRIVATE void HTML_put_entity (HTStructured * me, int entity_number)
  711. {
  712.     HTML_put_string(me, ISO_Latin1[entity_number]); /* @@ Other representations */
  713. }
  715. /* Flush an HTML object
  716. ** --------------------
  717. */
  718. PUBLIC int HTML_flush (HTStructured * me)
  719. {
  720.     UPDATE_STYLE;      /* Creates empty document here! */
  721.     if (me->comment_end) HTML_put_string(me,me->comment_end);
  722.     return me->target ? (*me->targetClass.flush)(me->target) : HT_OK;
  723. }
  725. /* Free an HTML object
  726. ** -------------------
  727. **
  728. ** If the document is empty, the text object will not yet exist.
  729.    So we could in fact abandon creating the document and return
  730.    an error code.  In fact an empty document is an important type
  731.    of document, so we don't.
  732. **
  733. ** If non-interactive, everything is freed off.   No: crashes -listrefs
  734. ** Otherwise, the interactive object is left.
  735. */
  736. PUBLIC int HTML_free (HTStructured * me)
  737. {
  738.     UPDATE_STYLE; /* Creates empty document here! */
  739.     if (me->comment_end)
  740. HTML_put_string(me,me->comment_end);
  741.     HText_endAppend(me->text);
  743.     if (me->target) {
  744.         (*me->targetClass._free)(me->target);
  745.     }
  746.     HTChunk_delete(me->title);
  747.     HT_FREE(me);
  748.     return HT_OK;
  749. }
  752. PRIVATE int HTML_abort (HTStructured * me, HTList * e)
  754. {
  755.     if (me->target) {
  756.         (*me->targetClass.abort)(me->target, e);
  757.     }
  758.     HTChunk_delete(me->title);
  759.     HT_FREE(me);
  760.     return HT_ERROR;
  761. }
  764. /* Get Styles from style sheet
  765. ** ---------------------------
  766. */
  767. PRIVATE void get_styles (void)
  768. {
  769.     got_styles = YES;
  770.     
  771.     default_style = HTStyleNamed(styleSheet, "Normal");
  773.     styles[HTML_H1] = HTStyleNamed(styleSheet, "Heading1");
  774.     styles[HTML_H2] = HTStyleNamed(styleSheet, "Heading2");
  775.     styles[HTML_H3] = HTStyleNamed(styleSheet, "Heading3");
  776.     styles[HTML_H4] = HTStyleNamed(styleSheet, "Heading4");
  777.     styles[HTML_H5] = HTStyleNamed(styleSheet, "Heading5");
  778.     styles[HTML_H6] = HTStyleNamed(styleSheet, "Heading6");
  779.     styles[HTML_H7] = HTStyleNamed(styleSheet, "Heading7");
  781.     styles[HTML_DL] = HTStyleNamed(styleSheet, "Glossary");
  782.     styles[HTML_UL] =
  783.     styles[HTML_OL] = HTStyleNamed(styleSheet, "List");
  784.     styles[HTML_MENU] = HTStyleNamed(styleSheet, "Menu");
  785.     styles[HTML_DIR] = HTStyleNamed(styleSheet, "Dir");    
  786. /*  styles[HTML_DLC] = HTStyleNamed(styleSheet, "GlossaryCompact"); */
  787.     styles[HTML_ADDRESS]= HTStyleNamed(styleSheet, "Address");
  788.     styles[HTML_BLOCKQUOTE]= HTStyleNamed(styleSheet, "BlockQuote");
  789.     styles[HTML_PLAINTEXT] =
  790.     styles[HTML_XMP] = HTStyleNamed(styleSheet, "Example");
  791.     styles[HTML_PRE] = HTStyleNamed(styleSheet, "Preformatted");
  792.     styles[HTML_LISTING] = HTStyleNamed(styleSheet, "Listing");
  793. }
  794. /* P U B L I C
  795. */
  797. /* Structured Object Class
  798. ** -----------------------
  799. */
  800. PRIVATE CONST HTStructuredClass HTMLPresentation = /* As opposed to print etc */
  801. {
  802. "text/html",
  803. HTML_flush,
  804. HTML_free,
  805. HTML_abort,
  806. HTML_put_character,  HTML_put_string,  HTML_write,
  807. HTML_start_element,  HTML_end_element,
  808. HTML_put_entity
  809. }; 
  812. /* New Structured Text object
  813. ** --------------------------
  814. **
  815. ** The structured stream can generate either presentation,
  816. ** or plain text, or HTML.
  817. */
  818. PRIVATE HTStructured* HTML_new (HTRequest * request,
  819.      void * param,
  820.      HTFormat input_format,
  821.      HTFormat output_format,
  822.      HTStream * output_stream)
  823. {
  825.     HTStructured * me;
  826.     
  827. #if 0
  828.     if (output_format != WWW_PLAINTEXT
  829.      && output_format != WWW_PRESENT
  830. && output_format != HTAtom_for("text/x-c")) {
  831.         HTStream * intermediate = HTStreamStack(WWW_HTML, output_format,
  832. output_stream, request, NO);
  833. if (intermediate) return HTMLGenerator(intermediate);
  834. if (SGML_TRACE)
  835.     TTYPrint(TDEST, "HTML........ Can't parse HTML to %sn",
  836.     HTAtom_name(output_format));
  837. exit (-99);
  838.     }
  839. #endif
  841.     if ((me = (HTStructured *) HT_CALLOC(1, sizeof(*me))) == NULL)
  842.         HT_OUTOFMEM("HTML_new");
  844.     if (!got_styles) get_styles();
  846.     me->isa = &HTMLPresentation;
  847.     me->dtd = &HTMLP_dtd;
  848.     me->request = request;
  849.     me->node_anchor =  HTRequest_anchor(request);
  850.     me->title = HTChunk_new(128);
  851.     me->text = 0;
  852.     me->style_change = YES; /* Force check leading to text creation */
  853.     me->new_style = default_style;
  854.     me->old_style = 0;
  855.     me->sp = me->stack + MAX_NESTING - 1;
  856.     me->sp->tag_number = -1; /* INVALID */
  857.     me->sp->style = default_style; /* INVALID */
  858.     
  859.     me->comment_start = NULL;
  860.     me->comment_end = NULL;
  861.     me->target = output_stream;
  862.     if (output_stream) me->targetClass = *output_stream->isa; /* Copy pointers */
  863.     
  864.     return (HTStructured*) me;
  865. }
  868. /* HTConverter for HTML to plain text
  869. ** ----------------------------------
  870. **
  871. ** This will convert from HTML to presentation or plain text.
  872. */
  873. PUBLIC HTStream* HTMLToPlain (
  874. HTRequest * request,
  875. void * param,
  876. HTFormat input_format,
  877. HTFormat output_format,
  878. HTStream * output_stream)
  879. {
  880.     return SGML_new(&HTMLP_dtd, HTML_new(
  881.      request, NULL, input_format, output_format, output_stream));
  882. }
  885. /* HTConverter for HTML to C code
  886. ** ------------------------------
  887. **
  888. ** C code is like plain text but all non-preformatted code
  889. ** is commented out.
  890. ** This will convert from HTML to presentation or plain text.
  891. */
  892. PUBLIC HTStream* HTMLToC (
  893. HTRequest * request,
  894. void * param,
  895. HTFormat input_format,
  896. HTFormat output_format,
  897. HTStream * output_stream)
  898. {
  899.     
  900.     HTStructured * html;
  901.     
  902.     (*output_stream->isa->put_string)(output_stream, "/* "); /* Before title */
  903.     html = HTML_new(request, NULL, input_format, output_format, output_stream);
  904.     html->comment_start = "n/* ";
  905.     html->dtd = &HTMLP_dtd;
  906.     html->comment_end = " */n"; /* Must start in col 1 for cpp */
  907.     return SGML_new(&HTMLP_dtd, html);
  908. }
  911. /* Presenter for HTML
  912. ** ------------------
  913. **
  914. ** This will convert from HTML to presentation or plain text.
  915. **
  916. ** Override this if you have a windows version
  917. */
  918. #ifndef GUI
  919. PUBLIC HTStream* HTMLPresent (
  920. HTRequest * request,
  921. void * param,
  922. HTFormat input_format,
  923. HTFormat output_format,
  924. HTStream * output_stream)
  925. {
  926.     return SGML_new(&HTMLP_dtd, HTML_new(
  927.      request, NULL, input_format, output_format, output_stream));
  928. }
  929. #endif