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.6 required=5.0 tests=BAYES_05,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!water!watmath!clyde!rutgers!rochester!bbn!uwmcsd1!ig!agate!ucbvax!SCU.BITNET!HYUNG
From: HYUNG@SCU.BITNET (Defender of The Faith)
Newsgroups: comp.lang.ada
Subject: a simple Sequential_IO question
Message-ID: <8802132209.AA06276@jade.berkeley.edu>
Date: 13 Feb 88 22:08:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
List-Id: <comp.lang.ada>

Hello Netlanders:

        I personally know very little about Ada.  I am sending this on
behalf of a professor who is having problems with VAX Ada.  He is trying
to do simple sequential I/O in his program.

----------------------------------------------------------------------
with Sequential_Io;
use Sequential_Io;

procedure file_test is
        infyle, outfyle: file_type;
        var : integer;
begin
        open(infyle, in_file,"input.fil");
        create(outfyle,out_file,"output.fil");
        while not end_of_file(infyle) loop
                read(infyle,var);
                write(outfyle,var);
        end loop;
        close(outfyle);
        close(infyle);
end file_test;

----------------------------------------------------------------------

When I include "use sequential_io", the compiler keeps on telling me
that "sequential_io" is not a generic package.  The professor claims
that the above program works with an Ada compiler on the PC.

I tried to instantiate the package with:

        package s_io is new sequential(integer);
        use s_io;

But that still won't work.  Will some of you Ada gurus out there
help me with this rather simple question?  A sample program with
"sequential_io" would be of great help.

Thanks in advance for any help

P.S. We are running VMS 4.5 on a VAX 8650.

===========================================================================
Henry Yung               BITNET: hyung@scu
Operations Assistant     ARPA:   hyung%scu.bitnet@jade.berkeley.edu
Academic Computer Center USENET: portal!cup.portal.com!henry_k_yung@sun.com
Santa Clara University   INET:   henry_k_yung@cup.portal.com
Tel: (408)554-4082
===========================================================================