Path: utzoo!news-server.csri.toronto.edu!rutgers!ucsd!sdd.hp.com!wuarchive!waikato.ac.nz!comp.vuw.ac.nz!cc-server4.massey.ac.nz!S.J.Lovatt
From: S.J.Lovatt@massey.ac.nz (S.J. Lovatt)
Newsgroups: comp.lang.modula2
Subject: Re: Input /Output
Keywords: TopSpeed Modula-2
Message-ID: <1991Mar12.045507.1323@massey.ac.nz>
Date: 12 Mar 91 04:55:07 GMT
References: <1991Mar11.145624.11910@cs.utwente.nl>
Organization: Massey University, Palmerston North, New Zealand
Lines: 40
X-Reader: NETNEWS/PC Version 2.2

From: hofstede@.cs.utwente.nl (Jaap Hofstede)
>
> We use Modula-2 as language in an introductory course in programming.
> For IO we don't like the standard InOut because it is impossible to
> read (write) more than one file at the same time and we don't like
> the File IO module of the compiler we use (TopSpeed), because of the
> functions used for reading. Is there a more or less 'standard' module
> with IO procedures such as those of InOut, but with an extra file
> parameter?
>
> Jaap Hofstede                               (hofstede@cs.utwente.nl)
> Dept. of Computer Science (INF/SPA)
> University of Twente
> Enschede, Netherlands

I assume that you don't like the non-standard TopSpeed procedure names.

When I am not happy with the names of library functions and procedures, I
use the (non-standard) TopSpeed aliasing mechanism, viz:

WriteString ::= WrStr;

... which allows the same parameter sequence as WrStr, but with a
different name. Much of InOut is actually implemented this way, with its
procedures aliased to IO (if I recall correctly). If you have the library
sources, you could probably just copy InOut (to FileInOut, say) and
replace all references to IO with FIO. That ought to do most of what you
seem to want. I haven't tried this, as I have had little cause to use any
of the 'core' library modules. The TopSpeed procedure names save typing,
and are not much more cryptic, so I stick with them.

Please correct me if I mis-understand your problem.

- Simon


-- 
Simon Lovatt            | S.J.Lovatt@massey.ac.nz |
Dept of Biotechnology   |                         |
Massey University, N.Z. |                         |