File: babelstrings.pl

package info (click to toggle)
gpsbabel 1.7.0%2Bds-7
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 100,408 kB
  • sloc: cpp: 104,725; xml: 14,055; sh: 4,699; ansic: 2,062; makefile: 960; perl: 681; tcl: 138; javascript: 9
file content (19 lines) | stat: -rw-r--r-- 349 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl

use strict;
open(FF, "./objects/gpsbabel -^3|");
while (<FF>) {
    if (/^file/ || /^serial/) {
	my @x = split(/\t/, $_);
	my $out = $x[4];
	$out =~ s/"/\\"/g;
	print "QT_TR_NOOP(\"$out\"),\n";
    }
    
    if (/^option/) {
	my @x = split(/\t/, $_);
	my $out = $x[3];
	$out =~ s/"/\\"/g;
	print "QT_TR_NOOP(\"$out\"),\n";
    }
}