DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦161f71939⟧ TextFile

    Length: 1081 (0x439)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

-- This procedure is intended to count various kind of lines in an
-- Ada unit and print out a report.
--
-- Totals should be provided for the following:
--
--     1) All lines
--     2) Comment lines
--     3) Blank lines
--     4) Non-comment Lines that end with a semi-colon
--
--
-- The report should print totals is aligned columns suitable for printing
-- multiple files in a single report.
--
-- You should also define and implement a procedure that puts a banner for
-- each total so that the data can be labeld.  With a call first to generate
-- the banner, then multiple calls to print data, the output should look
-- something like:
--
--  Blank Lines   Comment_Lines   Number of Semicolons   Total    File_name
--  -----------   -------------   --------------------   -----    ---------
--      10               6                14               36          Test
--       8              14                10               28         Count
--      54             111                 2              184       Flipper
--
--
--
procedure Count_Lines (Filename : String);