xref: /aoo41x/main/zlib/make_patched_header.pl (revision 7e90fac2)
1:
2eval 'exec perl -S $0 ${1+"$@"}'
3    if 0;
4#**************************************************************
5#
6#  Licensed to the Apache Software Foundation (ASF) under one
7#  or more contributor license agreements.  See the NOTICE file
8#  distributed with this work for additional information
9#  regarding copyright ownership.  The ASF licenses this file
10#  to you under the Apache License, Version 2.0 (the
11#  "License"); you may not use this file except in compliance
12#  with the License.  You may obtain a copy of the License at
13#
14#    http://www.apache.org/licenses/LICENSE-2.0
15#
16#  Unless required by applicable law or agreed to in writing,
17#  software distributed under the License is distributed on an
18#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
19#  KIND, either express or implied.  See the License for the
20#  specific language governing permissions and limitations
21#  under the License.
22#
23#**************************************************************
24
25
26#
27# make_patched_header - make patched header
28#
29
30use strict;
31use File::Basename;
32use File::Path;
33use Carp;
34
35my $patched_file = shift @ARGV;
36$patched_file =~ s/\\/\//g;
37my $module = shift @ARGV;
38my $patch_dir = dirname($patched_file);
39my $orig_file = $patched_file;
40$orig_file =~ s/\/patched\//\//;
41
42if (!-f $orig_file) { carp("Cannot find file $orig_file\n"); };
43if (!-d $patch_dir) {
44    mkpath($patch_dir, 0, 0775);
45    if (!-d $patch_dir) {("mkdir: could not create directory $patch_dir\n"); };
46};
47
48open(PATCHED_FILE, ">$patched_file") or carp("Cannot open file $patched_file\n");
49open(ORIG_FILE, "<$orig_file") or carp("Cannot open file $orig_file\n");
50foreach (<ORIG_FILE>) {
51    if (/#include\s*"(\w+\.h\w*)"/) {
52        my $include = $1;
53        s/#include "$include"/#include <$module\/$include>/g;
54    };
55    print PATCHED_FILE $_;
56};
57close PATCHED_FILE;
58close ORIG_FILE;
59
60exit(0);
61
62
63