From e8a8f4b0c6f5e81a08d94cf8c3b8f74e22afa256 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 9 Apr 2020 20:15:02 +0200
Subject: [PATCH] (Hun) Put digraphs and trigraphs into a pattern, use them in
 dMajom

---
 src/hungarian/NounMorphoHun.gf | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf
index 1027b4ef..1ea2a827 100644
--- a/src/hungarian/NounMorphoHun.gf
+++ b/src/hungarian/NounMorphoHun.gf
@@ -103,11 +103,10 @@ oper
         -- it has to be called something else, and then you
         -- can get "tako" and "ny" with p1, p2.
     let tako_ny : Str*Str = case majom of {
-               x + trigraph@("dzs") => <x,trigraph> ;
-               x + digraph@("cs"|"dz"|"gy"|"ly"|"ny"|"sz"|"ty"|"zs")
-                                    => <x,digraph> ;
+               x + dzs@#trigraph => <x,dzs> ;
+               x + zs@#digraph => <x,zs> ;
                   -- ? pattern matches exactly 1 character
-               x + unigraph@?       => <x,unigraph> } ;
+               x + s@? => <x,s> } ;
         tako = tako_ny.p1 ;
         ny = tako_ny.p2 ;
 
@@ -159,6 +158,11 @@ oper
   -- Vowels as a pattern.
   v : pattern Str = #("a" | "e" | "i" | "o" | "u" | "ö" | "ü" |
                       "á" | "é" | "í" | "ó" | "ú" | "ő" | "ű") ;
+  -- Digraphs
+  digraph : pattern Str = #("cs"|"dz"|"gy"|"ly"|"ny"|"sz"|"ty"|"zs") ;
+
+  -- Trigraphs
+  trigraph : pattern Str = #("dzs") ;
 
   -- Function to test if a string ends in a vowel
   vowFinal : Str -> Bool = \str ->