Lines Matching refs:line

73    my ( $line ) = @_;
75    if( $line =~ m/^!(.*)/ ) {
81    elsif( $line =~ m/^([A-Z]+)/ ) {
83       if( $line =~ m/^(PUSH|ENCIN) (.*)$/ ) {
86          $line = "$1 " . unpack "H*", $string;
91       $command = $line;
95    elsif( $line =~ m/^([a-z]+)/ ) {
97       if( $line =~ m/^(text|encout) (.*)$/ ) {
98          $line = "$1 " . join ",", map sprintf("%x", $_), eval($2);
100       elsif( $line =~ m/^(output) (.*)$/ ) {
101          $line = "$1 " . join ",", map sprintf("%x", $_), unpack "C*", eval($2);
103       elsif( $line =~ m/^control (.*)$/ ) {
104          $line = sprintf "control %02x", eval($1);
106       elsif( $line =~ m/^csi (\S+) (.*)$/ ) {
107          $line = sprintf "csi %02x %s", eval($1), $2; # TODO
109       elsif( $line =~ m/^(osc) (\[\d+)? *(.*?)(\]?)$/ ) {
114 …$line = "$cmd $initial" . join( "", map sprintf("%02x", $_), unpack "C*", length $data ? eval($dat…
116       elsif( $line =~ m/^(escape|dcs) (\[?)(.*?)(\]?)$/ ) {
117          $line = "$1 $2" . join( "", map sprintf("%02x", $_), unpack "C*", eval($3) ) . "$4";
119       elsif( $line =~ m/^putglyph (\S+) (.*)$/ ) {
120          $line = "putglyph " . join( ",", map sprintf("%x", $_), eval($1) ) . " $2";
122 …elsif( $line =~ m/^(?:movecursor|scrollrect|moverect|erase|damage|sb_pushline|sb_popline|settermpr…
126          warn "Unrecognised test expectation '$line'\n";
129       push @expect, $line;
132    elsif( $line =~ s/^\?screen_row\s+(\d+)\s*=\s*// ) {
135       my $want = eval($line);
154    elsif( $line =~ s/^\?([a-z]+.*?=)\s*// ) {
158       my $expectation = $line;
178    elsif( $line =~ s/\$SEQ\s+(\d+)\s+(\d+):\s*// ) {
181          ( my $inner = $line ) =~ s/\\#/$val/g;
185    elsif( $line =~ s/\$REP\s+(\d+):\s*// ) {
187       do_line( $line ) for 1 .. $count;
190       die "Unrecognised TEST line $line\n";
196 while( my $line = <$test> ) {
198    $line =~ s/^\s+//;
199    chomp $line;
201    next if $line =~ m/^(?:#|$)/;
202    last if $line eq "__END__";
204    do_line( $line );