msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

german paradigms

Browse Source
This commit is contained in:
aarne
2004-10-11 14:21:57 +00:00
parent 4fe0119047
commit a0bc9b053a
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
grammars/health/healthExceptEng.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../resource/abstract:../prelude:../resource/english
--# -path=.:../newresource/abstract:../prelude:../newresource/english
concrete healthExceptEng of healthExcept = StructuralEng ** open ParadigmsEng, TypesEng in {

5
src/GF/Canon/CMacros.hs
View File

@@ -37,11 +37,12 @@ markFocus n p b = if b then ("[*","*]") else ("","")
markXML :: Marker
markXML n i b =
if b
then ("<focus" +++ p +++ c ++ ">", "</focus>")
else ("<subtree" +++ p +++ c ++ ">", "</subtree>")
then ("<focus" +++ p +++ c ++ s ++ ">", "</focus>")
else ("<subtree" +++ p +++ c ++ s ++ ">", "</subtree>")
where
c = "type=" ++ prt (M.valNode n)
p = "position=" ++ (show $ reverse i)
s = "" ---- if (null (M.constrsNode n)) then "" else " status=incorrect"
-- for XML in JGF 1, use
markXMLjgf :: Marker