On 01/19/2012 02:39 AM, tonyg wrote:
>
> Is there a utility that can count lines of ada source code? Maybe
> there is something in gnat-gps?
I have a program called ASC (Ada Statement Counter) which is just a wrapper
around the public-domain COUNT_OF_ADA_STATEMENTS from the Ada Software
Repository. I can send it to you if you're interested. ASC is Ada 95 (uses
command line); COUNT_OF_ADA_STATEMENTS is Ada 83.
-------- SIMTEL20 Ada Software Repository Prologue ------------
-- Unit name : COUNT_OF_ADA_STATEMENTS_3
-- Version : 1.3
-- Author : Richard Conn
-- : MACA (from work submitted by TI)
-- DDN Address : RCONN at SIMTEL20
-- Derivation : COUNT_OF_ADA_STATEMENTS_2 by Richard Conn
-- Derivation : COUNT_OF_ADA_STATEMENTS by Bill Whitaker
-- Date created : 4 Apr 85
-- Release date : 4 Apr 85
-- Last update : 6 Jan 89
-- Machine/System Compiled/Run on: DEC VAX/VMS with DEC Ada
-- : Data General MV8000 with ROLM Ada
-- : SUN 3/260 with Verdix Ada
---------------------------------------------------------------
-- Keywords : Source analysis, Statement Count, Line Count, Hash
-- Abstract :
-- This procedure calculates the "STATEMENTS" of a valid Ada fragment
-- specified by a FILE_NAME string parameter. It need not be a complete
-- compilation unit, but it should have closed all open parens and
-- strings.
--
-- The Ada statement is defined by a semicolon terminator
-- outside of comments, parentheses, or string or character literals.
-- This definition is insensitive to formatting or layout of the source.
--
-- There are exotic cases for which this will misestimate the count
-- but we have never encountered one in real code.
--
-- This procedure is derived from Bill Whitaker's original
-- COUNT_OF_ADA_STATEMENTS, and it does not change his original algorithm.
-- It adds a line count and a character-checksum hash (sum of POS values of
-- all non-space characters in the file mod 256). It also adds a count
-- of the comment lines (over CAS2, which does not).
------------------ Revision history ---------------------------
-- DATE VERSION AUTHOR HISTORY
-- 19850215 1.0 R Conn Initial Release
-- 19850506 1.1 R Conn Overflow Traps Added
-- 19850624 1.2 R Conn Bug in Single-Quote Proc Fixed
-- 19890106 1.3 R Conn Improved Ada style;
-- removed need for CSET package
------------------ Distribution and Copyright -----------------
-- This software is released to the Public Domain (note:
-- software released to the Public Domain is not subject
-- to copyright protection).
------------------ Disclaimer ---------------------------------
-- This software and its documentation are provided "AS IS" and
-- without any expressed or implied warranties whatsoever.
-- No warranties as to performance, merchantability, or fitness
-- for a particular purpose exist.
-- In no event shall any person or organization of people be
-- held responsible for any direct, indirect, consequential
-- or inconsequential damages or lost profits.
-------------------END-PROLOGUE--------------------------------
--
Jeff Carter
"What lazy lout left these wires all over the lawn?"
Poppy
98
--- Posted via news://
freenews.netfront.net/ - Complaints to
ne...@netfront.net ---