Annotation of Amaya/amaya/HTMLT.T, revision 1.20

1.3       cvs         1:                { Author: I. Vatton      1994-1995-1996  }
1.1       cvs         2: 
                      3: TRANSLATION HTML;
                      4: 
1.3       cvs         5: LINELENGTH 78;
1.1       cvs         6: 
                      7: CONST
1.12      cvs         8:    DoubleQuote  = '"';
1.1       cvs         9:    C_Style = ' style="';
                     10: 
                     11: RULES
                     12: 
                     13:  HTML : BEGIN
1.15      cvs        14:        Create '<!doctype html public "-//w3c//dtd html 3.2 final//en">\12';
1.18      cvs        15:        Create '<html';
                     16:        Create Attributes;
                     17:        Create '>\12';
1.15      cvs        18:        Create '</html>\12' After;
1.1       cvs        19:        END;
                     20: 
                     21:  HEAD: BEGIN
1.18      cvs        22:        Create '<head';
                     23:        Create Attributes;
                     24:        Create '>\12';
1.15      cvs        25:        Create '</head>\12' After;
1.1       cvs        26:        END;
                     27: 
                     28:  Document_URL:
                     29:        BEGIN
                     30:        Remove;
                     31:        END;
                     32: 
                     33:  TITLE:        BEGIN
1.18      cvs        34:        Create '<title';
                     35:        Create Attributes;
                     36:        Create '>\12';
1.15      cvs        37:        Create '</title>\12' After;
1.1       cvs        38:        END;
                     39: 
                     40:  ISINDEX: BEGIN
1.15      cvs        41:        Create '<isindex';
1.1       cvs        42:        IF Prompt
                     43:           BEGIN
                     44:           Create ' prompt="';
                     45:           Create Prompt;
1.12      cvs        46:           Create DoubleQuote;
1.1       cvs        47:           END;
                     48:        Create Attributes;
                     49:        Remove;
                     50:        Create '>\12';
                     51:        END;
                     52: 
                     53:  BASE: BEGIN
1.15      cvs        54:        Create '<base ';
1.1       cvs        55:        Create Attributes;
                     56:        Remove;
                     57:        Create '>\12';
                     58:        END;
                     59: 
                     60:  Styles:BEGIN
1.15      cvs        61:        Create '<style';
1.1       cvs        62:        IF Notation
                     63:           BEGIN
                     64:           Create ' type=';
                     65:           Create Notation;
                     66:           END;
                     67:        Create Attributes;
                     68:        Create '>\12';
1.15      cvs        69:        Create '</style>\12' After;
1.1       cvs        70:        END;
                     71: 
                     72:  StyleRule:
                     73:        BEGIN
                     74:        IF Selector
                     75:           BEGIN
                     76:           Create Selector;
                     77:           Create ' { ';
                     78:           Create ' }\12' After;
                     79:           END;
                     80:        END;
                     81: 
                     82:  SCRIPT: BEGIN
1.15      cvs        83:        Create '<script';
1.1       cvs        84:        Create Attributes;
                     85:        Create '>\12' After;
                     86:        END;
                     87: 
                     88:  META: BEGIN
1.15      cvs        89:        Create '<meta';
1.1       cvs        90:        Remove;
                     91:        Create Attributes;
                     92:        Create '>\12' After;
                     93:        END;
                     94: 
                     95:  LINK: BEGIN
1.15      cvs        96:        Create '<link';
1.1       cvs        97:        Remove;
                     98:        Create Attributes;
                     99:        Create '>\12' After;
                    100:        END;
                    101: 
                    102:  BODY: BEGIN
1.15      cvs       103:        Create '<body';
1.1       cvs       104:        Create Attributes;
                    105:        Create '>\12';
1.15      cvs       106:        Create '</body>\12' After;
1.1       cvs       107:        END;
                    108: 
                    109:  H1:   BEGIN
1.15      cvs       110:        Create '<h1';
1.1       cvs       111:        Create Attributes;
                    112:        Create '>';
1.15      cvs       113:        Create '</h1>' After;
                    114:        if not within Preformatted Create '\12\12' After;
1.1       cvs       115:        END;
                    116: 
                    117:  H2:   BEGIN
1.15      cvs       118:        Create '<h2';
1.1       cvs       119:        Create Attributes;
                    120:        Create '>';
1.15      cvs       121:        Create '</h2>' After;
                    122:        if not within Preformatted Create '\12\12' After;
1.1       cvs       123:        END;
                    124: 
                    125:  H3:   BEGIN
1.15      cvs       126:        Create '<h3';
1.1       cvs       127:        Create Attributes;
                    128:        Create '>';
1.15      cvs       129:        Create '</h3>' After;
                    130:        if not within Preformatted Create '\12\12' After;
1.1       cvs       131:        END;
                    132: 
                    133:  H4:   BEGIN
1.15      cvs       134:        Create '<h4';
1.1       cvs       135:        Create Attributes;
                    136:        Create '>';
1.15      cvs       137:        Create '</h4>' After;
                    138:        if not within Preformatted Create '\12\12' After;
1.1       cvs       139:        END;
                    140: 
                    141:  H5:   BEGIN
1.15      cvs       142:        Create '<h5';
1.1       cvs       143:        Create Attributes;
                    144:        Create '>';
1.15      cvs       145:        Create '</h5>' After;
                    146:        if not within Preformatted Create '\12' After;
1.1       cvs       147:        END;
                    148: 
                    149:  H6:   BEGIN
1.15      cvs       150:        Create '<h6';
1.1       cvs       151:        Create Attributes;
                    152:        Create '>';
1.15      cvs       153:        Create '</h6>' After;
                    154:        if not within Preformatted Create '\12' After;
1.1       cvs       155:        END;
                    156: 
                    157:  BaseFont:
                    158:        BEGIN
