home *** CD-ROM | disk | FTP | other *** search
/ ftp.disi.unige.it / 2015-02-11.ftp.disi.unige.it.tar / ftp.disi.unige.it / pub / software / unix / lyx-0.10.7.tar.gz / lyx-0.10.7.tar / lyx-0.10.7 / math_write.C < prev    next >
C/C++ Source or Header  |  1996-09-19  |  7KB  |  284 lines
  1. /*
  2.  *  File:        math_write.h
  3.  *  Purpose:     Write math paragraphs in LaTeX
  4.  *  Author:      Alejandro Aguilar Sierra <asierra@servidor.unam.mx> 
  5.  *  Created:     January 1996
  6.  *  Description: 
  7.  *
  8.  *  Dependencies: Xlib, XForms
  9.  *
  10.  *  Copyright: (c) 1996, Alejandro Aguilar Sierra
  11.  *
  12.  *   Version: 0.5beta, Mathed & Lyx project.
  13.  *
  14.  *   You are free to use and modify this code under the terms of
  15.  *   the GNU General Public Licence version 2 or later.
  16.  */
  17.  
  18. #include "config.h"
  19. #include "math_inset.h"
  20. #include "math_parser.h"
  21.  
  22.  
  23. extern const char *latex_mathenv[];
  24. extern char *latex_mathspace[];
  25.  
  26. // quite a hack i know. Should be done with return values...
  27. static int number_of_newlines;
  28.  
  29. char *math_font_name[] = {
  30.    "mathrm",
  31.    "mathcal",
  32.    "mathbf",
  33.    "mathsf",
  34.    "mathtt",
  35.    "mathit",
  36.    "textrm"
  37. };
  38.  
  39. void
  40. MathSpaceInset::Write(FILE *outf)
  41. { 
  42.    if (space>=0 && space<6)
  43.      fprintf(outf, "\\%s ", latex_mathspace[space]);
  44. }
  45.  
  46.  
  47. void
  48. MathDotsInset::Write(FILE *outf)
  49. {
  50.    fprintf(outf, "\\%s ", name);
  51. }   
  52.  
  53. void MathSqrtInset::Write(FILE *outf)
  54. { 
  55.    fprintf(outf, "\\%s{", name);
  56.    MathParInset::Write(outf);  
  57.    fprintf(outf, "}");
  58. }
  59.  
  60. void MathDelimInset::Write(FILE *outf)
  61. { 
  62.    latexkeys* l = lm_get_key_by_id(left, LM_TK_SYM);
  63.    latexkeys* r = lm_get_key_by_id(right, LM_TK_SYM);
  64.    fprintf(outf, "\\left");
  65.    if (l) 
  66.      fprintf(outf, "\\%s ", l->name);
  67.    else {
  68.       if (left=='{' || left=='}')
  69.     fprintf(outf, "\\%c ", left);
  70.       else
  71.     fprintf(outf, "%c ", left);
  72.    }
  73.    MathParInset::Write(outf);  
  74.    fprintf(outf, "\\right");
  75.    if (r) 
  76.      fprintf(outf, "\\%s ", r->name);
  77.    else {
  78.       if (right=='{' || right=='}')
  79.         fprintf(outf, "\\%c ", right);
  80.       else
  81.         fprintf(outf, "%c ", right);
  82.    }        
  83. }
  84.  
  85.  
  86. void MathDecorationInset::Write(FILE *outf)
  87. { 
  88.    latexkeys* l = lm_get_key_by_id(deco, LM_TK_WIDE);
  89.    fprintf(outf, "\\%s{", l->name);
  90.    MathParInset::Write(outf);  
  91.    fprintf(outf, "}");
  92. }
  93.  
  94. void MathAccentInset::Write(FILE *outf)
  95. { 
  96.    latexkeys* l = lm_get_key_by_id(code, LM_TK_ACCENT);
  97.    fprintf(outf, "\\%s", l->name);
  98.    if (fn==LM_TC_SYMB) {
  99.       latexkeys *l = lm_get_key_by_id(c, LM_TK_SYM);
  100.       if (l)
  101.     fprintf(outf, "\\%s ", l->name);
  102.       else 
  103.     fprintf(stderr, "Illegal symbol code[%u %d]", c, fn);
  104.    } else 
  105.      fprintf(outf, " %c ", c);
  106. }
  107.  
  108.  
  109. void MathBigopInset::Write(FILE *outf)
  110. { 
  111.    fprintf(outf, "\\%s", name);
  112.    if (lims && (sym==LM_int || sym==LM_oint))
  113.      fprintf(outf, "\\limits ");
  114.    else 
  115.    if (!lims && !(sym==LM_int || sym==LM_oint))
  116.      fprintf(outf, "\\nolimits ");
  117.    else 
  118.      fprintf(outf, " ");
  119. }
  120.  
  121.  
  122. void MathFracInset::Write(FILE *outf)
  123. { 
  124.    fprintf(outf, "\\%s{", name);
  125.    MathParInset::Write(outf);  
  126.    fprintf(outf, "}{");
  127.    den->Write(outf);  
  128.    fprintf(outf, "}");
  129. }
  130.  
  131.  
  132. void MathParInset::Write(FILE *outf)
  133. {
  134.    if (!array) return;
  135.    int brace = 0;
  136.    latexkeys *l;
  137.    LyxMathIter data(array);
  138.    
  139.    data.Reset();
  140.     
  141.    if (fixedsz) { 
  142.        l = lm_get_key_by_id(size, LM_TK_STY);
  143.        if (l) fprintf(outf, "\\%s ", l->name);
  144.    }
  145.    while (data.OK()) {
  146.       byte cx = data.GetChar();
  147.       if (cx>=' ') {
  148. //     fprintf(outf, "OUT<%d %d>", data.FCode(), cx);
  149.      int ls;
  150.      byte *s = data.GetString(ls);
  151.        
  152.      if (data.FCode()>=LM_TC_RM && data.FCode()<=LM_TC_TEXTRM)
  153.        fprintf(outf, "\\%s{", math_font_name[data.FCode()-LM_TC_RM]);
  154.      while (ls>0) {
  155.         if (MathIsSymbol(data.FCode())) {
  156.         l = lm_get_key_by_id(*s,(data.FCode()==LM_TC_BSYM)?LM_TK_BIGSYM:LM_TK_SYM);
  157.            if (l)
  158.          fprintf(outf, "\\%s ", l->name);
  159.            else 
  160.          fprintf(stderr, "Illegal symbol code[%u %d %d]", *s, ls, data.FCode());
  161.         } else {
  162.            // Is there a standard logical XOR?
  163.            if ((*s=='{' || *s=='}') && (data.FCode()!=LM_TC_TEX) ||
  164.            !(*s=='{' || *s=='}') && (data.FCode()==LM_TC_TEX))
  165.          fprintf(outf, "\\");
  166.            else {
  167.           if (*s=='{') brace++;
  168.           if (*s=='}') brace--;
  169.            }
  170.            if (*s=='}' && data.FCode()==LM_TC_TEX && brace<0) 
  171.          fprintf(stderr, "Math warning: Unexpected closing brace.\n");
  172.            else           
  173.          fprintf(outf, "%c", *s);
  174.         }
  175.         s++; ls--;
  176.      }
  177.      if (data.FCode()>=LM_TC_RM && data.FCode()<=LM_TC_TEXTRM)
  178.        fprintf(outf, "}");     
  179.       } else     
  180.       if (MathIsInset(cx)) {
  181.      LyxMathInset *p = data.GetInset();
  182.      if (cx==LM_TC_UP)
  183.        fprintf(outf, "^{");
  184.      if (cx==LM_TC_DOWN)
  185.        fprintf(outf, "_{");
  186.      p->Write(outf);
  187.      if (cx==LM_TC_UP || cx==LM_TC_DOWN)
  188.        fprintf(outf, "}");
  189.      data.Next();
  190.       } else
  191.           switch(cx) {
  192.      case LM_TC_TAB:
  193.         {
  194.            fprintf(outf, " & ");
  195.            data.Next();
  196.            break;
  197.         }
  198.      case LM_TC_CR:
  199.         { 
  200.            fprintf(outf, "\\\\\n");
  201.            number_of_newlines++;
  202.            data.Next();
  203.            break;
  204.         }
  205.      default:
  206.        fprintf(stderr, "WMath Error: unrecognized code[%d]", cx);
  207.        return;
  208.     }     
  209.    }
  210.    while (brace>0) {
  211.       fprintf(outf, "}");
  212.       brace--;
  213.    }
  214. }
  215.  
  216. void MathMatrixInset::Write(FILE *outf)
  217. {
  218.    rowst *r = row;
  219.    //char s[80]; // unused
  220.  
  221.    if (GetType() == LM_OT_MATRIX){
  222.      fprintf(outf, "\\begin{%s}{%s}\n", name, h_align);
  223.      number_of_newlines++;
  224.    }
  225.    while (r) {
  226.       array = r->array;
  227.       if (r->label) 
  228.      fprintf(outf,"\\label{%s} ", r->label);
  229.       MathParInset::Write(outf);
  230.       if (!r->numbered) 
  231.     fprintf(outf,"\\nonumber ");
  232.       if (r->next) {
  233.     fprintf(outf,"\\\\\n");
  234.     number_of_newlines++;
  235.       }
  236.       r = r->next;      
  237.    }
  238.    if (GetType() == LM_OT_MATRIX){
  239.      fprintf(outf, "\n\\end{%s}\n", name);  
  240.      number_of_newlines+=2;
  241.    }
  242. }
  243.  
  244. void mathed_write(MathParInset* p,  FILE* outf, int* newlines,  char fragile, const char* label)
  245. {  
  246.    number_of_newlines = 0;
  247.    short mathed_env = p->GetType();
  248.  
  249.    if (mathed_env==LM_EN_INTEXT) {
  250.      if (fragile) fprintf(outf, "\\protect");
  251.      fprintf(outf,"\\( "); // changed from " \\( " (Albrecht Dress)
  252.    }
  253.    else if (mathed_env==LM_EN_DISPLAY){
  254.      fprintf(outf,"\n\\[\n");
  255.      number_of_newlines+=2;
  256.    }
  257.    else {
  258.      fprintf(outf,"\n\\begin{%s}\n", latex_mathenv[mathed_env]);
  259.      number_of_newlines+=2;
  260.    }
  261.    
  262.    if (label && mathed_env==LM_EN_EQUATION){
  263.      fprintf(outf,"\\label{%s}\n", label);
  264.      number_of_newlines++;
  265.    }
  266.  
  267.    p->Write(outf);
  268.    
  269.    if (mathed_env==LM_EN_INTEXT){
  270.      if (fragile) fprintf(outf, "\\protect");
  271.      fprintf(outf," \\)");
  272.    }
  273.    else if (mathed_env==LM_EN_DISPLAY){
  274.      fprintf(outf,"\\]\n");
  275.      number_of_newlines++;
  276.    }
  277.    else {
  278.      fprintf(outf,"\n\\end{%s}\n", latex_mathenv[mathed_env]);
  279.      number_of_newlines+=2;
  280.    }
  281.    fflush(outf);
  282.    *newlines = number_of_newlines;
  283. }
  284.