class CSVParser extends Parser;
options { k=2; }
file   {System.out.println("<table align=\"center\" border=\"1\">");}
       : ( line (NEWLINE line)* (NEWLINE)? EOF)
       {System.out.println("</table>");}
       ;

line   {System.out.println("  <tr>");}
       : ( (record)+ )
       {System.out.println("  <tr/>");}
       ;

record {System.out.print("    <td>");}
       : ( (r:RECORD) (COMMA)? )
       {System.out.print(r.getText());
        System.out.println("</td>");}
       ;

class CSVLexer extends Lexer;
options { charVocabulary='\3'..'\377'; }
RECORD  : '"'! (~(','|'\r'|'\n'))+ ;
COMMA   : ',' ;
NEWLINE : ('\r''\n')=> '\r''\n' //DOS
        | '\r'                  //MAC
        | '\n'                  //UNIX
        { System.out.println("matched newline"); newline(); }
        ;
WS      : (' '|'\t') { $setType(Token.SKIP); } ;