fully consisent parsing between the new and the old 'do blocks'
This commit is contained in:
Zahary Karadjov
parent
34b2527441
commit
9ffaee3f88
2 changed files with 545 additions and 78 deletions
|
|
@ -194,7 +194,6 @@ proc newIdentNodeP(ident: PIdent, p: TParser): PNode =
|
||||||
proc parseExpr(p: var TParser): PNode
|
proc parseExpr(p: var TParser): PNode
|
||||||
proc parseStmt(p: var TParser): PNode
|
proc parseStmt(p: var TParser): PNode
|
||||||
proc parseTypeDesc(p: var TParser): PNode
|
proc parseTypeDesc(p: var TParser): PNode
|
||||||
proc parseDoBlocks(p: var TParser, call: PNode)
|
|
||||||
proc parseParamList(p: var TParser, retColon = true): PNode
|
proc parseParamList(p: var TParser, retColon = true): PNode
|
||||||
|
|
||||||
proc isSigilLike(tok: TToken): bool {.inline.} =
|
proc isSigilLike(tok: TToken): bool {.inline.} =
|
||||||
|
|
@ -669,7 +668,7 @@ proc namedParams(p: var TParser, callee: PNode,
|
||||||
# progress guaranteed
|
# progress guaranteed
|
||||||
exprColonEqExprListAux(p, endTok, result)
|
exprColonEqExprListAux(p, endTok, result)
|
||||||
|
|
||||||
proc parseMacroColon(p: var TParser, x: PNode): PNode
|
proc postExprBlocks(p: var TParser, x: PNode): PNode
|
||||||
proc primarySuffix(p: var TParser, r: PNode, baseIndent: int): PNode =
|
proc primarySuffix(p: var TParser, r: PNode, baseIndent: int): PNode =
|
||||||
#| primarySuffix = '(' (exprColonEqExpr comma?)* ')' doBlocks?
|
#| primarySuffix = '(' (exprColonEqExpr comma?)* ')' doBlocks?
|
||||||
#| | doBlocks
|
#| | doBlocks
|
||||||
|
|
@ -696,14 +695,6 @@ proc primarySuffix(p: var TParser, r: PNode, baseIndent: int): PNode =
|
||||||
result = namedParams(p, result, nkCall, tkParRi)
|
result = namedParams(p, result, nkCall, tkParRi)
|
||||||
if result.len > 1 and result.sons[1].kind == nkExprColonExpr:
|
if result.len > 1 and result.sons[1].kind == nkExprColonExpr:
|
||||||
result.kind = nkObjConstr
|
result.kind = nkObjConstr
|
||||||
elif p.tok.tokType == tkDo:
|
|
||||||
parseDoBlocks(p, result)
|
|
||||||
of tkDo:
|
|
||||||
# progress guaranteed
|
|
||||||
var a = result
|
|
||||||
result = newNodeP(nkCall, p)
|
|
||||||
addSon(result, a)
|
|
||||||
parseDoBlocks(p, result)
|
|
||||||
of tkDot:
|
of tkDot:
|
||||||
# progress guaranteed
|
# progress guaranteed
|
||||||
result = dotExpr(p, result)
|
result = dotExpr(p, result)
|
||||||
|
|
@ -735,10 +726,7 @@ proc primarySuffix(p: var TParser, r: PNode, baseIndent: int): PNode =
|
||||||
if p.tok.tokType != tkComma: break
|
if p.tok.tokType != tkComma: break
|
||||||
getTok(p)
|
getTok(p)
|
||||||
optInd(p, x)
|
optInd(p, x)
|
||||||
if p.tok.tokType == tkDo:
|
result = postExprBlocks(p, result)
|
||||||
parseDoBlocks(p, result)
|
|
||||||
else:
|
|
||||||
result = parseMacroColon(p, result)
|
|
||||||
break
|
break
|
||||||
else:
|
else:
|
||||||
break
|
break
|
||||||
|
|
@ -977,16 +965,9 @@ proc parseDoBlock(p: var TParser; info: TLineInfo): PNode =
|
||||||
let params = parseParamList(p, retColon=false)
|
let params = parseParamList(p, retColon=false)
|
||||||
let pragmas = optPragmas(p)
|
let pragmas = optPragmas(p)
|
||||||
colcom(p, result)
|
colcom(p, result)
|
||||||
result = newProcNode(nkDo, info, parseStmt(p),
|
result = parseStmt(p)
|
||||||
params = params,
|
if params.kind != nkEmpty:
|
||||||
pragmas = pragmas)
|
result = newProcNode(nkDo, info, result, params = params, pragmas = pragmas)
|
||||||
|
|
||||||
proc parseDoBlocks(p: var TParser, call: PNode) =
|
|
||||||
#| doBlocks = doBlock ^* IND{=}
|
|
||||||
while sameOrNoInd(p) and p.tok.tokType == tkDo:
|
|
||||||
let info = parLineInfo(p)
|
|
||||||
getTok(p)
|
|
||||||
addSon(call, parseDoBlock(p, info))
|
|
||||||
|
|
||||||
proc parseProcExpr(p: var TParser, isExpr: bool): PNode =
|
proc parseProcExpr(p: var TParser, isExpr: bool): PNode =
|
||||||
#| procExpr = 'proc' paramListColon pragmas? ('=' COMMENT? stmt)?
|
#| procExpr = 'proc' paramListColon pragmas? ('=' COMMENT? stmt)?
|
||||||
|
|
@ -1162,49 +1143,73 @@ proc makeCall(n: PNode): PNode =
|
||||||
result = newNodeI(nkCall, n.info)
|
result = newNodeI(nkCall, n.info)
|
||||||
result.add n
|
result.add n
|
||||||
|
|
||||||
proc parseMacroColon(p: var TParser, x: PNode): PNode =
|
proc postExprBlocks(p: var TParser, x: PNode): PNode =
|
||||||
#| macroColon = ':' stmt? ( IND{=} 'of' exprList ':' stmt
|
#| postExprBlocks = ':' stmt? ( IND{=} doBlock
|
||||||
|
#| | IND{=} 'of' exprList ':' stmt
|
||||||
#| | IND{=} 'elif' expr ':' stmt
|
#| | IND{=} 'elif' expr ':' stmt
|
||||||
#| | IND{=} 'except' exprList ':' stmt
|
#| | IND{=} 'except' exprList ':' stmt
|
||||||
#| | IND{=} 'else' ':' stmt )*
|
#| | IND{=} 'else' ':' stmt )*
|
||||||
result = x
|
result = x
|
||||||
if p.tok.tokType == tkColon and p.tok.indent < 0:
|
if p.tok.indent >= 0: return
|
||||||
|
|
||||||
|
var
|
||||||
|
openingParams = emptyNode
|
||||||
|
openingPragmas = emptyNode
|
||||||
|
|
||||||
|
if p.tok.tokType == tkDo:
|
||||||
|
getTok(p)
|
||||||
|
openingParams = parseParamList(p, retColon=false)
|
||||||
|
openingPragmas = optPragmas(p)
|
||||||
|
|
||||||
|
if p.tok.tokType == tkColon:
|
||||||
result = makeCall(result)
|
result = makeCall(result)
|
||||||
getTok(p)
|
getTok(p)
|
||||||
skipComment(p, result)
|
skipComment(p, result)
|
||||||
var stmtList = newNodeP(nkStmtList, p)
|
var stmtList = newNodeP(nkStmtList, p)
|
||||||
if p.tok.tokType notin {tkOf, tkElif, tkElse, tkExcept}:
|
|
||||||
let body = parseStmt(p)
|
let body = parseStmt(p)
|
||||||
stmtList.add body
|
stmtList.add body
|
||||||
#addSon(result, makeStmtList(body))
|
|
||||||
# progress guaranteed
|
|
||||||
while sameInd(p):
|
|
||||||
var b: PNode
|
|
||||||
case p.tok.tokType
|
|
||||||
of tkOf:
|
|
||||||
b = newNodeP(nkOfBranch, p)
|
|
||||||
exprList(p, tkColon, b)
|
|
||||||
of tkElif:
|
|
||||||
b = newNodeP(nkElifBranch, p)
|
|
||||||
getTok(p)
|
|
||||||
optInd(p, b)
|
|
||||||
addSon(b, parseExpr(p))
|
|
||||||
of tkExcept:
|
|
||||||
b = newNodeP(nkExceptBranch, p)
|
|
||||||
exprList(p, tkColon, b)
|
|
||||||
of tkElse:
|
|
||||||
b = newNodeP(nkElse, p)
|
|
||||||
getTok(p)
|
|
||||||
else: break
|
|
||||||
eat(p, tkColon)
|
|
||||||
addSon(b, parseStmt(p))
|
|
||||||
addSon(stmtList, b)
|
|
||||||
if b.kind == nkElse: break
|
|
||||||
if stmtList.len == 1 and stmtList[0].kind == nkStmtList:
|
if stmtList.len == 1 and stmtList[0].kind == nkStmtList:
|
||||||
# to keep backwards compatibility (see tests/vm/tstringnil)
|
# to keep backwards compatibility (see tests/vm/tstringnil)
|
||||||
stmtList = stmtList[0]
|
stmtList = stmtList[0]
|
||||||
|
|
||||||
|
if openingParams.kind != nkEmpty:
|
||||||
result.add newProcNode(nkDo, stmtList.info, stmtList,
|
result.add newProcNode(nkDo, stmtList.info, stmtList,
|
||||||
params = emptyNode, pragmas = emptyNode)
|
params = openingParams, pragmas = openingPragmas)
|
||||||
|
else:
|
||||||
|
result.add stmtList
|
||||||
|
|
||||||
|
while sameInd(p):
|
||||||
|
var nextBlock: PNode
|
||||||
|
let nextToken = p.tok.tokType
|
||||||
|
if nextToken == tkDo:
|
||||||
|
let info = parLineInfo(p)
|
||||||
|
getTok(p)
|
||||||
|
nextBlock = parseDoBlock(p, info)
|
||||||
|
else:
|
||||||
|
case nextToken:
|
||||||
|
of tkOf:
|
||||||
|
nextBlock = newNodeP(nkOfBranch, p)
|
||||||
|
exprList(p, tkColon, nextBlock)
|
||||||
|
of tkElif:
|
||||||
|
nextBlock = newNodeP(nkElifBranch, p)
|
||||||
|
getTok(p)
|
||||||
|
optInd(p, nextBlock)
|
||||||
|
nextBlock.addSon parseExpr(p)
|
||||||
|
of tkExcept:
|
||||||
|
nextBlock = newNodeP(nkExceptBranch, p)
|
||||||
|
exprList(p, tkColon, nextBlock)
|
||||||
|
of tkElse:
|
||||||
|
nextBlock = newNodeP(nkElse, p)
|
||||||
|
getTok(p)
|
||||||
|
else: break
|
||||||
|
eat(p, tkColon)
|
||||||
|
nextBlock.addSon parseStmt(p)
|
||||||
|
result.add nextBlock
|
||||||
|
if nextBlock.kind == nkElse: break
|
||||||
|
else:
|
||||||
|
if openingParams.kind != nkEmpty:
|
||||||
|
parMessage(p, errTokenExpected, ":")
|
||||||
|
|
||||||
proc parseExprStmt(p: var TParser): PNode =
|
proc parseExprStmt(p: var TParser): PNode =
|
||||||
#| exprStmt = simpleExpr
|
#| exprStmt = simpleExpr
|
||||||
|
|
@ -1219,12 +1224,7 @@ proc parseExprStmt(p: var TParser): PNode =
|
||||||
getTok(p)
|
getTok(p)
|
||||||
optInd(p, result)
|
optInd(p, result)
|
||||||
var b = parseExpr(p)
|
var b = parseExpr(p)
|
||||||
if p.tok.tokType == tkColon and p.tok.indent < 0:
|
b = postExprBlocks(p, b)
|
||||||
if b.kind != nkEmpty:
|
|
||||||
let call = makeCall(b)
|
|
||||||
call.add parseDoBlock(p, parLineInfo(p))
|
|
||||||
parseDoBlocks(p, call)
|
|
||||||
b = call
|
|
||||||
addSon(result, a)
|
addSon(result, a)
|
||||||
addSon(result, b)
|
addSon(result, b)
|
||||||
else:
|
else:
|
||||||
|
|
@ -1250,11 +1250,7 @@ proc parseExprStmt(p: var TParser): PNode =
|
||||||
optInd(p, result)
|
optInd(p, result)
|
||||||
else:
|
else:
|
||||||
result = a
|
result = a
|
||||||
if p.tok.tokType == tkDo and p.tok.indent < 0:
|
result = postExprBlocks(p, result)
|
||||||
result = makeCall(result)
|
|
||||||
parseDoBlocks(p, result)
|
|
||||||
return result
|
|
||||||
result = parseMacroColon(p, result)
|
|
||||||
|
|
||||||
proc parseModuleName(p: var TParser, kind: TNodeKind): PNode =
|
proc parseModuleName(p: var TParser, kind: TNodeKind): PNode =
|
||||||
result = parseExpr(p)
|
result = parseExpr(p)
|
||||||
|
|
@ -1896,14 +1892,7 @@ proc parseVariable(p: var TParser): PNode =
|
||||||
#| variable = (varTuple / identColonEquals) colonBody? indAndComment
|
#| variable = (varTuple / identColonEquals) colonBody? indAndComment
|
||||||
if p.tok.tokType == tkParLe: result = parseVarTuple(p)
|
if p.tok.tokType == tkParLe: result = parseVarTuple(p)
|
||||||
else: result = parseIdentColonEquals(p, {withPragma})
|
else: result = parseIdentColonEquals(p, {withPragma})
|
||||||
if p.tok.tokType == tkColon and p.tok.indent < 0:
|
result{-1} = postExprBlocks(p, result{-1})
|
||||||
let last = result.len-1
|
|
||||||
let ex = result.sons[last]
|
|
||||||
if ex.kind != nkEmpty:
|
|
||||||
let call = makeCall(ex)
|
|
||||||
call.add parseDoBlock(p, parLineInfo(p))
|
|
||||||
parseDoBlocks(p, call)
|
|
||||||
result.sons[last] = call
|
|
||||||
indAndComment(p, result)
|
indAndComment(p, result)
|
||||||
|
|
||||||
proc parseBind(p: var TParser, k: TNodeKind): PNode =
|
proc parseBind(p: var TParser, k: TNodeKind): PNode =
|
||||||
|
|
|
||||||
478
tests/parser/tpostexprblocks.nim
Normal file
478
tests/parser/tpostexprblocks.nim
Normal file
|
|
@ -0,0 +1,478 @@
|
||||||
|
discard """
|
||||||
|
nimout: '''
|
||||||
|
StmtList
|
||||||
|
Ident !"foo"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StrLit test
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StrLit test
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
StrLit test
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
StrLit test
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
IntLit 1
|
||||||
|
Par
|
||||||
|
Infix
|
||||||
|
Ident !"+"
|
||||||
|
IntLit 2
|
||||||
|
IntLit 3
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
IntLit 1
|
||||||
|
Par
|
||||||
|
Infix
|
||||||
|
Ident !"+"
|
||||||
|
IntLit 2
|
||||||
|
IntLit 3
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Empty
|
||||||
|
IdentDefs
|
||||||
|
Ident !"x"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Empty
|
||||||
|
IdentDefs
|
||||||
|
Ident !"x"
|
||||||
|
Ident !"int"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Ident !"int"
|
||||||
|
IdentDefs
|
||||||
|
Ident !"x"
|
||||||
|
Ident !"int"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Empty
|
||||||
|
IdentDefs
|
||||||
|
Ident !"y"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Else
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Else
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Empty
|
||||||
|
IdentDefs
|
||||||
|
Ident !"y"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Ident !"int"
|
||||||
|
IdentDefs
|
||||||
|
Ident !"z"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Ident !"int"
|
||||||
|
IdentDefs
|
||||||
|
Ident !"w"
|
||||||
|
Ident !"int"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Else
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Ident !"foo"
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Else
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
VarSection
|
||||||
|
IdentDefs
|
||||||
|
Ident !"a"
|
||||||
|
Empty
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Empty
|
||||||
|
IdentDefs
|
||||||
|
Ident !"y"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Else
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Ident !"foo"
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Call
|
||||||
|
Ident !"foo"
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Else
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Asgn
|
||||||
|
Ident !"a"
|
||||||
|
Command
|
||||||
|
Ident !"foo"
|
||||||
|
Ident !"x"
|
||||||
|
Do
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
FormalParams
|
||||||
|
Empty
|
||||||
|
IdentDefs
|
||||||
|
Ident !"y"
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
Empty
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
Else
|
||||||
|
StmtList
|
||||||
|
DiscardStmt
|
||||||
|
Empty
|
||||||
|
'''
|
||||||
|
"""
|
||||||
|
|
||||||
|
import macros
|
||||||
|
|
||||||
|
dumpTree:
|
||||||
|
# simple calls
|
||||||
|
foo
|
||||||
|
foo()
|
||||||
|
foo(x)
|
||||||
|
foo x
|
||||||
|
|
||||||
|
foo:
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo do:
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo("test"):
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo("test") do:
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo "test":
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo "test" do:
|
||||||
|
discard
|
||||||
|
|
||||||
|
# more complicated calls
|
||||||
|
foo 1, (2+3):
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo 1, (2+3) do:
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo do (x):
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo do (x: int):
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo do (x: int) -> int:
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo x do (y):
|
||||||
|
discard
|
||||||
|
|
||||||
|
# extra blocks
|
||||||
|
foo:
|
||||||
|
discard
|
||||||
|
else:
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo do:
|
||||||
|
discard
|
||||||
|
do:
|
||||||
|
discard
|
||||||
|
else:
|
||||||
|
discard
|
||||||
|
|
||||||
|
foo x do (y):
|
||||||
|
discard
|
||||||
|
do (z) -> int:
|
||||||
|
discard
|
||||||
|
do (w: int) -> int:
|
||||||
|
discard
|
||||||
|
do:
|
||||||
|
discard
|
||||||
|
else:
|
||||||
|
discard
|
||||||
|
|
||||||
|
# introduce a variable
|
||||||
|
var a = foo
|
||||||
|
var a = foo()
|
||||||
|
var a = foo(x)
|
||||||
|
var a = foo x
|
||||||
|
|
||||||
|
var a = foo:
|
||||||
|
discard
|
||||||
|
|
||||||
|
var a = foo do:
|
||||||
|
discard
|
||||||
|
|
||||||
|
var a = foo do:
|
||||||
|
discard
|
||||||
|
else:
|
||||||
|
discard
|
||||||
|
|
||||||
|
var a = foo x do (y):
|
||||||
|
discard
|
||||||
|
else:
|
||||||
|
discard
|
||||||
|
|
||||||
|
# assignments
|
||||||
|
a = foo
|
||||||
|
a = foo()
|
||||||
|
a = foo(x)
|
||||||
|
a = foo x
|
||||||
|
|
||||||
|
a = foo:
|
||||||
|
discard
|
||||||
|
|
||||||
|
a = foo do:
|
||||||
|
discard
|
||||||
|
|
||||||
|
a = foo do:
|
||||||
|
discard
|
||||||
|
else:
|
||||||
|
discard
|
||||||
|
|
||||||
|
a = foo x do (y):
|
||||||
|
discard
|
||||||
|
else:
|
||||||
|
discard
|
||||||
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue