mifr/subsurface
1
0
Fork 0
mirror of https://github.com/subsurface/subsurface.git synced 2025-02-19 22:16:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove now obsolete script

Browse source 
With the removal of the transport tags from our libdivecomputer branch,
we can no longer automate the table creation that way.

Signed-off-by: Dirk Hohndel <dirk@hohndel.org>
This commit is contained in:
Dirk Hohndel 2018-03-13 22:39:34 -07:00
parent 10221f9993
commit c20faf907a
1 changed files with 0 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

85
scripts/dcTransport.pl
View file

@ -1,85 +0,0 @@
#!/bin/perl
#
# Extract supported divecomputers on Android and iOS from libdivecomputer source
#
# Usage:
#
# dcTransport.pl <path to libdivecomputer/src/descriptor.c> <outfile>
#
use Carp;
#set command line arguments
my ($infi, $outfi) = @ARGV;
if ($infi !~ /.*descriptor.c/) {
croak "run as $ARGV[0] <path to descriptor.c> <outputfile>\n";
}
open(my $fh, "<", $infi) || croak "can't open $infi: $!";
open(STDOUT, ">", $outfi) || croak "can't open $outfi: $!";
my $ftdi = "\/\/ FTDI";
my $bt = "\/\/ BT";
my $ble = "\/\/ BLE";
printf("// This segment of the source is automatically generated\n");
printf("// please edit scripts/dcTransport.pl , regenerated the code and copy it here\n\n");
my @android = ();
my @ios = ();
while (<$fh>) {
if (/^\s*{\s*"([^\,]*)"\s*,\s*"([^\,]*)"\s*,\s*([^\,]*).*}/) {
my $v = $1;
my $p = $2;
if (/$ftdi/) {
push(@android, "$v,$p");
}
if (/$bt/) {
push(@android, "$v,$p");
}
if (/$ble/) {
push(@android, "$v,$p");
push(@ios, "$v,$p");
}
}
}
my $lastMod;
my $lastVend;
my @sortedandroid = sort @android;
my @sortedios = sort @ios;
print("#if defined(Q_OS_ANDROID)\n\t/* BT, BLE and FTDI devices */\n");
my $endV;
foreach (@sortedandroid) {
($vend, $mod) = split(',', $_);
next if ($vend eq $lastVend && $mod eq $lastMod);
if ($vend eq $lastVend) {
printf(", {\"%s\"}", $mod);
} else {
printf($endV);
printf("\tmobileProductList[\"%s\"] =\n\t\tQStringList({{\"%s\"}", $vend, $mod);
$endV = "});\n";
}
$lastVend = $vend;
$lastMod = $mod;
}
printf($endV);
$endV="";
printf("\n#endif\n#if defined(Q_OS_IOS)\n\t/* BLE only, Qt does not support classic BT on iOS */\n");
foreach (@sortedios) {
($vend, $mod) = split(',', $_);
next if ($vend eq $lastVend && $mod eq $lastMod);
if ($vend eq $lastVend) {
printf(", {\"%s\"}", $mod);
} else {
printf($endV);
printf("\tmobileProductList[\"%s\"] =\n\t\tQStringList({{\"%s\"}", $vend, $mod);
$endV = "});\n";
}
$lastVend = $vend;
$lastMod = $mod;
}
printf($endV);
printf("\n#endif\n");
printf("// end of the automatically generated code\n");
close $fh;