1.15      cvs       159:        Create '<basefont';
1.1       cvs       160:        Remove;
                    161:        Create Attributes;
                    162:        Create '>\12';
                    163:        END;
                    164: 
1.6       cvs       165:  BR:   BEGIN
1.15      cvs       166:        Create '<br';
1.6       cvs       167:        Create Attributes;
1.13      cvs       168:        Create '>\12';
1.6       cvs       169:        Remove;
                    170:        END;
1.1       cvs       171:  Italic_text:
                    172:        BEGIN
1.15      cvs       173:        Create '<i';
1.1       cvs       174:        Create Attributes;
                    175:        Create '>';
1.15      cvs       176:        Create '</i>' After;
1.1       cvs       177:        END;
                    178:  Bold_text:
                    179:        BEGIN
1.15      cvs       180:        Create '<b';
1.1       cvs       181:        Create Attributes;
                    182:        Create '>';
1.15      cvs       183:        Create '</b>' After;
1.1       cvs       184:        END;
                    185:  Teletype_text:
                    186:        BEGIN
1.15      cvs       187:        Create '<tt';
1.1       cvs       188:        Create Attributes;
                    189:        Create '>';
1.15      cvs       190:        Create '</tt>' After;
1.1       cvs       191:        END;
1.8       cvs       192:  Underlined_text:
                    193:        BEGIN
1.15      cvs       194:        Create '<u';
1.8       cvs       195:        Create Attributes;
                    196:        Create '>';
1.15      cvs       197:        Create '</u>' After;
1.8       cvs       198:        END;
1.1       cvs       199:  Struck_text:
                    200:        BEGIN
1.15      cvs       201:        Create '<strike';
1.1       cvs       202:        Create Attributes;
                    203:        Create '>';
1.15      cvs       204:        Create '</strike>' After;
1.1       cvs       205:        END;
                    206:  Big_text:
                    207:        BEGIN
1.15      cvs       208:        Create '<big';
1.1       cvs       209:        Create Attributes;
                    210:        Create '>';
1.15      cvs       211:        Create '</big>' After;
1.1       cvs       212:        END;
                    213:  Small_text:
                    214:        BEGIN
1.15      cvs       215:        Create '<small';
1.1       cvs       216:        Create Attributes;
                    217:        Create '>';
1.15      cvs       218:        Create '</small>' After;
1.1       cvs       219:        END;
                    220:  Subscript:
                    221:        BEGIN
1.15      cvs       222:        Create '<sub';
1.1       cvs       223:        Create Attributes;
                    224:        Create '>';
1.15      cvs       225:        Create '</sub>' After;
1.1       cvs       226:        END;
                    227:  Superscript:
                    228:        BEGIN
1.15      cvs       229:        Create '<sup';
1.1       cvs       230:        Create Attributes;
                    231:        Create '>';
1.15      cvs       232:        Create '</sup>' After;
1.1       cvs       233:        END;
                    234: 
                    235:  Emphasis:
                    236:        BEGIN
1.15      cvs       237:        Create '<em';
1.1       cvs       238:        Create Attributes;
                    239:        Create '>';
1.15      cvs       240:        Create '</em>' After;
1.1       cvs       241:        END;
                    242:  Strong:
                    243:        BEGIN
1.15      cvs       244:        Create '<strong';
1.1       cvs       245:        Create Attributes;
                    246:        Create '>';
1.15      cvs       247:        Create '</strong>' After;
1.1       cvs       248:        END;
                    249:  Def:
                    250:        BEGIN
1.15      cvs       251:        Create '<dfn';
1.1       cvs       252:        Create Attributes;
                    253:        Create '>';
1.15      cvs       254:        Create '</dfn>' After;
1.1       cvs       255:        END;
                    256:  Code:
                    257:        BEGIN
1.15      cvs       258:        Create '<code';
1.1       cvs       259:        Create Attributes;
                    260:        Create '>';
1.15      cvs       261:        Create '</code>' After;
1.1       cvs       262:        END;
                    263:  Sample:
                    264:        BEGIN
1.15      cvs       265:        Create '<samp';
1.1       cvs       266:        Create Attributes;
                    267:        Create '>';
1.15      cvs       268:        Create '</samp>' After;
1.1       cvs       269:        END;
                    270:  Keyboard:
                    271:        BEGIN
1.15      cvs       272:        Create '<kbd';
1.1       cvs       273:        Create Attributes;
                    274:        Create '>';
1.15      cvs       275:        Create '</kbd>' After;
1.1       cvs       276:        END;
                    277:  Variable:
                    278:        BEGIN
1.15      cvs       279:        Create '<var';
1.1       cvs       280:        Create Attributes;
                    281:        Create '>';
1.15      cvs       282:        Create '</var>' After;
1.1       cvs       283:        END;
                    284:  Cite:
                    285:        BEGIN
1.15      cvs       286:        Create '<cite';
1.1       cvs       287:        Create Attributes;
                    288:        Create '>';
1.15      cvs       289:        Create '</cite>' After;
1.1       cvs       290:        END;
                    291: 
                    292:  Font_: BEGIN
1.15      cvs       293:        Create '<font';
1.1       cvs       294:        Create Attributes;
                    295:        Create '>';
1.15      cvs       296:        Create '</font>' After;
1.1       cvs       297:        END;
                    298: 
                    299:  Applet: BEGIN
1.15      cvs       300:        Create '<applet';
1.1       cvs       301:        Create Attributes;
                    302:        Create '>\12';
1.15      cvs       303:        Create '</applet>\12' After;    
1.1       cvs       304:        END;
                    305: 
                    306:  Parameter: BEGIN
1.15      cvs       307:        Create '<param';
1.1       cvs       308:        Create Attributes;
                    309:        Remove;
                    310:        Create '>\12';
                    311:        END;
                    312: 
                    313: #ifdef COUGAR
                    314:  Object: BEGIN
1.15      cvs       315:        Create '<object';
1.1       cvs       316:        Create Attributes;
                    317:        Create '>\12';
