pascalabcnet/Parsers/PascalABCParserNewSaushkin/Preprocessor3.lex

%{
%}
%scannertype PreprocessorScanner

%namespace GPPGPreprocessor3

%using PascalABCCompiler.SyntaxTree;
%using QUT.Gppg;

DotChr [^\r\n]
OneLineCmnt  \/\/{DotChr}*
STRINGNUM \'([^\'\n]|\'\')*\'


DIRECTIVE [^\}]+
NODIRECTIVE [.|\n]+

%x INSIDEDIRECTIVE
%x COMMENT
%x COMMENT1
%x COMMENTONELINE


%%

{STRINGNUM} {

}

{OneLineCmnt} {
	
}

"{$" { 
  BEGIN(INSIDEDIRECTIVE);
}

<INSIDEDIRECTIVE> "}" { 
  BEGIN(INITIAL);
}

<INSIDEDIRECTIVE> {DIRECTIVE} {
  //if (yytext.Contains("\n"))
  //  Console.WriteLine("({0},{1})  {2}",tokLin,tokCol,"error: LF into directive");
  //else Console.WriteLine("({0},{1})  {2}",tokLin,tokCol,yytext);
  yylval = new Directive(yytext, new LexLocation(tokLin, tokCol, tokELin, tokECol));
  var t1 = yylloc;
  return (int)Tokens.DIRECTIVE;
}

{NODIRECTIVE} {
  return (int)Tokens.NODIRECTIVE;
}

"{" { 
  BEGIN(COMMENT);
}

<COMMENT> "}" { 
  BEGIN(INITIAL);
}

<COMMENT>.|\n {
}

"(*" { 
  BEGIN(COMMENT1);
}

<COMMENT1> "*)" { 
  BEGIN(INITIAL);
}

<COMMENT1>.|\n {
}


%{
  yylloc = new LexLocation(tokLin, tokCol, tokELin, tokECol);
%}

%%

  /*public override void yyerror(string format, params object[] args) 
  {
    string errorMsg = parsertools.CreateErrorString(yytext,args);
    parsertools.AddError(errorMsg,new LexLocation(tokLin, tokCol, tokELin, tokECol));
  }*/