From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=0.4 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,59f7e099a1b75f38 X-Google-NewGroupId: yes X-Google-Attributes: gida07f3367d7,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Received: by 10.68.75.170 with SMTP id d10mr3427142pbw.6.1327005340143; Thu, 19 Jan 2012 12:35:40 -0800 (PST) Path: lh20ni201040pbb.0!nntp.google.com!news1.google.com!news.glorb.com!news.netfront.net!not-for-mail From: Jeffrey Carter Newsgroups: comp.lang.ada Subject: Re: source code line counting in ada Date: Thu, 19 Jan 2012 13:35:37 -0700 Organization: Also freenews.netfront.net; news.tornevall.net Message-ID: References: <2a71b926-6ba5-4bb4-a4bf-c575e1a9711c@z12g2000yqm.googlegroups.com> NNTP-Posting-Host: 97.215.243.213 Mime-Version: 1.0 X-Trace: adenine.netfront.net 1327005339 53043 97.215.243.213 (19 Jan 2012 20:35:39 GMT) X-Complaints-To: news@netfront.net NNTP-Posting-Date: Thu, 19 Jan 2012 20:35:39 +0000 (UTC) User-Agent: Mozilla/5.0 (X11; Linux i686; rv:8.0) Gecko/20111124 Thunderbird/8.0 In-Reply-To: <2a71b926-6ba5-4bb4-a4bf-c575e1a9711c@z12g2000yqm.googlegroups.com> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Date: 2012-01-19T13:35:37-07:00 List-Id: 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 news@netfront.net ---