GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 10:48:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

Close to finishing new verisons of Finnish and GErman.

Browse Source
This commit is contained in:
aarne
2004-01-05 15:42:38 +00:00
parent e84db8989d
commit 62e8e319f9
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -19,6 +19,7 @@ import Operations
import Zipper import Zipper
import Monad import Monad
import List (intersperse)
-- Linearization for canonical GF. AR 7/6/2003 -- Linearization for canonical GF. AR 7/6/2003
@@ -143,7 +144,7 @@ allLinsOfTree gr a e = err (singleton . str) id $ do
-- the value is a list of structures arranged as records of tables of terms -- the value is a list of structures arranged as records of tables of terms
allLinsAsRec :: CanonGrammar -> Ident -> A.Tree -> Err [[(Label,[([Patt],Term)])]] allLinsAsRec :: CanonGrammar -> Ident -> A.Tree -> Err [[(Label,[([Patt],Term)])]]
allLinsAsRec gr c t = linearizeNoMark gr c t >>= allLinValues allLinsAsRec gr c t = linearizeNoMark gr c t >>= expandLinTables gr >>= allLinValues
-- the value is a list of structures arranged as records of tables of strings -- the value is a list of structures arranged as records of tables of strings
-- only taking into account string fields -- only taking into account string fields
@@ -153,7 +154,8 @@ allLinTables gr c t = do
mapM (mapM getS) r' mapM (mapM getS) r'
where where
getS (lab,pss) = liftM (curry id lab) $ mapM gets pss getS (lab,pss) = liftM (curry id lab) $ mapM gets pss
gets (ps,t) = liftM (curry id ps . concat . map str2strings) $ strsFromTerm t gets (ps,t) = liftM (curry id ps . cc . map str2strings) $ strsFromTerm t
cc = concat . intersperse ["/"]
prLinTable :: [[(Label,[([Patt],[String])])]] -> [String] prLinTable :: [[(Label,[([Patt],[String])])]] -> [String]
prLinTable = concatMap prOne . concat where prLinTable = concatMap prOne . concat where

2
src/Today.hs
View File

@@ -1 +1 @@
module Today where today = "Fri Dec 19 18:43:03 CET 2003" module Today where today = "Mon Jan 5 11:31:04 CET 2004"