mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-10 19:52:50 -06:00
"Committed_by_peb"
This commit is contained in:
@@ -8,8 +8,10 @@
|
||||
# - transforming hard space to ordinary space
|
||||
|
||||
# limitations:
|
||||
# - does not check that type aliases are put in the export list
|
||||
# - there might be some problems with nested comments
|
||||
# - cannot handle type signatures for several functions
|
||||
# (i.e. "a, b, c :: t")
|
||||
# but on the other hand -- haddock has some problems with these too...
|
||||
|
||||
$operSym = qr/[\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]+/;
|
||||
$funSym = qr/[a-z]\w*\'*/;
|
||||
@@ -34,6 +36,15 @@ for $file (@ARGV) {
|
||||
|
||||
print "-- $file\n";
|
||||
|
||||
# substituting hard spaces for ordinary spaces
|
||||
$nchars = tr/\240/ /;
|
||||
if ($nchars > 0) {
|
||||
print " ! Substituted $nchars hard spaces\n";
|
||||
open F, ">$file.hs";
|
||||
print F $_;
|
||||
close F;
|
||||
}
|
||||
|
||||
# the module header
|
||||
s/^(--+\s*\n)+//s;
|
||||
unless (s/^-- \|\s*\n//s) {
|
||||
|
||||
Reference in New Issue
Block a user