Re: Multiple procedures in the same adb file?

[John Smith <yoursurrogategod@gmail.com>]

Hello Bob,

Thanks, that was really helpful.  I got it to work by making the appropriate *.ads and *.adb files.  I also had it working as a nested function.

It seems a tad tedious at first, but it does make sense.  Heck, even C/C++ recommends a similar approach.  You want to separate the declaration from the implementation.

On Sunday, January 11, 2015 at 2:51:32 PM UTC-5, Robert A Duff wrote:
> John Smith <you...@gmail.com> writes:
> 
> > I have a question, what if I want multiple procedures in the same adb
> > file, can that be done?  ...
> 
> The simplest thing is to have a single procedure that is your main
> procedure, and everything else in packages or generic packages.
> The main procedure goes in one file, and each package spec and each
> package body in a separate file.  The naming convention is x.ads for
> specs and x.adb for bodies, where x is the name of the compilation_unit
> (i.e. the package spec or body or procedure body).
> 
> You don't have to do that.  There are ways to use different naming
> conventions, put multiple compilation units in one files, etc,
> but they are a nuisance.  Look up gnatchop, pragma Source_File_Name,
> and project files if you really want to do it differently than
> the standard GNAT way.
> 
> The main procedure doesn't need a spec, but it can have one.
> It is unwise to have procedures outside of packages (other than the
> main procedure, which Ada annoyingly doesn't allow to be in a package).
> 
> For medium-to-large programs, use child packages.  A single root package
> (or small number of them), with everything else being child, grandchild,
> and so on of the root(s).  The main procedure can be a root, or can be a
> child of your single root package.
> 
> > ===============================================================================
> > procedure a_test(A, B : Integer; C : out Integer) is
> > begin
> >   C := A + B;
> > end a_test;
> >
> > procedure test_procedure is
> >   output : Integer;
> > begin
> >   a_test(23, 34, output);
> > end test_procedure;
> > ===============================================================================
> 
> Note that you could nest a_test inside test_procedure.
> 
> It's a good idea to follow common style rules, such as calling those
> A_Test and Test_Procedure.  (But the file names should be in lower
> case.)
> 
> - Bob