Ignore very long URLs in tools/check-typo

This is only to allow for a few specific instances, so for the time being implemented for long-long and not very-long-line.
ocaml · Oct 25, 2017 · 49723e5 · 49723e5
1 parent a911a39
commit 49723e5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/.gitattributes b/.gitattributes
@@ -50,7 +50,7 @@ README*                  ocaml-typo=missing-header
 
 
 asmcomp/*/emit.mlp       ocaml-typo=tab,long-line,unused-prop
-asmcomp/power/NOTES.md   ocaml-typo=missing-header,long-line
+asmcomp/power/NOTES.md   ocaml-typo=missing-header
 
 asmrun/i386.S            ocaml-typo=long-line
 

diff --git a/tools/check-typo b/tools/check-typo
@@ -222,9 +222,13 @@ IGNORE_DIRS="
         }
 
         $0 !~ /\t/ && length($0) > 80 {
-          RSTART = 81;
-          RLENGTH = 0;
-          err("long-line", "line is over 80 columns");
+          t = $0;
+          sub(/https?:[A-Za-z0-9._~:/?#\[\]@!$&\047()*+,;=%-]{73,}$/, "", t);
+          if (length(t) > 80) {
+            RSTART = 81;
+            RLENGTH = 0;
+            err("long-line", "line is over 80 columns");
+          }
         }
 
         $0 !~ /\t/ && length($0) > 132 {