1.15      cvs       318:        Create '</object>\12' After;    
1.1       cvs       319:        END;
1.20    ! cvs       320: 
        !           321:  Span: BEGIN
        !           322:        Create '<span';
        !           323:        Create Attributes;
        !           324:        Create '>';
        !           325:        Create '</span>' After;
        !           326:        END;
1.1       cvs       327: #endif
                    328:  Paragraph: BEGIN
1.16      cvs       329:        Create '<p';
                    330:        Create Attributes;
                    331:        Create '>\12';
                    332:        Create '</p>' After;
                    333:        Create '\12' After;
                    334:        END;
                    335: 
                    336:  Pseudo_paragraph: BEGIN
                    337:        Create '\12';
1.1       cvs       338:        Create '\12' After;
                    339:        END;
                    340: 
                    341:  TEXT_UNIT: BEGIN
                    342:        IF *Style\240 and not Within HEAD
                    343:            BEGIN
1.15      cvs       344:            Create '<span';
1.1       cvs       345:            Create Attributes;
                    346:            Create '>';
1.15      cvs       347:            Create '</span>' After;
1.1       cvs       348:            END;
                    349:        IF *Class and not Within HEAD
                    350:            BEGIN
1.15      cvs       351:            Create '<span';
1.1       cvs       352:            Create Attributes;
                    353:            Create '>';
1.15      cvs       354:            Create '</span>' After;
1.1       cvs       355:            END;
                    356:        IF Within Text_Area
                    357:                Remove;
                    358:        IF Within Text_Input
                    359:                Remove;
                    360:        END;
                    361: 
                    362:  Definition_List: BEGIN
1.15      cvs       363:        Create '<dl';
1.1       cvs       364:        Create Attributes;
                    365:        Create '>\12';
1.15      cvs       366:        Create '</dl>\12' After;
1.1       cvs       367:        END;
                    368: 
                    369:  Term: BEGIN
1.15      cvs       370:        Create '<dt';
1.1       cvs       371:        Create Attributes;
                    372:        Create '>';
1.15      cvs       373:        Create '</dt>\12' After;
1.1       cvs       374:        END;
                    375: 
                    376:  Definition: BEGIN
1.15      cvs       377:        Create '<dd';
1.1       cvs       378:        Create Attributes;
                    379:        Create '>';
1.15      cvs       380:        Create '</dd>\12' After;
1.1       cvs       381:        END;
                    382: 
                    383:  Unnumbered_List: BEGIN
1.15      cvs       384:        Create '<ul';
1.1       cvs       385:        Create Attributes;
                    386:        Create '>\12';
1.15      cvs       387:        Create '</ul>\12' After;
1.1       cvs       388:        END;
                    389: 
                    390:  Numbered_List:        BEGIN
1.15      cvs       391:        Create '<ol';
1.1       cvs       392:        Create Attributes;
                    393:        Create '>\12';
1.15      cvs       394:        Create '</ol>\12' After;
1.1       cvs       395:        END;
                    396: 
                    397:  Address: BEGIN
1.15      cvs       398:        Create '<address';
1.1       cvs       399:        Create Attributes;
                    400:        Create '>\12';
1.15      cvs       401:        Create '</address>\12' After;
1.1       cvs       402:        END;
                    403: 
                    404:  Menu: BEGIN
1.15      cvs       405:        Create '<menu';
1.1       cvs       406:        Create Attributes;
                    407:        Create '>\12';
1.15      cvs       408:        Create '</menu>\12' After;
1.1       cvs       409:        END;
                    410: 
                    411:  Directory: BEGIN
1.15      cvs       412:        Create '<dir';
1.1       cvs       413:        Create Attributes;
                    414:        Create '>\12';
1.15      cvs       415:        Create '</dir>\12' After;
1.1       cvs       416:        END;
                    417: 
                    418:  List_Item: BEGIN
1.15      cvs       419:        Create '<li';
1.1       cvs       420:        Create Attributes;
                    421:        Create '>';
                    422:        END;
                    423: 
                    424:  Preformatted: BEGIN
                    425:        NoLineBreak;
1.15      cvs       426:        Create '<pre';
1.1       cvs       427:        Create Attributes;
                    428:        Create '>';
1.15      cvs       429:        Create '</pre>\12' After;
1.1       cvs       430:        END;
                    431: 
                    432:  Horizontal_Rule: BEGIN
1.15      cvs       433:        Create '<hr';
1.1       cvs       434:        Create Attributes;
                    435:        Remove;
1.15      cvs       436:        Create '>';
1.17      cvs       437:        if not within Preformatted Create '\12';
1.1       cvs       438:        END;
                    439: 
                    440:  Form: BEGIN
1.15      cvs       441:        Create '<form';
1.1       cvs       442:        Create Attributes;
                    443:        Create '>\12';
1.15      cvs       444:        Create '</form>\12' After;
1.1       cvs       445:        END;
                    446: 
                    447:  Option_Menu: BEGIN
1.15      cvs       448:        Create '\12<select';
1.1       cvs       449:        Create Attributes;
1.5       cvs       450:        Create '>';
1.15      cvs       451:        Create '\12</select>\12' After;
1.1       cvs       452:        END;
                    453: 
                    454:  Option: BEGIN
1.15      cvs       455:        Create '\12<option';
1.5       cvs       456:        Create Attributes;
                    457:        Create '>';
1.1       cvs       458:        END;
                    459: 
                    460:  Toggle_Menu: BEGIN
1.15      cvs       461:        Create '<!--toggle_menu-->\12<pre>\12';
                    462:        Create '</pre>\12' After;
1.1       cvs       463:        END;
                    464: 
                    465:  Toggle_Item: BEGIN
                    466:        Create '\12' After;
                    467:        END;
                    468: 
                    469:  Radio_Menu: BEGIN
