CParserimpl.mesa
Copyright Ó 1987, 1992 by Xerox Corporation. All rights reserved.
Hopcroft June 12, 1989 5:57:12 pm PDT
Coolidge, July 12, 1990 3:52 pm PDT
Laurie Horton, November 8, 1991 4:02 pm PST
Willie-s, May 14, 1992 1:13 pm PDT
DIRECTORY
Commander USING[CommandProc, Register],
CParser USING [CParseTree, CParseTreeBody, ProductionNames],
IO USING[char, Close, EndOfStream, GetTokenRope, IDProc, int, PutF, PutF1, PutRope, real, RIS, rope, STREAM, TokenKind],
Lexer USING [GetCTokenInit, GetCTokenRope, GetCTokenRopeAndValue],
OneCasabaParser USING[BuildParserTableFromKipperedStream, GetReportStream, Parse, ParserTable],
PFS USING [PathFromRope, StreamOpen],
PFSNames USING [PATH],
Rope USING[Length, ROPE, Substr];
CParserImpl: CEDAR PROGRAM
IMPORTS Commander, IO, Lexer, OneCasabaParser, PFS, Rope
EXPORTS CParser ~ {
ROPE: TYPE ~ Rope.ROPE;
ParseFromFile: Commander.CommandProc ~ {
parseTree: CParser.CParseTree;
filename:PFSNames.PATH;
sourceStream:IO.STREAM;
commandLineStream: IO.STREAM ¬ IO.RIS[cmd.commandLine];
tableStream: IO.STREAM ¬ PFS.StreamOpen[PFS.PathFromRope["c.kipperedParseTables"]];
table: OneCasabaParser.ParserTable ¬ OneCasabaParser.BuildParserTableFromKipperedStream[tableStream];
IO.Close[tableStream];
filename ¬ PFS.PathFromRope[IO.GetTokenRope[commandLineStream,IO.IDProc].token];
IO.Close[commandLineStream];
sourceStream ¬ PFS.StreamOpen[filename];
parseTree ¬ MakeCParseTree[table, sourceStream, cmd.out];
PrintParseTree[cmd.out, parseTree];
};
ProductionNameRopes: ARRAY [0..ORD[LAST[CParser.ProductionNames]]] OF Rope.ROPE = ["Start", "PrintResult", "Expressionone", "Expressionmore", "AssignmentExpressioncond", "AssignmentExpressioneq", "AssignmentExpressionmuleq", "AssignmentExpressiondiveq", "AssignmentExpressionmodeq", "AssignmentExpressionaddeq", "AssignmentExpressionsubeq", "AssignmentExpressionshiftleq", "AssignmentExpressionshiftreq", "AssignmentExpressionandeq", "AssignmentExpressionxoreq", "AssignmentExpressionoreq", "ConditionalExpressionone", "ConditionalExpressionmore", "LogicalOrExpressionone", "LogicalOrExpressionmore", "LogicalAndExpressionone", "LogicalAndExpressionmore", "InclusiveOrExpressionone", "InclusiveOrExpressionmore", "ExclusiveOrExpressionone", "ExclusiveOrExpressionmore", "AndExpressionone", "AndExpressionmore", "EqualityExpressionrel", "EqualityExpressioneq", "EqualityExpressionneq", "RelationalExpressionone", "RelationalExpressionlt", "RelationalExpressiongt", "RelationalExpressionle", "RelationalExpressionge", "ShiftExpressionadd", "ShiftExpressionleft", "ShiftExpressionright", "AdditiveExpressionmul", "AdditiveExpressionadd", "AdditiveExpressionsub", "MultiplicativeExpressioncast", "MultiplicativeExpressionmul", "MultiplicativeExpressiondiv", "MultiplicativeExpressionmod", "CastExpressionunary", "CastExpressioncast", "UnaryExpressionpost", "UnaryExpressioninc", "UnaryExpressiondec", "UnaryExpressionand", "UnaryExpressionptr", "UnaryExpressionadd", "UnaryExpressionsub", "UnaryExpressionbnot", "UnaryExpressionlnot", "UnaryExpressionsizeexpr", "UnaryExpressionsizetype", "PostfixExpressionprimary", "PostfixExpressionarray", "PostfixExpressioncall", "PostfixExpressionrecord", "PostfixExpressionrecptr", "PostfixExpressioninc", "PostfixExpressiondec", "PrimaryExpressionid", "PrimaryExpressionconst", "PrimaryExpressionstring", "PrimaryExpressionparen", "TypeNamevoid", "TypeNamechar", "TypeNameshort", "TypeNameint", "TypeNamelong", "TypeNamefloat", "TypeNamedouble", "TypeNamesigned", "TypeNameunsigned", "ArgumentExpressionListone", "ArgumentExpressionListmore", "Constantint", "Constantchar", "Constantfloat", "Constantenum",
Terminal type names must be added after the production type elements
"IntegerConstant", "CharacterConstant", "FloatingConstant", "String", "Identifier"];
MakeCParseTree: PUBLIC PROC[table: OneCasabaParser.ParserTable, source: IO.STREAM, out:IO.STREAM] RETURNS [parseTree: CParser.CParseTree] ~ {
partialValues: LIST OF CParser.CParseTree ¬ NIL;
textPosition: INT ¬ 0;
newSource: IO.STREAM ¬ source;
newOut:IO.STREAM ¬ out;
SupplySourceToken: PROC RETURNS [tokenKind: IO.TokenKind, tokenText: ROPE, position: INT] ~ {
charsSkipped: INT;
temp:Rope.ROPE;
WHILE TRUE DO
[tokenKind, tokenText, charsSkipped] ¬ Lexer.GetCTokenRope[newSource, FALSE
! IO.EndOfStream => {
tokenKind ¬ tokenEOF;
tokenText ¬ "";
charsSkipped ¬ 0;
CONTINUE}
];
textPosition ¬ textPosition + charsSkipped;
position ¬ textPosition;
textPosition ¬ textPosition + Rope.Length[tokenText];
temp ← SELECT tokenKind FROM
tokenDECIMAL => "tokenDECIMAL",
tokenCHAR => "tokenCHAR",
tokenREAL => "tokenREAL",
tokenROPE => "tokenROPE",
tokenID => "tokenID",
tokenEOF => "tokenEOF",
tokenERROR => "tokenERROR",
tokenSINGLE => "tokenSINGLE",
tokenDOUBLE => "tokenDOUBLE",
tokenCOMMENT => "tokenCOMMENT",
tokenOCTAL => "tokenOCTAL",
tokenHEX => "tokenHEX",
ENDCASE => "Unknown";
IO.PutF[newOut,"token: %g = %g\n",
IO.rope[temp],
IO.rope[tokenText]];
IF tokenKind # tokenCOMMENT THEN RETURN [tokenKind, tokenText, position];
ENDLOOP
};
SeeGenericShift: PROC [code: CARDINAL, kind: IO.TokenKind, text: ROPE, firstCharPosition: INT] ~ {
temp:CParser.CParseTree;
textStream:IO.STREAM ¬ IO.RIS[text];
tokenKind:IO.TokenKind;
tokenValue:REF ANY;
charsSkipped:INT;
token:Rope.ROPE;
[tokenKind, token, charsSkipped, tokenValue] ¬ Lexer.GetCTokenRopeAndValue[textStream, FALSE];
IO.Close[textStream];
SELECT tokenKind FROM
tokenDECIMAL => {
temp ¬ NEW[CParser.CParseTreeBody[1]] ;
← [production:IntegerConstant, children:NULL]];
temp­.production ¬ IntegerConstant;
temp­.children[0] ¬ tokenValue;
partialValues ¬ CONS[temp, partialValues];
};
tokenCHAR => {
temp ¬ NEW[CParser.CParseTreeBody[1]];
← [production:CharacterConstant, children:NULL]];
temp­.production ¬ CharacterConstant;
temp­.children[0] ¬ tokenValue;
partialValues ¬ CONS[temp, partialValues];
};
tokenREAL => {
temp ¬ NEW[CParser.CParseTreeBody[1]];
← [production:FloatingConstant, children:NULL]];
temp­.production ¬ FloatingConstant;
temp­.children[0] ¬ tokenValue;
partialValues ¬ CONS[temp, partialValues];
};
tokenROPE => {
temp ¬ NEW[CParser.CParseTreeBody[1]];
← [production:String, children:NULL]];
temp­.production ¬ String;
temp­.children[0] ¬ tokenValue;
partialValues ¬ CONS[temp, partialValues];
};
tokenID => {
temp ¬ NEW[CParser.CParseTreeBody[1]];
← [production:Identifier, children:NULL]];
temp­.production ¬ Identifier;
temp­.children[0] ¬ text;
partialValues ¬ CONS[temp, partialValues]
};
ENDCASE => ERROR;
IO.PutF[newOut,"Generic shift %g = %g\n",
IO.rope[ProductionNameRopes[ORD[temp^.production]]],
IO.rope[NARROW[temp^.children[0],Rope.ROPE]]]
};
SeeReduce: PROC[rule: CARDINAL, firstCharPosition: INT, length: INT] ~ {
temp:CParser.CParseTree;
SELECT CParser.ProductionNames[VAL[rule]] FROM
Two operand productions:
Expressionmore, AssignmentExpressioneq, AssignmentExpressionmuleq,
AssignmentExpressiondiveq,
AssignmentExpressionmodeq, AssignmentExpressionaddeq, AssignmentExpressionsubeq,
AssignmentExpressionshiftleq, AssignmentExpressionshiftreq,
AssignmentExpressionandeq, AssignmentExpressionxoreq, AssignmentExpressionoreq,
LogicalOrExpressionmore, LogicalAndExpressionmore, InclusiveOrExpressionmore,
ExclusiveOrExpressionmore, AndExpressionmore, EqualityExpressioneq,
EqualityExpressionneq, RelationalExpressionlt, RelationalExpressiongt,
RelationalExpressionle, RelationalExpressionge, ShiftExpressionleft,
ShiftExpressionright, AdditiveExpressionadd, AdditiveExpressionsub,
MultiplicativeExpressionmul, MultiplicativeExpressiondiv,
MultiplicativeExpressionmod, CastExpressioncast,
PostfixExpressionarray, PostfixExpressioncall, PostfixExpressionrecord,
PostfixExpressionrecptr, ArgumentExpressionListmore => {
IO.PutF[newOut,"Two operand\n"];
temp ¬ NEW[CParser.CParseTreeBody[2]];
← [production:ProductionNames[VAL[rule]], children:NULL]];
temp­.production ¬ CParser.ProductionNames[VAL[rule]];
temp­.children[1] ¬ partialValues.first;
temp­.children[0] ¬ partialValues.rest.first;
partialValues ¬ CONS[temp, partialValues.rest.rest]
};
One operand productions:
UnaryExpressioninc, UnaryExpressiondec, UnaryExpressionand, UnaryExpressionptr,
UnaryExpressionsub, UnaryExpressionbnot, UnaryExpressionlnot,
UnaryExpressionsizeexpr, UnaryExpressionsizetype, PostfixExpressioninc,
PostfixExpressiondec => {
temp ¬ NEW[CParser.CParseTreeBody[1]];
← [production:ProductionNames[VAL[rule]], children:NULL]];
temp­.production ¬ CParser.ProductionNames[VAL[rule]];
temp­.children[0] ¬ partialValues.first;
partialValues ¬ CONS[temp, partialValues.rest]
};
No operand productions:
Start, TypeNamevoid, TypeNamechar, TypeNameshort, TypeNameint, TypeNamelong,
TypeNamefloat, TypeNamedouble, TypeNamesigned, TypeNameunsigned, UnaryExpressionadd => {
temp ¬ NEW[CParser.CParseTreeBody[0]];
← [production:ProductionNames[VAL[rule]], children:NULL]];
temp­.production ¬ CParser.ProductionNames[VAL[rule]];
partialValues ¬ CONS[temp, partialValues]
};
Three operand productions:
ConditionalExpressionmore => {
temp ¬ NEW[CParser.CParseTreeBody[3]];
← [production:ProductionNames[VAL[rule]], children:NULL]];
temp­.production ¬ CParser.ProductionNames[VAL[rule]];
temp­.children[2] ¬ partialValues.first;
temp­.children[1] ¬ partialValues.rest.first;
temp­.children[0] ¬ partialValues.rest.rest.first;
partialValues ¬ CONS[temp, partialValues.rest.rest.rest]
};
No operation productions:
PrintResult, Expressionone, AssignmentExpressioncond,
ConditionalExpressionone,
LogicalOrExpressionone, LogicalAndExpressionone,
InclusiveOrExpressionone, ExclusiveOrExpressionone,
AndExpressionone, EqualityExpressionrel, RelationalExpressionone,
ShiftExpressionadd, AdditiveExpressionmul, MultiplicativeExpressioncast,
CastExpressionunary, UnaryExpressionpost, PostfixExpressionprimary,
PrimaryExpressionid, PrimaryExpressionconst,
PrimaryExpressionstring, PrimaryExpressionparen, ArgumentExpressionListone,
Constantint, Constantchar, Constantfloat, Constantenum => {};
ENDCASE => ERROR;
IO.PutF[newOut,"Reduce rule %g\n",IO.rope[ProductionNameRopes[ORD[rule]]]]
};
Lexer.GetCTokenInit[];
[] ¬ OneCasabaParser.Parse[table, SupplySourceToken, SeeReduce, SeeGenericShift, NIL
! OneCasabaParser.GetReportStream => RESUME[out]
];
parseTree ¬ partialValues.first;
RETURN[parseTree]
};
SpaceRope: PROC [i:INT] RETURNS [r:Rope.ROPE] ~ {
template:Rope.ROPE = " ";
RETURN [Rope.Substr[template, 0, i]]
};
PrintParseTree: PUBLIC PROC [outStream:IO.STREAM, parseTree:REF ANY, depth:INT ¬ 0] RETURNS [] ~ {
IF parseTree # NIL THEN {
IO.PutF[outStream,"%g%g", IO.rope[SpaceRope[depth]],
IO.rope[ProductionNameRopes[ORD[NARROW[parseTree, CParser.CParseTree]­.production]]]];
SELECT NARROW[parseTree, CParser.CParseTree]­.production FROM
Two operand productions:
Expressionmore, AssignmentExpressioneq, AssignmentExpressionmuleq,
AssignmentExpressiondiveq,
AssignmentExpressionmodeq, AssignmentExpressionaddeq, AssignmentExpressionsubeq,
AssignmentExpressionshiftleq, AssignmentExpressionshiftreq,
AssignmentExpressionandeq, AssignmentExpressionxoreq, AssignmentExpressionoreq,
LogicalOrExpressionmore, LogicalAndExpressionmore, InclusiveOrExpressionmore,
ExclusiveOrExpressionmore, AndExpressionmore, EqualityExpressioneq,
EqualityExpressionneq, RelationalExpressionlt, RelationalExpressiongt,
RelationalExpressionle, RelationalExpressionge, ShiftExpressionleft,
ShiftExpressionright, AdditiveExpressionadd, AdditiveExpressionsub,
MultiplicativeExpressionmul, MultiplicativeExpressiondiv,
MultiplicativeExpressionmod, CastExpressioncast,
PostfixExpressionarray, PostfixExpressioncall, PostfixExpressionrecord,
PostfixExpressionrecptr, ArgumentExpressionListmore => {
IO.PutRope[outStream,"\n"];
PrintParseTree[outStream, NARROW[parseTree, CParser.CParseTree]­.children[0], depth+2];
PrintParseTree[outStream, NARROW[parseTree, CParser.CParseTree]­.children[1], depth+2];
};
One operand productions:
UnaryExpressioninc, UnaryExpressiondec, UnaryExpressionand, UnaryExpressionptr,
UnaryExpressionsub, UnaryExpressionbnot, UnaryExpressionlnot,
UnaryExpressionsizeexpr, UnaryExpressionsizetype, PostfixExpressioninc,
PostfixExpressiondec, PrimaryExpressionparen => {
IO.PutRope[outStream,"\n"];
PrintParseTree[outStream, NARROW[parseTree, CParser.CParseTree]­.children[0], depth+2]
};
No operand productions:
Start, TypeNamevoid, TypeNamechar, TypeNameshort, TypeNameint, TypeNamelong,
TypeNamefloat, TypeNamedouble, TypeNamesigned, TypeNameunsigned => {
IO.PutRope[outStream,"\n"]
};
Three operand productions:
ConditionalExpressionmore => {
IO.PutRope[outStream,"\n"];
PrintParseTree[outStream, NARROW[parseTree, CParser.CParseTree]­.children[0], depth+2];
PrintParseTree[outStream, NARROW[parseTree, CParser.CParseTree]­.children[1], depth+2];
PrintParseTree[outStream, NARROW[parseTree, CParser.CParseTree]­.children[2], depth+2]
};
No operation productions:
PrintResult, Expressionone, AssignmentExpressioncond,
ConditionalExpressionmore,
LogicalOrExpressionone, LogicalAndExpressionone,
InclusiveOrExpressionone, ExclusiveOrExpressionone,
AndExpressionone, EqualityExpressionrel, RelationalExpressionone,
ShiftExpressionadd, AdditiveExpressionmul, MultiplicativeExpressioncast,
CastExpressionunary, UnaryExpressionpost, PostfixExpressionprimary,
PrimaryExpressionid, PrimaryExpressionconst,
PrimaryExpressionstring, PrimaryExpressionparen, ArgumentExpressionListone,
Constantint, Constantchar, Constantfloat, Constantenum => ERROR;
Terminals
IntegerConstant =>
IO.PutF1[outStream," = %g\n", IO.int[NARROW[NARROW[parseTree, CParser.CParseTree]­.children[0], REF INT]­]];
CharacterConstant =>
IO.PutF1[outStream," = %g\n", IO.char[NARROW[NARROW[parseTree, CParser.CParseTree]­.children[0], REF CHAR]­]];
FloatingConstant =>
IO.PutF1[outStream," = %g\n", IO.real[NARROW[NARROW[parseTree, CParser.CParseTree]­.children[0], REF REAL]­]];
String =>
IO.PutF1[outStream," = %g\n", IO.rope[NARROW[NARROW[parseTree, CParser.CParseTree].children[0], Rope.ROPE]]];
Identifier =>
IO.PutF1[outStream," = %g\n", IO.rope[NARROW[NARROW[parseTree, CParser.CParseTree].children[0], Rope.ROPE]]]
ENDCASE => ERROR
}
ELSE
IO.PutRope[outStream,"Empty tree\n"]
};
main code
Commander.Register["Parse", ParseFromFile];
}...