comp.lang.ada
 help / color / mirror / Atom feed
* single-character C input (2 of 2)
@ 1990-09-22 20:20 Michael Feldman
  0 siblings, 0 replies; only message in thread
From: Michael Feldman @ 1990-09-22 20:20 UTC (permalink / raw)


Here is the C side of the single-character input package. Note the
authorship below. It is distributed as part of the shareware package
Ada-Tutor.
---------------------------------------------------------------------------
Prof. Michael Feldman
Department of Electrical Engineering and Computer Science
The George Washington University
Washington, DC 20052
202-994-5253
mfeldman@seas.gwu.edu
---------------------------------------------------------------------------
/*
ONECHAR.C   Ver. 1.22   18-FEB-1989

Software Innovations Technology
1083 Mandarin Drive NE, Palm Bay, FL 32905-4706   (407)951-0233

This file is for use with UNIX.ADA.  It is a Unix System V routine to allow
the capture and return of one character from the terminal.

This program was written by Dave Hill, 7549 Wynford Street, Salt Lake City, UT
84121.  Software Innovations Technology is grateful to Mr. Hill for permission
to include ONECHAR.C with ADA-TUTR.
*/

#include <stdio.h>
#include <termio.h>
char onechar()
{
    static struct termio newsets, oldsets;
    char c;
    ioctl(fileno(stdin), TCGETA, &newsets);
    ioctl(fileno(stdin), TCGETA, &oldsets); /* used by cooked */
    newsets.c_cc[4] = '\001';
    newsets.c_cc[5] = '\0';
    newsets.c_lflag &= ~ (ICANON);
    ioctl(fileno(stdin), TCSETAF, &newsets);
    c = getchar();
    ioctl(fileno(stdin), TCSETAF, &oldsets);
    return (c);
}

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~1990-09-22 20:20 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1990-09-22 20:20 single-character C input (2 of 2) Michael Feldman

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox