xref: /trunk/main/zlib/make_patched_header.pl (revision 31cbf049)
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# make_patched_header - make patched header
27#
28
29use strict;
30use File::Basename;
31use File::Path;
32use Carp;
33
34my $patched_file = shift @ARGV;
35$patched_file =~ s/\\/\//g;
36my $module = shift @ARGV;
37my $patch_dir = dirname($patched_file);
38my $orig_file = $patched_file;
39$orig_file =~ s/\/patched\//\//;
40
41if (!-f $orig_file) { carp("Cannot find file $orig_file\n"); };
42if (!-d $patch_dir) {
43    mkpath($patch_dir, 0, 0775);
44    if (!-d $patch_dir) {("mkdir: could not create directory $patch_dir\n"); };
45};
46
47open(PATCHED_FILE, ">$patched_file") or carp("Cannot open file $patched_file\n");
48open(ORIG_FILE, "<$orig_file") or carp("Cannot open file $orig_file\n");
49foreach (<ORIG_FILE>) {
50    if (/#include\s*"(\w+\.h\w*)"/) {
51        my $include = $1;
52        s/#include "$include"/#include <$module\/$include>/g;
53    };
54    print PATCHED_FILE $_;
55};
56close PATCHED_FILE;
57close ORIG_FILE;
58
59exit(0);
60
61