Diff for /Amaya/amaya/HTMLT.T between versions 1.52 and 1.53

version 1.52, 1998/07/20 15:34:54 version 1.53, 1998/07/27 17:48:24
Line 1 Line 1
                 { Author: I. Vatton      1994-1995-1996  }                  { Author: I. Vatton      1994-1995-1996  }
   
   { If variable XML is set, the document is saved in the XML syntax.
     Otherwise, it is saved in HTML }
   
 TRANSLATION HTML;  TRANSLATION HTML;
   
 LINELENGTH 78;  LINELENGTH 78;
Line 10  CONST Line 13  CONST
 RULES  RULES
   
  HTML : BEGIN   HTML : BEGIN
   #ifdef XML
           Create '<?xmlversion="1.0" ?>\12';
           Create Namespaces;
   #endif
         Create '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">\12';          Create '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">\12';
         Create '<html';          Create '<html';
         Create Attributes;          Create Attributes;
Line 46  RULES Line 53  RULES
            END;             END;
         Create Attributes;          Create Attributes;
         Remove;          Remove;
   #ifdef XML
           Create ' />\12';
   #else
         Create '>\12';          Create '>\12';
   #endif
         END;          END;
   
  BASE:  BEGIN   BASE:  BEGIN
         Create '<base ';          Create '<base ';
         Create Attributes;          Create Attributes;
         Remove;          Remove;
   #ifdef XML
           Create ' />\12';
   #else
         Create '>\12';          Create '>\12';
   #endif
         END;          END;
   
  STYLE_: BEGIN   STYLE_: BEGIN
Line 81  RULES Line 96  RULES
         Create '<meta';          Create '<meta';
         Remove;          Remove;
         Create Attributes;          Create Attributes;
         Create '>\12' After;  #ifdef XML
           Create ' />\12';
   #else
           Create '>\12';
   #endif
         END;          END;
   
  LINK:  BEGIN   LINK:  BEGIN
         Create '<link';          Create '<link';
         Remove;          Remove;
         Create Attributes;          Create Attributes;
         Create '>\12' After;  #ifdef XML
           Create ' />\12';
   #else
           Create '>\12';
   #endif
         END;          END;
   
  BODY:  BEGIN   BODY:  BEGIN
Line 157  RULES Line 180  RULES
         Create '<basefont';          Create '<basefont';
         Remove;          Remove;
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />\12';
   #else
         Create '>\12';          Create '>\12';
   #endif
         END;          END;
   
  BR:    BEGIN   BR:    BEGIN
         Create '<br';          Create '<br';
           Remove;
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />\12';
   #else
         Create '>\12';          Create '>\12';
         Remove;  #endif
         END;          END;
   
  Italic_text:   Italic_text:
         BEGIN          BEGIN
         Create '<i';          Create '<i';
Line 173  RULES Line 205  RULES
         Create '>';          Create '>';
         Create '</i>' After;          Create '</i>' After;
         END;          END;
   
  Bold_text:   Bold_text:
         BEGIN          BEGIN
         Create '<b';          Create '<b';
Line 319  RULES Line 352  RULES
         Create '<param';          Create '<param';
         Create Attributes;          Create Attributes;
         Remove;          Remove;
   #ifdef XML
           Create ' />\12';
   #else
         Create '>\12';          Create '>\12';
   #endif
         END;          END;
   
  Object: BEGIN   Object: BEGIN
Line 333  RULES Line 370  RULES
         Create '<ins';          Create '<ins';
         Create Attributes;          Create Attributes;
         Create '>';          Create '>';
         Create '</span>' After;          Create '</ins>' After;
         END;          END;
   
  DEL:   BEGIN   DEL:   BEGIN
         Create '<del';          Create '<del';
         Create Attributes;          Create Attributes;
         Create '>';          Create '>';
         Create '</span>' After;          Create '</del>' After;
         END;          END;
   
  Span:  BEGIN   Span:  BEGIN
