public static void Check_FreeFormatDocument()
{
DocumentFormat docFormat = DocumentFormat.FreeTextFormat;
SourceFileProvider fileProvider = new SourceFileProvider();
fileProvider.AddLocalDirectoryLibrary(
PlatformUtils.GetPathForProjectFile(@"Compiler\Text\Samples"),
false, new string[] { ".cpy" },
docFormat.Encoding, docFormat.EndOfLineDelimiter, docFormat.FixedLineLength);
CobolFile cobolFile;
if (!fileProvider.TryGetFile("MSVCINP free format", out cobolFile))
{
throw new Exception("File MSVCINP free format.cpy not found");
}
// Load the CobolFile in a TextDocument
ReadOnlyTextDocument textDocument = new ReadOnlyTextDocument("MSVCINP free format.cpy", docFormat.Encoding, docFormat.ColumnsLayout, cobolFile.ReadChars());
if (textDocument.CharAt(0) != '/')
{
throw new Exception("Character at position 0 should be 0");
}
if (textDocument.CharAt(92) != 'a')
{
throw new Exception("Character at position 92 should be a");
}
if (textDocument.CharAt(2582) != '/')
{
throw new Exception("Character at position 2582 should be /");
}
if (textDocument.CharAt(2522) != ' ')
{
throw new Exception("Character at position 2522 should be space");
}
if (textDocument.Chars.Skip(90).First() != 'a')
{
throw new Exception("Character enumerator after 90 iterations should return a");
}
ReadOnlyTextLine line = (ReadOnlyTextLine)textDocument.GetLineByIndex(0);
if (line.Length != 65 || line.LineIndex != 0 || line.StartOffset != 0 ||
line.Text != "/----------------------------------------------------------------")
{
throw new Exception("Incorrect line at index 0");
}
line = (ReadOnlyTextLine)textDocument.GetLineByIndex(1);
if (line.Length != 96 || line.LineIndex != 1 || line.StartOffset != 67 ||
line.Text != "* MSVCINP partie ALLER FIXE des MESSAGES échangés avec tout SERVICE APPLICATIF C14")
{
throw new Exception("Incorrect line at index 1");
}
line = (ReadOnlyTextLine)textDocument.GetLineByIndex(36);
if (line.Length != 66 || line.LineIndex != 36 || line.StartOffset != 2529 ||
line.Text != "d 05 PIC X(008) VALUE '/MSVCINP'. ")
{
throw new Exception("Incorrect line at index 36");
}
int indexOfCharInLine = -1;
line = (ReadOnlyTextLine)textDocument.GetLineByOffset(12, out indexOfCharInLine);
if (line.LineIndex != 0 || indexOfCharInLine != 12)
{
throw new Exception("Incorrect line at offset 12");
}
line = (ReadOnlyTextLine)textDocument.GetLineByOffset(881, out indexOfCharInLine);
if (line.LineIndex != 11 || indexOfCharInLine != 48)
{
throw new Exception("Incorrect line at offset 881");
}
line = (ReadOnlyTextLine)textDocument.GetLineByOffset(2509, out indexOfCharInLine);
if (line.LineIndex != 35 || indexOfCharInLine != 48)
{
throw new Exception("Incorrect line at offset 2509");
}
if (textDocument.Length != 2595)
{
throw new Exception("Document should have length 2595");
}
if (textDocument.LineCount != 37)
{
throw new Exception("Document should have 37 line count");
}
if (textDocument.Lines.Count() != 37)
{
throw new Exception("Document should have 37 lines");
}
}
public static void Check_ReferenceFormatDocument()
{
DocumentFormat docFormat = DocumentFormat.RDZReferenceFormat;
SourceFileProvider fileProvider = new SourceFileProvider();
fileProvider.AddLocalDirectoryLibrary(
PlatformUtils.GetPathForProjectFile(@"Compiler\Text\Samples"),
false, new string[] { ".cpy" },
docFormat.Encoding, docFormat.EndOfLineDelimiter, docFormat.FixedLineLength);
CobolFile cobolFile;
if (!fileProvider.TryGetFile("MSVCOUT", out cobolFile))
{
throw new Exception("File MSVCOUT.cpy not found");
}
// Load the CobolFile in a TextDocument
ReadOnlyTextDocument textDocument = new ReadOnlyTextDocument("MSVCOUT.cpy", docFormat.Encoding, docFormat.ColumnsLayout, cobolFile.ReadChars());
if (textDocument.CharAt(0) != '0')
{
throw new Exception("Character at position 0 should be 0");
}
if (textDocument.CharAt(90) != 'M')
{
throw new Exception("Character at position 90 should be M");
}
if (textDocument.CharAt(18345) != '/')
{
throw new Exception("Character at position 18345 should be /");
}
if (textDocument.CharAt(18365) != '1')
{
throw new Exception("Character at position 18365 should be 1");
}
if (textDocument.Chars.Skip(88).First() != 'M')
{
throw new Exception("Character enumerator after 88 iterations should return M");
}
ReadOnlyTextLine line = (ReadOnlyTextLine)textDocument.GetLineByIndex(0);
if (line.Length != 80 || line.LineIndex != 0 || line.StartOffset != 0 ||
line.Text != "000010*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 00001001")
{
throw new Exception("Incorrect line at index 0");
}
line = (ReadOnlyTextLine)textDocument.GetLineByIndex(1);
if (line.Length != 80 || line.LineIndex != 1 || line.StartOffset != 82 ||
line.Text != "000020*-Maintenance frame - Created on 14 Oct 2013 at 17:27:08 00002001")
{
throw new Exception("Incorrect line at index 1");
}
line = (ReadOnlyTextLine)textDocument.GetLineByIndex(223);
if (line.Length != 80 || line.LineIndex != 223 || line.StartOffset != 18286 ||
line.Text != "002240 05 PIC X(08) VALUE '/MSVCOUT'. 02010001")
{
throw new Exception("Incorrect line at index 223");
}
int indexOfCharInLine = -1;
line = (ReadOnlyTextLine)textDocument.GetLineByOffset(12, out indexOfCharInLine);
if (line.LineIndex != 0 || indexOfCharInLine != 12)
{
throw new Exception("Incorrect line at offset 12");
}
line = (ReadOnlyTextLine)textDocument.GetLineByOffset(159, out indexOfCharInLine);
if (line.LineIndex != 1 || indexOfCharInLine != 77)
{
throw new Exception("Incorrect line at offset 159");
}
line = (ReadOnlyTextLine)textDocument.GetLineByOffset(17899, out indexOfCharInLine);
if (line.LineIndex != 218 || indexOfCharInLine != 23)
{
throw new Exception("Incorrect line at offset 17899");
}
if (textDocument.Length != 18366)
{
throw new Exception("Document should have length 18366");
}
if (textDocument.LineCount != 224)
{
throw new Exception("Document should have 224 line count");
}
if (textDocument.Lines.Count() != 224)
{
throw new Exception("Document should have 224 lines");
}
}