Author: jelmer
Date: 2006-09-06 12:30:26 +0000 (Wed, 06 Sep 2006)
New Revision: 18171

WebSVN: 
http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=18171

Log:
Generate prototypes for functions returning bool.

Modified:
   branches/SAMBA_4_0/source/script/mkproto.pl


Changeset:
Modified: branches/SAMBA_4_0/source/script/mkproto.pl
===================================================================
--- branches/SAMBA_4_0/source/script/mkproto.pl 2006-09-06 12:29:45 UTC (rev 
18170)
+++ branches/SAMBA_4_0/source/script/mkproto.pl 2006-09-06 12:30:26 UTC (rev 
18171)
@@ -125,13 +125,14 @@
 {
        my ($file,$line) = @_;
 
-       if ($line =~ /^_PUBLIC_ 
FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|CHAR|INTEGER|LIST)\((\w+),.*\)/o) {
+       if ($line =~ /^_PUBLIC_ 
FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|bool|CHAR|INTEGER|LIST)\((\w+),.*\)/o)
 {
                my $scope = $1;
                my $type = $2;
                my $name = $3;
 
                my %tmap = (
                            "BOOL" => "BOOL ",
+                               "bool" => "bool ",
                            "CONST_STRING" => "const char *",
                            "STRING" => "const char *",
                            "INTEGER" => "int ",
@@ -182,7 +183,7 @@
                }
 
                next unless ( $is_public || $line =~ /
-                             
^void|^BOOL|^int|^struct|^char|^const|^\w+_[tT]\s|^uint|^unsigned|^long|
+                             
^void|^BOOL|^bool|^int|^struct|^char|^const|^\w+_[tT]\s|^uint|^unsigned|^long|
                              
^NTSTATUS|^ADS_STATUS|^enum\s.*\(|^DATA_BLOB|^WERROR|^XFILE|^FILE|^DIR|
                              
^double|^TDB_CONTEXT|^TDB_DATA|^TALLOC_CTX|^NTTIME|^FN_|^init_module|
                              ^GtkWidget|^GType|^smb_ucs2_t

Reply via email to