| # Copyright 2001-2004 The Apache Software Foundation |
| # |
| # 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. |
| # |
| # |
| # Based on apr's make_export.awk, which is |
| # based on Ryan Bloom's make_export.pl |
| |
| BEGIN { |
| printf(" (APACHE2)\n") |
| } |
| |
| # List of functions that we don't support, yet?? |
| #/ap_some_name/{next} |
| |
| function add_symbol (sym_name) { |
| if (count) { |
| found++ |
| } |
| gsub (/ /, "", sym_name) |
| line = line sym_name ",\n" |
| |
| if (count == 0) { |
| printf(" %s", line) |
| line = "" |
| } |
| } |
| |
| /^[ \t]*AP([RU]|_CORE)?_DECLARE[^(]*[(][^)]*[)]([^ ]* )*[^(]+[(]/ { |
| sub("[ \t]*AP([RU]|_CORE)?_DECLARE[^(]*[(][^)]*[)][ \t]*", "") |
| sub("[(].*", "") |
| sub("([^ ]* (^([ \t]*[(])))+", "") |
| |
| add_symbol($0) |
| next |
| } |
| |
| /^[ \t]*AP_DECLARE_HOOK[^(]*[(][^)]*/ { |
| split($0, args, ",") |
| symbol = args[2] |
| sub("^[ \t]+", "", symbol) |
| sub("[ \t]+$", "", symbol) |
| |
| add_symbol("ap_hook_" symbol) |
| add_symbol("ap_hook_get_" symbol) |
| add_symbol("ap_run_" symbol) |
| next |
| } |
| |
| /^[ \t]*APR_POOL_DECLARE_ACCESSOR[^(]*[(][^)]*[)]/ { |
| sub("[ \t]*APR_POOL_DECLARE_ACCESSOR[^(]*[(]", "", $0) |
| sub("[)].*$", "", $0) |
| add_symbol("apr_" $0 "_pool_get") |
| next |
| } |
| |
| /^[ \t]*APR_DECLARE_INHERIT_SET[^(]*[(][^)]*[)]/ { |
| sub("[ \t]*APR_DECLARE_INHERIT_SET[^(]*[(]", "", $0) |
| sub("[)].*$", "", $0) |
| add_symbol("apr_" $0 "_inherit_set") |
| next |
| } |
| |
| /^[ \t]*APR_DECLARE_INHERIT_UNSET[^(]*[(][^)]*[)]/ { |
| sub("[ \t]*APR_DECLARE_INHERIT_UNSET[^(]*[(]", "", $0) |
| sub("[)].*$", "", $0) |
| add_symbol("apr_" $0 "_inherit_unset") |
| next |
| } |
| |
| /^[ \t]*(extern[ \t]+)?AP[RU]?_DECLARE_DATA .*;$/ { |
| varname = $NF; |
| gsub( /[*;]/, "", varname); |
| gsub( /\[.*\]/, "", varname); |
| add_symbol(varname); |
| } |
| |
| #END { |
| # printf(" %s", line) |
| #} |