blob: d3f6a22d324478477fc416f00b61d2cf47f137b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
#!/usr/bin/perl
################## HOW TO USE THIS FILE #####################
# iar keil xpresso to build with those toolchain
# clean or build for action
#############################################################
use List::MoreUtils 'any';
use File::Spec;
use File::Find;
use File::Path;
use File::Glob;
use File::stat;
use File::Basename;
use Cwd;
use Cwd 'abs_path';
#use Time::Piece;
#use Time::Seconds;
$" = "\n"; # change list separator
$KEIL_PATH = 'C:/Keil/UV4'; #'/C/Keil/UV4';
$IAR_PATH = glob ('C:/Program*/IAR*/Embedded*/common/bin');
$XPRESSO_PATH = glob ('C:/nxp/LPCXpresso_7*/lpcxpresso');
$XPRESSO_PATH = "$XPRESSO_PATH;$XPRESSO_PATH/bin;$XPRESSO_PATH/tools/bin;$XPRESSO_PATH/msys/bin";
$ENV{'PATH'} = $KEIL_PATH . ';' . $IAR_PATH . ';' . $XPRESSO_PATH . ';' . $ENV{'PATH'};
#print $ENV{'PATH'}; die;
$repo_path = abs_path(cwd . "/..");
#print $repo_path; die;
$device_dir = "device/device";
$host_dir = "host/host";
$is_build = any { /build/ } @ARGV;
$is_clean = any { /clean/ } @ARGV;
$is_build = 1 if !$is_clean; # default is build
$is_keil = (any { /keil/ } @ARGV) || (any { /all/ } @ARGV);
$is_iar = (any { /iar/ } @ARGV) || (any { /all/ } @ARGV);
$is_xpresso = (any { /xpresso/ } @ARGV) || (any { /all/ } @ARGV);
################## KEIL #####################
if ($is_keil)
{
@KEIL_PROJECT_LIST = (<$device_dir*/*.uvproj>, <$host_dir*/*.uvproj>);
foreach (@KEIL_PROJECT_LIST)
{
/([^\/]+).uvproj/;
my $log_file = "build_all_keil_" . $1 . ".txt";
my $build_cmd = "Uv4 -b $_ -z -j0 -o ../../$log_file";
cmd_execute($build_cmd);
}
}
################## IAR #####################
if ($is_iar)
{
@IAR_PROJECT_LIST = (<$device_dir*/*.ewp>, <$host_dir*/*.ewp>);
foreach (@IAR_PROJECT_LIST)
{
my $proj_dir = dirname $_;
/([^\/]+).ewp/;
my $proj_name = $1;
my $log_file = "build_all_iar_" . $proj_name . ".txt";
unlink $log_file; #delete log_file if existed
#open project file to get configure name
my $file_content = file_to_var($_);
#get configure by pattern and build
while ($file_content =~ /^\s*<configuration>\s*$^\s*<name>(.+)<\/name>\s*$/gm)
{
my $build_cmd = "IarBuild $_ -build $1 -log warnings >> $log_file";
cmd_execute($build_cmd);
my $out_file = "$proj_dir/$1/Exe/$proj_name.out";
system("size $out_file >> $log_file");
}
}
}
################## LPCXPRESSO #####################
($repo_path_other_dash = $repo_path) =~ s/\//\\/g;
if ($is_xpresso)
{
$workspace_dir = "C:/Users/hathach/Dropbox/tinyusb/workspace7"; #projects must be opened in the workspace to be built
@XPRESSO_PROJECT_LIST = (<$device_dir*/.cproject>, <$host_dir*/.cproject>);
foreach (@XPRESSO_PROJECT_LIST)
{
/([^\/]+)\/.cproject/;
my $log_file = "build_all_xpresso_" . $1 . ".txt";
my $build_cmd = "lpcxpressoc -nosplash --launcher.suppressErrors -application org.eclipse.cdt.managedbuilder.core.headlessbuild -cleanBuild $1 -data $workspace_dir > $log_file";
cmd_execute($build_cmd);
#open log file to clean up output
open (my $fin, $log_file) or die;
my @log_content = <$fin>;
close($fin);
open (my $fout, ">$log_file") or die;
foreach (@log_content)
{
unless (/Invoking: MCU C Compiler/ or /arm-none-eabi-gcc -D/ or /Finished building:/ or /^ $/)
{
s/Building file:.+?([^\/]+\.[ch])/\1/;
s/$repo_path//;
s/$repo_path_other_dash//;
print $fout $_;
}
}
}
}
### call report builder ###
system("perl build_report.pl");
################## HELPER #####################
sub cmd_execute
{
print "executing: $_[0]\n...";
system($_[0]);
print "done\n";
}
sub file_to_var
{ #open project file to get configure name
my $file_content;
open(my $fin, $_[0]) or die "Can't open $_[0] to read\n";
{
local $/;
$file_content = <$fin>;
close($fin);
}
return $file_content;
}
sub var_to_file
{ # file name, content
open(my $fout, ">$_[0]") or die "Can't open $_[0] to write\n";
{
print $fout $_[1];
close($fout);
}
}
|
