From: regehr <regehr>
Date: Tue, 24 Jun 2008 15:19:20 +0000 (+0000)
Subject: this has found a new home
X-Git-Tag: release_tinyos_2_1_0_0~182
X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=commitdiff_plain;h=9c4b65161349fe7973dddb3c48acd5f4d00b273a;p=tinyos-2.x.git

this has found a new home
---

diff --git a/tos/lib/safe/tools/decode_flid.pl b/tos/lib/safe/tools/decode_flid.pl
deleted file mode 100644
index 9cdb767e..00000000
--- a/tos/lib/safe/tools/decode_flid.pl
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-sub decode ($$) {
-    my $a = shift;
-    my $b = shift;
-    die if ($a<0 || $a>3);
-    die if ($b<0 || $b>3);
-    my $c = ($a << 2) + $b;
-    my $h = sprintf "%X", $c;
-    return $h;
-}
-
-sub make_flid () {
-
-    my $flid = $ARGV[0];
-    die "expected 8 characters" if (length($flid) != 8);
-    
-    my $flidstr =
-	"0x" .
-	decode(substr($flid,0,1),substr($flid,1,1)) .
-	decode(substr($flid,2,1),substr($flid,3,1)) .
-	decode(substr($flid,4,1),substr($flid,5,1)) .
-	decode(substr($flid,6,1),substr($flid,7,1));
-}
-
-my $flidstr = make_flid();
-
-my $fn = $ARGV[1];
-my $found = 0;
-
-if (defined ($fn)) {
-    open INF, "<$fn" or die;
-    while (my $line = <INF>) {
-	chomp $line;
-
-	my @fields = split /\#\#\#/, $line;
-	foreach (@fields) {
-	    (s/^\s*//g);
-	    (s/\s*$//g);
-	    (s/^\"//g);
-	    (s/\"$//g);
-	}
-	if (hex($fields[0]) == hex($flidstr)) {
-	    my $check = $fields[1];
-	    my $text = $fields[2];
-	    my $loc = $fields[3];
-	    my $func = $fields[4];
-
-
-	    $found = 1;
-
-	    print "Deputy error message for flid $flidstr:\n\n";
-
-	    printf "%s: %s: Assertion failed in %s:\n  %s\n", 
-	      $loc, $func, $check, $text;
-	}
-    }
-    close INF;
-}
-else {
-    print "Usage: decode-flid.pl FLID flid-filename\n";
-    exit 2;
-}
-
-if (!$found) {
-    print "oops -- flid $flidstr not found in file\n";
-}