Package: MapApplyObligation

MapApplyObligation

nameinstructionbranchcomplexitylinemethod
MapApplyObligation(PExp, PExp, IPOContextStack, IPogAssistantFactory)
M: 0 C: 36
100%
M: 0 C: 0
100%
M: 0 C: 1
100%
M: 0 C: 8
100%
M: 0 C: 1
100%
MapApplyObligation(PStateDesignator, PExp, IPOContextStack, IPogAssistantFactory)
M: 41 C: 0
0%
M: 0 C: 0
100%
M: 1 C: 0
0%
M: 8 C: 0
0%
M: 1 C: 0
0%

Coverage

1: /*******************************************************************************
2: *
3: *        Copyright (C) 2008 Fujitsu Services Ltd.
4: *
5: *        Author: Nick Battle
6: *
7: *        This file is part of VDMJ.
8: *
9: *        VDMJ is free software: you can redistribute it and/or modify
10: *        it under the terms of the GNU General Public License as published by
11: *        the Free Software Foundation, either version 3 of the License, or
12: *        (at your option) any later version.
13: *
14: *        VDMJ is distributed in the hope that it will be useful,
15: *        but WITHOUT ANY WARRANTY; without even the implied warranty of
16: *        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17: *        GNU General Public License for more details.
18: *
19: *        You should have received a copy of the GNU General Public License
20: *        along with VDMJ. If not, see <http://www.gnu.org/licenses/>.
21: *
22: ******************************************************************************/
23:
24: package org.overture.pog.obligation;
25:
26: import org.overture.ast.analysis.AnalysisException;
27: import org.overture.ast.expressions.AInSetBinaryExp;
28: import org.overture.ast.expressions.AMapDomainUnaryExp;
29: import org.overture.ast.expressions.PExp;
30: import org.overture.ast.factory.AstExpressionFactory;
31: import org.overture.ast.statements.PStateDesignator;
32: import org.overture.ast.types.AUnknownType;
33: import org.overture.pog.pub.IPOContextStack;
34: import org.overture.pog.pub.IPogAssistantFactory;
35: import org.overture.pog.pub.POType;
36: import org.overture.pog.visitors.StateDesignatorToExpVisitor;
37:
38: public class MapApplyObligation extends ProofObligation
39: {
40:         private static final long serialVersionUID = -1385749421110721860L;
41:
42:         public MapApplyObligation(PExp root, PExp arg, IPOContextStack ctxt,
43:                         IPogAssistantFactory af) throws AnalysisException
44:         {
45:                 super(root, POType.MAP_APPLY, ctxt, root.getLocation(), af);
46:
47:                 /* <arg> in set dom <root> */
48:                 AMapDomainUnaryExp dom_exp = new AMapDomainUnaryExp();
49:                 dom_exp.setExp(root.clone());
50:                 // We don't care about type of the exp. This is just for the CGP to not crash.
51:                 dom_exp.setType(new AUnknownType());
52:                 
53:                 AInSetBinaryExp inSetExp = AstExpressionFactory.newAInSetBinaryExp(arg.clone(), dom_exp);
54:
55:                 stitch = inSetExp;
56:                 valuetree.setPredicate(ctxt.getPredWithContext(inSetExp));
57:         }
58:
59:         public MapApplyObligation(PStateDesignator root, PExp arg,
60:                         IPOContextStack ctxt, IPogAssistantFactory af)
61:                         throws AnalysisException
62:         {
63:                 super(root, POType.MAP_APPLY, ctxt, root.getLocation(), af);
64:                 AMapDomainUnaryExp dom_exp = new AMapDomainUnaryExp();
65:                 dom_exp.setExp(root.clone().apply(new StateDesignatorToExpVisitor()));
66:                 // We don't care about type of the exp. This is just for the CGP to not crash.
67:                 dom_exp.setType(new AUnknownType());
68:
69:                 AInSetBinaryExp inSetExp = AstExpressionFactory.newAInSetBinaryExp(arg.clone(), dom_exp);
70:
71:                 stitch = inSetExp;
72:                 valuetree.setPredicate(ctxt.getPredWithContext(inSetExp));
73:         }
74: }