GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

enable matching of ++ strings with regular patterns

Browse Source
This commit is contained in:
aarne
2008-09-09 06:36:36 +00:00
parent 5fde12f8f4
commit 56173a9fdb
3 changed files with 31 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/resource/swedish/ParadigmsSwe.gf
View File

@@ -312,9 +312,16 @@ oper
mkN : (apa : Str) -> N = regN ;
mkN : Str -> Gender -> N = regGenN ;
mkN : (nyckel, nycklar : Str) -> N = mk2N ;
mkN : (museum,museet,museer,museerna : Str) -> N = mk4N
mkN : (museum,museet,museer,museerna : Str) -> N = mk4N ;
mkN : Str -> N -> N = compoundN ;
} ;
compoundN : Str -> N -> N = \s,no -> {
s = \\n,d,c => s ++ no.s ! n ! d ! c ;
g = no.g ;
lock_N = <>
} ;
mk4N : (museum,museet,museer,museerna : Str) -> N = \apa,apan,apor,aporna -> {
s = nounForms apa apan apor aporna ;
g = case last apan of {