renegade-project/linux-next
2
0
Fork 0
mirror of https://github.com/edk2-porting/linux-next.git synced 2024-12-20 19:23:57 +08:00
Code

ktest: Enable user input to the console

Browse Source 
Allow the user to send input to the console by putting the terminal in
cbreak mode (to allow reading stdin one character at a time) and copying
all stdin data to the console's pty.

Link: http://lkml.kernel.org/r/bb1bbe7d202c95a3ce7894cfffdd8c725875978e.1422473610.git.jpoimboe@redhat.com

Signed-off-by: Josh Poimboeuf <jpoimboe@redhat.com>
Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
This commit is contained in:
Josh Poimboeuf 2015-01-28 13:38:39 -06:00 committed by Steven Rostedt
parent 9f2cdcbbb9
commit 9d2f7f051b
1 changed files with 37 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
tools/testing/ktest/ktest.pl
View File

@ -178,7 +178,7 @@ my $checkout;
my $localversion;
my $iteration = 0;
my $successes = 0;
my $stty;
my $stty_orig;
my $bisect_good;
my $bisect_bad;
@ -1458,7 +1458,11 @@ sub open_console {
my $pid;
# save terminal settings
$stty = `stty -g`;
$stty_orig = `stty -g`;
# place terminal in cbreak mode so that stdin can be read one character at
# a time without having to wait for a newline
system("stty -icanon -echo -icrnl");
create_pty($ptm, $pts);
@ -1487,7 +1491,7 @@ sub close_console {
close($fp);
# restore terminal settings
system("stty $stty");
system("stty $stty_orig");
}
sub start_monitor {
@ -1827,7 +1831,9 @@ sub wait_for_input
{
my ($fp, $time) = @_;
my $rin;
my $ready;
my $rout;
my $nr;
my $buf;
my $line;
my $ch;
@ -1837,21 +1843,36 @@ sub wait_for_input
$rin = '';
vec($rin, fileno($fp), 1) = 1;
($ready, $time) = select($rin, undef, undef, $time);
vec($rin, fileno(\*STDIN), 1) = 1;
$line = "";
while (1) {
$nr = select($rout=$rin, undef, undef, $time);
# try to read one char at a time
while (sysread $fp, $ch, 1) {
$line .= $ch;
last if ($ch eq "\n");
if ($nr <= 0) {
return undef;
}
# copy data from stdin to the console
if (vec($rout, fileno(\*STDIN), 1) == 1) {
sysread(\*STDIN, $buf, 1000);
syswrite($fp, $buf, 1000);
next;
}
$line = "";
# try to read one char at a time
while (sysread $fp, $ch, 1) {
$line .= $ch;
last if ($ch eq "\n");
}
if (!length($line)) {
return undef;
}
return $line;
}
if (!length($line)) {
return undef;
}
return $line;
}
sub reboot_to {