www.pudn.com > httpd-2.2.6-win32-src-r2.zip > make_nw_export.awk, change:2006-07-11,size:2516b


# Licensed to the Apache Software Foundation (ASF) under one or more 
# contributor license agreements.  See the NOTICE file distributed with 
# this work for additional information regarding copyright ownership. 
# The ASF licenses this file to You 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) 
#}