OoasTools

/**

  *

  *                      OOAS Compiler

  *

  *       Copyright 2015, AIT Austrian Institute of Technology.

  * This code is based on the C# Version of the OOAS Compiler, which is

  * copyright 2015 by the Institute of Software Technology, Graz University

  * of Technology with portions copyright by the AIT Austrian Institute of

  * Technology. All rights reserved.

  *

  * SEE THE "LICENSE" FILE FOR THE TERMS UNDER WHICH THIS FILE IS PROVIDED.

  *

  * If you modify the file please update the list of contributors below to in-

  * clude your name. Please also stick to the coding convention of using TABs

  * to do the basic (block-level) indentation and spaces for anything after

  * that. (Enable the display of special chars and it should be pretty obvious

  * what this means.) Also, remove all trailing whitespace.

  *

  * Contributors:

  *               Willibald Krenn (AIT)

  *               Stephan Zimmerer (AIT)

  *               Markus Demetz (AIT)

  *               Christoph Czurda (AIT)

  *

  */

package org.momut.ooas.codegen.prologsymbolic;

import org.momut.ooas.codegen.OoasCodeEmitter;

import org.momut.ooas.codegen.prolog.OoaPrologIdentifier;

import org.momut.ooas.codegen.prolog.OoaPrologType;

import org.momut.ooas.codegen.prolog.Scratchbook;

class OoaPrologSymbolicType extends OoaPrologType

{

        public static class Factory extends OoaPrologType.Factory

        {

                @Override

                public OoaPrologType create(OoaPrologIdentifier.Factory idFactory, Scratchbook scratchbook)

                { return new OoaPrologSymbolicType(idFactory, scratchbook); }

        }

        @Override

        public String GetInternalTypeDefinitions()

        {

                final OoasCodeEmitter result = new OoasCodeEmitter();

                result.AppendLine("type(bool, X) :- member(X, [true, false]).");

                result.AppendLine("type(char, X) :- X in 0..255, labeling([],[X]).");

                return result.toString();

        }

        private OoaPrologSymbolicType(OoaPrologIdentifier.Factory idFactory, Scratchbook scratchbook)

        {

                super(idFactory, scratchbook);

        }

}