1.15      cvs       470:        Create '<!--radio_menu-->\12<pre>\12';
                    471:        Create '</pre>\12' After;
1.1       cvs       472:        END;
                    473: 
                    474:  Radio_Item: BEGIN
                    475:        Create '\12' After;
                    476:        END;
                    477: 
                    478:  Text_Input_Line: BEGIN
1.15      cvs       479:        Create '<!--text_input_line-->\12<p>\12';
                    480:        Create '</p>\12' After;
1.1       cvs       481:        END;
                    482: 
                    483:  Command_Line: BEGIN
1.15      cvs       484:        Create '<!--command_line-->\12<p>\12';
                    485:        Create '</p>\12' After;
1.1       cvs       486:        END;
                    487: 
                    488:  Text_Area: BEGIN
1.15      cvs       489:        Create '<textarea';
1.1       cvs       490:        Create Attributes;
                    491:        Create '>';
1.15      cvs       492:        Create '</textarea>';
1.1       cvs       493:        END;
                    494: 
                    495:  Checkbox_Input: BEGIN
1.15      cvs       496:        Create '<input type=checkbox';
1.1       cvs       497:        Create Attributes;
                    498:        Create '>';
                    499:        Remove;
                    500:        END;
                    501: 
                    502:  Radio_Input: BEGIN
1.15      cvs       503:        Create '<input type=radio';
1.1       cvs       504:        Create Attributes;
                    505:        Create '>';
                    506:        Remove;
                    507:        END;
                    508: 
                    509:  Text_Input: BEGIN
1.15      cvs       510:        Create '<input type=text';
1.1       cvs       511:        Create Attributes;
                    512:        Create '>';
                    513:        Remove;
                    514:        END;
                    515: 
                    516:  Hidden_Input: BEGIN
1.15      cvs       517:        Create '<input type=hidden';
1.1       cvs       518:        Create Attributes;
                    519:        Create '>';
                    520:        Remove;
                    521:        END;
                    522: 
                    523:  Password_Input: BEGIN
1.15      cvs       524:        Create '<input type=password';
1.1       cvs       525:        Create Attributes;
                    526:        Create '>';
                    527:        Remove;
                    528:        END;
                    529: 
                    530:  File_Input: BEGIN
1.15      cvs       531:        Create '<input type=file';
1.1       cvs       532:        Create Attributes;
                    533:        Create '>';
                    534:        Remove;
                    535:        END;
                    536: 
                    537:  Reset_Input: BEGIN
1.15      cvs       538:        Create '\12<input type=reset';
1.1       cvs       539:        Create Attributes;
                    540:        Create '>';
                    541:        Remove;
                    542:        END;
                    543: 
                    544:  Submit_Input: BEGIN
1.15      cvs       545:        Create '\12<input type=submit';
1.1       cvs       546:        Create Attributes;
                    547:        Create '>';
                    548:        Remove;
                    549:        END;
                    550: 
                    551:  Block_Quote: BEGIN
1.15      cvs       552:        Create '<blockquote';
1.1       cvs       553:        Create Attributes;
                    554:        Create '>\12';
1.15      cvs       555:        Create '</blockquote>\12' After;
1.1       cvs       556:        END;
                    557: 
                    558:  PICTURE_UNIT: BEGIN
1.10      cvs       559: #ifdef COUGAR
                    560:        if Immediately within Object
                    561:                Remove;
                    562:        if NOT Immediately within Object BEGIN
1.15      cvs       563:                Create '<img';
1.10      cvs       564:                Create Attributes;
                    565:                Create '>' After;
                    566:                END;
                    567:        if NOT within Paragraph AND NOT Immediately within Object
                    568:                Create '\12' After;
                    569: #else
1.15      cvs       570:        Create '<img';
1.1       cvs       571:        Create Attributes;
                    572:        Create '>' After;
                    573:        if NOT within Paragraph
                    574:                Create '\12' After;
1.10      cvs       575: #endif
1.1       cvs       576:        END;
                    577: 
                    578:  Anchor: BEGIN
1.15      cvs       579:        Create '<a';
1.1       cvs       580:        Create Attributes;
                    581:        Create '>';
1.15      cvs       582:        Create '</a>' After;
1.1       cvs       583:        END;
                    584: 
                    585:  MAP:
                    586:        BEGIN
1.15      cvs       587:        Create '<map';
1.1       cvs       588:        Create Attributes;
                    589:        Create '>\12';
1.15      cvs       590:        Create '</map>\12' after;
1.1       cvs       591:        END;
                    592: 
                    593:  AREA:
                    594:        BEGIN
1.15      cvs       595:        Create '<area';
1.1       cvs       596:        Create Attributes;
                    597:        Remove;
                    598:        Create '>\12';
                    599:        END;
                    600: 
                    601: { ---- Tables ---- }
                    602: 
                    603:  Table:
                    604:        BEGIN
1.15      cvs       605:        Create '\12<table';
1.1       cvs       606:        Create Attributes;
                    607:        Create '>\12';
1.15      cvs       608:        Create '</table>\12' after;
1.1       cvs       609:        END;
                    610: 
                    611:  CAPTION:
                    612:        BEGIN
1.15      cvs       613:        Create '<caption';
1.1       cvs       614:        Create Attributes;
                    615:        Create '>';
1.15      cvs       616:        Create '</caption>\12' after;
1.1       cvs       617:        END;
                    618: 
                    619:  Table_head:
                    620:        Remove;
                    621: 
1.11      cvs       622: #ifdef COUGAR
1.1       cvs       623:  thead:
                    624:        BEGIN
1.15      cvs       625:        Create '<thead';
1.1       cvs       626:        Create Attributes;
                    627:        Create '>\12';
1.15      cvs       628:        Create '</thead>\12' after;
1.1       cvs       629:        END;
                    630: 
                    631:  tfoot:
                    632:        BEGIN
