.
prolog ## %{ ... %} prior to the first %%
+.
+. /** error output stream.
+. It should be changeable.
+. */
+. public System.IO.TextWriter ErrorOutput = System.Console.Out;
.
. /** simplified error message.
. @see <a href="#yyerror(java.lang.String, java.lang.String[])">yyerror</a>
. */
. public void yyerror (string message, string[] expected) {
. if ((expected != null) && (expected.Length > 0)) {
-. System.Console.Write (message+", expecting");
+. ErrorOutput.Write (message+", expecting");
. for (int n = 0; n < expected.Length; ++ n)
-. System.Console.Write (" "+expected[n]);
-. System.Console.WriteLine ();
+. ErrorOutput.Write (" "+expected[n]);
+. ErrorOutput.WriteLine ();
. } else
-. System.Console.WriteLine (message);
+. ErrorOutput.WriteLine (message);
. }
.
. /** debugging support, requires the package jay.yydebug.
.
debug ## tables for debugging support
.
-. /** index-checked interface to yyName[].
+. /** index-checked interface to yyNames[].
. @param token single character or %token value.
. @return token name or [illegal] or [unknown].
. */
t public static string yyname (int token) {
-t if ((token < 0) || (token > yyName.Length)) return "[illegal]";
+t if ((token < 0) || (token > yyNames.Length)) return "[illegal]";
t string name;
-t if ((name = yyName[token]) != null) return name;
+t if ((name = yyNames[token]) != null) return name;
t return "[unknown]";
t }
.
. */
. protected string[] yyExpecting (int state) {
. int token, n, len = 0;
-. bool[] ok = new bool[yyName.Length];
+. bool[] ok = new bool[yyNames.Length];
.
. if ((n = yySindex[state]) != 0)
. for (token = n < 0 ? -n : 0;
-. (token < yyName.Length) && (n+token < yyTable.Length); ++ token)
-. if (yyCheck[n+token] == token && !ok[token] && yyName[token] != null) {
+. (token < yyNames.Length) && (n+token < yyTable.Length); ++ token)
+. if (yyCheck[n+token] == token && !ok[token] && yyNames[token] != null) {
. ++ len;
. ok[token] = true;
. }
. if ((n = yyRindex[state]) != 0)
. for (token = n < 0 ? -n : 0;
-. (token < yyName.Length) && (n+token < yyTable.Length); ++ token)
-. if (yyCheck[n+token] == token && !ok[token] && yyName[token] != null) {
+. (token < yyNames.Length) && (n+token < yyTable.Length); ++ token)
+. if (yyCheck[n+token] == token && !ok[token] && yyNames[token] != null) {
. ++ len;
. ok[token] = true;
. }
.
. string [] result = new string[len];
. for (n = token = 0; n < len; ++ token)
-. if (ok[token]) result[n++] = yyName[token];
+. if (ok[token]) result[n++] = yyNames[token];
. return result;
. }
.
. if ((yyN = yyDefRed[yyState]) == 0) { // else [default] reduce (yyN)
. if (yyToken < 0) {
. yyToken = yyLex.advance() ? yyLex.token() : 0;
-. if (yyToken == 0)
-. yyLex.Cleanup ();
+
t if (debug != null)
t debug.lex(yyState, yyToken, yyname(yyToken), yyLex.value());
. }
. switch (yyErrorFlag) {
.
. case 0:
-. yyerror("syntax error", yyExpecting(yyState));
+. yyerror(String.Format ("syntax error, got token `{0}'", yyname (yyToken)), yyExpecting(yyState));
t if (debug != null) debug.error("syntax error");
. goto case 1;
. case 1: case 2:
. yyState = yyFinal;
. if (yyToken < 0) {
. yyToken = yyLex.advance() ? yyLex.token() : 0;
-. if (yyToken == 0)
-. yyLex.Cleanup ();
t if (debug != null)
t debug.lex(yyState, yyToken,yyname(yyToken), yyLex.value());
.
. class yyDebugSimple : yyDebug {
. void println (string s){
-. Console.WriteLine (s);
+. Console.Error.WriteLine (s);
. }
.
. public void push (int state, Object value) {
. @return value for token().
. */
. Object value ();
-. /** Cleanup, this is called when advance returns false.
-. */
-. void Cleanup ();
. }
. }
.} // close outermost namespace, that MUST HAVE BEEN opened in the prolog