[BACK]Return to HTML.S CVS log [TXT] [DIR] Up to [Public] / Amaya / amaya

Diff for /Amaya/amaya/HTML.S between versions 1.58 and 1.59

version 1.58, 1998/07/02 16:32:50 version 1.59, 1998/07/03 15:12:27
Line 4  STRUCTURE HTML; Line 4  STRUCTURE HTML;
 DEFPRES HTMLP;  DEFPRES HTMLP;
   
 ATTR  ATTR
    ID = TEXT;                          { coreattrs }
    Class = text;     ID = TEXT;                   { id }
    PseudoClass = text;     Class = TEXT;                { class }
    Style\240 = TEXT;     PseudoClass = TEXT;
      Style\240 = TEXT;            { style }
      Title = TEXT;                { title }
                           { i18n }
      dir = ltr, rtl;              { dir }
                           { events }
      onclick = TEXT;              { onclick }
      ondblclick = TEXT;           { ondblclick }
      onmousedown = TEXT;          { onmousedown }
      onmouseup = TEXT;            { onmouseup }
      onmouseover = TEXT;          { onmouseover }
      onmousemove = TEXT;          { onmousemove }
      onmouseout = TEXT;           { onmouseout }
      onkeypress = TEXT;           { onkeypress }
      onkeydown = TEXT;            { onkeydown }
      onkeyup = TEXT;              { onkeyup }
   
    Invalid_attribute = TEXT;     Invalid_attribute = TEXT;
    Ghost_restruct = TEXT;     Ghost_restruct = TEXT;
   
 CONST  CONST
   
    C_Empty = ' ';     C_Empty = ' ';
    C_Foot = ' ';     C_Foot = ' ';
    C_Head = ' ';     C_Head = ' ';
    C_BR   = '\212';     C_BR   = '\212';
   
 STRUCT  STRUCT
   HTML (ATTR SectionNumbering = Yes_; ShowAreas = Yes_) =  
     HTML (ATTR SectionNumbering = Yes_; ShowAreas = Yes_) =       { HTML }
         BEGIN          BEGIN
         HEAD;          HEAD;
         BODY;          BODY;
         END + (Invalid_element, Comment\240);          END + (Invalid_element, Comment\240);
   
   BODY (ATTR background_ = Text; BackgroundColor = Text; TextColor = Text;    BODY                                                          { BODY }
         LinkColor = Text; VisitedLinkColor = Text; ActiveLinkColor = Text)          (ATTR background_ = Text; BackgroundColor = Text; TextColor = Text;
              { background          bgcolor                 text }
                LinkColor = Text; VisitedLinkColor = Text; ActiveLinkColor = Text)
              { link              vlink                    alink }
         = LIST OF (Element);          = LIST OF (Element);
   
   Invalid_element (ATTR Error_type = UnknownTag, BadPosition) = TEXT;    Invalid_element (ATTR Error_type = UnknownTag, BadPosition) = TEXT;
   Comment\240 = LIST OF (Comment_line = TEXT);    Comment\240 = LIST OF (Comment_line = TEXT);
   
   HEAD = AGGREGATE    HEAD = AGGREGATE                                              { HEAD }
           Document_URL = TEXT;            Document_URL = TEXT;
           TITLE = TEXT;            TITLE = TEXT;                                         { TITLE }
         ? ISINDEX (ATTR Prompt = TEXT) = CONSTANT C_Empty;          ? ISINDEX (ATTR Prompt = TEXT) = CONSTANT C_Empty;      { ISINDEX }
         ? BASE;                        { prompt }
         ? Styles (ATTR Notation = TEXT) = TEXT;          ? BASE;                                                 { BASE }
         ? Scripts = LIST OF (SCRIPT = TEXT);          ? Styles                                                { STYLE }
                   (ATTR Notation = TEXT) = TEXT;
                       { type }
           ? Scripts = LIST OF (SCRIPT);
         ? Metas = LIST OF (META);          ? Metas = LIST OF (META);
         ? Links = LIST OF (LINK);          ? Links = LIST OF (LINK);
         END;          END;
   META (ATTR http_equiv = Text; !meta_name = Text; !meta_content = Text)  
     SCRIPT = TEXT;                                                { SCRIPT }
   
     META                                                          { META }
           (ATTR http_equiv = Text; !meta_name = Text; !meta_content = Text)
               { http-equic          name               content }
          = CONSTANT C_Empty;           = CONSTANT C_Empty;
   LINK (ATTR HREF_ = Text;  
 #ifdef COUGAR    LINK (ATTR HREF_ = Text;                                      { LINK }
              { href }
              Link_type = TEXT;               Link_type = TEXT;
 #endif             { type }
              REL = Text; REV = Text; Title = Text)               REL = Text; REV = Text)
              { rel         rev }
          = CONSTANT C_Empty;           = CONSTANT C_Empty;
   
   BASE (ATTR !HREF_) = CONSTANT C_Empty;    BASE (ATTR !HREF_) = CONSTANT C_Empty;                        { BASE }
               { href }
   
   Element = CASE OF    Element = CASE OF                                             { block }
         Paragraph;          Paragraph;                                              { P }
         Pseudo_paragraph;          Pseudo_paragraph;
         Heading;          Heading;                                                { heading }
         List_;          List_;                                                  { list + DL }
         Horizontal_Rule (ATTR Align = left_, center_, right_;          Preformatted;                                           { PRE preformatted }
           Division;                                               { DIV }
           Center;                                                 { CENTER }
           Block_Quote (ATTR cite = TEXT) =                        { BLOCKQUOTE }
                   LIST OF (Element);
           Form;                                                   { FORM }
           ISINDEX;                                                { ISINDEX }
           Horizontal_Rule (ATTR Align = left_, center_, right_;   { HR }
                               { align   left   center   right }
                         NoShade = NoShade_; Size_ = Integer;                          NoShade = NoShade_; Size_ = Integer;
                         Width__ = Text; IntWidthPercent = Integer;                        { noshade             size }
                           Width__ = Text;
                         { width }
                           IntWidthPercent = Integer;
                         IntWidthPxl = Integer) =                          IntWidthPxl = Integer) =
                 CONSTANT C_Empty;                  CONSTANT C_Empty;
         Block_Quote = LIST OF (Element);          Table;                                                  { TABLE }
         Preformatted;          Address = LIST OF (AddressContent);                     { ADDRESS }
         Address = LIST OF (AddressContent);          Applet;                                                 { APPLET }
         Division;          PICTURE                                                 { IMG }
         Center;                  (ATTR Alignment = Top_, Middle_, Bottom_, Left_, Right_;
         Applet;                  {     align       top   middle   bottom   left   right }
         PICTURE (ATTR Alignment = Top_, Middle_, Bottom_, Left_, Right_;                    Height_ = Integer; Width__; IntWidthPercent; IntWidthPxl;
                  Height_ = Integer; Width__; IntWidthPercent; IntWidthPxl;                  { height             width }
                  hspace = Integer; vspace = Integer; Img_border = Integer;                    hspace = Integer; vspace = Integer; Img_border = Integer;
                  ISMAP = Yes_; USEMAP = Text; SRC = Text; ALT = Text);                  { hspace            vspace            border }
 #ifdef COUGAR                    ISMAP = Yes_; USEMAP = Text; SRC = Text; ALT = Text);
         Object;                  { ismap        usemap         src         alt }
 #endif          Object;                                                 { OBJECT }
 #ifdef MATHML  #ifdef MATHML
         MathDisp (ATTR mode = display, inline_math) = MathML;          MathDisp (ATTR mode = display, inline_math) = MathML;
 #endif  #endif
Line 85  STRUCT Line 128  STRUCT
          = GraphML           = GraphML
            with Height_ ?= 200, Width__ ?= '100%', IntWidthPercent ?= 100;             with Height_ ?= 200, Width__ ?= '100%', IntWidthPercent ?= 100;
 #endif  #endif
         Form;          MAP;                                                    { MAP }
         Table;  
         MAP;  
         ISINDEX;  
         END;          END;
   
 #ifdef GRAPHML  #ifdef GRAPHML
Line 97  STRUCT Line 137  STRUCT
   
   AddressContent = CASE OF    AddressContent = CASE OF
         Basic_Elem;          Basic_Elem;
         Paragraph;          Paragraph;              { P }
         Pseudo_paragraph;          Pseudo_paragraph;
         END;          END;
   
   Basic_Set = LIST OF (Basic_Elem);    Basic_Set = LIST OF (Basic_Elem);
   
   Heading = CASE OF    Paragraph                                                     { P }
         H1 (ATTR Align) = Basic_Set;          (ATTR TextAlign = left_, center_, right_, justify_) = Basic_Set;
         H2 (ATTR Align) = Basic_Set;              { align       left   center   right   justify }
         H3 (ATTR Align) = Basic_Set;    Pseudo_paragraph = Basic_Set;
         H4 (ATTR Align) = Basic_Set;  
         H5 (ATTR Align) = Basic_Set;    Heading = CASE OF                                             { heading }
         H6 (ATTR Align) = Basic_Set;          H1 (ATTR TextAlign) = Basic_Set;                        { H1 }
                  { align }
           H2 (ATTR TextAlign) = Basic_Set;                        { H2 }
           H3 (ATTR TextAlign) = Basic_Set;                        { H3 }
           H4 (ATTR TextAlign) = Basic_Set;                        { H4 }
           H5 (ATTR TextAlign) = Basic_Set;                        { H5 }
           H6 (ATTR TextAlign) = Basic_Set;                        { H6 }
         END;          END;
   
   Paragraph (ATTR Align) = Basic_Set;    Preformatted (ATTR Width__; IntWidthPercent; IntWidthPxl)     { PRE }
   Pseudo_paragraph = Basic_Set;                     { width }
   Preformatted (ATTR Width__; IntWidthPercent; IntWidthPxl)  
                 = Basic_Set                  = Basic_Set
              - (PICTURE, Big_text, Small_text, Subscript, Superscript, Font_);               - (PICTURE, Object, Applet,
                   Big_text, Small_text, Subscript, Superscript,
   Anchor (ATTR HREF_; NAME = Text; REL; REV; Title;                  Font_, BaseFont);
   
     { A }
     Anchor (ATTR HREF_; NAME = Text; REL; REV;
                { href   name         rel  rev }
                InternalLink = Reference(Any); ExternalLink = Yes_)                 InternalLink = Reference(Any); ExternalLink = Yes_)
         = Basic_Set;          = Basic_Set;
   
   Basic_Elem = CASE OF    Basic_Elem = CASE OF                          { special }
         TEXT;          TEXT;
         PICTURE;  
         Anchor;  
         Font;          Font;
         Phrase;          Phrase;
         Font_;          Anchor;                                 { A }
         BaseFont;          PICTURE;                                { IMG }
         Applet;          Applet;                                 { APPLET }
 #ifdef COUGAR          Object;                                 { OBJECT }
         Object;          Font_;                                  { FONT }
 #endif          BaseFont;                               { BASEFONT }
           BR (ATTR Clear = Left_, Right_, All_, None) = CONSTANT C_BR;    { BR }
                  { clear   left   right   all   none }
           SCRIPT;                                 { SCRIPT }
           MAP;                                    { MAP }
           Quotation (ATTR cite) = Basic_Set;      { Q }
           Subscript = Basic_Set;                  { SUB }
           Superscript = Basic_Set;                { SUP }
           Span = Basic_Set;                       { SPAN }
           BDO = Basic_Set;                        { BDO }
           IFRAME;                                 { IFRAME }
 #ifdef MATHML  #ifdef MATHML
         Math (ATTR mode) = MathML;          Math (ATTR mode) = MathML;
 #endif  #endif
         SCRIPT;          END;
         MAP;  
         BR (ATTR Clear = Left_, Right_, All_, None) = CONSTANT C_BR;    BaseFont (ATTR BaseFontSize = Integer) = CONSTANT C_Empty;    { BASEFONT }
         Span = Basic_Set;                  { size }
         END;  
     Font = CASE OF                        { fontstyle }
   BaseFont (ATTR BaseFontSize = Integer) = CONSTANT C_Empty;          Italic_text = Basic_Set;        { I }
           Bold_text = Basic_Set;          { B }
   Font = CASE OF          Teletype_text = Basic_Set;      { TT }
         Italic_text = Basic_Set;          Underlined_text = Basic_Set;    { U }
         Bold_text = Basic_Set;          Struck_text = Basic_Set;        { STRIKE }
         Teletype_text = Basic_Set;          Big_text = Basic_Set;           { BIG }
         Underlined_text = Basic_Set;          Small_text = Basic_Set;         { SMALL }
         Struck_text = Basic_Set;          END;
         Big_text = Basic_Set;  
         Small_text = Basic_Set;    Phrase = CASE OF                      { phrase }
         Subscript = Basic_Set;          Emphasis = Basic_Set;           { EM }
         Superscript = Basic_Set;          Strong = Basic_Set;             { STRONG }
         END;          Def = Basic_Set;                { DFN }
           Code = Basic_Set;               { CODE }
   Phrase = CASE OF          Sample = Basic_Set;             { SAMP }
         Emphasis = Basic_Set;          Keyboard = Basic_Set;           { KBD }
         Strong = Basic_Set;          Variable = Basic_Set;           { VAR }
         Def = Basic_Set;          Cite = Basic_Set;               { CITE }
         Code = Basic_Set;          END;
         Sample = Basic_Set;  
         Keyboard = Basic_Set;    Font_ (ATTR Font_size = Text; color = Text;                   { FONT }
         Variable = Basic_Set;              { size              color }
         Cite = Basic_Set;                IntSizeIncr = Integer; IntSizeDecr = Integer;
         END;                IntSizeRel = Integer) = Basic_Set;
   
   Font_ (ATTR Font_size = Text; IntSizeIncr = Integer; IntSizeDecr = Integer;    Applet (ATTR codebase = TEXT; !code = TEXT;                   { APPLET }
               IntSizeRel = Integer; color = Text) = Basic_Set;               { codebase          code }
                  alt = TEXT; applet_name = TEXT;
   Applet (ATTR codebase = TEXT; !code = TEXT; applet_name = TEXT;               { alt         name }
                alt = TEXT; Alignment; Height_; Width__; IntWidthPercent;                 Width__; Height_;
                IntWidthPxl; hspace; vspace) =               { width    height }
                  IntWidthPercent; IntWidthPxl;
                  Alignment; hspace; vspace) =
                { align      hspace  vspace }
         LIST OF (Applet_Content = CASE OF          LIST OF (Applet_Content = CASE OF
                                   Parameter;                                    Parameter;                    { PARAM }
                                   Basic_Set;                                    Basic_Set;
                                   END);                                    END);
   Parameter (ATTR Param_name = TEXT; Param_value = TEXT) =  CONSTANT C_Empty;    Parameter (ATTR Param_name = TEXT; Param_value = TEXT) =      { PARAM }
                   { name               value }
 #ifdef COUGAR          CONSTANT C_Empty;
   Object (ATTR classid = TEXT; codebase; data = TEXT; Object_type = TEXT;  
     Object                                                        { OBJECT }
           (ATTR classid = TEXT; codebase; data = TEXT; Object_type = TEXT;
               { classid         codebase  data         type }
           codetype = TEXT; Alignment; !Height_; !Width__; IntWidthPercent;            codetype = TEXT; Alignment; !Height_; !Width__; IntWidthPercent;
           { codetype         align       height    width }
           IntWidthPxl; hspace; vspace;            IntWidthPxl; hspace; vspace;
           {              hspace  vspace }
           Img_border; USEMAP; ALT) =            Img_border; USEMAP; ALT) =
           { border      usemap  alt }
         BEGIN          BEGIN
         PICTURE;          PICTURE;
         Object_Content = LIST OF (CASE OF Element; Parameter; END);          Object_Content = LIST OF (CASE OF Element; Parameter; END);
                                                    { PARAM }
         END with Height_ ?= 400, Width__ ?= '400', IntWidthPxl ?= 400;          END with Height_ ?= 400, Width__ ?= '400', IntWidthPxl ?= 400;
 #endif  
   
   Block = CASE OF    Block = CASE OF                                               { block }
         Paragraph;          Paragraph;                                              { P }
         Pseudo_paragraph;          Pseudo_paragraph;
         List_;          Heading;                                                { heading }
         Block_Quote;          List_;                                                  { list + DL }
         Preformatted;          Block_Quote;                                            { BLOCKQUOTE }
         Division;          Preformatted;                                           { PRE }
         Center = LIST OF (Element);          Division;                                               { DIV }
           Center = LIST OF (Element);                             { CENTER }
         Form;          Form;
         END;          END;
   
   Division (ATTR Align) = LIST OF (Element);    Division (ATTR TextAlign) = LIST OF (Element);                { DIV }
   
   List_ = CASE OF    List_ = CASE OF                                               { list }
         Unnumbered_List (ATTR BulletStyle = disc, circle, square;          Unnumbered_List                                         { UL }
                               COMPACT = Yes_) =                  (ATTR BulletStyle = disc, circle, square;
                       { type          disc  circle  square }
                         COMPACT = Yes_) =
                       { compact }
                         LIST OF (List_Item);                          LIST OF (List_Item);
         Numbered_List  (ATTR NumberStyle = Arabic_, LowerAlpha, UpperAlpha,          Numbered_List                                           { OL }
                             LowerRoman, UpperRoman; Start = Integer; COMPACT) =                  (ATTR NumberStyle = Arabic_, LowerAlpha, UpperAlpha,
                       { type          1        a           A }
                                       LowerRoman, UpperRoman;
                                     { i           I }
                         Start = Integer; COMPACT) =
                       { start            compact }
                         LIST OF (List_Item) with Start ?= 1;                          LIST OF (List_Item) with Start ?= 1;
         Directory (ATTR COMPACT) =          Directory (ATTR COMPACT) =                              { DIR }
                         LIST OF (List_Item);                          LIST OF (List_Item);
         Menu (ATTR COMPACT) =          Menu (ATTR COMPACT) =                                   { MENU }
                         LIST OF (List_Item);                          LIST OF (List_Item);
         Definition_List = LIST OF (Definition_Item);          Definition_List (ATTR COMPACT) =                        { DL }
                           LIST OF (Definition_Item);
         END;          END;
   
   List_Item (ATTR ItemStyle = disc, circle, square, Arabic_, LowerAlpha,    List_Item (ATTR ItemStyle = disc, circle, square,             { LI }
                   UpperAlpha, LowerRoman, UpperRoman;                  { type        disc  circle  square }
                   IntItemStyle = disc, circle, square, Arabic_, LowerAlpha,                    Arabic_, LowerAlpha, UpperAlpha, LowerRoman, UpperRoman;
                   UpperAlpha, LowerRoman, UpperRoman;                  { 1        a           A           i           I }
                     IntItemStyle = disc, circle, square,
                     Arabic_, LowerAlpha, UpperAlpha, LowerRoman, UpperRoman;
                   ItemValue = Integer) =                    ItemValue = Integer) =
                   { value }
         LIST OF (Block);          LIST OF (Block);
   
   Definition_Item (ATTR COMPACT) = BEGIN    Definition_Item = BEGIN
         Term_List = LIST OF (Term = Basic_Set);          Term_List = LIST OF (Term = Basic_Set);                 { DT }
         ? Definition = LIST OF (Block);          ? Definition = LIST OF (Block);                         { DD }
         END;          END;
   
   Form (ATTR !Script_URL = Text; METHOD = Get_, Post_; ENCTYPE = Text) =    Form (ATTR !Script_URL = Text; METHOD = Get_, Post_;          { FORM }
               { action             method }
                ENCTYPE = Text) =
              { enctype }
         LIST OF (Form_Element) + (Input) with METHOD ?= Get_;          LIST OF (Form_Element) + (Input) with METHOD ?= Get_;
   
   Form_Element = CASE OF    Form_Element = CASE OF
         Paragraph;          Paragraph;                                              { P }
         Pseudo_paragraph;          Pseudo_paragraph;
         Option_Menu;          Option_Menu;                                            { SELECT }
         Text_Area (ATTR !NAME; Rows = Integer; Columns = Integer;          Text_Area                                               { TEXTAREA }
                         Default_Value = Text) =                  (ATTR !NAME; Rows = Integer; Columns = Integer;
                        { name  rows            cols }
                          Default_Value = Text) =
                 Text_With_Frame with Rows ?= 4, Columns ?= 20;                  Text_With_Frame with Rows ?= 4, Columns ?= 20;
         Heading;          Heading;                                                { heading }
         List_;          List_;                                                  { list + DL }
         Horizontal_Rule;          Horizontal_Rule;                                        { HR }
         Block_Quote;          Block_Quote;                                            { BLOCKQUOTE }
         Preformatted;          Preformatted;                                           { PRE }
         Division;          Division;                                               { DIV }
         Table;          Table;                                                  { TABLE }
         Center;          Center;                                                 { CENTER }
         ISINDEX;          ISINDEX;                                                { ISINDEX }
         END;          END;
   
   Option_Menu (ATTR !NAME; Multiple = Yes_; MenuSize = Integer) =    Option_Menu (ATTR !NAME; Multiple = Yes_; MenuSize = Integer) =    { SELECT }
                      { name  multiple         size }
         LIST OF (Option) - (Input);          LIST OF (Option) - (Input);
   Option (ATTR Selected = Yes_; DefaultSelected = Yes_; !Value_ = Text) =    Option                                                             { OPTION }
           (ATTR Selected = Yes_; DefaultSelected = Yes_; !Value_ = Text) =
               { selected                                  value }
         TEXT;          TEXT;
   
   Input = CASE OF    Input = CASE OF                                       { INPUT / InputType }
         Checkbox_Input (ATTR !NAME;           Checkbox_Input                                  { INPUT / CHECKBOX }
                              Checked = Yes_, No_; DefaultChecked = Yes_, No_;                  (ATTR !NAME; { name }
                              Value_) =                        Checked = Yes_, No_; DefaultChecked = Yes_, No_;
                       { checked }
                         Value_ { value } ) =
                 CONSTANT C_Empty with Checked ?= No_;                  CONSTANT C_Empty with Checked ?= No_;
         Radio_Input (ATTR !NAME; Checked; DefaultChecked; !Value_) =          Radio_Input                                     { INPUT / RADIO }
                   (ATTR !NAME; Checked; DefaultChecked; !Value_) =
                        { name  checked                   value }
                 CONSTANT C_Empty with Checked ?= No_, NAME ?= 'radio';                  CONSTANT C_Empty with Checked ?= No_, NAME ?= 'radio';
         Text_Input (ATTR !NAME; Area_Size = Integer; MaxLength = Integer; Value_) =          Text_Input                                      { INPUT / TEXT }
                   (ATTR !NAME; Area_Size = Integer;
                        { name  size }
                         MaxLength = Integer; Value_) =
                        { maxlength           value }
                 Text_With_Frame with Area_Size ?= 20;                  Text_With_Frame with Area_Size ?= 20;
         Hidden_Input (ATTR !NAME; Value_) = CONSTANT C_Empty;          Hidden_Input                                    { INPUT / HIDDEN }
         Password_Input (ATTR !NAME; Area_Size; MaxLength) = Text_With_Frame;                  (ATTR !NAME; Value_) = CONSTANT C_Empty;
         File_Input (ATTR !NAME) = CONSTANT C_Empty;          Password_Input                                  { INPUT / PASSWORD }
         Reset_Input (ATTR NAME; Value_) = BEGIN                  (ATTR !NAME; Area_Size; MaxLength) = Text_With_Frame;
           File_Input                                      { INPUT / FILE }
                   (ATTR !NAME) = CONSTANT C_Empty;
           Reset_Input (ATTR NAME; Value_) = BEGIN         { INPUT / RESET }
                 Frame;                  Frame;
                 END with NAME ?= 'Reset', Value_ ?= 'Reset';                  END with NAME ?= 'Reset', Value_ ?= 'Reset';
         Submit_Input (ATTR NAME; Value_) = BEGIN          Submit_Input (ATTR NAME; Value_) = BEGIN        { INPUT / SUBMIT }
                 Frame;                  Frame;
                 END with Value_ ?= 'Submit';                  END with Value_ ?= 'Submit';
         Option_Menu;          Option_Menu;                                    { SELECT }
         Text_Area;          Text_Area;                                      { TEXTAREA }
         END;          END;
   
   Text_With_Frame = BEGIN    Text_With_Frame = BEGIN
Line 283  STRUCT Line 381  STRUCT
         Frame = CONSTANT C_Empty;          Frame = CONSTANT C_Empty;
         END;          END;
   
   Table (ATTR Border = Integer;    Table (ATTR Border = Integer;                                 { TABLE }
               Align;              { border }
                 Align; BackgroundColor;
               { align  bgcolor }
               Width__; IntWidthPxl; IntWidthPercent;                Width__; IntWidthPxl; IntWidthPercent;
               { width }
               cellspacing = Integer; cellpadding = Integer) =                cellspacing = Integer; cellpadding = Integer) =
               { cellspacing            cellpadding }
         BEGIN          BEGIN
         CAPTION (ATTR Position = Position_top, Position_bottom) = Basic_Set;          CAPTION                                                 { CAPTION }
                 (ATTR Position = Position_top, Position_bottom) =
                     { align      top           bottom }
                   Basic_Set;
         Table_head = LIST OF (Column_head);          Table_head = LIST OF (Column_head);
         ? thead = LIST OF (Table_row);          ? thead = LIST OF (Table_row);                          { THEAD }
         Table_body = LIST OF (tbody = LIST OF (Table_row));          Table_body = LIST OF (
         ? tfoot = LIST OF (Table_row);                  tbody = LIST OF (Table_row));                   { TBODY }
           ? tfoot = LIST OF (Table_row);                          { TFOOT }
         Table_foot = CONSTANT C_Foot;          Table_foot = CONSTANT C_Foot;
         END;          END;
   Column_head (ATTR IntWidthPercent; IntWidthPxl) =    Column_head (ATTR IntWidthPercent; IntWidthPxl) =
         CONSTANT C_Head;          CONSTANT C_Head;
   Table_row (ATTR Row_align = Row_left, Row_center, Row_right;    Table_row                                                     { TR }
                   Row_valign = Row_top, Row_middle, Row_bottom, Row_baseline;          (ATTR Row_align = Row_left, Row_center, Row_right;
                   height\240 = Integer) =              { align       left      center      right }
                 Row_valign = Row_top, Row_middle, Row_bottom, Row_baseline;
               { valign       top      middle      bottom      baseline }
                 BackgroundColor) =
               { bgcolor }
         LIST OF (Table_cell);          LIST OF (Table_cell);
   Table_cell = CASE OF    Table_cell = CASE OF
         Data_cell(ATTR Ref_column = REFERENCE(Column_head);          Data_cell(ATTR Ref_column = REFERENCE(Column_head);     { TD }
                  ColExt = REFERENCE(Column_head);                   ColExt = REFERENCE(Column_head);
                  RowExt = REFERENCE(Table_row);                   RowExt = REFERENCE(Table_row);
                  colspan_ = INTEGER;                   colspan_ = INTEGER;
                   { colspan }
                  rowspan_ = INTEGER;                   rowspan_ = INTEGER;
                   { rowspan }
                  Cell_align = Cell_left, Cell_center, Cell_right;                   Cell_align = Cell_left, Cell_center, Cell_right;
                   { align       left       center       right }
                  Cell_valign = Cell_top, Cell_middle, Cell_bottom;                   Cell_valign = Cell_top, Cell_middle, Cell_bottom;
                   { valign       top       middle       bottom }
                    BackgroundColor;
                   { bgcolor }
                  Width__; IntWidthPxl; IntWidthPercent;                   Width__; IntWidthPxl; IntWidthPercent;
                   { width }
                  Height_;                   Height_;
                   { height }
                  No_wrap = no_wrap) = LIST OF (Element);                   No_wrap = no_wrap) = LIST OF (Element);
         Heading_cell(ATTR Ref_column; ColExt; RowExt; colspan_; rowspan_;                  { nowrap }
                  Cell_align; Cell_valign; Width__; IntWidthPxl; IntWidthPercent;          Heading_cell                                            { TH }
                   (ATTR Ref_column; ColExt; RowExt;
                    colspan_; rowspan_;
                    Cell_align; Cell_valign; BackgroundColor;
                    Width__; IntWidthPxl; IntWidthPercent;
                  Height_; No_wrap) = LIST OF (Element);                   Height_; No_wrap) = LIST OF (Element);
         END;          END;
   
   MAP (ATTR NAME; Ref_IMG = REFERENCE(Any)) = LIST OF (AREA);    MAP (ATTR NAME; Ref_IMG = REFERENCE(Any)) = LIST OF (AREA);   { MAP }
   AREA (ATTR shape = rectangle, circle, polygon, default_;            { name }
     AREA (ATTR shape = rectangle, circle, polygon, default_;      { AREA }
              { shape   rect       cirecle poly     default }
         coords = Text; HREF_; nohref = Yes_; ALT;          coords = Text; HREF_; nohref = Yes_; ALT;
           { coords       href   nohref         alt }
         x_coord = Integer; y_coord = Integer; IntWidthPxl;          x_coord = Integer; y_coord = Integer; IntWidthPxl;
         height\240; AreaRef_IMG = REFERENCE(Any)) = GRAPHICS          height\240 = Integer; AreaRef_IMG = REFERENCE(Any)) = GRAPHICS
         with x_coord ?= 0, y_coord ?= 0, IntWidthPxl ?= 25, height\240 ?= 10;          with x_coord ?= 0, y_coord ?= 0, IntWidthPxl ?= 25, height\240 ?= 10;
   
     FRAMESET =                                                    { FRAMESET }
           AGGREGATE
           LIST OF (FrameElem);
           NOFRAMES = LIST OF (Element);                           { NOFRAMES }
           END;
   
     FRAME = CONSTANT C_Empty;                                     { FRAME }
   
     FrameElem = CASE OF
           FRAMESET;
           FRAME;
           END;
   
     IFRAME = LIST OF (Element);                                   { IFRAME }
   
 EXCEPT  EXCEPT
         HTML:           NoMove, NoResize;          HTML:           NoMove, NoResize;
         BODY:           NoCut;          BODY:           NoCut;
Line 363  EXCEPT Line 503  EXCEPT
         XMLGraphics:    MoveResize, NoMove;          XMLGraphics:    MoveResize, NoMove;
 #endif  #endif
   
 #ifndef COUGAR  
         Langue:         Invisible;  
 #endif  
         ExternalLink:   Invisible;          ExternalLink:   Invisible;
         InternalLink:   Invisible;          InternalLink:   Invisible;
         IntWidthPercent:NewPercentWidth, Invisible;          IntWidthPercent:NewPercentWidth, Invisible;
Line 403  EXCEPT Line 540  EXCEPT
         Ref_column:     ColRef, Invisible;          Ref_column:     ColRef, Invisible;
         colspan_:       ColSpan;          colspan_:       ColSpan;
         rowspan_:       RowSpan;          rowspan_:       RowSpan;
 #ifdef COUGAR  
         Object_Content: Hidden, NoCreate, NoCut, NoSelect;          Object_Content: Hidden, NoCreate, NoCut, NoSelect;
 #endif  
         Ghost_restruct: Invisible;          Ghost_restruct: Invisible;
 END  END
Removed from v.1.58  
changed lines
  Added in v.1.59

Webmaster