7a80ce3c |
1 | #!/usr/bin/perl |
2 | |
3 | for $filename (@ARGV) { |
4 | open(SRC, $filename) || die "$filename: $!"; |
5 | $state = 0; |
6 | delete @tvars{keys %tvars}; |
7 | while(<SRC>) { |
8 | chomp; |
9 | if(/struct configvar/ && /\[\]/) { |
10 | $state = 1; |
11 | } |
12 | if(($state == 1) && /^\s*\/\*\*/) { |
13 | $curdoc = ""; |
14 | $state = 2; |
15 | s/^\s*\/\*//; |
16 | } |
17 | if(($state == 1) && /\{CONF_VAR_(\w+), \"([^\"]*)\"/) { |
18 | $var = $2; $type = $1; $def = ""; |
19 | if($type eq "INT") { |
20 | ($def) = /\.num = (\d+)/; |
21 | } elsif($type eq "BOOL") { |
22 | ($def) = /\.num = (\d+)/; |
23 | if($def) { |
24 | $def = "true"; |
25 | } else { |
26 | $def = "false"; |
27 | } |
28 | } elsif($type eq "STRING") { |
29 | ($def) = /\.str = L\"([^\"]*)\"/; |
30 | $def = "\"$def\""; |
31 | } |
32 | $tvars{$var} = {"doc" => $curdoc, "type" => $type, "def" => $def}; |
33 | $curdoc = ""; |
34 | } |
35 | if(($state == 1) && /\s*\};$/) { |
36 | $state = 0; |
37 | } |
38 | if($state == 2) { |
39 | if(/\*\/$/) { |
40 | $state = 1; |
41 | s/\*\/$//; |
42 | } |
43 | s/^\s*\*\s*//; |
44 | s/\s*$//; |
45 | if(length($curdoc) > 0) { |
46 | $curdoc .= " "; |
47 | } |
48 | $curdoc .= $_; |
49 | } |
50 | } |
51 | close SRC; |
52 | $module = $filename; |
53 | $module =~ s/^.*\///; |
54 | $module =~ s/\..*$//; |
55 | for $var (keys %tvars) { |
56 | $vars{"$module.$var"} = $tvars{$var}; |
57 | } |
58 | } |
59 | |
60 | $types{"BOOL"} = "boolean"; |
61 | $types{"INT"} = "integer"; |
62 | $types{"STRING"} = "string"; |
63 | $types{"IPV4"} = "IPv4 address"; |
64 | while(<STDIN>) { |
65 | if(/\@DATE\@/) { |
66 | @lt = localtime time; |
67 | $date = sprintf("%04i-%02i-%02i", $lt[5] + 1900, $lt[4] + 1, $lt[3]); |
68 | s/\@DATE\@/$date/; |
69 | } |
70 | if(/\@VARIABLES\@/) { |
71 | $_ = ""; |
72 | for $var (sort keys %vars) { |
73 | $_ .= ".TP\n.BI $var \" "; |
74 | $_ .= $types{$vars{$var}->{"type"}}; |
75 | $_ .= "\"\n"; |
76 | $_ .= $vars{$var}->{"doc"}; |
77 | if(!($vars{$var}->{"type"} eq "IPV4")) { |
78 | $_ .= "\n\nDefault value: "; |
79 | $_ .= $vars{$var}->{"def"}; |
80 | } |
81 | $_ .= "\n"; |
82 | } |
83 | } |
84 | print; |
85 | } |