diff options
author | Ben Pfaff <blp@nicira.com> | 2011-08-25 11:15:27 -0700 |
---|---|---|
committer | Ben Pfaff <blp@nicira.com> | 2011-10-26 15:50:50 -0700 |
commit | 94512c4abe1062ad18cb32fbf1f4947fda06a9cd (patch) | |
tree | 51dcef8fdf6012db5695a31b9db28ddda64b822c /build-aux | |
parent | 06b592bcbe2e5a435589b0ce3d77530756c20572 (diff) |
Move soexpand.pl into build-aux and make it non-executable.
Scripts for the build generally go in build-aux, so move soexpand.pl.
soexpand.pl had the "executable" bit set, but it doesn't have a #! line
and it's not a shell script, so that didn't make sense.
Diffstat (limited to 'build-aux')
-rw-r--r-- | build-aux/soexpand.pl | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/build-aux/soexpand.pl b/build-aux/soexpand.pl new file mode 100644 index 00000000..924295cf --- /dev/null +++ b/build-aux/soexpand.pl @@ -0,0 +1,40 @@ +# Copyright (c) 2008 Nicira Networks. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at: +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. + +use strict; +use warnings; +use Getopt::Long; + +my ($exit_code) = 0; +my (@include_dirs); +Getopt::Long::Configure ("bundling"); +GetOptions("I|include=s" => \@include_dirs) or exit(1); +@include_dirs = ('.') if !@include_dirs; +OUTER: while (<STDIN>) { + if (my ($name) = /^\.so (\S+)$/) { + foreach my $dir (@include_dirs, '.') { + if (open(INNER, "$dir/$name")) { + while (<INNER>) { + print $_; + } + close(INNER); + next OUTER; + } + } + print STDERR "$name not found in: ", join(' ', @include_dirs), "\n"; + $exit_code = 1; + } + print $_; +} +exit $exit_code; |