use of org.eclipse.titan.designer.AST.TTCN3.values.UniversalCharstring in project titan.EclipsePlug-ins by eclipse.
the class SubType method addTtcnSingle.
/**
* add TTCN-3 single value sub-type constraint to this sub-type
*/
private boolean addTtcnSingle(final CompilationTimeStamp timestamp, final Value value, final int restrictionIndex) {
value.setMyScope(myOwner.getMyScope());
value.setMyGovernor(myOwner);
final BridgingNamedNode bridge = new BridgingNamedNode(myOwner, myOwner.getTypename() + ".<single_restriction_" + restrictionIndex + ">");
value.setFullNameParent(bridge);
IValue last = myOwner.checkThisValueRef(timestamp, value);
// check if this is type reference, if not then fall through
final IValue refValue = value.setLoweridToReference(timestamp);
// Value_type.REFERENCED_VALUE);
if (refValue.getValuetype() == Value.Value_type.REFERENCED_VALUE) {
final Reference ref = ((Referenced_Value) refValue).getReference();
final Assignment ass = ref.getRefdAssignment(timestamp, false);
if (ass == null) {
// definition was not found, error was reported
return false;
}
if (ass.getAssignmentType() == Assignment.Assignment_type.A_TYPE) {
IType t = ass.getType(timestamp);
t.check(timestamp);
if (t.getIsErroneous(timestamp)) {
return false;
}
final List<ISubReference> subrefs = ref.getSubreferences();
if (subrefs.size() > 1) {
// if there were sub-references then get the referenced field's type
t = t.getFieldType(timestamp, ref, 1, Expected_Value_type.EXPECTED_CONSTANT, false);
if ((t == null) || t.getIsErroneous(timestamp)) {
return false;
}
t.check(timestamp);
if (t.getIsErroneous(timestamp)) {
return false;
}
}
if (!t.isIdentical(timestamp, myOwner)) {
value.getLocation().reportSemanticError(MessageFormat.format("Reference `{0}'' must refer to a type which has the same root type as this type", ref.getDisplayName()));
return false;
}
// check subtype of referenced type
final SubType tSt = t.getSubtype();
if ((tSt == null) || (tSt.subtypeConstraint == null)) {
value.getLocation().reportSemanticError(MessageFormat.format("Type referenced by `{0}'' does not have a subtype", ref.getDisplayName()));
return false;
}
// check circular sub-type reference
if (!addParentSubtype(tSt)) {
return false;
}
if (tSt.getIsErroneous(timestamp)) {
return false;
}
if (tSt.subtypeType != subtypeType) {
ErrorReporter.INTERNAL_ERROR();
return false;
}
// add the sub-type as union
if (subtypeConstraint == null) {
subtypeConstraint = tSt.subtypeConstraint;
} else {
subtypeConstraint = subtypeConstraint.union(tSt.subtypeConstraint);
}
return true;
}
}
myOwner.checkThisValue(timestamp, last, null, new ValueCheckingOptions(Expected_Value_type.EXPECTED_CONSTANT, false, false, false, false, false));
final IReferenceChain chain = ReferenceChain.getInstance(IReferenceChain.CIRCULARREFERENCE, true);
last = last.getValueRefdLast(timestamp, chain);
chain.release();
if (last.getIsErroneous(timestamp) || last.isUnfoldable(timestamp)) {
return false;
}
// create a single value constraint
SubtypeConstraint sc;
switch(subtypeType) {
case ST_INTEGER:
sc = new RangeListConstraint(new IntegerLimit(((Integer_Value) last).getValueValue()));
break;
case ST_FLOAT:
sc = new RealRangeListConstraint(((Real_Value) last).getValue());
break;
case ST_BOOLEAN:
sc = new BooleanListConstraint(((Boolean_Value) last).getValue());
break;
case ST_VERDICTTYPE:
sc = new VerdicttypeListConstraint(((Verdict_Value) last).getValue());
break;
case ST_BITSTRING:
sc = new StringSizeAndValueListConstraint(StringSizeAndValueListConstraint.Type.BITSTRING, ((Bitstring_Value) last).getValue());
break;
case ST_HEXSTRING:
sc = new StringSizeAndValueListConstraint(StringSizeAndValueListConstraint.Type.HEXSTRING, ((Hexstring_Value) last).getValue());
break;
case ST_OCTETSTRING:
sc = new StringSizeAndValueListConstraint(StringSizeAndValueListConstraint.Type.OCTETSTRING, ((Octetstring_Value) last).getValue());
break;
case ST_CHARSTRING:
if (last.getValuetype() != Value.Value_type.CHARSTRING_VALUE) {
return false;
}
sc = new StringSetConstraint(StringSubtypeTreeElement.StringType.CHARSTRING, StringSetConstraint.ConstraintType.VALUE_CONSTRAINT, new StringValueConstraint(((Charstring_Value) last).getValue()));
break;
case ST_UNIVERSAL_CHARSTRING:
switch(last.getValuetype()) {
case CHARSTRING_VALUE:
sc = new StringSetConstraint(StringSubtypeTreeElement.StringType.UNIVERSAL_CHARSTRING, StringSetConstraint.ConstraintType.VALUE_CONSTRAINT, new UStringValueConstraint(new UniversalCharstring(((Charstring_Value) last).getValue())));
break;
case UNIVERSALCHARSTRING_VALUE:
sc = new StringSetConstraint(StringSubtypeTreeElement.StringType.UNIVERSAL_CHARSTRING, StringSetConstraint.ConstraintType.VALUE_CONSTRAINT, new UStringValueConstraint(((UniversalCharstring_Value) last).getValue()));
break;
default:
return false;
}
break;
case ST_OBJID:
case ST_ENUM:
case ST_UNION:
case ST_RECORD:
case ST_SET:
case ST_FUNCTION:
case ST_ALTSTEP:
case ST_TESTCASE:
sc = new ValueListConstraint(last);
break;
case ST_RECORDOF:
case ST_SETOF:
sc = new ValueListAndSizeConstraint(last);
break;
default:
ErrorReporter.INTERNAL_ERROR();
return false;
}
// add next value using union operation
if (subtypeConstraint == null) {
subtypeConstraint = sc;
} else {
subtypeConstraint = subtypeConstraint.union(sc);
}
return true;
}
use of org.eclipse.titan.designer.AST.TTCN3.values.UniversalCharstring in project titan.EclipsePlug-ins by eclipse.
the class SubType method addTtcnRange.
private boolean addTtcnRange(final CompilationTimeStamp timestamp, final Value min, final boolean minExclusive, final Value max, final boolean maxExclusive, final int restrictionIndex) {
switch(subtypeType) {
case ST_INTEGER:
case ST_FLOAT:
case ST_CHARSTRING:
case ST_UNIVERSAL_CHARSTRING:
break;
default:
myOwner.getLocation().reportSemanticError(MessageFormat.format("Range subtyping is not allowed for type `{0}''", myOwner.getTypename()));
return false;
}
if (min == null || max == null) {
return false;
}
IValue vmin = null, vmax = null;
min.setMyScope(myOwner.getMyScope());
min.setMyGovernor(myOwner);
BridgingNamedNode bridge = new BridgingNamedNode(myOwner, myOwner.getFullName() + ".<range_restriction_" + restrictionIndex + "_lower>");
min.setFullNameParent(bridge);
IValue last = myOwner.checkThisValueRef(timestamp, min);
IType lastOwner = myOwner.getTypeRefdLast(timestamp);
if (lastOwner instanceof Integer_Type) {
((Integer_Type) lastOwner).checkThisValueLimit(timestamp, last, Expected_Value_type.EXPECTED_CONSTANT, false, false, false, false);
} else {
myOwner.checkThisValue(timestamp, last, null, new ValueCheckingOptions(Expected_Value_type.EXPECTED_CONSTANT, false, false, false, false, false));
}
IReferenceChain chain = ReferenceChain.getInstance(IReferenceChain.CIRCULARREFERENCE, true);
vmin = last.getValueRefdLast(timestamp, chain);
chain.release();
max.setMyScope(myOwner.getMyScope());
max.setMyGovernor(myOwner);
bridge = new BridgingNamedNode(myOwner, myOwner.getFullName() + ".<range_restriction_" + restrictionIndex + "_upper>");
max.setFullNameParent(bridge);
last = myOwner.checkThisValueRef(timestamp, max);
lastOwner = myOwner.getTypeRefdLast(timestamp);
if (lastOwner instanceof Integer_Type) {
((Integer_Type) lastOwner).checkThisValueLimit(timestamp, last, Expected_Value_type.EXPECTED_CONSTANT, false, false, false, false);
} else {
myOwner.checkThisValue(timestamp, last, null, new ValueCheckingOptions(Expected_Value_type.EXPECTED_CONSTANT, false, false, false, false, false));
}
chain = ReferenceChain.getInstance(IReferenceChain.CIRCULARREFERENCE, true);
vmax = last.getValueRefdLast(timestamp, chain);
chain.release();
if (vmin.getIsErroneous(timestamp) || vmin.isUnfoldable(timestamp)) {
// the error was already reported
return false;
}
if (vmax.getIsErroneous(timestamp) || vmax.isUnfoldable(timestamp)) {
// the error was already reported
return false;
}
SubtypeConstraint rangeConstraint;
switch(subtypeType) {
case ST_INTEGER:
{
IntegerLimit minLimit;
if (Value_type.REAL_VALUE.equals(vmin.getValuetype())) {
final Real_Value real = (Real_Value) vmin;
if (real.isNegativeInfinity()) {
minLimit = IntegerLimit.MINIMUM;
} else {
minLimit = IntegerLimit.MAXIMUM;
}
} else {
minLimit = new IntegerLimit(((Integer_Value) vmin).getValueValue());
}
IntegerLimit maxLimit;
if (Value_type.REAL_VALUE.equals(vmax.getValuetype())) {
final Real_Value real = (Real_Value) vmax;
if (real.isPositiveInfinity()) {
maxLimit = IntegerLimit.MAXIMUM;
} else {
maxLimit = IntegerLimit.MINIMUM;
}
} else {
maxLimit = new IntegerLimit(((Integer_Value) vmax).getValueValue());
}
if (minExclusive) {
if (minLimit.compareTo(IntegerLimit.MINIMUM) == 0) {
myOwner.getLocation().reportSemanticError("invalid lower boundary, -infinity cannot be excluded from an integer subtype range");
return false;
}
if (minLimit.compareTo(IntegerLimit.MAXIMUM) == 0) {
myOwner.getLocation().reportSemanticError("!infinity is not a valid lower boundary");
return false;
}
minLimit = (IntegerLimit) minLimit.increment();
}
if (maxExclusive) {
if (maxLimit.compareTo(IntegerLimit.MAXIMUM) == 0) {
myOwner.getLocation().reportSemanticError("invalid upper boundary, infinity cannot be excluded from an integer subtype range");
return false;
}
if (maxLimit.compareTo(IntegerLimit.MINIMUM) == 0) {
myOwner.getLocation().reportSemanticError("!-infinity is not a valid upper boundary");
return false;
}
maxLimit = (IntegerLimit) maxLimit.decrement();
}
if (maxLimit.compareTo(minLimit) < 0) {
Location.interval(min.getLocation(), max.getLocation()).reportSemanticError("lower boundary is bigger than upper boundary in integer subtype range");
return false;
}
rangeConstraint = new RangeListConstraint(minLimit, maxLimit);
break;
}
case ST_FLOAT:
{
if (Double.isNaN(((Real_Value) vmin).getValue())) {
min.getLocation().reportSemanticError("lower boundary cannot be not_a_number in float subtype range");
return false;
}
if (Double.isNaN(((Real_Value) vmax).getValue())) {
max.getLocation().reportSemanticError("upper boundary cannot be not_a_number in float subtype range");
return false;
}
RealLimit minLimit = new RealLimit(((Real_Value) vmin).getValue());
RealLimit maxLimit = new RealLimit(((Real_Value) vmax).getValue());
if (minExclusive) {
if (minLimit.compareTo(RealLimit.MAXIMUM) == 0) {
myOwner.getLocation().reportSemanticError("!infinity is not a valid lower boundary");
return false;
}
minLimit = (RealLimit) minLimit.increment();
}
if (maxExclusive) {
if (maxLimit.compareTo(RealLimit.MINIMUM) == 0) {
myOwner.getLocation().reportSemanticError("!-infinity is not a valid upper boundary");
return false;
}
maxLimit = (RealLimit) maxLimit.decrement();
}
if (maxLimit.compareTo(minLimit) < 0) {
Location.interval(min.getLocation(), max.getLocation()).reportSemanticError("lower boundary is bigger than upper boundary in float subtype range");
return false;
}
rangeConstraint = new RealRangeListConstraint(minLimit, maxLimit);
break;
}
case ST_CHARSTRING:
{
boolean erroneous = false;
if (Value_type.REAL_VALUE.equals(vmin.getValuetype()) && ((Real_Value) vmin).isNegativeInfinity()) {
getParsedLocation().reportSemanticError("lower boundary of a charstring subtype range cannot be -infinity");
erroneous = true;
}
if (Value_type.REAL_VALUE.equals(vmax.getValuetype()) && ((Real_Value) vmax).isPositiveInfinity()) {
getParsedLocation().reportSemanticError("upper boundary of a charstring subtype range cannot be infinity");
erroneous = true;
}
if (erroneous) {
return false;
}
String minString;
switch(vmin.getValuetype()) {
case CHARSTRING_VALUE:
minString = ((Charstring_Value) vmin).getValue();
break;
case UNIVERSALCHARSTRING_VALUE:
{
final UniversalCharstring ustr = ((UniversalCharstring_Value) vmin).getValue();
if ((ustr.length() < 1) || !ustr.get(0).isValidChar()) {
min.getLocation().reportSemanticError("lower boundary of charstring subtype range is not a valid char");
return false;
}
minString = String.valueOf((char) ustr.get(0).cell());
break;
}
default:
return false;
}
String maxString;
switch(vmax.getValuetype()) {
case CHARSTRING_VALUE:
maxString = ((Charstring_Value) vmax).getValue();
break;
case UNIVERSALCHARSTRING_VALUE:
{
final UniversalCharstring ustr = ((UniversalCharstring_Value) vmax).getValue();
if ((ustr.length() < 1) || !ustr.get(0).isValidChar()) {
max.getLocation().reportSemanticError("upper boundary of charstring subtype range is not a valid char");
return false;
}
maxString = String.valueOf((char) ustr.get(0).cell());
break;
}
default:
return false;
}
if (minString.length() != 1) {
min.getLocation().reportSemanticError("lower boundary of charstring subtype range must be a single element string");
return false;
}
if (maxString.length() != 1) {
max.getLocation().reportSemanticError("upper boundary of charstring subtype range must be a single element string");
return false;
}
CharLimit minLimit = new CharLimit(minString.charAt(0));
CharLimit maxLimit = new CharLimit(maxString.charAt(0));
if (minExclusive) {
if (minLimit.compareTo(CharLimit.MAXIMUM) == 0) {
min.getLocation().reportSemanticError("exclusive lower boundary is not a legal charstring character");
return false;
}
minLimit = (CharLimit) minLimit.increment();
}
if (maxExclusive) {
if (maxLimit.compareTo(CharLimit.MINIMUM) == 0) {
max.getLocation().reportSemanticError("exclusive upper boundary is not a legal charstring character");
return false;
}
maxLimit = (CharLimit) maxLimit.decrement();
}
if (maxLimit.compareTo(minLimit) < 0) {
Location.interval(min.getLocation(), max.getLocation()).reportSemanticError("lower boundary is bigger than upper boundary in charstring subtype range");
return false;
}
rangeConstraint = new StringSetConstraint(StringSubtypeTreeElement.StringType.CHARSTRING, StringSetConstraint.ConstraintType.ALPHABET_CONSTRAINT, new RangeListConstraint(minLimit, maxLimit));
break;
}
case ST_UNIVERSAL_CHARSTRING:
{
boolean erroneous = false;
if (Value_type.REAL_VALUE.equals(vmin.getValuetype()) && ((Real_Value) vmin).isNegativeInfinity()) {
min.getLocation().reportSemanticError("lower boundary of a universal charstring subtype range cannot be -infinity");
erroneous = true;
}
if (Value_type.REAL_VALUE.equals(vmax.getValuetype()) && ((Real_Value) vmax).isPositiveInfinity()) {
max.getLocation().reportSemanticError("upper boundary of a universal charstring subtype range cannot be infinity");
erroneous = true;
}
if (erroneous) {
return false;
}
UniversalCharstring minString;
switch(vmin.getValuetype()) {
case CHARSTRING_VALUE:
minString = new UniversalCharstring(((Charstring_Value) vmin).getValue());
break;
case UNIVERSALCHARSTRING_VALUE:
minString = ((UniversalCharstring_Value) vmin).getValue();
break;
default:
return false;
}
UniversalCharstring maxString;
switch(vmax.getValuetype()) {
case CHARSTRING_VALUE:
maxString = new UniversalCharstring(((Charstring_Value) vmax).getValue());
break;
case UNIVERSALCHARSTRING_VALUE:
maxString = ((UniversalCharstring_Value) vmax).getValue();
break;
default:
return false;
}
if (minString.length() != 1) {
min.getLocation().reportSemanticError("lower boundary of universal charstring subtype range must be a single element string");
return false;
}
if (maxString.length() != 1) {
max.getLocation().reportSemanticError("upper boundary of universal charstring subtype range must be a single element string");
return false;
}
UCharLimit minLimit = new UCharLimit(minString.get(0));
UCharLimit maxLimit = new UCharLimit(maxString.get(0));
if (minExclusive) {
if (minLimit.compareTo(UCharLimit.MAXIMUM) == 0) {
min.getLocation().reportSemanticError("exclusive lower boundary is not a legal universal charstring character");
return false;
}
minLimit = (UCharLimit) minLimit.increment();
}
if (maxExclusive) {
if (maxLimit.compareTo(UCharLimit.MINIMUM) == 0) {
max.getLocation().reportSemanticError("exclusive upper boundary is not a legal universal charstring character");
return false;
}
maxLimit = (UCharLimit) maxLimit.decrement();
}
if (maxLimit.compareTo(minLimit) < 0) {
Location.interval(min.getLocation(), max.getLocation()).reportSemanticError("lower boundary is bigger than upper boundary in universal charstring subtype range");
return false;
}
rangeConstraint = new StringSetConstraint(StringSubtypeTreeElement.StringType.UNIVERSAL_CHARSTRING, StringSetConstraint.ConstraintType.ALPHABET_CONSTRAINT, new RangeListConstraint(minLimit, maxLimit));
break;
}
default:
ErrorReporter.INTERNAL_ERROR();
return false;
}
subtypeConstraint = (subtypeConstraint == null) ? rangeConstraint : subtypeConstraint.union(rangeConstraint);
return true;
}
use of org.eclipse.titan.designer.AST.TTCN3.values.UniversalCharstring in project titan.EclipsePlug-ins by eclipse.
the class SubType method checkThisValue.
/**
* Checks if a given value is valid according to this sub-type.
*
* @param timestamp
* the time stamp of the actual semantic check cycle.
* @param value
* the value to be checked
*/
public void checkThisValue(final CompilationTimeStamp timestamp, final IValue value) {
if (getIsErroneous(timestamp) || (subtypeConstraint == null)) {
return;
}
if (value.getIsErroneous(timestamp)) {
return;
}
final IValue last = value.getValueRefdLast(timestamp, Expected_Value_type.EXPECTED_DYNAMIC_VALUE, null);
if (last.getIsErroneous(timestamp)) {
return;
}
boolean isValid = true;
switch(last.getValuetype()) {
case INTEGER_VALUE:
if (subtypeType != SubType_type.ST_INTEGER) {
ErrorReporter.INTERNAL_ERROR();
return;
}
isValid = subtypeConstraint.isElement(new IntegerLimit(((Integer_Value) last).getValueValue()));
break;
case REAL_VALUE:
if (subtypeType == SubType_type.ST_FLOAT) {
isValid = subtypeConstraint.isElement(((Real_Value) last).getValue());
break;
} else if (subtypeType == SubType_type.ST_INTEGER) {
final Real_Value real = (Real_Value) last;
if (real.isNegativeInfinity()) {
isValid = subtypeConstraint.isElement(IntegerLimit.MINIMUM);
break;
} else if (real.isPositiveInfinity()) {
isValid = subtypeConstraint.isElement(IntegerLimit.MAXIMUM);
break;
}
}
ErrorReporter.INTERNAL_ERROR();
return;
case BOOLEAN_VALUE:
if (subtypeType != SubType_type.ST_BOOLEAN) {
ErrorReporter.INTERNAL_ERROR();
return;
}
isValid = subtypeConstraint.isElement(((Boolean_Value) last).getValue());
break;
case VERDICT_VALUE:
if (subtypeType != SubType_type.ST_VERDICTTYPE) {
ErrorReporter.INTERNAL_ERROR();
return;
}
isValid = subtypeConstraint.isElement(((Verdict_Value) last).getValue());
break;
case BITSTRING_VALUE:
if (subtypeType != SubType_type.ST_BITSTRING) {
ErrorReporter.INTERNAL_ERROR();
return;
}
isValid = subtypeConstraint.isElement(((Bitstring_Value) last).getValue());
break;
case HEXSTRING_VALUE:
if (subtypeType != SubType_type.ST_HEXSTRING) {
ErrorReporter.INTERNAL_ERROR();
return;
}
isValid = subtypeConstraint.isElement(((Hexstring_Value) last).getValue());
break;
case OCTETSTRING_VALUE:
if (subtypeType != SubType_type.ST_OCTETSTRING) {
ErrorReporter.INTERNAL_ERROR();
return;
}
isValid = subtypeConstraint.isElement(((Octetstring_Value) last).getValue());
break;
case CHARSTRING_VALUE:
switch(subtypeType) {
case ST_CHARSTRING:
isValid = subtypeConstraint.isElement(((Charstring_Value) last).getValue());
break;
case ST_UNIVERSAL_CHARSTRING:
isValid = subtypeConstraint.isElement(new UniversalCharstring(((Charstring_Value) last).getValue()));
break;
default:
ErrorReporter.INTERNAL_ERROR();
return;
}
break;
case UNIVERSALCHARSTRING_VALUE:
if (subtypeType != SubType_type.ST_UNIVERSAL_CHARSTRING) {
ErrorReporter.INTERNAL_ERROR();
return;
}
isValid = subtypeConstraint.isElement(((UniversalCharstring_Value) last).getValue());
break;
case SEQUENCEOF_VALUE:
case SETOF_VALUE:
case OBJECTID_VALUE:
case ENUMERATED_VALUE:
case CHOICE_VALUE:
case SEQUENCE_VALUE:
case SET_VALUE:
case FUNCTION_REFERENCE_VALUE:
case ALTSTEP_REFERENCE_VALUE:
case TESTCASE_REFERENCE_VALUE:
if (value.isUnfoldable(timestamp)) {
return;
}
isValid = subtypeConstraint.isElement(last);
break;
default:
return;
}
if (!isValid) {
value.getLocation().reportSemanticError(MessageFormat.format("{0} is not a valid value for type `{1}'' which has subtype {2}", last.createStringRepresentation(), myOwner.getTypename(), subtypeConstraint.toString()));
}
}
use of org.eclipse.titan.designer.AST.TTCN3.values.UniversalCharstring in project titan.EclipsePlug-ins by eclipse.
the class UStringValueConstraint method except.
/**
* return (first - second) set
*/
@Override
public UStringValueConstraint except(final SubtypeConstraint other) {
final UStringValueConstraint o = (UStringValueConstraint) other;
final Set<UniversalCharstring> returnValue = new TreeSet<UniversalCharstring>();
for (UniversalCharstring str : values) {
if (!o.values.contains(str)) {
returnValue.add(str);
}
}
return new UStringValueConstraint(returnValue);
}
use of org.eclipse.titan.designer.AST.TTCN3.values.UniversalCharstring in project titan.EclipsePlug-ins by eclipse.
the class UStringValueConstraint method toString.
@Override
public /**
* {@inheritDoc}
*/
void toString(final StringBuilder sb) {
sb.append('(');
boolean needComma = false;
for (UniversalCharstring str : values) {
if (needComma) {
sb.append(", ");
}
sb.append('\"').append(str.getStringRepresentation()).append('\"');
needComma = true;
}
sb.append(')');
}
Aggregations