wip

diff --git a/input-graph b/input-graph
index 00a514d52ac891c7bb31e7be000a64452b96d3b6..4663a638d2cea38e6a611265153ff2595b02ad8b 100644 (file)
--- a/input-graph
+++ b/input-graph
@@ -24,6 +24,7 @@ purple
                Gelderse Vallei +
                Utrechtse Heuvelrug
                Kromme Rijn +
+               Markerwaard
        Markerwaard [2]
                ZZ
                F.
@@ -55,7 +56,7 @@ yellow
                N.
                F.
                D.
-               Tw.
+               Twente
        Ijsseldelta
                Rijn en Ijssel +
                Veluwe
@@ -82,7 +83,7 @@ high
                Betuwe
                Kromme Rijn
                F.
-               G.
+               G.V.
 
 yellow
        Kromme Rijn
@@ -91,11 +92,19 @@ yellow
                Delfland +
                F. +
                U.H.
+
+high
+       Twente
+               Rijn en Ijssel
+               Vo.
+               Dr.
+
+yellow
        Rijn en Ijssel
                Betuwe +
-               V.
-               I. +
-               V. ++
+               Ve.
+               Ij. +
+               Vo. ++
        Betuwe
                R.e.Ij. +
                Land van Maas en Waal +
@@ -131,7 +140,7 @@ high
        Oost-Brabant
                West-Brabant
                Land van Heusden
-               L.v.m.e.W.
+               L..W.
                P.e.M.
 
 green
@@ -140,7 +149,7 @@ green
                West-Brabant
                Land van Altena +
                Betuwe +
-               L.v.m.e.W. ++
+               L..W. ++
        Land van Altena
                West-Brabant +
                Hoekse Waard +

diff --git a/parse-input-graph b/parse-input-graph
index f6f418929062a2baabd56a442297da892343017a..71810021e8280819f68d51721c73aa6f9f5ccfbf 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -40,7 +40,10 @@ sub read_in () {
       if ($aref =~ m{\.}) {
        $adj->{Pattern} = $aref;
        $aref =~ s{\-}{[^- ]*-}g;
-       $aref =~ s{\.}{[^- ]* ?}g;
+       $aref =~ s{\.+}{
+            length $& eq 1 ? qr{[^- ]* ?} :
+            length $& eq 2 ? qr{.*}       : confess "$aref"
+        }ge;
        $adj->{Regexp} = $aref;
       } else {
        $adj->{Name} = $aref;