@Override public void caseAForPatternBindStm(AForPatternBindStm node) throws AnalysisException { if (!proceed(node)) { return; } if (node.getExp() != null) { node.getExp().apply(this); } openScope(node.getPatternBind().getPattern(), node.getPatternBind().getDefs(), node.getStatement()); node.getStatement().apply(this); for (PDefinition def : node.getPatternBind().getDefs()) { removeLocalDefFromScope(def); } }
/** * Called by the {@link AForPatternBindStm} node from {@link AForPatternBindStm#apply(IAnalysis)}. * @param node the calling {@link AForPatternBindStm} node */ public void caseAForPatternBindStm(AForPatternBindStm node, Q question) throws AnalysisException { _visitedNodes.add(node); inAForPatternBindStm(node, question); if(node.getType() != null && !_visitedNodes.contains(node.getType())) { node.getType().apply(this, question); } if(node.getPatternBind() != null && !_visitedNodes.contains(node.getPatternBind())) { node.getPatternBind().apply(this, question); } if(node.getExp() != null && !_visitedNodes.contains(node.getExp())) { node.getExp().apply(this, question); } if(node.getStatement() != null && !_visitedNodes.contains(node.getStatement())) { node.getStatement().apply(this, question); } if(node.getSeqType() != null && !_visitedNodes.contains(node.getSeqType())) { node.getSeqType().apply(this, question); } outAForPatternBindStm(node, question); }
/** * Called by the {@link AForPatternBindStm} node from {@link AForPatternBindStm#apply(IAnalysis)}. * @param node the calling {@link AForPatternBindStm} node */ public void caseAForPatternBindStm(AForPatternBindStm node) throws AnalysisException { _visitedNodes.add(node); inAForPatternBindStm(node); if(node.getType() != null && !_visitedNodes.contains(node.getType())) { node.getType().apply(this); } if(node.getPatternBind() != null && !_visitedNodes.contains(node.getPatternBind())) { node.getPatternBind().apply(this); } if(node.getExp() != null && !_visitedNodes.contains(node.getExp())) { node.getExp().apply(this); } if(node.getStatement() != null && !_visitedNodes.contains(node.getStatement())) { node.getStatement().apply(this); } if(node.getSeqType() != null && !_visitedNodes.contains(node.getSeqType())) { node.getSeqType().apply(this); } outAForPatternBindStm(node); }
/** * Called by the {@link AForPatternBindStm} node from {@link AForPatternBindStm#apply(IPOFAnalysis)}. * @param node the calling {@link AForPatternBindStm} node */ public void caseAForPatternBindStm(AForPatternBindStm node) throws AnalysisException { _visitedNodes.add(node); inAForPatternBindStm(node); if(node.getType() != null && !_visitedNodes.contains(node.getType())) { node.getType().apply(this); } if(node.getPatternBind() != null && !_visitedNodes.contains(node.getPatternBind())) { node.getPatternBind().apply(this); } if(node.getExp() != null && !_visitedNodes.contains(node.getExp())) { node.getExp().apply(this); } if(node.getStatement() != null && !_visitedNodes.contains(node.getStatement())) { node.getStatement().apply(this); } if(node.getSeqType() != null && !_visitedNodes.contains(node.getSeqType())) { node.getSeqType().apply(this); } outAForPatternBindStm(node); }
if(node.getPatternBind() != null && !_visitedNodes.contains(node.getPatternBind())) mergeReturns(retVal,node.getPatternBind().apply(this, question));
if(node.getPatternBind() != null && !_visitedNodes.contains(node.getPatternBind())) mergeReturns(retVal,node.getPatternBind().apply(this));
if (node.getPatternBind().getPattern() != null) else if (node.getPatternBind().getBind() instanceof ATypeBind) else if (node.getPatternBind().getBind() instanceof ASetBind) ASetBind bind = (ASetBind) node.getPatternBind().getBind(); list.addAll(bind.getSet().apply(rootVisitor, question)); question.pop(); else if (node.getPatternBind().getBind() instanceof ASeqBind) ASeqBind bind = (ASeqBind) node.getPatternBind().getBind(); list.addAll(bind.getSeq().apply(rootVisitor, question));
@Override public PType caseAForPatternBindStm(AForPatternBindStm node, TypeCheckInfo question) throws AnalysisException { PType stype = node.getExp().apply(THIS, new TypeCheckInfo(question.assistantFactory, question.env, question.scope)); Environment local = question.env; if (question.assistantFactory.createPTypeAssistant().isSeq(stype)) { node.setSeqType(question.assistantFactory.createPTypeAssistant().getSeq(stype)); node.getPatternBind().apply(THIS, new TypeCheckInfo(question.assistantFactory, question.env, question.scope)); List<PDefinition> defs = getDefinitions(node.getPatternBind()); question.assistantFactory.createPDefinitionListAssistant().typeCheck(defs, THIS, new TypeCheckInfo(question.assistantFactory, question.env, question.scope)); local = new FlatCheckedEnvironment(question.assistantFactory, defs, question.env, question.scope); } else { TypeCheckerErrors.report(3223, "Expecting sequence type after 'in'", node.getLocation(), node); } PType rt = node.getStatement().apply(THIS, new TypeCheckInfo(question.assistantFactory, local, question.scope)); local.unusedCheck(); node.setType(rt); return rt; }
PPattern pattern = node.getPatternBind().getPattern(); pattern = node.getPatternBind().getBind().getPattern();
if (node.getPatternBind().getPattern() != null) evalContext.putList(ctxt.assistantFactory.createPPatternAssistant().getNamedValues(node.getPatternBind().getPattern(), val, ctxt)); Value rv = node.getStatement().apply(VdmRuntime.getStatementEvaluator(), evalContext); else if (node.getPatternBind().getBind() instanceof ASetBind) ASetBind setbind = (ASetBind) node.getPatternBind().getBind(); ValueSet set = setbind.getSet().apply(VdmRuntime.getStatementEvaluator(), ctxt).setValue(ctxt); else if (node.getPatternBind().getBind() instanceof ASeqBind) ASeqBind seqbind = (ASeqBind) node.getPatternBind().getBind(); ValueList seq = seqbind.getSeq().apply(VdmRuntime.getStatementEvaluator(), ctxt).seqValue(ctxt); ATypeBind typebind = (ATypeBind) node.getPatternBind().getBind();