Re: Problem with SMG!!!!

[adam@irvine.com (Adam Beneschan)]

"Theodore E. Dennison" <dennison@escmail.mmc.orl.com> writes:
> amlombardi@vms4.sci.csupomona.edu wrote:
> >
> > I realize that my last post to this newsgroup was a little
> > misleading and confusing.. The problem I am having with SMG is
> > that after I CREATE the VIRTUAL KEYBOARD and wait for a keypress
> > and then get a keypress successfully... Output with the PUT
> > statement does not work...I was wondering how in ADA to use SMG to
> > correct this problem... Thanx in advance
> > 
> > 		By the way the commands are
> > 
> > 		CREATE_VIRTUAL_KEYBOARD(STATUS : COND_VALUE_TYPE;
> > 					KEYBOARD_ID : UNSIGNED_LONGWORD)
> > 
> > 		READ_KEYSTROKE(STATUS: COND_VALUE_TYPE;
> > 				KEYBOARD_ID : in UNSIGNED_LONGWORD;
> > 				KEY : out UNSIGNED_WORD); 
> 
> Unless I'm missing something, when you do screen I/O's with SMG, you
> need to do ALL your screen I/Os with SMG. In other words, you need to
> use the SMG output routines. Forget about Text_IO.
> 
> Of course, this means you will have to create a pasteboard, and all 
> that jazz. Read your VMS SMG manual for more details. 

Hmmm . . . I've been using SMG$ routines for keyboard input and the
regular SYS$QIOW routines for output, and I've never had a problem.
In other words, there seems to be nothing in VMS that requires that
you use SMG$ for output if you're using it for input.

VAX Ada may be a different story, however.  If TEXT_IO.PUT routines
simply mapped to SYS$QIOW, I doubt that you'd have a problem, based on
my experience.  However, VAX Ada's TEXT_IO routines might (1) result
in RMS$ routines being used for output, as opposed to SYS$QIOW, and/or
(2) do something special to handle multi-tasking that might screw
things up.  I don't know that much about VAX Ada, so I can't give you
any more ideas.  Sorry.

It does mean, however, that you may be able to solve your problems by
using SYS$QIOW directly, instead of TEXT_IO.  (Is there an interface
to this in STARLET or somewhere else?)  However, I personally think
it's ugly and would do it only if everything else that works is
uglier.

                                -- Adam