Line 380  RULES Line 417  RULES
         indent -2 after;          indent -2 after;
         Create '</math>\12' After;                Create '</math>\12' After;      
         END;          END;
  MathDisp: BEGIN  
         Create '<math';  
         Create Attributes;  
         Create '>\12';  
         indent +2;  
         indent -2 after;  
         Create '</math>\12' After;        
         END;  
  MathML:   MathML:
         Use MathMLT;      #ifdef XML
           Use MathMLTX;
   #else   
           Use MathMLT;
   #endif
 #endif  #endif
 #ifdef GRAPHML  #ifdef GRAPHML
  XMLGraphics: BEGIN   XMLGraphics: BEGIN
Line 401  RULES Line 434  RULES
         Create '</xmlgraphics>\12' After;                 Create '</xmlgraphics>\12' After;       
         END;          END;
  GraphML:   GraphML:
         Use GraphMLT;     #ifdef XML
           Use GraphMLTX;
   #else
           Use GraphMLT;
   #endif
 #endif  #endif
   
  Paragraph: BEGIN   Paragraph: BEGIN
Line 484  RULES Line 521  RULES
         Create '<li';          Create '<li';
         Create Attributes;          Create Attributes;
         Create '>';          Create '>';
           Create '</li>\12' After;
         END;          END;
   
  Preformatted: BEGIN   Preformatted: BEGIN
Line 498  RULES Line 536  RULES
         Create '<hr';          Create '<hr';
         Create Attributes;          Create Attributes;
         Remove;          Remove;
         Create '>';  #ifdef XML
           Create ' />\12';
   #else
           Create '>\12';
   #endif
         if not within Preformatted Create '\12';          if not within Preformatted Create '\12';
         END;          END;
   
Line 520  RULES Line 562  RULES
         Create '\12<option';          Create '\12<option';
         Create Attributes;          Create Attributes;
         Create '>';          Create '>';
           Create '</option>' After;
         END;          END;
   
  Text_Area: BEGIN   Text_Area: BEGIN
Line 532  RULES Line 575  RULES
  Checkbox_Input: BEGIN   Checkbox_Input: BEGIN
         Create '<input type=checkbox';          Create '<input type=checkbox';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
  Radio_Input: BEGIN   Radio_Input: BEGIN
         Create '<input type=radio';          Create '<input type=radio';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
  Text_Input: BEGIN   Text_Input: BEGIN
         Create '<input type=text';          Create '<input type=text';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
  Hidden_Input: BEGIN   Hidden_Input: BEGIN
         Create '<input type=hidden';          Create '<input type=hidden';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
  Password_Input: BEGIN   Password_Input: BEGIN
         Create '<input type=password';          Create '<input type=password';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
  File_Input: BEGIN   File_Input: BEGIN
         Create '<input type=file';          Create '<input type=file';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
  Reset_Input: BEGIN   Reset_Input: BEGIN
         Create '\12<input type=reset';          Create '\12<input type=reset';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
  Submit_Input: BEGIN   Submit_Input: BEGIN
         Create '\12<input type=submit';          Create '\12<input type=submit';
         Create Attributes;          Create Attributes;
   #ifdef XML
           Create ' />';
   #else
         Create '>';          Create '>';
   #endif
         Remove;          Remove;
         END;          END;
   
Line 598  RULES Line 673  RULES
         if NOT Immediately within Object BEGIN          if NOT Immediately within Object BEGIN
                 Create '<img';                  Create '<img';
                 Create Attributes;                  Create Attributes;
                 Create '>' After;  #ifdef XML
                   Create ' />\12';
   #else
                   Create '>';
   #endif
                 END;                  END;
         if NOT within Paragraph AND NOT Immediately within Object          if NOT within Paragraph AND NOT Immediately within Object
                 Create '\12' After;                  Create '\12' After;
Line 622  RULES Line 701  RULES
  AREA:   AREA:
         BEGIN          BEGIN
         Create '<area';          Create '<area';
         Create Attributes;  
         Remove;          Remove;
           Create Attributes;
   #ifdef XML
           Create ' />\12';
   #else
         Create '>\12';          Create '>\12';
   #endif
         END;          END;
   
 { ---- Tables ---- }  { ---- Tables ---- }

Removed from v.1.52  
changed lines
  Added in v.1.53


Webmaster