Examples with AIntegerSetExpression de.be4.classicalb.core.parser.node.AIntegerSetExpression used on opensource projects

Example 1 with AIntegerSetExpression

use of de.be4.classicalb.core.parser.node.AIntegerSetExpression in project probparsers by bendisposto.

the class ASTPrologTest method testFreeType.

@Test
public void testFreeType() throws BCompoundException {
    final AConstructorFreetypeConstructor multi = new AConstructorFreetypeConstructor(new TIdentifierLiteral("multi"), new APowSubsetExpression(new AIntegerSetExpression()));
    final AConstructorFreetypeConstructor single = new AConstructorFreetypeConstructor(new TIdentifierLiteral("single"), new AIntegerSetExpression());
    final AFreetype freetype = new AFreetype(new TIdentifierLiteral("T"), Arrays.<PFreetypeConstructor>asList(multi, single));
    AFreetypesMachineClause clause = new AFreetypesMachineClause(Arrays.<PFreetype>asList(freetype));
    final StringWriter swriter = new StringWriter();
    NodeIdAssignment nodeids = new NodeIdAssignment();
    clause.apply(nodeids);
    IPrologTermOutput pout = new PrologTermOutput(new PrintWriter(swriter), false);
    PositionPrinter pprinter = new ClassicalPositionPrinter(nodeids);
    ASTProlog prolog = new ASTProlog(pout, pprinter);
    clause.apply(prolog);
    String code = swriter.toString();
    assertFalse(code.isEmpty());
    assertEquals("freetypes(0,[freetype(1,'T',[constructor(2,multi,pow_subset(3,integer_set(4))),constructor(5,single,integer_set(6))])])", code);
}

Example 2 with AIntegerSetExpression

use of de.be4.classicalb.core.parser.node.AIntegerSetExpression in project probparsers by bendisposto.

the class IntegerType method createASTNode.

public PExpression createASTNode(Typechecker typechecker) {
    AIntegerSetExpression node = new AIntegerSetExpression();
    typechecker.setType(node, new SetType(this));
    return node;
}