forked from Mirrors/freeswitch
0488a5109a
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@3733 d0543943-73ff-0310-b7d9-9358b9ac24b2
79 lines
1.6 KiB
Awk
79 lines
1.6 KiB
Awk
# Based on apr's make_export.awk, which is
|
|
# based on Ryan Bloom's make_export.pl
|
|
|
|
BEGIN {
|
|
printf(" (APRLIB)\n")
|
|
}
|
|
|
|
# List of functions that we don't support, yet??
|
|
#/apr_##name##_set_inherit/{next}
|
|
#/apr_##name##_unset_inherit/{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[RUI]?_DECLARE[^(]*[(][^)]*[)]([^ ]* )*[^(]+[(]/ {
|
|
sub("[ \t]*AP[RUI]?_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]*AP[RUI]?_DECLARE_DATA .*;$/ {
|
|
varname = $NF;
|
|
gsub( /[*;]/, "", varname);
|
|
gsub( /\[.*\]/, "", varname);
|
|
add_symbol(varname);
|
|
}
|
|
|
|
|
|
#END {
|
|
# printf(" %s", line)
|
|
#}
|