Path: news.cs.au.dk!news.net.uni-c.dk!uninett.no!news.algonet.se!algonet!newsfeed.icl.net!newsfeed.icl.net!skynet.be!poster!not-for-mail
From: Atle <trollet@skynet.be>
Newsgroups: comp.lang.beta
Subject: program 'cat.bet': Suggested implementation?
Date: Sun, 18 Jun 2000 18:43:31 -0100
Organization: Belgacom Skynet SA/NV
Lines: 60
Message-ID: <394D2663.37AB97D4@skynet.be>
NNTP-Posting-Host: dialup292.charleroi.skynet.be
Mime-Version: 1.0
Content-Type: multipart/mixed;
 boundary="------------CBA451EBD3EE8FB4AEB48930"
X-Trace: news0.skynet.be 961346339 2330 194.78.236.164 (18 Jun 2000 16:38:58 GMT)
X-Complaints-To: abuse@skynet.be
NNTP-Posting-Date: 18 Jun 2000 16:38:58 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:12416

This is a multi-part message in MIME format.
--------------CBA451EBD3EE8FB4AEB48930
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

I have gotten to a problem here ... the problems are:

Am I using the right libraries?

I see a ref to 'OK' in basiclib-26.html, but don't understand it.

What does openfile exit?

Thanks, Atle
--------------CBA451EBD3EE8FB4AEB48930
Content-Type: text/plain; charset=us-ascii;
 name="cat.bet"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="cat.bet"


ORIGIN '~beta/basiclib/betaenv';
INCLUDE '~beta/basiclib/file';

-- Program : Descriptor --

(#
	i : @integer;
	showFile :
	(#
		OK : @Boolean;
		fileName: ^text;
		fil: @File;
	enter fileName[]
	do
		fileName[] -> putLine;
		fileName[] -> fil.name;
		fil.openRead -> OK;
		(if	not OK
		then
			'Probbalema not openfila' -> putLine;
			leave showFile
		if);
		readfile:
		(#
			do (if	not fil.eos 
				then
					fil.getline -> putLine;
					restart readfile
				else
					leave readfile
				if);
		#);
	#)
	do (for i:noOfArguments repeat i -> arguments -> showFile for)
#)

--------------CBA451EBD3EE8FB4AEB48930--