}
}
close(SVNINFO);
-
+
if(open(SVNSTATUS, "svn status $main_dir|")) {
$clean = 1;
while(<SVNSTATUS>) {
}
close(SVNINFO);
}
-
+
} else {
- # Strategy two: look for .svn/entries. The third line should be "dir", the fourth line should contain
+ # Strategy two: look for .svn/entries. The third line should be "dir", the fourth line should contain
# the currently checked out revision, the eleventh line should contain the last changed revision.
# revision.
if(open(ENTRIES, "$main_dir/.svn/entries")) {
my $ctime = sprintf("%6\$04i-%5\$02i-%4\$02i %3\$02i:%2\$02i:%1\$02i", @compiletime);
print <<EOF
-#include <proxmark3.h>
+#include "proxmark3.h"
/* Generated file, do not edit */
struct version_information __attribute__((section(".version_information"))) version_information = {
VERSION_INFORMATION_MAGIC,
-#!/usr/bin/perl\r
-\r
-# endian-swap S records; we need this because the JTAG tools we're using\r
-# expect the memory image in byte-swapped format\r
-#\r
-# Jonathan Westhues, April 2004\r
-\r
-if(@ARGV == 0) {\r
- die "usage: $0 file-to-endian-swap.s19 > out.s19\n";\r
-}\r
-\r
-while(<>) {\r
- chomp;\r
-\r
- if(/^S0/) {\r
- next;\r
- }\r
- if(/^S7/) {\r
- print "$_\n";\r
- next;\r
- }\r
-\r
- if(not /^S3(..)(........)(.*)(..)$/) {\r
- die "bad S record at line $.\n";\r
- }\r
-\r
- $data = $3;\r
- $checksum = $4;\r
-\r
- print "S3$1$2";\r
- while($data =~ m#(..)(..)(..)(..)#g) {\r
- print "$4$3$2$1";\r
- }\r
- print "$checksum\n";\r
-}\r
+#!/usr/bin/perl
+
+# endian-swap S records; we need this because the JTAG tools we're using
+# expect the memory image in byte-swapped format
+#
+# Jonathan Westhues, April 2004
+
+if(@ARGV == 0) {
+ die "usage: $0 file-to-endian-swap.s19 > out.s19\n";
+}
+
+while(<>) {
+ chomp;
+
+ if(/^S0/) {
+ next;
+ }
+ if(/^S7/) {
+ print "$_\n";
+ next;
+ }
+
+ if(not /^S3(..)(........)(.*)(..)$/) {
+ die "bad S record at line $.\n";
+ }
+
+ $data = $3;
+ $checksum = $4;
+
+ print "S3$1$2";
+ while($data =~ m#(..)(..)(..)(..)#g) {
+ print "$4$3$2$1";
+ }
+ print "$checksum\n";
+}