rubbos/app/httpd-2.0.64/build/make_nw_export.awk

   1 # Licensed to the Apache Software Foundation (ASF) under one or more
   2 # contributor license agreements.  See the NOTICE file distributed with
   3 # this work for additional information regarding copyright ownership.
   4 # The ASF licenses this file to You under the Apache License, Version 2.0
   5 # (the "License"); you may not use this file except in compliance with
   6 # the License.  You may obtain a copy of the License at
   7 #
   8 #     http://www.apache.org/licenses/LICENSE-2.0
   9 #
  10 # Unless required by applicable law or agreed to in writing, software
  11 # distributed under the License is distributed on an "AS IS" BASIS,
  12 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  13 # See the License for the specific language governing permissions and
  14 # limitations under the License.
  15 #
  16 #
  17 # Based on apr's make_export.awk, which is
  18 # based on Ryan Bloom's make_export.pl
  19
  20 BEGIN {
  21     printf(" (APACHE2)\n")
  22 }
  23
  24 # List of functions that we don't support, yet??
  25 #/ap_some_name/{next}
  26
  27 function add_symbol (sym_name) {
  28         if (count) {
  29                 found++
  30         }
  31     gsub (/ /, "", sym_name)
  32         line = line sym_name ",\n"
  33
  34         if (count == 0) {
  35                 printf(" %s", line)
  36                 line = ""
  37         }
  38 }
  39
  40 /^[ \t]*AP([RU]|_CORE)?_DECLARE[^(]*[(][^)]*[)]([^ ]* )*[^(]+[(]/ {
  41     sub("[ \t]*AP([RU]|_CORE)?_DECLARE[^(]*[(][^)]*[)][ \t]*", "")
  42     sub("[(].*", "")
  43     sub("([^ ]* (^([ \t]*[(])))+", "")
  44
  45     add_symbol($0)
  46     next
  47 }
  48
  49 /^[ \t]*AP_DECLARE_HOOK[^(]*[(][^)]*/ {
  50     split($0, args, ",")
  51     symbol = args[2]
  52     sub("^[ \t]+", "", symbol)
  53     sub("[ \t]+$", "", symbol)
  54
  55     add_symbol("ap_hook_" symbol)
  56     add_symbol("ap_hook_get_" symbol)
  57     add_symbol("ap_run_" symbol)
  58     next
  59 }
  60
  61 /^[ \t]*APR_POOL_DECLARE_ACCESSOR[^(]*[(][^)]*[)]/ {
  62     sub("[ \t]*APR_POOL_DECLARE_ACCESSOR[^(]*[(]", "", $0)
  63     sub("[)].*$", "", $0)
  64     add_symbol("apr_" $0 "_pool_get")
  65     next
  66 }
  67
  68 /^[ \t]*APR_DECLARE_INHERIT_SET[^(]*[(][^)]*[)]/ {
  69     sub("[ \t]*APR_DECLARE_INHERIT_SET[^(]*[(]", "", $0)
  70     sub("[)].*$", "", $0)
  71     add_symbol("apr_" $0 "_inherit_set")
  72     next
  73 }
  74
  75 /^[ \t]*APR_DECLARE_INHERIT_UNSET[^(]*[(][^)]*[)]/ {
  76     sub("[ \t]*APR_DECLARE_INHERIT_UNSET[^(]*[(]", "", $0)
  77     sub("[)].*$", "", $0)
  78     add_symbol("apr_" $0 "_inherit_unset")
  79     next
  80 }
  81
  82 /^[ \t]*(extern[ \t]+)?AP[RU]?_DECLARE_DATA .*;$/ {
  83        varname = $NF;
  84        gsub( /[*;]/, "", varname);
  85        gsub( /\[.*\]/, "", varname);
  86        add_symbol(varname);
  87 }
  88
  89 #END {
  90 #       printf(" %s", line)
  91 #}