WITH REPORT; USE REPORT;
WITH TEXT_IO; USE TEXT_IO;
PROCEDURE CE3604B IS
BEGIN
TEST ("CE3604B", "CHECK THAT GET_LINE READS LINES APPROPRIATELY");
DECLARE
INCOMPLETE : EXCEPTION;
FILE : FILE_TYPE;
ITEM1 : STRING (1 .. 19);
ITEM2 : STRING (1 .. 20);
NULL_ITEM : STRING (2 .. 1);
LAST : NATURAL;
BEGIN
BEGIN
CREATE (FILE, OUT_FILE, LEGAL_FILE_NAME);
EXCEPTION
WHEN USE_ERROR =>
NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT CREATE " &
"WITH OUT_FILE MODE");
RAISE INCOMPLETE;
WHEN NAME_ERROR =>
NOT_APPLICABLE ("NAME_ERROR RAISED ON TEXT " &
"CREATE WITH OUT_FILE MODE");
RAISE INCOMPLETE;
WHEN OTHERS =>
FAILED ("UNEXPECTED EXCEPTION RAISED ON TEXT " &
"CREATE");
RAISE INCOMPLETE;
END;
PUT (FILE, "FIRST LINE OF INPUT");
NEW_LINE (FILE);
PUT (FILE, "SECOND LINE OF INPUT");
NEW_LINE (FILE);
PUT (FILE, "THIRD LINE OF INPUT");
CLOSE (FILE);
BEGIN
OPEN (FILE, IN_FILE, LEGAL_FILE_NAME);
EXCEPTION
WHEN USE_ERROR =>
NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT OPEN " &
"WITH IN_FILE MODE");
RAISE INCOMPLETE;
END;
GET (FILE, ITEM1);
IF ITEM1 /= "FIRST LINE OF INPUT" THEN
FAILED ("INCORRECT VALUE FOR GET");
END IF;
GET_LINE (FILE, NULL_ITEM, LAST);
IF LINE (FILE) /= 1 THEN
FAILED ("INCORRECT LINE NUMBER AFTER GET_LINE - 1");
END IF;
IF COL (FILE) /= 20 THEN
FAILED ("INCORRECT COLUMN NUMBER AFTER GET_LINE - 1");
END IF;
SKIP_LINE (FILE);
GET_LINE (FILE, ITEM2, LAST);
IF ITEM2 /= "SECOND LINE OF INPUT" THEN
FAILED ("INCORRECT VALUE FOR GET_LINE");
END IF;
IF LINE (FILE) /= 2 THEN
FAILED ("INCORRECT LINE NUMBER AFTER GET_LINE - 2");
END IF;
IF COL (FILE) /= 21 THEN
FAILED ("INCORRECT COLUMN NUMBER AFTER GET_LINE - 2");
END IF;
BEGIN
DELETE (FILE);
EXCEPTION
WHEN USE_ERROR =>
NULL;
END;
EXCEPTION
WHEN INCOMPLETE =>
NULL;
END;
RESULT;
END CE3604B;