70 # For each package in CSV... |
70 # For each package in CSV... |
71 foreach my $package (@packages) |
71 foreach my $package (@packages) |
72 { |
72 { |
73 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
73 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
74 $package->{dst} =~ s{^/}{}g; |
74 $package->{dst} =~ s{^/}{}g; |
75 if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/(sf|utilities)/(([^/]+)/([^/]+))?}) |
75 if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/(sf|utilities|interim)/(([^/]+)/)?([^/]+)?}) |
76 { |
76 { |
77 my ($license, $codeline, $thingy, $layer, $packageName) = ($1, $2, $3, $5, $6); |
77 my ($license, $codeline, $thingy, $layer, $packageName) = ($1, $2, $3, $5, $6); |
78 # $thingy is the part of the path after the codeline. For |
78 # $thingy is the part of the path after the codeline. For |
79 # platform packages, it's "sf". For the utilities package, it's |
79 # platform packages, it's "sf". For the utilities package, it's |
80 # "utilities" (the name of the package) and there's no more |
80 # "utilities" (the name of the package) and there's no more |
83 # I can't think of anything to describe this item, hence $thingy |
83 # I can't think of anything to describe this item, hence $thingy |
84 if ($thingy eq "utilities") |
84 if ($thingy eq "utilities") |
85 { |
85 { |
86 $layer = "tools"; |
86 $layer = "tools"; |
87 $packageName = "utilities"; |
87 $packageName = "utilities"; |
|
88 } |
|
89 elsif ($thingy eq "interim") |
|
90 { |
|
91 if ($layer eq "QEMU") |
|
92 { |
|
93 $packageName = $layer; |
|
94 $layer = "os"; |
|
95 } |
|
96 else |
|
97 { |
|
98 warn "ERROR: Don't know how to deal with interim package $layer\n"; |
|
99 goto MISC_PACKAGE; |
|
100 } |
88 } |
101 } |
89 elsif (!defined $packageName) |
102 elsif (!defined $packageName) |
90 { |
103 { |
91 goto MISC_PACKAGE; |
104 goto MISC_PACKAGE; |
92 } |
105 } |