Changeset 5074 for trunk/gta02-core/scripts/mkdsv

Timestamp:

05/29/09 22:56:13 (4 years ago)

Author:

werner

Message:

Added vibrator page found by Rene Harder <rehar@…>
Now mkdsv downloads the first data sheet instead of the last.
Changed "part number" tag (P:) to "symbol" (S:)

File:

• trunk/gta02-core/scripts/mkdsv (modified) (5 diffs)

trunk/gta02-core/scripts/mkdsv

@@ -31 +31 @@
 {
     $bin_dir = "$DSV_HOME/bin";
-    $ds_dir = "$DSV_HOME/ds/$part";
+    $ds_dir = "$DSV_HOME/ds/$sym";
     $url =~ /[^\/?&]*$/;
     $name = $&;
-    if (-r "$ds_dir/$name" && -x "$bin_dir/dsv-$part") {
+    if (-r "$ds_dir/$name" && -x "$bin_dir/dsv-$sym") {
         return unless defined $alias;
         return if -x "$bin_dir/dsv-$alias";
@@ -42 +42 @@
     local ($p) = "$ds_dir/$name";
     if (system("wget -nv -O \"$p-tmp\" \"$url\"")) {
-        print STDERR "FAILED: $part -> $url\n";
+        print STDERR "FAILED: $sym -> $url\n";
     } else {
         rename("$p-tmp", $p) || die "rename: $!\n";
     }
-    &mkbin("$bin_dir/dsv-$part", $p);
+    &mkbin("$bin_dir/dsv-$sym", $p);
     &mkbin("$bin_dir/dsv-$alias", $p) if defined $alias;
 }
@@ -53 +53 @@
 sub flush
 {
-    &dl if defined($part) && defined($url);
-    undef $part;
+    &dl if defined($sym) && defined($url);
+    undef $sym;
     undef $alias;
     undef $url;
@@ -67 +67 @@
     s/#.*//;
     next if /^\s*$/;
-    if (/^P:\s+(\S+)\s*$/) {
-        &flush if defined $part;
-        $part = $1;
+    if (/^S:\s+(\S+)\s*$/) {
+        &flush if defined $sym;
+        $sym = $1;
     } elsif (/^A:\s+(\S+)\s*$/) {
         $alias = $1;
     } elsif (/^D:\s+(.*?)\s*$/) {
-        $url = $1;
+        $url = $1 unless defined $url;
     } elsif (/^M:\s+(.*?)\s*$/) {
         # ignore
@@ -80 +80 @@
     }
 }
-&flush if defined $part;
+&flush if defined $sym;