Changeset 988 for vendor/current/source4/script
- Timestamp:
- Nov 24, 2016, 1:14:11 PM (9 years ago)
- Location:
- vendor/current/source4/script
- Files:
-
- 3 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendor/current/source4/script/mkproto.pl
r740 r988 125 125 } 126 126 127 sub handle_loadparm($$)128 {129 my ($file,$line) = @_;130 131 if ($line =~ /^FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|bool|CHAR|INTEGER|LIST)\((\w+),.*\)/o) {132 my $scope = $1;133 my $type = $2;134 my $name = $3;135 136 my %tmap = (137 "BOOL" => "bool ",138 "CONST_STRING" => "const char *",139 "STRING" => "const char *",140 "INTEGER" => "int ",141 "CHAR" => "char ",142 "LIST" => "const char **",143 );144 145 my %smap = (146 "GLOBAL" => "struct loadparm_context *",147 "LOCAL" => "struct loadparm_service *, struct loadparm_service *"148 );149 150 $file->("$tmap{$type}lpcfg_$name($smap{$scope});\n");151 }152 }153 154 127 sub process_file($$$) 155 128 { … … 192 165 193 166 if ($line =~ /^FN_/) { 194 handle_loadparm($public_file, $line);195 handle_loadparm($private_file, $line);196 167 next; 197 168 }
Note:
See TracChangeset
for help on using the changeset viewer.