Subversion Repositories HomeAutomation

Rev

Rev 2158 | Rev 2161 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 2158 Rev 2159
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
2 
 
 2 
 
3 
# Written by Mattias Runge 2008-2010
 3 
# Written by Mattias Runge 2008-2010
4 
 
 4 
 
5 
use Cwd 'abs_path';
 5 
use Cwd 'abs_path';
6 
use File::Basename;
 6 
use File::Basename;
7 
use Time::HiRes qw( usleep );
 7 
use Time::HiRes qw( usleep );
8 
 
 8 
 
9 
$| = 1;
 9 
$| = 1;
10 
 
 10 
 
11 
$numArgs = $#ARGV + 1;
 11 
$numArgs = $#ARGV + 1;
12 
 
 12 
 
13 
my $hostname = "localhost";
 13 
my $hostname = "localhost";
14 
my $port = 1201;
 14 
my $port = 1201;
15 
my $filename = "";
 15 
my $filename = "";
16 
my $hwid = "";
 16 
my $hwid = "";
17 
my $bios = 0;
 17 
my $bios = 0;
18 
my $reset = "false";
 18 
my $reset = "false";
19 
 
 19 
 
20 
foreach $argnum (0 .. $#ARGV)
 20 
foreach $argnum (0 .. $#ARGV)
21 
{
 21 
{
22 
    if ($ARGV[$argnum] eq "-h")
 22 
    if ($ARGV[$argnum] eq "-h")
23 
    {
 23 
    {
24 
        $hostname = $ARGV[$argnum+1];
 24 
        $hostname = $ARGV[$argnum+1];
25 
        next;
 25 
        next;
26 
 
 26 
 
27 
    }
 27 
    }
28 
    elsif ($ARGV[$argnum] eq "-p")
 28 
    elsif ($ARGV[$argnum] eq "-p")
29 
    {
 29 
    {
30 
        $port = $ARGV[$argnum+1];
 30 
        $port = $ARGV[$argnum+1];
31 
        next;
 31 
        next;
32 
 
 32 
 
33 
    }
 33 
    }
34 
    elsif ($ARGV[$argnum] eq "-i")
 34 
    elsif ($ARGV[$argnum] eq "-i")
35 
    {
 35 
    {
36 
        $hwid = $ARGV[$argnum+1];
 36 
        $hwid = $ARGV[$argnum+1];
37 
        next;
 37 
        next;
38 
 
 38 
 
39 
    }
 39 
    }
40 
    elsif ($ARGV[$argnum] eq "-f")
 40 
    elsif ($ARGV[$argnum] eq "-f")
41 
    {
 41 
    {
42 
        $filename = abs_path($ARGV[$argnum+1]);
 42 
        $filename = abs_path($ARGV[$argnum+1]);
43 
        next;
 43 
        next;
44 
 
 44 
 
45 
    }
 45 
    }
46 
    elsif ($ARGV[$argnum] eq "-b")
 46 
    elsif ($ARGV[$argnum] eq "-b")
47 
    {
 47 
    {
48 
        $bios = 1;
 48 
        $bios = 1;
49 
    }
 49 
    }
50 
    elsif ($ARGV[$argnum] eq "-r")
 50 
    elsif ($ARGV[$argnum] eq "-r")
51 
    {
 51 
    {
52 
        $reset = "true";
 52 
        $reset = "true";
53 
    }
 53 
    }
54 
}
 54 
}
55 
 
 55 
 
56 
if ($hwid eq "")
 56 
if ($hwid eq "")
57 
{
 57 
{
58 
    die "You must specify a hardware id!\n";
 58 
    die "You must specify a hardware id!\n";
59 
    exit 1;
 59 
    exit 1;
60 
}
 60 
}
61 
 
 61 
 
62 
my $path = dirname(abs_path($0));
 62 
my $path = dirname(abs_path($0));
63 
 
 63 
 
64 
# Read atom functions from separate file
 64 
# Read atom functions from separate file
65 
if (-e $path."/setConfig/AtomLib.pl") {
 65 
if (-e $path."/setConfig/AtomLib.pl") {
66 
    require $path."/setConfig/AtomLib.pl";
 66 
    require $path."/setConfig/AtomLib.pl";
67 
} else {
 67 
} else {
68 
    print "Error: No AtomLib.pl was found in ".$path.". \n\n";
 68 
    print "Error: No AtomLib.pl was found in ".$path.". \n\n";
69 
    exit 1;
 69 
    exit 1;
70 
}
 70 
}
71 
 
 71 
 
72 
#0x14f90d1f to 0x1f0df914
 72 
#0x14f90d1f to 0x1f0df914
73 
@hwidChars = split(//, $hwid);
 73 
@hwidChars = split(//, $hwid);
74 
$hwid = $hwidChars[0]. $hwidChars[1]. uc($hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3]);
 74 
$hwid = $hwidChars[0]. $hwidChars[1]. uc($hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3]);
75 
 
 75 
 
76 
print "atomDude settings:\n";
 76 
print "atomDude settings:\n";
77 
print "Hardware id: " . $hwid . "\n";
 77 
print "Hardware id: " . $hwid . "\n";
78 
print "Atom address: " . $hostname . ":" . $port . "\n";
 78 
print "Atom address: " . $hostname . ":" . $port . "\n";
79 
print "Hexfile: " . $filename . "\n";
 79 
print "Hexfile: " . $filename . "\n";
80 
print "Parameters: " . "\n";
 80 
#print "Parameters: " . "\n";
81 
 
 81 
 
82 
if ($reset eq "true" && $filename eq "")
 82 
if ($reset eq "true" && $filename eq "")
83 
{
 83 
{
84 
    if ($port == 1203)
 84 
    if ($port == 1203)
85 
    {
 85 
    {
86 
        $socket = atomd_initialize($hostname, $port);
 86 
        $socket = atomd_initialize($hostname, $port);
87 
        atomjs_write($socket, "Node_ResetNative('".$hwid."');\n");
 87 
        atomjs_write($socket, "Node_ResetNative('".$hwid."');\n");
88 
        print atomjs_read_line($socket);
 88 
        print atomjs_read_line($socket);
- 
 
 89 
        $success = 0;
89 
        for ($count = 0; $count < 15; $count++)
 90 
        for ($count = 0; $count < 15; $count++)
90 
        {
 91 
        {
91 
            atomjs_write($socket, "Node_ResetPollNative();\n");
 92 
            atomjs_write($socket, "Node_ResetPollNative();\n");
92 
            if (atomjs_read_line($socket) =~ m/true/)
 93 
            if (atomjs_read_line($socket) =~ m/true/)
93 
            {
 94 
            {
94 
                print "\033[32m" . $hwid . " started okay.\033[0m\n";
 95 
                print "\033[32m" . $hwid . " started okay.\033[0m\n";
- 
 
 96 
                $success = 1;
95 
                last;
 97 
                last;
96 
            }
 98 
            }
97 
            usleep(200000);
 99 
            usleep(200000);
98 
        }
 100 
        }
- 
 
 101 
        if ($success == 0)
- 
 
 102 
        {
- 
 
 103 
            print "\033[31mTimed out waiting for reset.\033[0m\n";
- 
 
 104 
        }
99 
    }
 105 
    }
100 
    else
 106 
    else
101 
    {
 107 
    {
102 
        $socket = atomd_initialize($hostname, $port);
 108 
        $socket = atomd_initialize($hostname, $port);
103 
 
 109 
 
104 
        usleep(100000);
 110 
        usleep(100000);
105 
        atomd_kill_promt($socket);
 111 
        atomd_kill_promt($socket);
106 
        atomd_send_command($socket, "Node_Reset $hwid");
 112 
        atomd_send_command($socket, "Node_Reset $hwid");
107 
        print atomd_read_command_response($socket);
 113 
        print atomd_read_command_response($socket);
108 
        #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
 114 
        #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
109 
        #exit($result);
 115 
        #exit($result);
110 
    }
 116 
    }
111 
}
 117 
}
112 
else
 118 
else
113 
{
 119 
{
114 
    if ($port == 1203)
 120 
    if ($port == 1203)
115 
    {
 121 
    {
116 
        open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
 122 
        open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
117 
        @filecontents = <FP>;
 123 
        @filecontents = <FP>;
118 
        close FP;
 124 
        close FP;
119 
        $socket = atomd_initialize($hostname, $port);
 125 
        $socket = atomd_initialize($hostname, $port);
120 
 
 - 
 
121 
        atomjs_write($socket, "Node_ProgramNative('".$hwid."', '".$bios."'");
 126 
        atomjs_write($socket, "Node_ClearHex();\n");
122 
#       print "Node_ProgramNative('".$hwid."', '".$bios."'";
 127 
        atomjs_read_line($socket);
- 
 
 128 
        my $linenums = 0;
123 
        foreach $filerow (@filecontents) {
 129 
        foreach $filerow (@filecontents)
- 
 
 130 
        {
124 
            $filerow =~ s/^\s+//;
 131 
            $filerow =~ s/^\s+//;
125 
            $filerow =~ s/\s+$//;
 132 
            $filerow =~ s/\s+$//;
- 
 
 133 
            $linenums += 1;
- 
 
 134 
            $command = "Node_AppendHexNative('".$filerow."');\n";
126 
            atomjs_write($socket, ", '" . $filerow . "'");
 135 
            atomjs_write($socket, $command);
127 
            print ", '".$filerow."'";
 136 
            atomjs_read_line($socket);
128 
        }
 137 
        }
- 
 
 138 
        $command = "Node_ProgramNative('".$hwid."', '".$bios."', '".$linenums."');\n";
129 
        atomjs_write($socket, ");\n");
 139 
        atomjs_write($socket, $command);
130 
#       print ");\n";
 140 
        #print $command;
- 
 
 141 
        print atomjs_read_line($socket);
- 
 
 142 
atomd_disconnect($socket);
- 
 
 143 
#       $success = 0;
- 
 
 144 
#       for ($count = 0; $count < 150; $count++)
- 
 
 145 
#       {
- 
 
 146 
#           atomjs_write($socket, "Node_ProgramPollNative();\n");
- 
 
 147 
#           if (atomjs_read_line($socket) =~ m/true/)
- 
 
 148 
#           {
- 
 
 149 
#               print "\033[32m" . $hwid . " started okay.\033[0m\n";
- 
 
 150 
#               $success = 1;
- 
 
 151 
#               last;
- 
 
 152 
#           }
- 
 
 153 
#           usleep(200000);
- 
 
 154 
#       }
- 
 
 155 
#       if ($success == 0)
- 
 
 156 
#       {
- 
 
 157 
#           print "\033[31mTimed out waiting for program to finish.\033[0m\n";
- 
 
 158 
#       }
131 
    }
 159 
    }
132 
    else
 160 
    else
133 
    {
 161 
    {
134 
        open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
 162 
        open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
135 
        @filecontents = <FP>;
 163 
        @filecontents = <FP>;
136 
        close FP;
 164 
        close FP;
137 
        $socket = atomd_initialize($hostname, $port);
 165 
        $socket = atomd_initialize($hostname, $port);
138 
        usleep(100000);
 166 
        usleep(100000);
139 
        atomd_kill_promt($socket);
 167 
        atomd_kill_promt($socket);
140 
   
 168 
   
141 
        #print "Sending Node_ClearHex\n";
 169 
        #print "Sending Node_ClearHex\n";
142 
        atomd_send_command($socket, "Node_ClearHex");
 170 
        atomd_send_command($socket, "Node_ClearHex");
143 
        atomd_kill_promt($socket);
 171 
        atomd_kill_promt($socket);
144 
   
 172 
   
145 
        my $linenums = 0;
 173 
        my $linenums = 0;
146 
        foreach $filerow (@filecontents) {
 174 
        foreach $filerow (@filecontents)
- 
 
 175 
        {
147 
            #print "Sending Node_AppendHex $filerow \n";
 176 
            #print "Sending Node_AppendHex $filerow \n";
148 
            #$filerow =~ s/^\s+//;
 177 
            #$filerow =~ s/^\s+//;
149 
            #$filerow =~ s/\s+$//;
 178 
            #$filerow =~ s/\s+$//;
150 
            atomd_send_command($socket, "Node_AppendHex $filerow");
 179 
            atomd_send_command($socket, "Node_AppendHex $filerow");
151 
            atomd_kill_promt($socket);
 180 
            atomd_kill_promt($socket);
152 
            $linenums += 1;
 181 
            $linenums += 1;
153 
        }
 182 
        }
154 
        #print "Sending Node_ProgramHex $hwid $bios $linenums \n";
 183 
        #print "Sending Node_ProgramHex $hwid $bios $linenums \n";
155 
        atomd_send_command($socket, "Node_ProgramHex $hwid $bios $linenums");
 184 
        atomd_send_command($socket, "Node_ProgramHex $hwid $bios $linenums");
156 
 
 185 
 
157 
        print atomd_read_command_response($socket);
 186 
        print atomd_read_command_response($socket);
158 
 
 187 
 
159 
#       my $result = system("atomic -s $hostname -p $port -c \"Node_Program $hwid $bios $filename\"");
 188 
#       my $result = system("atomic -s $hostname -p $port -c \"Node_Program $hwid $bios $filename\"");
160 
#       exit($result);
 189 
#       exit($result);
- 
 
 190 
    }
161 
}
 191 
}
162 
 
 192 
 
163 
exit(0);
 193 
exit(0);
164 
 
 194