public DataOrConditionStorageArea(SymbolReference symbolReference) : base(StorageAreaKind.DataOrCondition) { SymbolReference = symbolReference; Subscripts = new List<SubscriptExpression>(); }
public StorageAreaPropertySpecialRegister(Token specialRegisterName, StorageArea storageAreaReference) : base(StorageAreaKind.StorageAreaPropertySpecialRegister) { SpecialRegisterName = specialRegisterName; OtherStorageAreaReference = storageAreaReference; // This is both a storage area definition and a reference to the same storage area var storageAreaName = storageAreaReference != null ? storageAreaReference.ToString() : "null"; DataDescriptionEntry = new SpecialRegisterDescriptionEntry(specialRegisterName, storageAreaName); SymbolReference = new SymbolReference(DataDescriptionEntry.DataName); }
public FilePropertySpecialRegister(Token specialRegisterName, SymbolReference fileNameReference) : base(StorageAreaKind.FilePropertySpecialRegister) { SpecialRegisterName = specialRegisterName; FileNameReference = fileNameReference; // This is both a storage area definition and a reference to the same storage area DataDescriptionEntry = new SpecialRegisterDescriptionEntry(specialRegisterName, fileNameReference.ToString()); SymbolReference = new SymbolReference(DataDescriptionEntry.DataName); }
public IndexStorageArea(SymbolReference indexNameReference) : base(StorageAreaKind.Index) { SymbolReference = indexNameReference; }
public UserDefinedFunctionCall(SymbolReference functionName, CallSiteParameter[] arguments) : base(FunctionCallType.UserDefinedFunctionCall, arguments) { UserDefinedFunctionName = functionName; }
public Variable(SymbolReference reference) : base(StorageDataType.Any, null) { SymbolReference = reference; }
public virtual bool Visit(SymbolReference symbolReference) { return(true); }
public IntrinsicStorageArea(SymbolReference symbolReference) : base(StorageAreaKind.DataOrCondition) { this.SymbolReference = symbolReference; }
public SymbolDefinition(SymbolReference symbol) : this(symbol!=null? symbol.NameLiteral : null, symbol!=null? symbol.Type: SymbolType.TO_BE_RESOLVED) { }
private void CheckNotInTable(SymbolTable table, SymbolReference symbol, CodeElement ce) { if (symbol == null) return; string message = "TCRFUN_NO_PERFORM_OF_ENCLOSING_PROGRAM"; var found = table.GetSection(symbol.Name); if (found.Count > 0) DiagnosticUtils.AddError(ce, message); else { found = table.GetParagraph(symbol.Name); if (found.Count > 0) DiagnosticUtils.AddError(ce, message); } }
public QualifiedSymbolReference(SymbolReference head, SymbolReference tail) : base(head.NameLiteral, head.Type) { IsAmbiguous = head.IsAmbiguous; IsQualifiedReference = true; Head = head; Tail = tail; }
public Parameter(SymbolReference name, bool isCustom, DataType type, int length=int.MaxValue) { this.Name = name; this.Type = type; this.Length = length; if (length < 1) throw new System.ArgumentOutOfRangeException("Length must be >0 (actual: "+length+')'); this.IsCustom = isCustom; }
public Parameter(SymbolReference name) : this(name, false, null, int.MaxValue) { }
public ClassCondition(StorageArea dataItem, SymbolReference characterClassNameReference, SyntaxProperty<bool> invertResult) : base(ExpressionNodeType.ClassCondition) { DataItem = dataItem; CharacterClassNameReference = characterClassNameReference; InvertResult = invertResult; }
public AlphanumericValue(SymbolReference symbolicCharacterReference) : base(symbolicCharacterReference.NameLiteral.Token) { IsSymbolicCharacterReference = true; }
internal SymbolReference CreateSymbolReference(CodeElementsParser.SymbolReference12Context context, SymbolType symbolType) { AlphanumericValue nameLiteral = null; if (context.alphanumericValue4() != null) { nameLiteral = CreateAlphanumericValue(context.alphanumericValue4()); } else if(context.DATE() != null) { nameLiteral = new AlphanumericValue(ParseTreeUtils.GetFirstToken(context.DATE())); } var symbolReference = new SymbolReference(nameLiteral, symbolType); symbolInformationForTokens[nameLiteral.Token] = symbolReference; return symbolReference; }
public CharacterValue(SymbolReference symbolicCharacterReference) : base(symbolicCharacterReference) { }
public RepeatedCharacterValue(Token optionalALLToken, SymbolReference symbolicCharacterReference) : base(symbolicCharacterReference) { ALLToken = optionalALLToken; }
public SymbolReferenceVariable(StorageDataType symbolType, SymbolReference symbolReference) : base(symbolType, null) { SymbolReference = symbolReference; }
private static CallTargetParameter CreateCallTargetParameter(ParameterDescriptionEntry param) { var symbolReference = new SymbolReference(param.DataName); var storageArea = new DataOrConditionStorageArea(symbolReference); var callParameter = new CallTargetParameter { StorageArea = storageArea }; return callParameter; }
public VariableOrExpression(SymbolReference symbolReference) : base(symbolReference) { }
public TypeCobolQualifiedSymbolReference(SymbolReference head, SymbolReference tail) : base(head, tail) { IsTypeCobolQualifiedReference = true; }
public FunctionCallResult(FunctionCall functionCall) : base(StorageAreaKind.FunctionCallResult) { FunctionCall = functionCall; // This is both a storage area definition and a reference to the same storage area int uniqueCounter = Interlocked.Increment(ref callSiteCounter); DataDescriptionEntry = new FunctionCallResultDescriptionEntry(functionCall, uniqueCounter); SymbolReference = new SymbolReference(DataDescriptionEntry.DataName); }
internal SymbolReference CreateSymbolReference(CodeElementsParser.SymbolReference11Context context, SymbolType symbolType) { AlphanumericValue nameLiteral = CreateAlphanumericValue(context.alphanumericValue11()); var symbolReference = new SymbolReference(nameLiteral, symbolType); symbolInformationForTokens[nameLiteral.Token] = symbolReference; return symbolReference; }
public ProcedureCall(SymbolReference name, List<CallSiteParameter> inputs, List<CallSiteParameter> inouts, List<CallSiteParameter> outputs) : base(FunctionCallType.UserDefinedFunctionCall, null) { ProcedureName = name; InputParameters = inputs ?? new List<CallSiteParameter>(); InoutParameters = inouts ?? new List<CallSiteParameter>(); OutputParameters = outputs ?? new List<CallSiteParameter>(); }
public FilePropertySpecialRegister(Token specialRegisterName, SymbolReference fileNameReference) : base(StorageAreaKind.FilePropertySpecialRegister) { SpecialRegisterName = specialRegisterName; SymbolReference = fileNameReference; }
public DataOrConditionStorageArea(SymbolReference subscriptedSymbolReference, SubscriptExpression[] subscripts) : base(StorageAreaKind.DataOrCondition) { SymbolReference = subscriptedSymbolReference; Subscripts = new List<SubscriptExpression>(subscripts); }
public DataOrConditionStorageArea(SymbolReference symbolReference) : base(StorageAreaKind.DataOrCondition) { SymbolReference = symbolReference; Subscripts = new List <SubscriptExpression>(); }
public DataOrConditionStorageArea(SymbolReference subscriptedSymbolReference, SubscriptExpression[] subscripts) : base(StorageAreaKind.DataOrCondition) { SymbolReference = subscriptedSymbolReference; Subscripts = new List <SubscriptExpression>(subscripts); }
public TableSortingKey(SymbolReference sortKey, SyntaxProperty<SortDirection> sortDirection) { SortKey = sortKey; SortDirection = sortDirection; }
private SymbolReference CreateQualifiedSymbolReference(SymbolReference head, SymbolReference tail, bool isCOBOL = true) { if (isCOBOL) return new QualifiedSymbolReference(head, tail); else return new TypeCobolQualifiedSymbolReference(head, tail); }