4 # Perl script to convert a Syslinux-format screen to PC-ANSI
5 # to display in a color xterm or on the Linux console
8 @ansicol = (0,4,2,6,1,5,3,7);
13 while ( read(STDIN
, $ch, 1) > 0 ) {
14 if ( $ch eq "\x1A" ) { # <SUB> <Ctrl-Z> EOF
16 } elsif ( $ch eq "\x0C" ) { # <FF> <Ctrl-L> Clear screen
17 print "\x1b[2J" if ( $enable && !$getting_file );
18 } elsif ( $ch eq "\x0F" ) { # <SI> <Ctrl-O> Attribute change
19 if ( !$getting_file ) {
20 if ( read(STDIN
, $attr, 2) == 2 ) {
33 $ansicol[$attr >> 4] + 40, $ansicol[$attr & 7] + 30;
37 } elsif ( $ch eq "\x18" ) { # <CAN> <Ctrl-X> Display image
38 # We can't display an image; pretend to be a text screen
39 # Ignore all input until end of line
41 } elsif ( (ord($ch) & ~07) == 0x10 ) { # Mode controls
42 $enable = (ord($ch) & 0x01); # Emulate the text screen
43 } elsif ( $ch eq "\x0D" ) { # <CR> <Ctrl-M> Carriage return
45 } elsif ( $ch eq "\x0A" ) { # <LF> <Ctrl-J> Line feed
46 if ( $getting_file ) {
49 print $ch if ( $enable );
52 print $ch if ( $enable && !$getting_file );