Path: news.cs.au.dk!news.net.uni-c.dk!newsfeed1.uni2.dk!newsfeed1.swip.net!swipnet!masternews.telia.net!newsfeed101.telia.com!news101.telia.com!not-for-mail
From: Bo Normann <normann@stofanet.dk>
Newsgroups: comp.lang.beta
Subject: Using persistent stores and Arraycontainer
Date: Fri, 29 Jan 1999 18:53:07 +0100
Organization: Customer at Telia Danmark (http://www.telia.dk)
Lines: 51
Message-ID: <36B1F583.10425635@stofanet.dk>
NNTP-Posting-Host: pc81009.stofanet.dk
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: news101.telia.com 917632243 20860 212.10.18.9 (29 Jan 1999 17:50:43 GMT)
X-Complaints-To: abuse@telia.dk
NNTP-Posting-Date: 29 Jan 1999 17:50:43 GMT
X-Mailer: Mozilla 4.5 [en] (Win98; I)
X-Accept-Language: en
Xref: news.cs.au.dk comp.lang.beta:11804

Hello,

I want to save the following stucture :

        Cal: ^Calender;
        exist: @boolean;
        PSname : ^text;
        Person: (# Bill: @Integer; Name: ^Text; No: @Integer;  #);
        Calender: arraycontainer
          (#
             element:: Person;
             CapacityInitial::  (#  do 12->value; INNER #)
          #);

in a persistent store, and I've done it like this

        &Calender[]->Cal[];
        Cal.init;
        Cal.CapacityInitial;
        'Hej' -> psName[];
        true -> exists;
        open:
          psName[] -> PS.openWrite
        (# notFound::<
             (# do psName[] -> PS.create; false -> exists; leave open #)

        #);
        (if not exists then
            'created' -> putLine;
            (Cal[],'Roomlist') -> PS.put;
         else
            'opened' -> putLine;
            ('Roomlist', Cal##) -> PS.get -> Cal[];
        if);
        PS.close; 'closed' -> putLine;

But when it is about to be created the following error occurs :

Component instance of PROGRAM - encountered

ObjectSerializer: Components not handled.

Now I know that components canīt be stored persistent but I've made
something similar last time I used  BETA, and it worked then and I don't
see that I've declared any components !

If you know, then please write

Kind regards
Bo