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.7 required=5.0 tests=BAYES_00,INVALID_DATE,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!unido!pbinfo!spilker
From: spilker@uni-paderborn.de (Joerg spilker)
Newsgroups: comp.lang.ada
Subject: Text I/O with 8-bit charset
Message-ID: <1990Sep7.201634.16805@uni-paderborn.de>
Date: 7 Sep 90 20:16:34 GMT
Reply-To: spilker@saturn.uni-paderborn.de
Distribution: comp
Organization: Uni-GH Paderborn, West Germany
List-Id: <comp.lang.ada>


Hello Ada-programmers,

please help a novice Ada-programmer. I'm working with the ADAVAX 3.5E 
compiler under VAX/VMS 5.3. I had to do input/output to terminal and to 
files with an 8-bit character set (because of german special national 
characters). But how to define this set with the appropriate operations in 
a transparent manner, if the standard only supports a 7-bit charset? If I 
use the standard get and put procedures and type a character with a code 
>127, I get no runtime error, but the typed characters are simply ignored.

I tried some definitions like this:

WITH SEQUENTIAL_IO;
TYPE CHARACTER IS (ae,oe,ue,ss);
FOR CHARACTER USE(228,246,252,223);
PACKAGE CHAR_IO IS NEW SEQUENTIAL_IO(CHARACTER);

But with these definitions, every output to the terminal is followed by a 
CRLF and getting characters from SYS$INPUT immmediately raises an END_DATA 
exception.

Any hints for my Problem?

Joerg Spilker

P.S. Please answer to the following E-mail adresses. I'm not reading this 
group regularly.
-- 
    **     | Joerg Spilker, Brueckenstr. 12, 4927 Luegde, +49 5281 78087 |
  _/  \_   | Dnet: spilker@uni.paderborn.de                              |  
 / |  | \  | Fido: Joerg Spilker of 2:244/23                             |