10c6c2c0b2d8dbf9a58039a3d99a8c5f1bc580fe
[openwrt/svn-archive/archive.git] / scripts / gen_target_config.pl
1 #!/usr/bin/perl
2 #
3 # Copyright (C) 2006 OpenWrt.org
4 #
5 # This is free software, licensed under the GNU General Public License v2.
6 # See /LICENSE for more information.
7 #
8
9 use strict;
10
11 my @target;
12 my $target;
13 my $profiles;
14 my $profile;
15
16 sub features(@) {
17 my $ret;
18
19 while ($_ = shift @_) {
20 /broken/ and $ret .= "\tdepends BROKEN\n";
21 /pci/ and $ret .= "\tselect PCI_SUPPORT\n";
22 /usb/ and $ret .= "\tselect USB_SUPPORT\n";
23 /atm/ and $ret .= "\tselect ATM_SUPPORT\n";
24 /pcmcia/ and $ret .= "\tselect PCMCIA_SUPPORT\n";
25 /squashfs/ and $ret .= "\tselect USES_SQUASHFS\n";
26 /jffs2/ and $ret .= "\tselect USES_JFFS2\n";
27 /ext2/ and $ret .= "\tselect USES_EXT2\n";
28 }
29 return $ret;
30 }
31
32 while (<>) {
33 chomp;
34 /^Target:\s*((.+)-(\d+\.\d+))\s*$/ and do {
35 my $conf = uc $3.'_'.$2;
36 $conf =~ tr/\.-/__/;
37 $target = {
38 id => $1,
39 conf => $conf,
40 board => $2,
41 kernel => $3
42 };
43 $target->{kernel} =~ tr/\./_/;
44 push @target, $target;
45 };
46 /^Target-Name:\s*(.+)\s*$/ and $target->{name} = $1;
47 /^Target-Path:\s*(.+)\s*$/ and $target->{path} = $1;
48 /^Target-Arch:\s*(.+)\s*$/ and $target->{arch} = $1;
49 /^Target-Features:\s*(.+)\s*$/ and do {
50 my $f = [];
51 $target->{features} = $f;
52 @$f = split /\s+/, $1;
53 };
54 /^Target-Description:/ and do {
55 my $desc;
56 while (<>) {
57 last if /^@@/;
58 $desc .= $_;
59 }
60 $target->{desc} = $desc;
61 };
62 /^Linux-Version:\s*(.+)\s*$/ and $target->{version} = $1;
63 /^Linux-Release:\s*(.+)\s*$/ and $target->{release} = $1;
64 /^Linux-Kernel-Arch:\s*(.+)\s*$/ and $target->{karch} = $1;
65 /^Default-Packages:\s*(.+)\s*$/ and do {
66 my @pkgs = split /\s+/, $1;
67 $target->{defaultpkgs} = \@pkgs;
68 };
69 /^Target-Profile:\s*(.+)\s*$/ and do {
70 $profiles = $target->{profiles} or $target->{profiles} = $profiles = [];
71 $profile = {
72 id => $1
73 };
74 push @$profiles, $profile;
75 };
76 /^Target-Profile-Name:\s*(.+)\s*$/ and $profile->{name} = $1;
77 /^Target-Profile-Packages:\s*(.+)\s*$/ and do {
78 my @pkgs = split /\s+/, $1;
79 $profile->{pkgs} = \@pkgs;
80 };
81 }
82
83 @target = sort {
84 $a->{name} cmp $b->{name}
85 } @target;
86
87
88 print <<EOF;
89 choice
90 prompt "Target System"
91 default LINUX_2_4_BRCM
92
93 EOF
94
95 foreach $target (@target) {
96 my $features = features(@{$target->{features}});
97 my $help = $target->{desc};
98 chomp $features;
99 $features .= "\n";
100 if ($help =~ /\w+/) {
101 $help =~ s/^\s*/\t /mg;
102 $help = "\thelp\n$help";
103 } else {
104 undef $help;
105 }
106
107 print <<EOF
108 config LINUX_$target->{conf}
109 bool "$target->{name}"
110 select $target->{arch}
111 select LINUX_$target->{kernel}
112 $features$help
113
114 EOF
115 }
116
117 print <<EOF;
118 if DEVEL
119
120 config LINUX_2_6_ARM
121 bool "UNSUPPORTED little-endian arm platform"
122 depends BROKEN
123 select LINUX_2_6
124 select arm
125
126 config LINUX_2_6_CRIS
127 bool "UNSUPPORTED cris platform"
128 depends BROKEN
129 select LINUX_2_6
130 select cris
131
132 config LINUX_2_6_M68K
133 bool "UNSUPPORTED m68k platform"
134 depends BROKEN
135 select LINUX_2_6
136 select m68k
137
138 config LINUX_2_6_SH3
139 bool "UNSUPPORTED little-endian sh3 platform"
140 depends BROKEN
141 select LINUX_2_6
142 select sh3
143
144 config LINUX_2_6_SH3EB
145 bool "UNSUPPORTED big-endian sh3 platform"
146 depends BROKEN
147 select LINUX_2_6
148 select sh3eb
149
150 config LINUX_2_6_SH4
151 bool "UNSUPPORTED little-endian sh4 platform"
152 depends BROKEN
153 select LINUX_2_6
154 select sh4
155
156 config LINUX_2_6_SH4EB
157 bool "UNSUPPORTED big-endian sh4 platform"
158 depends BROKEN
159 select LINUX_2_6
160 select sh4eb
161
162 config LINUX_2_6_SPARC
163 bool "UNSUPPORTED sparc platform"
164 depends BROKEN
165 select LINUX_2_6
166 select sparc
167
168 endif
169
170 endchoice
171
172 choice
173 prompt "Target Profile"
174
175 EOF
176
177 foreach $target (@target) {
178 my $profiles;
179
180 $profiles = $target->{profiles} or $profiles = [
181 {
182 id => 'Default',
183 name => 'Default',
184 pkgs => []
185 }
186 ];
187 foreach my $profile (@$profiles) {
188 print <<EOF;
189 config LINUX_$target->{conf}_$profile->{id}
190 bool "$profile->{name}"
191 depends LINUX_$target->{conf}
192 EOF
193 foreach my $pkg (@{$target->{defaultpkgs}}, @{$profile->{pkgs}}) {
194 print "\tselect DEFAULT_$pkg\n";
195 }
196 print "\n";
197 }
198 }
199
200 print "endchoice\n";