GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

"Committed_by_peb"

Browse Source
This commit is contained in:
peb
2005-02-16 10:33:05 +00:00
parent a3804d22ba
commit f71763faa4
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/haddock/haddock-check.perl
View File

@@ -5,6 +5,9 @@
# - does not check that type aliases are put in the export list # - does not check that type aliases are put in the export list
# - there might be some problems with nested comments # - there might be some problems with nested comments
$operSym = qr/[\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]+/;
$funSym = qr/[a-z]\w*\'*/;
for $file (@ARGV) { for $file (@ARGV) {
$file =~ s/\.hs//; $file =~ s/\.hs//;
@@ -26,11 +29,18 @@ for $file (@ARGV) {
$exportlist =~ s/module\s+[A-Z]\w*//gs; $exportlist =~ s/module\s+[A-Z]\w*//gs;
# type signatures # type signatures
while (/\n([a-z]\w*)\s*::/gs) { while (/\n($funSym)\s*::/gs) {
$function = $1; $function = $1;
# print "- $function\n";
$exportlist =~ s/\b$function\b//; $exportlist =~ s/\b$function\b//;
} }
while (/\n(\($operSym\))\s*::/gs) {
$function = $1;
# print ": $function\n";
$exportlist =~ s/\Q$function\E//;
}
# type aliases # type aliases
while (/\ntype\s+(\w+)/gs) { while (/\ntype\s+(\w+)/gs) {
$type = $1; $type = $1;
@@ -39,9 +49,11 @@ for $file (@ARGV) {
} }
# exported functions without type signatures # exported functions without type signatures
while ($exportlist =~ /\b(\w+)\b/gs) { while ($exportlist =~ /(\b$funSym\b|\($operSym\))/gs) {
$function = $1; $function = $1;
# print "+ $function\n";
next if $function =~ /^[A-Z]/; next if $function =~ /^[A-Z]/;
next if $function =~ /^\((\.\.|\:\:?|\=|\\|\||\<\-|\-\>|\@|\~|\=\>)\)$/;
printf "%-30s | No type signature for function: %s\n", $file, $function; printf "%-30s | No type signature for function: %s\n", $file, $function;
} }