GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-21 18:59:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Generation with metavariables.

Browse Source
This commit is contained in:
aarne
2004-05-03 12:39:32 +00:00
parent b1b9e00ce9
commit 86964ca5d5
3 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/UseGrammar/Generate.hs
View File

@@ -43,7 +43,8 @@ gr2sgr gr = [(trId f, ty') | (f,ty) <- funRulesOf gr, ty' <- trTy ty] where
-- str2tr :: STree -> Exp
str2tr t = case t of
SApp (f,ts) -> mkApp (trId f) (map str2tr ts)
SMeta _ -> mkMeta 0
---- SString s -> K s
where
trId = cn . zIdent
@@ -75,7 +76,8 @@ generate gr cat i mn mt = case mt of
gen (n+1) (nub [(c,SApp (f, xs)) | (f,(cs,c)) <- gr, xs <- args cs cts] ++ cts)
args :: [SCat] -> [(SCat,STree)] -> [[STree]]
args cs cts = combinations [constr [t | (k,t) <- cts, k == c] | c <- cs]
args cs cts = combinations
[constr (SMeta c : [t | (k,t) <- cts, k == c]) | c <- cs]
constr = maybe id take mn

2
src/Today.hs
View File

@@ -1 +1 @@
module Today where today = "Sun May 2 15:21:39 CEST 2004"
module Today where today = "Mon May 3 10:59:20 CEST 2004"