1.15      cvs       633:        Create '<tfoot';
1.1       cvs       634:        Create Attributes;
                    635:        Create '>\12';
1.15      cvs       636:        Create '</tfoot>\12' after;
1.1       cvs       637:        END;
                    638:  tbody:
                    639:        BEGIN
1.15      cvs       640:        Create '<tbody';
1.1       cvs       641:        Create Attributes;
                    642:        Create '>\12';
1.15      cvs       643:        Create '</tbody>\12' after;
1.1       cvs       644:        END;
1.11      cvs       645: #endif
1.1       cvs       646: 
                    647:  Table_body:
                    648:        Get tfoot;
                    649: 
                    650:  Table_row:
                    651:        BEGIN
1.15      cvs       652:        Create '<tr';
1.1       cvs       653:        Create Attributes;
                    654:        Create '>\12';
1.15      cvs       655:        Create '</tr>\12' after;
1.1       cvs       656:        END;
                    657: 
                    658:  Data_cell:
                    659:        BEGIN
1.15      cvs       660:        Create '<td';
1.1       cvs       661:        Create Attributes;
                    662:        Create '>';
                    663:        END;
                    664: 
                    665:  Heading_cell:
                    666:        BEGIN
1.15      cvs       667:        Create '<th';
1.1       cvs       668:        Create Attributes;
                    669:        Create '>';
                    670:        END;
                    671: 
                    672:  Table_foot:
                    673:        BEGIN
                    674:        Remove;
                    675:        END;
                    676: 
                    677:  Division: BEGIN
1.15      cvs       678:        Create '\12<div';
1.1       cvs       679:        Create Attributes;
                    680:        Create '>\12';
1.15      cvs       681:        Create '</div>\12' After;
1.1       cvs       682:        END;
                    683: 
                    684:  Center: BEGIN
1.15      cvs       685:        Create '\12<center';
1.1       cvs       686:        Create Attributes;
                    687:        Create '>\12';
1.15      cvs       688:        Create '</center>\12' After;
1.1       cvs       689:        END;
                    690: 
1.8       cvs       691:  Invalid_element:
                    692:        BEGIN
                    693:        if Error_type = BadPosition
                    694:           Remove;
                    695:        if not Error_type = BadPosition
                    696:            BEGIN
                    697:           NoTranslation;
                    698:           Create Content;
                    699:           Remove;
                    700:           Create Attributes;
                    701:           Create '>';
                    702:           END;
1.1       cvs       703:        END;
                    704: 
                    705:  Comment\240: BEGIN
                    706:        NoLineBreak;
                    707:        Create '<!--';
                    708:        Create '-->\12' after;
                    709:        END;
                    710: 
                    711:  Comment_line: BEGIN
                    712:        if not last create '\12' after;
                    713:        END;
                    714: 
                    715: ATTRIBUTES
1.18      cvs       716: 
                    717: #ifdef COUGAR
1.19      cvs       718:  Langue:
1.20    ! cvs       719:        IF not HTML
        !           720:            BEGIN
        !           721:            Create ' lang="';
        !           722:            Create Langue;
        !           723:            Create DoubleQuote;
        !           724:            END;
1.18      cvs       725: #endif
1.1       cvs       726: 
                    727:  http_equiv: BEGIN
                    728:        Create ' http-equiv="';
                    729:        Create http_equiv;
1.12      cvs       730:        Create DoubleQuote;
1.1       cvs       731:        END;
                    732: 
                    733:  meta_name: BEGIN
                    734:        Create ' name="';
                    735:        Create meta_name;
1.12      cvs       736:        Create DoubleQuote;
1.1       cvs       737:        END;
                    738: 
                    739:  meta_content: BEGIN
                    740:        Create ' content="';
                    741:        Create meta_content;
1.12      cvs       742:        Create DoubleQuote;
1.1       cvs       743:        END;
                    744: 
                    745:  REL:  BEGIN
                    746:        Create ' rel="';
                    747:        Create REL;
1.12      cvs       748:        Create DoubleQuote;
1.1       cvs       749:        END;
                    750: 
                    751:  REV:  BEGIN
                    752:        Create ' rev="';
                    753:        Create REV;
1.12      cvs       754:        Create DoubleQuote;
1.1       cvs       755:        END;
                    756: 
                    757:  HREF_ :
                    758:        BEGIN
                    759:        NoTranslation;
                    760:        Create ' href="';
                    761:        Create HREF_;
1.12      cvs       762:        Create DoubleQuote;
1.1       cvs       763:        END;
                    764: 
                    765:  background_ :
                    766:        BEGIN
                    767:        Create ' background="';
                    768:        Create background_;
1.12      cvs       769:        Create DoubleQuote;
1.1       cvs       770:        END;
                    771: 
                    772:  BackgroundColor :
                    773:        BEGIN
                    774:        Create ' bgcolor="';
                    775:        Create BackgroundColor;
1.12      cvs       776:        Create DoubleQuote;
1.1       cvs       777:        END;
                    778: 
                    779:  TextColor :
                    780:        BEGIN
                    781:        Create ' text="';
                    782:        Create TextColor;
1.12      cvs       783:        Create DoubleQuote;
1.1       cvs       784:        END;
                    785: 
                    786:  LinkColor :
                    787:        BEGIN
                    788:        Create ' link="';
                    789:        Create LinkColor;
1.12      cvs       790:        Create DoubleQuote;
1.1       cvs       791:        END;
                    792: 
                    793:  VisitedLinkColor :
                    794:        BEGIN
                    795:        Create ' vlink="';
                    796:        Create VisitedLinkColor;
1.12      cvs       797:        Create DoubleQuote;
1.1       cvs       798:        END;
                    799: 
                    800:  ActiveLinkColor :
                    801:        BEGIN
                    802:        Create ' alink="';
                    803:        Create ActiveLinkColor;
1.12      cvs       804:        Create DoubleQuote;
1.1       cvs       805:        END;
                    806: 
                    807:  BaseFontSize:
                    808:        BEGIN
