source/script/mkproto.awk

   1 BEGIN {
   2   inheader=0;
   3 #  use_ldap_define = 0;
   4   current_file="";
   5   if (headername=="") {
   6     headername="_PROTO_H_";
   7   }
   8
   9   print "#ifndef",headername
  10   print "#define",headername
  11   print ""
  12   print "/* This file is automatically generated with \"make proto\". DO NOT EDIT */"
  13   print ""
  14 }
  15
  16 END {
  17   print ""
  18   print "#endif /* ",headername," */"
  19 }
  20
  21 {
  22   if (FILENAME!=current_file) {
  23 #    if (use_ldap_define)
  24 #    {
  25 #      print "#endif /* USE_LDAP */"
  26 #      use_ldap_define = 0;
  27 #    }
  28     print ""
  29     print "/* The following definitions come from",FILENAME," */"
  30     print ""
  31     current_file=FILENAME
  32   }
  33   if (inheader) {
  34     if (match($0,"[)][ \t]*$")) {
  35       inheader = 0;
  36       printf "%s;\n",$0;
  37     } else {
  38       printf "%s\n",$0;
  39     }
  40     next;
  41   }
  42 }
  43
  44 # we handle the loadparm.c fns separately
  45
  46 /^FN_LOCAL_BOOL/ {
  47   split($0,a,"[,()]")
  48   printf "BOOL %s(int );\n", a[2]
  49 }
  50
  51 /^FN_LOCAL_LIST/ {
  52   split($0,a,"[,()]")
  53   printf "const char **%s(int );\n", a[2]
  54 }
  55
  56 /^FN_LOCAL_STRING/ {
  57   split($0,a,"[,()]")
  58   printf "char *%s(int );\n", a[2]
  59 }
  60
  61 /^FN_LOCAL_CONST_STRING/ {
  62   split($0,a,"[,()]")
  63   printf "const char *%s(int );\n", a[2]
  64 }
  65
  66 /^FN_LOCAL_INT/ {
  67   split($0,a,"[,()]")
  68   printf "int %s(int );\n", a[2]
  69 }
  70
  71 /^FN_LOCAL_CHAR/ {
  72   split($0,a,"[,()]")
  73   printf "char %s(int );\n", a[2]
  74 }
  75
  76 /^FN_GLOBAL_BOOL/ {
  77   split($0,a,"[,()]")
  78   printf "BOOL %s(void);\n", a[2]
  79 }
  80
  81 /^FN_GLOBAL_LIST/ {
  82   split($0,a,"[,()]")
  83   printf "const char **%s(void);\n", a[2]
  84 }
  85
  86 /^FN_GLOBAL_STRING/ {
  87   split($0,a,"[,()]")
  88   printf "char *%s(void);\n", a[2]
  89 }
  90
  91 /^FN_GLOBAL_CONST_STRING/ {
  92   split($0,a,"[,()]")
  93   printf "const char *%s(void);\n", a[2]
  94 }
  95
  96 /^FN_GLOBAL_INT/ {
  97   split($0,a,"[,()]")
  98   printf "int %s(void);\n", a[2]
  99 }
 100
 101 /^static|^extern/ || !/^[a-zA-Z]/ || /[;]/ {
 102   next;
 103 }
 104
 105 #
 106 # We have to split up the start
 107 # matching as we now have so many start
 108 # types that it can cause some versions
 109 # of nawk/awk to choke and fail on
 110 # the full match. JRA.
 111 #
 112
 113 {
 114   gotstart = 0;
 115   if( $0 ~ /^const|^connection_struct|^pipes_struct|^smb_np_struct|^file_fd_struct|^files_struct|^connection_struct|^uid_t|^gid_t|^unsigned|^mode_t|^DIR|^user|^int|^pid_t|^ino_t|^off_t|^double/ ) {
 116     gotstart = 1;
 117   }
 118
 119   if( $0 ~ /^vuser_key|^UNISTR2|^LOCAL_GRP|^DOMAIN_GRP|^SMB_STRUCT_DIRENT|^SEC_ACL|^SEC_DESC|^SEC_DESC_BUF|^DOM_SID|^RPC_HND_NODE|^BYTE/ ) {
 120     gotstart = 1;
 121   }
 122
 123   if( $0 ~ /^ADS_STRUCT|^ADS_STATUS|^DATA_BLOB|^ASN1_DATA|^TDB_CONTEXT|^TDB_DATA|^smb_ucs2_t|^TALLOC_CTX|^hash_element|^NT_DEVICEMODE|^enum.*\(|^NT_USER_TOKEN|^SAM_ACCOUNT|^NTTIME/ ) {
 124     gotstart = 1;
 125   }
 126
 127   if( $0 ~ /^smb_iconv_t|^long|^char|^uint|^NTSTATUS|^WERROR|^CLI_POLICY_HND|^struct|^BOOL|^void|^time|^smb_shm_offset_t|^shm_offset_t|^FILE|^XFILE|^SMB_OFF_T|^size_t|^ssize_t|^SMB_BIG_UINT|^SMB_BIG_INT/ ) {
 128     gotstart = 1;
 129   }
 130
 131   if( $0 ~ /^SAM_ACCT_INFO_NODE|^SMB_ACL_T|^ADS_MODLIST|^PyObject|^SORTED_TREE|^REGISTRY_HOOK|^REGISTRY_VALUE|^DEVICEMODE|^PAC_DATA|^NET_USER_INFO_3|^smb_event_id_t/ ) {
 132     gotstart = 1;
 133   }
 134
 135   if( $0 ~ /^WINBINDD_PW|^WINBINDD_GR|^NT_PRINTER_INFO_LEVEL_2|^LOGIN_CACHE|^krb5_error_code|^LDAP|^krb5_error_code/ ) {
 136     gotstart = 1;
 137   }
 138
 139   if(!gotstart) {
 140     next;
 141   }
 142 }
 143
 144
 145 /[(].*[)][ \t]*$/ {
 146     printf "%s;\n",$0;
 147     next;
 148 }
 149
 150 /[(]/ {
 151   inheader=1;
 152   printf "%s\n",$0;
 153   next;
 154 }
 155