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.1 required=5.0 tests=BAYES_05,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,dc3610680b3a0711,start
X-Google-Attributes: gid103376,public
From: Bug <srivet@ensica.fr>
Subject: student needs help for his project
Date: 1999/01/11
Message-ID: <369A311A.156DA9A1@ensica.fr>#1/1
X-Deja-AN: 431295746
Content-Transfer-Encoding: 7bit
X-Accept-Language: fr,en
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@clinux.ml.org
X-Trace: clinux.cz.js.cn 916074564 11783 193.54.120.14 (11 Jan 1999 17:09:24
 GMT)
Mime-Version: 1.0
NNTP-Posting-Date: 11 Jan 1999 17:09:24 GMT
Newsgroups: comp.lang.ada
Date: 1999-01-11T17:09:24+00:00
List-Id: <comp.lang.ada>

Hi i'd like to ask you a question.

I need to create a proggy like excel (very simplified of course)

I've got an array of cells and each cells contain infos such as -string
or expression to be evaluated

-cords of the cell in the array

-a pointer to a list of child cells (that depends on the content of the
parent one)

Ok are you following me? yep i think (sorry for the bad english but i'm
french... :)   )

I've got some packages to do this but two of them are giving me white
hair
                -the one that define the object "cell"
                -the one that define the object "list" (a list is a
chained list if the name is the same in french and in english)

Ok then, the list contains the pointers towards the child cells so in
the package list.ads, i need to refer to the package cells.ads, but as i

need list object i the definition of a cell i need to refer to the
package list.ads...it's like the snake that bit his tail...

Of course the compiler reject the thing..

SO what i wanted to know is wether i need simply to think agin my
construction or if a solution exists.

Here is part of the code :

*********************************************
with list,...;
use list,.....;

package cells is

..........

type cell is record
        content : ptr_content;           -- ptr content is a record of
two access types defined somewhere not important
        pos       : cords;                    -- line and row
        child_list : chained_list;               -- defined in the
list.ads
end record;

type ptr_cell is access cell;
..........

end cells;

*****************************************
with cells;
use cells;
package list is

....................
type ring;
type ptr_ring is access ring;
type ring is record
       information : ptr_cell;
       link : ptr_ring;
end record;
type chained_list is record
        lenght:natural;
        firts_case:ptr_ring;
end record;

.............

end list;