1.12      cvs       809:        Create ' size="';
1.1       cvs       810:        Create BaseFontSize;
1.12      cvs       811:        Create DoubleQuote;
1.1       cvs       812:        END;
                    813: 
                    814:  Font_size :
                    815:        BEGIN
                    816:        Create ' size="';
                    817:        Create Font_size;
1.12      cvs       818:        Create DoubleQuote;
1.1       cvs       819:        END;
                    820: 
                    821:  color :
                    822:        BEGIN
                    823:        Create ' color="';
                    824:        Create color;
1.12      cvs       825:        Create DoubleQuote;
1.1       cvs       826:        END;
1.6       cvs       827: 
                    828:  Clear = Left_:
                    829:        Create ' clear=left';
                    830:  Clear = Right_:
                    831:        Create ' clear=right';
1.9       cvs       832:  Clear = All_:
                    833:        Create ' clear=all';
                    834:  Clear = None:
                    835:        Create ' clear=none';
1.1       cvs       836: 
                    837:  Align = left_:
                    838:        Create ' align=left';
                    839:  Align = center_:
                    840:        Create ' align=center';
                    841:  Align = right_:
                    842:        Create ' align=right';
                    843: 
                    844:  NoShade:
                    845:        Create ' noshade';
                    846: 
                    847:  Size_: BEGIN
                    848:        Create ' size="';
                    849:        Create Size_;
1.12      cvs       850:        Create DoubleQuote;
1.1       cvs       851:        END;
                    852: 
                    853:  Width__: BEGIN
                    854:        Create ' width="';
                    855:        Create Width__;
1.12      cvs       856:        Create DoubleQuote;
1.1       cvs       857:        END;
                    858: 
                    859:  codebase: BEGIN
                    860:        NoTranslation;
                    861:        Create ' codebase="';
                    862:        Create codebase;
1.12      cvs       863:        Create DoubleQuote;
1.1       cvs       864:        END;
                    865: 
                    866:  code: BEGIN
                    867:        Create ' code="';
                    868:        Create code;
1.12      cvs       869:        Create DoubleQuote;
1.1       cvs       870:        END;
                    871: 
                    872:  applet_name: BEGIN
                    873:        Create ' name="';
                    874:        Create applet_name;
1.12      cvs       875:        Create DoubleQuote;
1.1       cvs       876:        END;
                    877: 
                    878:  Param_name: BEGIN
                    879:        Create ' name="';
                    880:        Create Param_name;
1.12      cvs       881:        Create DoubleQuote;
1.1       cvs       882:        END;
                    883: 
                    884:  Param_value: BEGIN
                    885:        Create ' value="';
                    886:        Create Param_value;
1.12      cvs       887:        Create DoubleQuote;
1.1       cvs       888:        END;
                    889: #ifdef COUGAR
                    890:  classid: BEGIN
                    891:        Create ' classid="';
                    892:        Create classid;
1.12      cvs       893:        Create DoubleQuote;
1.1       cvs       894:        END;
                    895: 
                    896:  data: BEGIN
                    897:        Create ' data="';
                    898:        Create data;
1.12      cvs       899:        Create DoubleQuote;
1.1       cvs       900:        END;
                    901: 
                    902:  Object_type: BEGIN
                    903:        Create ' type="';
                    904:        Create Object_type;
1.12      cvs       905:        Create DoubleQuote;
1.1       cvs       906:        END;
                    907: 
                    908:  codetype: BEGIN
                    909:        Create ' codetype="';
                    910:        Create codetype;
1.12      cvs       911:        Create DoubleQuote;
1.1       cvs       912:        END;
                    913: #endif
                    914:  Title : BEGIN
                    915:        NoTranslation;
                    916:        Create ' title="';
                    917:        Create Title;
1.12      cvs       918:        Create DoubleQuote;
1.1       cvs       919:        END;
                    920: 
                    921:  Class: BEGIN
1.20    ! cvs       922:        IF TEXT_UNIT
1.1       cvs       923:            BEGIN
1.15      cvs       924:            Create '<span class="';
1.1       cvs       925:            Create Class;
1.2       cvs       926:            Create '">';
1.15      cvs       927:            Create '</span>' After;
1.1       cvs       928:            END;
1.20    ! cvs       929:        IF not TEXT_UNIT
1.1       cvs       930:            BEGIN
1.2       cvs       931:            Create ' class="';
1.1       cvs       932:            Create Class;
1.12      cvs       933:            Create DoubleQuote;
1.1       cvs       934:            END;
                    935:        END;
                    936: 
                    937:  Style\240:
                    938:        BEGIN
1.20    ! cvs       939:        IF TEXT_UNIT and not Within HEAD 
1.1       cvs       940:            BEGIN
1.15      cvs       941:            Create '<span ';
1.1       cvs       942:            Create C_Style;
                    943:            Create Style\240;
1.12      cvs       944:            Create DoubleQuote;
1.1       cvs       945:            Create '>';
1.15      cvs       946:            Create '</span>' After;
1.1       cvs       947:            END;
1.20    ! cvs       948:        IF not TEXT_UNIT and not Within HEAD
1.1       cvs       949:            BEGIN
                    950:            Create C_Style;
                    951:            Create Style\240;
1.12      cvs       952:            Create DoubleQuote;
1.1       cvs       953:            END;
                    954:        END;
1.20    ! cvs       955: 
        !           956: #ifdef COUGAR
        !           957:  ID:   BEGIN
        !           958:        Create ' id="';
        !           959:        Create ID;
        !           960:        Create DoubleQuote;
        !           961:        END;
        !           962: #endif
