trans-coord/gnun/server/gnun link-diff.awk Chan...

[Ineiev]

CVSROOT:        /sources/trans-coord
Module name:    trans-coord
Changes by:     Ineiev <ineiev> 17/09/16 05:40:16

Modified files:
        gnun/server/gnun: link-diff.awk ChangeLog 

Log message:
        (get_links, get_ids): accept newline as a space character
        in link records like "<a\nhref=\"URL\">text</a>".

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/trans-coord/gnun/server/gnun/link-diff.awk?cvsroot=trans-coord&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/trans-coord/gnun/server/gnun/ChangeLog?cvsroot=trans-coord&r1=1.461&r2=1.462

Patches:
Index: link-diff.awk
===================================================================
RCS file: /sources/trans-coord/trans-coord/gnun/server/gnun/link-diff.awk,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- link-diff.awk       2 Sep 2017 11:11:54 -0000       1.3
+++ link-diff.awk       16 Sep 2017 09:40:15 -0000      1.4
@@ -103,10 +103,11 @@
 # out - output array with links
 # pos - output array of respective link positions
 function get_links(txt, out, pos,
-  n)
+  n, spc)
 {
+  spc = "([ \t\r\n]|<br />\n)"
   n = split_with_pos(txt, links, pos,
-            "[&]lt;a[ \t\r\n]+([^&]*[ \t\r\n]+?)href[ \t\r\n]*=[ \t\r\n]*")
+      "[&]lt;a" spc "+([^&]*" spc "+?)href" spc "*=" spc "*")
   list_attr(links, n, "link", out)
 }
 
@@ -115,10 +116,11 @@
 # out - output array with ids
 # pos - output array of respective id positions
 function get_ids(txt, out, pos,
-  n)
+  n, spc)
 {
+  spc = "([ \t\r\n]|<br />\n)"
   n = split_with_pos(txt, links, pos,
-            "[&]lt;[^&]*[ \t\r\n]+(id|name)[ \t\r\n]*=[ \t\r\n]*")
+      "[&]lt;[^&]*" spc "+(id|name)" spc "*=" spc "*")
   list_attr(links, n, "id", out)
 }
 

Index: ChangeLog
===================================================================
RCS file: /sources/trans-coord/trans-coord/gnun/server/gnun/ChangeLog,v
retrieving revision 1.461
retrieving revision 1.462
diff -u -b -r1.461 -r1.462
--- ChangeLog   2 Sep 2017 11:11:54 -0000       1.461
+++ ChangeLog   16 Sep 2017 09:40:15 -0000      1.462
@@ -1,3 +1,9 @@
+2017-09-15  Pavel Kharitonov  <address@hidden>
+
+       * link-diff.awk (get_links, get_ids): accept newline
+       as a space character in link records like
+       "<a\nhref=\"URL\">text</a>".
+
 2017-09-02  Pavel Kharitonov  <address@hidden>
 
        * link-diff.awk (pacify_translator_notes):