Path: news.cs.au.dk!news.inet.tele.dk!news.netscum.dk.MISMATCH!CensurBot!news.tele.dk!News.Tele.DK!news.tele.dk!newsfeedZ.netscum.dQ!netscum.int!news.maxwell.syr.edu!newsfeed.icl.net!newscore.gigabell.net!newsfeed00.sul.t-online.de!t-online.de!skynet.be!poster!not-for-mail
From: Atle <trollet@skynet.be>
Newsgroups: comp.lang.beta
Subject: Plowing on :-)
Date: Wed, 31 May 2000 13:47:12 -0100
Organization: Belgacom Skynet SA/NV
Lines: 43
Message-ID: <393525F0.D11FDA0@skynet.be>
NNTP-Posting-Host: dialup293.charleroi.skynet.be
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: news0.skynet.be 959776786 23513 194.78.236.165 (31 May 2000 12:39:46 GMT)
X-Complaints-To: abuse@skynet.be
NNTP-Posting-Date: 31 May 2000 12:39:46 GMT
X-Mailer: Mozilla 4.51 [en] (X11; I; Linux 2.2.5-15 i686)
X-Accept-Language: en
Xref: news.cs.au.dk comp.lang.beta:12373

Although I don't have a Beta-book yet, I try to do some assignments from a file

~/beta/doc/teaching/teaching-22.html

At assignment nr. 6, we are suppose to analyze the following program and trace its allocations.
I reproduce the program under, to avoid looking it up.

(# Ptn: (# i: @integer;
           t: @text
        enter (i, t)
        do ' ' -> t.put;
           i -> t.putInt
        exit t[]
        #);
   j: @integer;
   s: @text;
   p: @Pth
do (* first sequence *)
   17 -> j;
   's:' -> s;
   (j,s) -> p;
   p -> putline;

   (* second sequence *)
   17 -> j;
   's:' -> s;
   (j,s) -> &Ptn;
   p -> putline
#)

The program will not compile, unfortunately, I am not yet familiar enough with the syntax to fix it.

Eh .. would you (please)?

Atle

---------------------------------------------------------------
Enjoying the great satisfaction of discovering a well designed
programming language statement by statement, line by line,
file by file.
---------------------------------------------------------------