GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -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 b7d9d2cac6
commit f7bbf6b27b
2 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
resource/Make.hs
View File

@@ -85,6 +85,9 @@ make xx = do
ifx "lang" $ do ifx "lang" $ do
mapM_ (gfc pres [] . lang) (optl langsLang) mapM_ (gfc pres [] . lang) (optl langsLang)
copy "*/*.gfo" dir copy "*/*.gfo" dir
ifx "compat" $ do
mapM_ (gfc pres [] . compat) (optl langsLang)
copy "*/*.gfo" dir
ifx "api" $ do ifx "api" $ do
mapM_ (gfc pres presApiPath . try) (optl langsAPI) mapM_ (gfc pres presApiPath . try) (optl langsAPI)
copy "*/*.gfo" dir copy "*/*.gfo" dir
@@ -132,6 +135,7 @@ demos abstr ls = "gr -number=100 | l -treebank " ++ unlexer abstr ls ++
" | ps -to_html | wf -file=resdemo.html" " | ps -to_html | wf -file=resdemo.html"
lang (lla,la) = lla ++ "/All" ++ la ++ ".gf" lang (lla,la) = lla ++ "/All" ++ la ++ ".gf"
compat (lla,la) = lla ++ "/Compatibility" ++ la ++ ".gf"
try (lla,la) = "api/Try" ++ la ++ ".gf" try (lla,la) = "api/Try" ++ la ++ ".gf"
math (lla,la) = "mathematical/Mathematical" ++ la ++ ".gf" math (lla,la) = "mathematical/Mathematical" ++ la ++ ".gf"
symbolic (lla,la) = "mathematical/Symbolic" ++ la ++ ".gf" symbolic (lla,la) = "mathematical/Symbolic" ++ la ++ ".gf"

9
resource/swedish/ParadigmsSwe.gf
View File

@@ -312,7 +312,14 @@ oper
mkN : (apa : Str) -> N = regN ; mkN : (apa : Str) -> N = regN ;
mkN : Str -> Gender -> N = regGenN ; mkN : Str -> Gender -> N = regGenN ;
mkN : (nyckel, nycklar : Str) -> N = mk2N ; 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 -> { mk4N : (museum,museet,museer,museerna : Str) -> N = \apa,apan,apor,aporna -> {