diff options
| author | aarne <unknown> | 2004-10-11 14:21:57 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-10-11 14:21:57 +0000 |
| commit | a0bc9b053a2d186308295d9ecfc9b587a6205f02 (patch) | |
| tree | 6218b05b3cfdb2322567ffaab6c39bc4ca1735d2 | |
| parent | 4fe011904731129106942a14c498079ce82a3003 (diff) | |
german paradigms
| -rw-r--r-- | grammars/health/healthExceptEng.gf | 2 | ||||
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/grammars/health/healthExceptEng.gf b/grammars/health/healthExceptEng.gf index db0ec86b8..1ba7751d8 100644 --- a/grammars/health/healthExceptEng.gf +++ b/grammars/health/healthExceptEng.gf @@ -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 { diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index 7390a3af9..e075821b2 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -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 |