summaryrefslogtreecommitdiff
path: root/contrib/transform.pl
diff options
context:
space:
mode:
authorlordjaxom <lordjaxom>2004-06-25 17:54:38 +0000
committerlordjaxom <lordjaxom>2004-06-25 17:54:38 +0000
commitf2a4ea2dc8c0d915e0f2af6f4ec1a228e1e94453 (patch)
treee071f932913f57fa464a7e3cdd5cf774c3a629e5 /contrib/transform.pl
parentde602ae6486b181ec081749a510cfcf15c71c817 (diff)
downloadvdr-plugin-text2skin-0.0.7.tar.gz
vdr-plugin-text2skin-0.0.7.tar.bz2
- on devices capable of full-color OSD, bpp's have no meaning anymorev0.0.7
(but will still work like usual). On such devices, a full-screen 8-bit OSD will be used - new display-item "PresentTextDescription" displays combined ShortText/Description - displaying replay symbols only if information is actually available - exchanged x, y, width, height with x1, y1, x2, y2 coordinates (skin version is now 0.0.3) - coordinates may be negative to respect dynamic OSD settings (negative coordinates give pixels from the right or bottom edge) - added base parameter to Skin item to be able to use full screen in absolute mode - added a script to convert 0.0.2 skins to 0.0.3 - added parsing quoted texts (path="Bla.jpg" etc. will work correctly now) - fixed translator to escape the dollar sign - fixed display of scrollbar (REALLY!) - fixed linkage of libMagick++
Diffstat (limited to 'contrib/transform.pl')
-rwxr-xr-xcontrib/transform.pl54
1 files changed, 54 insertions, 0 deletions
diff --git a/contrib/transform.pl b/contrib/transform.pl
new file mode 100755
index 0000000..db41183
--- /dev/null
+++ b/contrib/transform.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+
+if (@ARGV != 2) {
+ die "Usage: $0 <in> <out>";
+}
+
+open DAT, "<$ARGV[0]" or die $!;
+open OUT, ">$ARGV[1]" or die $!;
+
+$| = 1;
+
+system("stty -icanon eol \001");
+
+while (defined($_ = <DAT>)) {
+ /\[(\w+)\]/ and print "\nNew Section: $1\n\n";
+ /^Item=(\w+),/ and do {
+ $i = $1;
+ /,x1=(\d+)[,;]/ and do {
+ $x1 = $1;
+ print "Item $i, x1 (left)? ([l]/r) > ";
+ read STDIN, $c, 1;
+ print "\n";
+ $nx1 = $x1 - 624;
+ s/,x1=$x1/,x1=$nx1/ if $c eq 'r';
+ };
+ /,y1=(\d+)[,;]/ and do {
+ $y1 = $1;
+ print "Item $i, y1 (top)? ([l]/r) > ";
+ read STDIN, $c, 1;
+ print "\n";
+ $ny1 = $y1 - 486;
+ s/,y1=$y1/,y1=$ny1/ if $c eq 'r';
+ };
+ /,x2=(\d+)[,;]/ and do {
+ $x2 = $1;
+ print "Item $i, x2 (right)? ([l]/r) > ";
+ read STDIN, $c, 1;
+ print "\n";
+ $nx2 = $x2 - 624;
+ s/,x2=$x2/,x2=$nx2/ if $c eq 'r';
+ };
+ /,y2=(\d+)[,;]/ and do {
+ $y2 = $1;
+ print "Item $i, y2 (bottom)? ([l]/r) > ";
+ read STDIN, $c, 1;
+ print "\n";
+ $ny2 = $y2 - 486;
+ s/,y2=$y2/,y2=$ny2/ if $c eq 'r';
+ };
+ };
+ print OUT $_;
+}
+
+system("stty icanon eol ^@");