Системное программирование в UNIX средствами Free Pascal


         

. Управление терминалом


Упражнение 13.61. Напишите функции включения и выключения режима эхо-отображения набираемых на клавиатуре символов.

uses linux,crt;

const ECHO=8;

var

t:termios;

s,ms:string;

c:char;

begin

writeln('Для включения эхо введите on, для выключения эхо введите off');

readln(s);

tcgetattr(0,t);

writeln(t.c_lflag);

if s='on' then

    begin

     t.c_lflag:=t.c_lflag or ECHO;

    end;

if s='off' then

    begin

     t.c_lflag:=t.c_lflag and not ECHO;

    end;   

tcsetattr(0,tcsanow,t);

readln(ms);

writeln(ms);

end.



Содержание  Назад  Вперед