1.1       cvs       963: 
                    964:  BulletStyle = disc :
                    965:        Create ' type=disc';
                    966:  BulletStyle = square :
                    967:        Create ' type=square';
                    968:  BulletStyle = circle :
                    969:        Create ' type=circle';
                    970: 
                    971:  COMPACT:
                    972:        Create ' compact';
                    973: 
                    974:  NumberStyle = Arabic_ :
                    975:        Create ' type=1';
                    976:  NumberStyle = LowerAlpha :
                    977:        Create ' type=a';
                    978:  NumberStyle = UpperAlpha :
                    979:        Create ' type=A';
                    980:  NumberStyle = LowerRoman :
                    981:        Create ' type=i';
                    982:  NumberStyle = UpperRoman :
                    983:        Create ' type=I';
                    984: 
                    985:  Start > 1: BEGIN
                    986:        Create ' start="';
                    987:        Create Start;
1.12      cvs       988:        Create DoubleQuote;
1.1       cvs       989:        END;
                    990: 
                    991:  ItemStyle = disc :
                    992:        Create ' type=disc';
                    993:  ItemStyle = square :
                    994:        Create ' type=square';
                    995:  ItemStyle = circle :
                    996:        Create ' type=circle';
                    997:  ItemStyle = Arabic_ :
                    998:        Create ' type=1';
                    999:  ItemStyle = LowerAlpha :
                   1000:        Create ' type=a';
                   1001:  ItemStyle = UpperAlpha :
                   1002:        Create ' type=A';
                   1003:  ItemStyle = LowerRoman :
                   1004:        Create ' type=i';
                   1005:  ItemStyle = UpperRoman :
                   1006:        Create ' type=I';
                   1007: 
                   1008:  ItemValue: BEGIN
                   1009:        Create ' value="';
                   1010:        Create ItemValue;
1.12      cvs      1011:        Create DoubleQuote;
1.1       cvs      1012:        END;
                   1013: 
                   1014:  WidthElement: BEGIN
                   1015:        Create ' width="';
                   1016:        Create WidthElement;
1.12      cvs      1017:        Create DoubleQuote;
1.1       cvs      1018:        END;
                   1019: 
                   1020:  Script_URL: BEGIN
                   1021:        Create ' action="';
                   1022:        Create Script_URL;
1.12      cvs      1023:        Create DoubleQuote;
1.1       cvs      1024:        END;
                   1025: 
                   1026:  METHOD=Post_:
1.15      cvs      1027:        Create ' method="post"';
1.1       cvs      1028: 
                   1029:  METHOD=Get_:
1.15      cvs      1030:        Create ' method="get"';
1.1       cvs      1031: 
                   1032:  ENCTYPE: BEGIN
                   1033:        Create ' enctype="';
                   1034:        Create ENCTYPE;
1.12      cvs      1035:        Create DoubleQuote;
1.1       cvs      1036:        END;
                   1037: 
                   1038:  NAME: BEGIN
                   1039:        NoTranslation;
                   1040:        Create ' name="';
                   1041:        Create NAME;
1.12      cvs      1042:        Create DoubleQuote;
1.1       cvs      1043:        END;
                   1044: 
                   1045:  Multiple:
                   1046:        Create ' multiple';
                   1047: 
1.4       cvs      1048:  MenuSize: BEGIN
1.12      cvs      1049:        Create ' size="';
1.4       cvs      1050:        Create MenuSize;
1.12      cvs      1051:        Create DoubleQuote;
1.4       cvs      1052:        END;
1.5       cvs      1053: 
                   1054:  Selected:
                   1055:        Create ' selected';
1.4       cvs      1056: 
1.9       cvs      1057:  Value_: BEGIN
1.1       cvs      1058:        Create ' value="';
1.13      cvs      1059:        Create Value_;
1.12      cvs      1060:        Create DoubleQuote;
1.1       cvs      1061:        END;
                   1062: 
                   1063:  Rows: BEGIN
1.12      cvs      1064:        Create ' rows="';
1.1       cvs      1065:        Create Rows;
1.12      cvs      1066:        Create DoubleQuote;
1.1       cvs      1067:        END;
                   1068: 
                   1069:  Columns: BEGIN
1.12      cvs      1070:        Create ' cols="';
1.1       cvs      1071:        Create Columns;
1.12      cvs      1072:        Create DoubleQuote;
1.1       cvs      1073:        END;
                   1074: 
                   1075:  Checked = Yes_:
                   1076:        Create ' checked';
                   1077: 
                   1078:  Area_Size: BEGIN
1.12      cvs      1079:        Create ' size="';
1.1       cvs      1080:        Create Area_Size;
1.12      cvs      1081:        Create DoubleQuote;
1.1       cvs      1082:        END;
                   1083: 
                   1084:  MaxLength: BEGIN
1.12      cvs      1085:        Create ' maxlength="';
1.1       cvs      1086:        Create MaxLength;
1.12      cvs      1087:        Create DoubleQuote;
1.1       cvs      1088:        END;
                   1089: 
                   1090:  SRC:  BEGIN
                   1091:        Create ' src="';
                   1092:        Create SRC;
1.12      cvs      1093:        Create DoubleQuote;
1.1       cvs      1094:        END;
                   1095: 
                   1096:  ALT:  BEGIN
                   1097:        Create ' alt="';
                   1098:        Create ALT;
1.12      cvs      1099:        Create DoubleQuote;
1.1       cvs      1100:        END;
                   1101: 
                   1102:  Alignment = Top_:
                   1103:        Create ' align=top';
                   1104:  Alignment = Middle_:
                   1105:        Create ' align=middle';
                   1106:  Alignment = Bottom_:
                   1107:        Create ' align=bottom';
                   1108:  Alignment = Left_:
                   1109:        Create ' align=left';
                   1110:  Alignment = Right_:
                   1111:        Create ' align=right';
                   1112: 
                   1113:  Height_: BEGIN
                   1114:        Create ' height="';
                   1115:        Create Height_;
1.12      cvs      1116:        Create DoubleQuote;
1.1       cvs      1117:        END;
                   1118: 
                   1119:  Width_: BEGIN
                   1120:        Create ' width="';
                   1121:        Create Width_;
1.12      cvs      1122:        Create DoubleQuote;
1.1       cvs      1123:        END;
                   1124: 
                   1125:  Img_border: BEGIN
                   1126:        Create ' border="';
                   1127:        Create Img_border;
1.12      cvs      1128:        Create DoubleQuote;
1.1       cvs      1129:        END;
                   1130: 
                   1131:  hspace: BEGIN
                   1132:        Create ' hspace="';
                   1133:        Create hspace;
1.12      cvs      1134:        Create DoubleQuote;
1.1       cvs      1135:        END;
                   1136: 
                   1137:  vspace: BEGIN
                   1138:        Create ' vspace="';
                   1139:        Create vspace;
1.12      cvs      1140:        Create DoubleQuote;
1.1       cvs      1141:        END;
                   1142: 
                   1143:  ISMAP:
                   1144:        Create ' ismap';
                   1145: 
                   1146:  USEMAP: BEGIN
                   1147:        NoTranslation;
                   1148:        Create ' usemap="';
                   1149:        Create USEMAP;
1.12      cvs      1150:        Create DoubleQuote;
1.1       cvs      1151:        END;
                   1152: 
                   1153:  nohref:
                   1154:        Create ' nohref';
                   1155: 
                   1156:  shape = rectangle:
                   1157:        Create ' shape=rect';
                   1158:  shape = circle:
                   1159:        Create ' shape=circle';
                   1160:  shape = polygon:
                   1161:        Create ' shape=poly';
                   1162: 
                   1163:  coords: BEGIN
                   1164:        Create ' coords="';
                   1165:        Create coords;
1.12      cvs      1166:        Create DoubleQuote;
1.1       cvs      1167:        END;
                   1168: 
                   1169:  Border: BEGIN
1.12      cvs      1170:        Create ' border="';
1.1       cvs      1171:        Create Border;
1.12      cvs      1172:        Create DoubleQuote;
1.1       cvs      1173:        END;
                   1174: 
                   1175:  Table_align = Align_left:
                   1176:        Create ' align=left';
                   1177:  Table_align = Center_:
                   1178:        Create ' align=center';
                   1179:  Table_align = Align_right:
                   1180:        Create ' align=right';
                   1181: 
                   1182:  cellspacing: BEGIN
                   1183:        Create ' cellspacing="';
                   1184:        Create cellspacing;
1.12      cvs      1185:        Create DoubleQuote;
1.1       cvs      1186:        END;
                   1187: 
                   1188:  cellpadding: BEGIN
                   1189:        Create ' cellpadding="';
                   1190:        Create cellpadding;
1.12      cvs      1191:        Create DoubleQuote;
1.1       cvs      1192:        END;
                   1193: 
                   1194:  Position = Position_top:
                   1195:         Create ' align=top';
                   1196:  Position = Position_bottom:
                   1197:         Create ' align=bottom';
                   1198: 
                   1199:  Row_align = Row_left:
                   1200:         Create ' align=left';
                   1201:  Row_align = Row_center:
                   1202:         Create ' align=center';
                   1203:  Row_align = Row_right:
                   1204:         Create ' align=right';
                   1205:  Row_valign = Row_top:
                   1206:         Create ' valign=top';
                   1207:  Row_valign = Row_middle:
                   1208:         Create ' valign=middle';
                   1209:  Row_valign = Row_bottom:
                   1210:         Create ' valign=bottom';
                   1211: 
                   1212:  colspan: BEGIN
1.12      cvs      1213:        Create ' colspan="';
1.1       cvs      1214:        Create colspan;
1.12      cvs      1215:        Create DoubleQuote;
1.1       cvs      1216:        END;
                   1217: 
                   1218:  rowspan: BEGIN
1.12      cvs      1219:        Create ' rowspan="';
1.1       cvs      1220:        Create rowspan;
1.12      cvs      1221:        Create DoubleQuote;
1.1       cvs      1222:        END;
                   1223: 
                   1224:  Cell_align = Cell_left:
                   1225:        Create ' align=left';
                   1226:  Cell_align = Cell_center:
                   1227:        Create ' align=center';
                   1228:  Cell_align = Cell_right:
                   1229:        Create ' align=right';
                   1230: 
                   1231:  Cell_valign = Cell_top:
                   1232:        Create ' valign=top';
                   1233:  Cell_valign = Cell_middle:
                   1234:        Create ' valign=middle';
                   1235:  Cell_valign = Cell_bottom:
                   1236:        Create ' valign=bottom';
                   1237: 
                   1238:  Cell_width: BEGIN
1.12      cvs      1239:        Create ' width="';
1.1       cvs      1240:        Create Cell_width;
1.12      cvs      1241:        Create DoubleQuote;
1.1       cvs      1242:        END;
                   1243: 
                   1244:  Cell_height: BEGIN
1.12      cvs      1245:        Create ' height="';
1.1       cvs      1246:        Create Cell_height;
1.12      cvs      1247:        Create DoubleQuote;
1.1       cvs      1248:        END;
                   1249: 
                   1250:  Word_wrap = No_wrap:
                   1251:        Create ' nowrap';
                   1252: 
                   1253:  Invalid_attribute:
                   1254:        Create Invalid_attribute;
                   1255: 
                   1256: #include "Text_SGML.inc"
                   1257: 
                   1258: GraphTRANSLATE
                   1259:        BEGIN
                   1260:        'c' -> 'circle';
                   1261:        'Q' -> 'circle';
                   1262:        'R' -> 'rect';
                   1263:        'C' -> 'rect';
                   1264:        ' ' -> 'rect';
                   1265:        'P' -> 'rect';
                   1266:        'p' -> 'polygon';
                   1267:        'B' -> 'polygon';
                   1268:        END;
                   1269: 
                   1270: END

Webmaster