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=-1.4 required=5.0 tests=BAYES_00,SUBJ_ALL_CAPS
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9c41ceb9ae09ec6d,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-03-07 19:45:14 PST
Newsgroups: comp.lang.ada
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!swrinde!elroy.jpl.nasa.gov!lll-winken.llnl.gov!taurus.cs.nps.navy.mil!news
From: Tuan Anh Nguyen <tanguyen@nps.navy.mil>
Subject: ADA FUNCTIONS TO PROCEDURES
Message-ID: <D53qsF.GKx@taurus.cs.nps.navy.mil>
Sender: news@taurus.cs.nps.navy.mil
Organization: Naval Postgraduate School, Monterey
Date: Wed, 8 Mar 1995 03:24:15 GMT
Date: 1995-03-08T03:24:15+00:00
List-Id: <comp.lang.ada>

Hi,
I'm looking for a utility program that would allow me to convert all
functions into procedures.
For example:

functions equal(Left:  in int;
                Right: in int) return Boolean;

in the specification add the following:

procedure equal(Left:   in int;
                Right:  in int;
                Result: in Boolean);

and in the body add the following:


procedure equal(Left:   in int;
                Right:  in int;
                Result: in Boolean) is
begin
   Result := equal(Left,Right);
end equal;


Please email to tanguyen@nps.navy.mil
Thanks