dwdyke wip

diff --git a/Parse.pm b/Parse.pm
index 30648ba42f78987f538055af91b8b9b6366ca46a..205a0d343160c77f5676cae2f6191602571922ad 100644 (file)
--- a/Parse.pm
+++ b/Parse.pm
@@ -59,7 +59,8 @@ sub read_in () {
       $cregion = $name;
       next;
     }
-    if (my ($aref, $adykes) = m{^\t\t(\S.*[A-Za-z.]|L2?)(?: (\+\+?))?$}) {
+    if (my ($aref, $adykes, $dwdyke) =
+       m{^\t\t(\S.*[A-Za-z.]|L2?)(?: (\+\+?)(\@?))?$}) {
       my $adj = { Dykes => (length $adykes // 0), L => $. };
       if ($aref =~ m{\.}) {
        $adj->{Pattern} = $aref;

diff --git a/input-graph b/input-graph
index 80e3e439aaf1cf123197f676d0431f331046bb43..7627a07d5e255dfb64d8196135bc6ab3d50dbae9 100644 (file)
--- a/input-graph
+++ b/input-graph
@@ -195,18 +195,18 @@ red
                H.W.
                Voorne-Putten +
        Voorne-Putten
-               NZ +
+               NZ +@
                D. +
                H.W. +
                Goeree-Overflakkee +
        Goeree-Overflakkee
-               NZ +
+               NZ +@
                V.-P. +
                H.W.
                W-B. +
                Schouwen-Duiveland +
        Schouwen-Duiveland
-               NZ +
+               NZ +@
                G-O. +
                W-B. +
                De Zoom
@@ -219,12 +219,12 @@ red
                Zeeuws-Vlaanderen +
                Walcheren +
        Zeeuws-Vlaanderen
-               Z-B. +
+               Z-B. +@
                L
                NZ +
                Walcheren +
        Walcheren
-               NZ +
+               NZ +@
                S-D.
                Z-B. +
                Z-V. +