diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-04 15:54:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-04 15:54:40 +0000 |
| commit | d5500498736ff9cdce7d23e336357742c5799825 (patch) | |
| tree | 53d4fe137e04c79d521fc373d41f5c38eb1bb5e9 /src/GF/Grammar/Macros.hs | |
| parent | 934d4dbd7c922fdc30b0bd6225c0dc44fea16ddb (diff) | |
finalizing experiments with Finnish nouns
Diffstat (limited to 'src/GF/Grammar/Macros.hs')
| -rw-r--r-- | src/GF/Grammar/Macros.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs index 51f483a0a..8e3332b12 100644 --- a/src/GF/Grammar/Macros.hs +++ b/src/GF/Grammar/Macros.hs @@ -521,6 +521,8 @@ term2patt trm = case termForm trm of Ok ([], Cn (IC "*"), [a]) -> do a' <- term2patt a return (PRep a') + Ok ([], Cn (IC "?"), []) -> do + return PChar Ok ([], Cn (IC "+"), [a,b]) -> do a' <- term2patt a b' <- term2patt b @@ -547,6 +549,7 @@ patt2term pt = case pt of PString s -> K s PAs x p -> appc "@" [Vr x, patt2term p] --- an encoding + PChar -> appc "?" [] --- an encoding PSeq a b -> appc "+" [(patt2term a), (patt2term b)] --- an encoding PAlt a b -> appc "|" [(patt2term a), (patt2term b)] --- an encoding PRep a -> appc "*" [(patt2term a)] --- an encoding |