File tree Expand file tree Collapse file tree 1 file changed +13
-0
lines changed Expand file tree Collapse file tree 1 file changed +13
-0
lines changed Original file line number Diff line number Diff line change @@ -105,6 +105,7 @@ sub check_comments {
105
105
106
106
sub check_doc {
107
107
my $fails = 0;
108
+ my $man = read_file(' doc/tommath.3' );
108
109
my $tex = read_file(' doc/bn.tex' );
109
110
my $tmh = read_file(' tommath.h' );
110
111
my @functions = $tmh =~ / \n\s *[a-zA-Z0-9_* ]+?(mp_[a-z0-9_]+)\s *\( [^\) ]+\)\s *[MP_WUR]+?;/sg ;
@@ -123,6 +124,18 @@ sub check_doc {
123
124
$fails ++
124
125
}
125
126
}
127
+ for my $n (sort @functions ) {
128
+ if ($man !~ / .BI.*$n / ) {
129
+ warn " [missing_man_entry_for_function] $n \n " ;
130
+ $fails ++
131
+ }
132
+ }
133
+ for my $n (sort @macros ) {
134
+ if ($man !~ / .BI.*$n / ) {
135
+ warn " [missing_man_entry_for_macro] $n \n " ;
136
+ $fails ++
137
+ }
138
+ }
126
139
warn ( $fails > 0 ? " check_doc: FAIL $fails \n " : " check-doc: PASS\n " );
127
140
return $fails ;
128
141
}
You can’t perform that action at this time.
0 commit comments