Adding upstream version 4.00~pre61+dfsg.
[syslinux-debian/hramrach.git] / utils / syslinux2ansi
blob085f6c97c23994efbadcb7fdab3a4a31c3d836f2
1 #!/usr/bin/perl
3 # Perl script to convert a Syslinux-format screen to PC-ANSI
4 # to display in a color xterm or on the Linux console
7 @ansicol = (0,4,2,6,1,5,3,7);
9 $getting_file = 0;
10 $enable = 1;
12 while ( read(STDIN, $ch, 1) > 0 ) {
13 if ( $ch eq "\x1A" ) { # <SUB> <Ctrl-Z> EOF
14 last;
15 } elsif ( $ch eq "\x0C" ) { # <FF> <Ctrl-L> Clear screen
16 print "\x1b[2J" if ( $enable && !$getting_file );
17 } elsif ( $ch eq "\x0F" ) { # <SI> <Ctrl-O> Attribute change
18 if ( !$getting_file ) {
19 if ( read(STDIN, $attr, 2) == 2 ) {
20 $attr = hex $attr;
21 if ( $enable ) {
22 print "\x1b[0;";
23 if ( $attr & 0x80 ) {
24 print "5;";
25 $attr &= ~0x80;
27 if ( $attr & 0x08 ) {
28 print "1;";
29 $attr &= ~0x08;
31 printf "%d;%dm",
32 $ansicol[$attr >> 4] + 40, $ansicol[$attr & 7] + 30;
36 } elsif ( $ch eq "\x18" ) { # <CAN> <Ctrl-X> Display image
37 # We can't display an image; pretend to be a text screen
38 # Ignore all input until end of line
39 $getting_file = 1;
40 } elsif ( (ord($ch) & ~07) == 0x10 ) { # Mode controls
41 $enable = (ord($ch) & 0x01); # Emulate the text screen
42 } elsif ( $ch eq "\x0D" ) { # <CR> <Ctrl-M> Carriage return
43 # Ignore
44 } elsif ( $ch eq "\x0A" ) { # <LF> <Ctrl-J> Line feed
45 if ( $getting_file ) {
46 $getting_file = 0;
47 } else {
48 print $ch if ( $enable );
50 } else {
51 print $ch if ( $enable && !$getting_file );