Re: Nested declares, constant size arrays and clarity

[anon@anon.org (anon)]

There are basically two ways of dealing with your question.

The First is to create a function or procedure that contains the statements 

     type MyTypeArray is array (1...sizegiven) of MyType;
     MyArray: MyTypeArray;

and then place this and all other routines as children of MXP.  In this 
case, it is easier to use pointers.

The second way is to create a package for MyType. And place all 
funtions and  procedures that handles the internal working of 
MyType within that package. 

        You need need routines for:

            function:   Create_MyType_Array ( Size, ... )
            procedure:  Destroy_MyType_Array ( MyTypeArray )
            function:   Retrive_MyTypeArray ( Index, element ) 
            procedure:  Store_MyTypeArray ( Index, 
                                            element, value, ... ) 
            ...
            If needed:
              procedure:  Get ( MyTypeArray, ... )
              procedure:  Put ( MyTypeArray, ... )


Then the main routine could call these routines.




In <fe1748$it1$1@nemesis.news.tpi.pl>, Mateusz Papiernik <mati@maticomp.net> writes:
>Hey!
>
>I'm starting off with Ada95. I'm having some problems with clarity of my 
>solution, which - I think - is not as good as I would like to.
>
>I've got my root procedure in which I read some number from the standard 
>input. Then I create an array of MyType with size read before.
>
>procedure mxp is
>   ... -- some record type declarations
>   ... -- some *functions*
>begin
>   ... -- read size
>   declare
>     type MyTypeArray is array (1...sizegiven) of MyType;
>     MyArray: MyTypeArray;
>     ... -- some *functions* doing something with newly made array
>   begin
>     ... -- these function calls
>   end;
>end;
>
>The problem is, I don't really like the idea of declaring some functions 
>in the root procedure declaration, and some others in nested declare 
>section. Due to that I've got function implementations in two places, 
>which somehow feels awkward to me.
>
>Is there any way to accomplish the same without that nesting _and_ 
>without building external module/using OOP/pointers?
>
>Maybe there is a way to define general array type of unknown size, then 
>declare functions doing something with it in the topmost declaration 
>section, and then only somehow initialise the array with given size?
>
>
>
>Thanks for any advice!
>-- 
>Mateusz Papiernik, Maticomp Webdesign
>Projektowanie i realizacja witryn WWW
>mati@maticomp.net, http://www.maticomp.net
>"One man can make a difference" - Wilton Knight