开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
HTTeXGen.c
资源名称：arena-beta-2b-src.tar.gz　[点击查看]
上传用户：zlh9724
上传日期：2007-01-04
资源大小：1991k
文件大小：16k
源码类别：

浏览器

开发平台：

Unix_Linux

HTTeXGen.c：源码内容
  1. /*      HTTeXGen.c
  2. ** HTML -> LaTeX CONVERTER
  3. **
  4. ** (c) COPYRIGHT MIT 1995.
  5. ** Please first read the full copyright statement in the file COPYRIGH.
  6. **
  7. **  This version of the HTML object sends LaTeX to the output stream.
  8. **  No attributes are considered in the translation!
  9. **  The module uses simple 1:1 table-conversions, but this COULD be
  10. ** expanded to a stack-machine. This would then be in start_element and
  11. ** end_element...
  12. ** Henrik 07/03-94
  13. **
  14. ** HISTORY:
  15. **  8 Jul 94  FM Insulate free() from _free structure element.
  16. **
  17. */
  19. #define BUFFER_SIZE 80 /* Line buffer attempts to make neat breaks */
  20. #define WORD_DELIMITERS ",;:[]()"
  22. /* Library include files */
  23. #include "tcp.h"
  24. #include "HTUtils.h"
  25. #include "HTTeXGen.h"
  26. #include "HTMLPDTD.h"
  27. #include "HTStruct.h"
  28. #include "HTFormat.h"
  30. /* HTML Object
  31. ** -----------
  32. */
  34. struct _HTStream {
  35. CONST HTStreamClass * isa;
  36. HTStream *  target;
  37. HTStreamClass targetClass;    /* COPY for speed */
  38. };
  40. struct _HTStructured {
  41. CONST HTStructuredClass * isa;
  42. HTStream *  target;
  43. HTStreamClass targetClass;    /* COPY for speed */
  44. CONST SGML_dtd * dtd;
  46. char buffer[2*BUFFER_SIZE];   /* See note */
  47. char * write_pointer;
  48. char * line_break;
  49. BOOL sensitive;          /* Can we put n */
  50. BOOL preformatted;     /* Is it verbatim? */
  51. BOOL markup;     /* If doing LaTeX markup */
  52. BOOL startup;      /* To skip MIME header */
  53. };
  55. /* The buffer has to be bigger than 80 as latex markup might make the line
  56.    longer before we get to flush it. */
  58. PRIVATE char *TeX_names[HTMLP_ELEMENTS][2] = {
  59.     { "",        "" }, /* HTML_A */
  60.     { "", "" }, /* HTML_ABBREV */
  61.     { "n\begin{abstract}n","n\end{abstract}n"},  /* HTML_ABSTRACT */
  62.     { "", "" }, /* HTML_ACRONYM */
  63.     { "", "" }, /* HTML_ADDED */
  64.     { "{\it ", "}" }, /* HTML_ADDRESS */
  65.     { "", "" }, /* HTML_ARG */
  66.     { "{\bf ", "}" }, /* HTML_B */
  67.     { "", "" }, /* HTML_BASE */
  68.     { "{\sf ", "}" }, /* HTML_BLOCKQUOTE  */
  69.     { "",  "" }, /* HTML_BODY      */
  70.     { "", "" }, /* HTML_BOX */
  71.     { "", "" }, /* HTML_BR */
  72.     { "", "" }, /* HTML_BYLINE */
  73.     { "", "" }, /* HTML_CAPTION */
  74.     { "", "" }, /* HTML_CHANGED */
  75.     { "\cite{",       "}" }, /* HTML_CITE */
  76.     { "", "" }, /* HTML_CMD */
  77.     { "{\tt ", "}" }, /* HTML_CODE */
  78.     { "n\typeout{", "}n" }, /* HTML_COMMENT */
  79.     { "]", "" }, /* HTML_DD */
  80.     { "", "" }, /* HTML_DFN */
  81.     { "", "" }, /* HTML_DIR */
  82.     { "n\begin{description}","n\end{description}n"}, /* HTML_DL  */
  83.     { "n\item[", "" }, /* HTML_DT */
  84.     { "{\em ", "}" }, /* HTML_EM */
  85.     { "", "" }, /* HTML_FIG */
  86.     { "n\footnote{", "}n"         }, /* HTML_FOOTNOTE */
  87.     { "", ""  }, /* HTML_FORM */
  88.     { "n\chapter{", "}n" }, /* HTML_H1 */
  89.     { "n\section{", "}n" }, /* HTML_H2 */
  90.     { "n\subsection{","}n"   }, /* HTML_H3 */
  91.     { "n\subsubsection{","}n" }, /* HTML_H4 */
  92.     { "n\paragraph{", "}n" }, /* HTML_H5 */
  93.     { "n\subparagraph{","}n" }, /* HTML_H6 */
  94.     { "", "n" }, /* HTML_H7 */
  95.     { "", "" }, /* HTML_HEAD */
  96.     { "", "" }, /* HTML_HR */
  97.     { "", "" },  /* HTML_HTML */
  98.     { "", "" },     /* HTML_HTMLPLUS */
  99.     { "{\it ", "}" }, /* HTML_I */
  100.     { "", "" }, /* HTML_IMAGE */
  101.     { "_FIGUR_", "" }, /* HTML_IMG */
  102.     { "", "" }, /* HTML_INPUT */
  103.     { "", "" }, /* HTML_ISINDEX */
  104.     { "{\tt ", "}" }, /* HTML_KBD */
  105.     { "", "" }, /* HTML_L */
  106.     { "n\item ",      ""          }, /* HTML_LI */
  107.     { "", "" }, /* HTML_LINK */
  108.     { "", "" }, /* HTML_LISTING */
  109.     { "", "" }, /* HTML_LIT */
  110.     { "", "" }, /* HTML_MARGIN */
  111.     { "", "" }, /* HTML_MATH */
  112.     { "", "" }, /* HTML_MENU */
  113.     { "", "" }, /* HTML_NEXTID */
  114.     { "", "" }, /* HTML_NOTE */
  115.     { "n\begin{enumerate}n","n\end{enumerate}n"}, /* HTML_OL      */
  116.     { "", "" }, /* HTML_OPTION */
  117.     { "", "" }, /* HTML_OVER */
  118.     { "nn", "" }, /* HTML_P */
  119.     { "", "" }, /* HTML_PERSON */
  120.     { "", "" }, /* HTML_PLAINTEXT */
  121.     { "n\begin{verbatim}"," \end{verbatim}n"},  /* HTML_PRE        */
  122.     { "", "" }, /* HTML_Q */
  123.     { "\begin{quote}", "\end{quote}"},  /* HTML_QUOTE */
  124.     { "", "" }, /* HTML_RENDER */
  125.     { "", "" }, /* HTML_REMOVED */
  126.     { "", "" }, /* HTML_S */
  127.     { "", "" }, /* HTML_SAMP */
  128.     { "",  "" }, /* HTML_SELECT */
  129.     { "{\bf ", "}" }, /* HTML_STRONG */
  130.     { "",  "" }, /* HTML_SUB */
  131.     { "", "" }, /* HTML_SUP */
  132.     { "", "" }, /* HTML_TAB */
  133.     { "", "" }, /* HTML_TABLE */
  134.     { "", "" }, /* HTML_TD */
  135.     { "", "" }, /* HTML_TEXTAREA */
  136.     { "", "" }, /* HTML_TH */
  137.     { "n\title{", "}n\author{}n\maketitlen"},  /* HTML_TITLE */
  138.     { "", "" }, /* HTML_TR */
  139.     { "", "" }, /* HTML_TT */
  140.     { "", "" }, /* HTML_U */
  141.     { "n\begin{itemize}","n\end{itemize}n"},   /* HTML_UL */
  142.     { "", "" }, /* HTML_VAR */
  143.     { "{\sf ", "}" } /* HTML_XMP */
  144. };
  146. PRIVATE char *TeX_entities[HTML_ENTITIES] = {
  147.     "\AE ", /*"AElig",  capital AE diphthong (ligature) */ 
  148.     "\'{A}", /*"Aacute",  capital A, acute accent */ 
  149.     "\^{A}", /*"Acirc",  capital A, circumflex accent */ 
  150.     "\`{A}", /*"Agrave",  capital A, grave accent */ 
  151.     "\AA",      /*"Aring",  capital A, ring */ 
  152.     "\~{A}",  /*"Atilde",  capital A, tilde */ 
  153.     "\"{A}", /*"Auml",  capital A, dieresis or umlaut mark */ 
  154.     "\c{C}", /*"Ccedil",  capital C, cedilla */ 
  155.     "\OE ", /*"ETH",  capital Eth, Icelandic */ 
  156.     "\'{E}", /*"Eacute",  capital E, acute accent */ 
  157.     "\^{E}", /*"Ecirc",  capital E, circumflex accent */ 
  158.     "\`{E}", /*"Egrave",  capital E, grave accent */ 
  159.     "\"{E}", /*"Euml",  capital E, dieresis or umlaut mark */ 
  160.     "\'{I}", /*"Iacute",  capital I, acute accent */ 
  161.     "\^{I}", /*"Icirc",  capital I, circumflex accent */ 
  162.     "\`{I}", /*"Igrave",  capital I, grave accent */ 
  163.     "\"{I}", /*"Iuml",  capital I, dieresis or umlaut mark */ 
  164.     "\~{N}", /*"Ntilde",  capital N, tilde */ 
  165.     "\'{O}", /*"Oacute",  capital O, acute accent */ 
  166.     "\^{O}", /*"Ocirc",  capital O, circumflex accent */ 
  167.     "\`{O}", /*"Ograve",  capital O, grave accent */ 
  168.     "\O ",             /*"Oslash",  capital O, slash */ 
  169.     "\~{O}", /*"Otilde",  capital O, tilde */ 
  170.     "\"{O}",         /*"Ouml",  capital O, dieresis or umlaut mark */ 
  171.     " ",       /*"THORN",  capital THORN, Icelandic */ 
  172.     "\'{U}", /*"Uacute",  capital U, acute accent */ 
  173.     "\^{U}", /*"Ucirc",  capital U, circumflex accent */ 
  174.     "\`{U}", /*"Ugrave",  capital U, grave accent */ 
  175.     "\"{U}", /*"Uuml",  capital U, dieresis or umlaut mark */ 
  176.     "\'{Y}", /*"Yacute",  capital Y, acute accent */ 
  177.     "\'{a}", /*"aacute",  small a, acute accent */ 
  178.     "\^{a}", /*"acirc",  small a, circumflex accent */ 
  179.     "\ae ", /*"aelig",  small ae diphthong (ligature) */ 
  180.     "\`{a}", /*"agrave",  small a, grave accent */ 
  181.     "&",             /*"amp",  ampersand */ 
  182.     "\aa ", /*"aring",  small a, ring */ 
  183.     "\~{a}", /*"atilde",  small a, tilde */ 
  184.     "\"{a}", /*"auml",  small a, dieresis or umlaut mark */ 
  185.     "\c{c}", /*"ccedil",  small c, cedilla */ 
  186.     "\'{e}", /*"eacute",  small e, acute accent */ 
  187.     "\^{c}", /*"ecirc",  small e, circumflex accent */ 
  188.     "\`{c}", /*"egrave",  small e, grave accent */ 
  189.     "\oe ", /*"eth",  small eth, Icelandic */ 
  190.     "\"{e}", /*"euml",  small e, dieresis or umlaut mark */ 
  191.     ">", /*"gt",  greater than */ 
  192.     "\'{\i}",       /*"iacute",  small i, acute accent */ 
  193.     "\^{\i}",        /*"icirc",  small i, circumflex accent */ 
  194.     "\`{\i}",        /*"igrave",  small i, grave accent */ 
  195.     "\"{\i}",      /*"iuml",  small i, dieresis or umlaut mark */ 
  196.     "<", /*"lt",  less than */ 
  197.     "\~{n}", /*"ntilde",  small n, tilde */ 
  198.     "\'{o}", /*"oacute",  small o, acute accent */ 
  199.     "\~{o}", /*"ocirc",  small o, circumflex accent */ 
  200.     "\`{o}", /*"ograve",  small o, grave accent */ 
  201.     "\o ",             /*"oslash",  small o, slash */ 
  202.     "\~{o}",          /*"otilde",  small o, tilde */ 
  203.     "\"{o}",     /*"ouml",  small o, dieresis or umlaut mark */ 
  204.     """,     /*"quot",  double quote sign - June 1994 */ 
  205.     "\ss ", /*"szlig",  small sharp s, German (sz ligature)*/ 
  206.     " ",        /*"thorn",  small thorn, Icelandic */ 
  207.     "\'{u}",         /*"uacute",  small u, acute accent */ 
  208.     "\^{u}",         /*"ucirc",  small u, circumflex accent */ 
  209.     "\`{u}",          /*"ugrave",  small u, grave accent */ 
  210.     "\"{u}",         /*"uuml",  small u, dieresis or umlaut mark */ 
  211.     "\'{y}", /*"yacute",  small y, acute accent */ 
  212.     "\"{y}"      /*"yuml",  small y, dieresis or umlaut mark */ 
  213. };
  216. /* Flush Buffer
  217. ** ------------
  218. */
  219. PRIVATE int HTTeXGen_flush (HTStructured * me)
  220. {
  221.     int status;
  222.     if ((status =
  223.  (*me->targetClass.put_block)(me->target, me->buffer,
  224.       me->write_pointer-me->buffer)) != HT_OK)
  225. return status;
  226.     me->write_pointer = me->buffer;
  227.     me->line_break = me->buffer;
  228.     return (*me->targetClass.flush)(me->target);
  229. }
  232. /* Character handling
  233. ** ------------------
  234. **
  235. */
  236. PRIVATE int HTTeXGen_put_character (HTStructured * me, char c)
  237. {
  238.     if (!me->startup)                       /* To skip MIME header */
  239. return HT_OK;
  240.     if (c=='n') {
  241. if (me->markup || me->preformatted) {     /* Put out as is and flush */
  242.     *me->write_pointer++ = c;
  243.     HTTeXGen_flush(me);
  244.     return HT_OK;
  245. } else if (me->sensitive || *(me->write_pointer-1)==' ') {
  246.     return HT_OK;
  247.         } else
  248.     *me->write_pointer++ = ' ';       /* Try to pretty print */
  249.     } else if (me->markup || me->preformatted) {
  250. *me->write_pointer++ = c;
  251.     } else if (c==' ' || c=='t') {               /* Skip space and tabs */
  252. if (*(me->write_pointer-1) != ' ')
  253.     *me->write_pointer++ = ' ';
  254. else
  255.     return HT_OK;
  256.     } else {
  257. if (c=='$' || c=='&' || c=='%' || c=='#' ||         /* Special chars */
  258.     c=='{' || c=='}' || c=='_') {
  259.     *me->write_pointer++ = '\';
  260.     *me->write_pointer++ = c;
  261. } else if (c=='\') {             /* Special names */
  262.     char *temp = "$\backslash$";
  263.     strcpy(me->write_pointer, temp);
  264.     me->write_pointer += strlen(temp);
  265. } else if (c=='^') {
  266.     char *temp = "$\hat{ }$";
  267.     strcpy(me->write_pointer, temp);
  268.     me->write_pointer += strlen(temp);     
  269. } else if (c=='~') {
  270.     char *temp = "$\tilde{ }$";
  271.     strcpy(me->write_pointer, temp);
  272.     me->write_pointer += strlen(temp);
  273. } else if (c=='|' || c=='<' || c=='>') {                /* Math mode */
  274.     *me->write_pointer++ = '$';
  275.     *me->write_pointer++ = c;
  276.     *me->write_pointer++ = '$';
  277. } else
  278.     *me->write_pointer++ = c;                /* Char seems normal */
  279.     }
  281.     if (c==' ')    /* Find delimiter */
  282. me->line_break = me->write_pointer;
  283.     else if (strchr(WORD_DELIMITERS, c))
  284. me->line_break = me->write_pointer-1;
  286.     /* Flush buffer out when full */
  287.     if (me->write_pointer >= me->buffer+BUFFER_SIZE-3) {
  288. #ifdef OLD_CODE
  289. if (me->markup || me->preformatted) {
  290. #endif /* OLD_CODE */
  291. if (me->preformatted) {
  292.     *me->write_pointer = 'n';
  293.     (*me->targetClass.put_block)(me->target,
  294.  me->buffer,
  295.  me->write_pointer-me->buffer+1);
  296.     me->write_pointer = me->buffer;
  297. } else {                   /* Use break-point */
  298.     char line_break_char = *me->line_break;
  299.     char *saved = me->line_break;
  300.     *me->line_break = 'n';
  301.     (*me->targetClass.put_block)(me->target,
  302.  me->buffer,
  303.  me->line_break-me->buffer+1);
  304.     *me->line_break = line_break_char;
  305.     {                                           /* move next line in */
  306. char *p = saved;
  307. char *q;
  308. for(q=me->buffer; p<me->write_pointer; )
  309.     *q++ = *p++;
  310.     }
  311.     me->write_pointer = me->buffer + (me->write_pointer-saved);
  312. }     
  313. me->line_break = me->buffer;
  314.     }
  315.     return HT_OK;
  316. }
  320. /* String handling
  321. ** ---------------
  322. */
  323. PRIVATE int HTTeXGen_put_string (HTStructured * me, CONST char* s)
  324. {
  325.     while (*s)
  326. HTTeXGen_put_character(me, *s++);
  327.     return HT_OK;
  328. }
  331. PRIVATE int HTTeXGen_write (HTStructured * me, CONST char* b, int l)
  332. {
  333.     while (l-- > 0)
  334. HTTeXGen_put_character(me, *b++);
  335.     return HT_OK;
  336. }
  339. /* Start Element
  340. ** -------------
  341. **
  342. **      No attributes are put to the output Henrik 07/03-94
  343. ** Does no assumptions of WHAT element is started...
  344. */
  345. PRIVATE void HTTeXGen_start_element (HTStructured *  me,
  346.      int element_number,
  347.      CONST BOOL * present,
  348.      CONST char ** value)
  349. {
  350.     me->startup = YES;         /* Now, let's get down to it */
  351.     if (me->preformatted == YES) {        /* Don't start markup in here */
  352. if (WWWTRACE)
  353.     TTYPrint(TDEST, "LaTeX....... No Markup in verbatim moden");
  354. return;
  355.     }
  356.     if (element_number == HTML_PRE)
  357. me->preformatted = YES;
  358.     if (element_number == HTML_CITE ||               /* No n here, please! */
  359. element_number == HTML_DT ||
  360. element_number == HTML_H1 ||
  361. element_number == HTML_H2 ||
  362. element_number == HTML_H3 ||
  363. element_number == HTML_H4 ||
  364. element_number == HTML_H5 ||
  365. element_number == HTML_H6 ||
  366. element_number == HTML_H7 ||
  367. element_number == HTML_TITLE)
  368. me->sensitive = YES;
  369.     else if (element_number == HTML_DD)         /* Only way to turn <DT> off */
  370. me->sensitive = NO;
  371.     me->markup = element_number == HTML_A ? NO : YES;
  372.     HTTeXGen_put_string(me, *TeX_names[element_number]);
  373.     me->markup = NO;
  374. }
  377. /* End Element
  378. ** -----------
  379. **
  380. ** Ends an markup element Henrik 07/03-94
  381. ** Does no assumptions of WHAT element is ended...
  382. */
  383. PRIVATE void HTTeXGen_end_element (HTStructured * me, int element_number)
  384. {
  385.     if (me->preformatted && element_number != HTML_PRE) {
  386. if (WWWTRACE)
  387.     TTYPrint(TDEST, "LaTeX....... No markup in verbatim moden");
  388. return;
  389.     }
  390.     me->preformatted = NO;
  391.     me->markup = YES;
  392.     HTTeXGen_put_string(me, *(TeX_names[element_number]+1));
  393.     me->markup = NO;
  394.     if (element_number == HTML_CITE ||
  395. element_number == HTML_DL ||
  396. element_number == HTML_H1 ||
  397. element_number == HTML_H2 ||
  398. element_number == HTML_H3 ||
  399. element_number == HTML_H4 ||
  400. element_number == HTML_H5 ||
  401. element_number == HTML_H6 ||
  402. element_number == HTML_H7 ||
  403. element_number == HTML_TITLE)
  404. me->sensitive = NO;
  405. }
  408. /* Expanding entities
  409. ** ------------------
  410. **
  411. */
  412. PRIVATE void HTTeXGen_put_entity (HTStructured * me, int entity_number)
  413. {
  414.     BOOL mark = me->markup;
  415.     if (*TeX_entities[entity_number] != '&' && /* Theese are converted later */
  416. *TeX_entities[entity_number] != '<' &&
  417. *TeX_entities[entity_number] != '>')
  418. me->markup = YES;
  419.     HTTeXGen_put_string(me, TeX_entities[entity_number]);
  420.     me->markup = mark;
  421. }
  425. /* Free an HTML object
  426. ** -------------------
  427. **
  428. */
  429. PRIVATE int HTTeXGen_free (HTStructured * me)
  430. {
  431.     HTTeXGen_flush(me);
  432.     (*me->targetClass.put_string)(me->target, "n\end{document}n");
  433.     HTTeXGen_flush(me);
  434.     (*me->targetClass._free)(me->target); /* ripple through */
  435.     HT_FREE(me);
  436.     return HT_OK;
  437. }
  440. PRIVATE int HTTeXGen_abort (HTStructured * me, HTList * e)
  441. {
  442.     HTTeXGen_free(me);
  443.     return HT_ERROR;
  444. }
  447. /* Structured Object Class
  448. ** -----------------------
  449. */
  450. PRIVATE CONST HTStructuredClass HTTeXGeneration = /* As opposed to print etc */
  451. {
  452. "HTMLToTeX",
  453. HTTeXGen_flush,
  454. HTTeXGen_free,
  455. HTTeXGen_abort,
  456. HTTeXGen_put_character,         HTTeXGen_put_string, HTTeXGen_write,
  457. HTTeXGen_start_element,  HTTeXGen_end_element,
  458. HTTeXGen_put_entity
  459. }; 
  462. /* HTConverter from HTML to TeX Stream
  463. ** ------------------------------------------
  464. **
  465. */
  466. PUBLIC HTStream* HTMLToTeX (HTRequest * request,
  467.     void * param,
  468.     HTFormat input_format,
  469.     HTFormat output_format,
  470.     HTStream * output_stream)
  471. {
  472.     HTStructured* me;
  473.     if ((me = (HTStructured *) HT_CALLOC(1, sizeof(*me))) == NULL)
  474.         HT_OUTOFMEM("HTMLToTeX");
  476.     me->isa = (HTStructuredClass*) &HTTeXGeneration;
  477.     me->dtd = &HTMLP_dtd;
  478.     me->target = output_stream;
  479.     me->targetClass = *me->target->isa;/* Copy pointers to routines for speed*/
  480.     me->write_pointer = me->buffer;
  481.     me->line_break =  me->buffer;
  482.     (*me->targetClass.put_string)(me->target,
  483.         "\documentstyle[11pt]{report}n\begin{document}n");
  484.     return SGML_new(&HTMLP_dtd, me);
  485. }