public WorkingStorageSection(CobolFile cobolFile) : base(
cobolFile,
"Working-Storage Section",
cobolFile.DivisionsAndSection.WorkingStorage.GetValueOrDefault(-1),
cobolFile.DivisionsAndSection.Linkage.GetValueOrDefault(-1))
{
}
public Procedure(CobolFile cobolFile, string name, int beginIndex, int endIndex) : base(cobolFile, name)
{
StartIndex = beginIndex;
EndIndex = endIndex;
PerformReferences = new List <PerformReference>();
GoToReferences = new List <GoToReference>();
IsReferencedBy = new List <PerformReference>();
CallReferences = new List <FileReference>();
VariableUsages = new ConcurrentDictionary <Variable, UsedAs>();
}
public EnvironmentDivision(CobolFile cobolFile) : base(cobolFile, "Environment Division",
cobolFile.DivisionsAndSection.Environment.GetValueOrDefault(-1),
cobolFile.DivisionsAndSection.Data.GetValueOrDefault(-1))
{
}
public DataDivision(CobolFile cobolFile) : base(cobolFile, "Data Division",
cobolFile.DivisionsAndSection.Data.GetValueOrDefault(-1),
cobolFile.DivisionsAndSection.Procedure.GetValueOrDefault(-1))
{
}
public IdentificationDivision(CobolFile cobolFile) : base(cobolFile, "Identification Division",
cobolFile.DivisionsAndSection.Identification.GetValueOrDefault(-1),
cobolFile.DivisionsAndSection.Environment.GetValueOrDefault(-1))
{
}
public Section(CobolFile cobolFile, string name, int startIndex, int endIndex)
: base(cobolFile, name, startIndex, endIndex)
{
Procedures = new List <Procedure>();
}
public LinkageSection(CobolFile cobolFile) : base(cobolFile, "Linkage Section",
cobolFile.DivisionsAndSection.Linkage.GetValueOrDefault(-1),
cobolFile.DivisionsAndSection.Procedure.GetValueOrDefault(-1))
{
}
public ProcedureDivision(CobolFile cobolFile) : base(cobolFile, "Procedure Division",
cobolFile.DivisionsAndSection.Procedure.GetValueOrDefault(-1),
cobolFile.DivisionsAndSection.Procedure.HasValue && cobolFile.DivisionsAndSection.Procedure.Value > 0 ? cobolFile.Text.Length - 1 : 0)
{
Sections = new List <Section>();
}
/// <summary>
/// Sets the parent reference and name
/// </summary>
/// <param name="cobolFile">reference to a CobolFile</param>
/// <param name="nodeName">Name of the Node</param>
protected CobolTreeNode(CobolFile cobolFile, string nodeName)
{
ParentCobolFile = cobolFile;
Name = nodeName;
}
