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

Constructions: languageNP and languageCN ; languagePN removed. Requires the change of lincat from PN to N. Done for 10 languages, not yet Bul and Hin. Enables "my English is bad", "this is bad English"

Browse Source
This commit is contained in:
aarne
2014-11-20 22:10:24 +00:00
parent 5b785bfebd
commit ef59dee4d5
12 changed files with 46 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/abstract/Construction.gf
View File

@@ -105,7 +105,8 @@ fun
weekdayPN : Weekday -> PN ;
monthPN : Month -> PN ;
languagePN : Language -> PN ;
languageNP : Language -> NP ;
languageCN : Language -> CN ;
----------------------------------------------
---- lexicon of special names

7
lib/src/chinese/ConstructionChi.gf
View File

@@ -45,11 +45,11 @@ lin
intYear i = lin NP i ;
intMonthday i = lin NP i ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxChi.mkAdv (mkPrep "在") (mkNP l) ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ; ---- classifier?
lin
weekdayN w = w ;
@@ -58,7 +58,8 @@ lin
weekdayPN w = ss w.s ;
monthPN m = ss m.s ;
languagePN l = l ;
languageNP l = mkNP l ;
languageCN l = mkCN l ;
lin monday_Weekday = mkN "星期一" ;
lin tuesday_Weekday = mkN "星期二" ;

7
lib/src/dutch/ConstructionDut.gf
View File

@@ -51,7 +51,7 @@ lin
intYear = symb ;
intMonthday = symb ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxDut.mkAdv on_Prep (mkNP l) ;
@@ -62,9 +62,10 @@ lin
weekdayPN w = mkPN w ;
monthPN m = mkPN m ;
languagePN l = l ;
languageCN l = mkCN l ;
languageNP l = mkNP l ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ;
----------------------------------------------
---- lexicon of special names

8
lib/src/english/ConstructionEng.gf
View File

@@ -81,7 +81,7 @@ lin
intYear = symb ;
intMonthday = symb ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxEng.mkAdv in_Prep (mkNP l) ;
@@ -92,9 +92,11 @@ lin
weekdayPN w = mkPN w ;
monthPN m = mkPN m ;
languagePN l = l ;
languageCN l = mkCN l ;
languageNP l = mkNP l ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ;
----------------------------------------------
---- lexicon of special names

7
lib/src/estonian/ConstructionEst.gf
View File

@@ -67,18 +67,19 @@ lin
oper
pointWeekday : Weekday -> Str = \w -> (SyntaxEst.mkAdv (casePrep essive) (mkNP w.noun)).s ;
lincat Language = PN ;
lincat Language = N ;
--lin InLanguage l = SyntaxEst.mkAdv (mkPrep translative) (mkNP l) ;
lin
weekdayN w = w.noun ;
monthN m = m ;
languagePN l = l ;
languageNP l = mkNP l ;
languageCN l = mkCN l ;
--------------- lexicon of special names
oper mkLanguage : Str -> PN = \s -> mkPN (s ++ "keel") ;
oper mkLanguage : Str -> N = \s -> mkN (s ++ "keel") ;
oper mkWeekday : Str -> Weekday = \d ->
lin Weekday {

2
lib/src/estonian/LangEst.gf
View File

@@ -1,3 +1,5 @@
--# -path=.:../abstract:../common:../api:../prelude
-- TODO: include the full GrammarEst
-- The Slash* is currently excluded only for performance reasons.
concrete LangEst of Lang =

9
lib/src/finnish/ConstructionFin.gf
View File

@@ -77,18 +77,19 @@ lin
oper
pointWeekday : Weekday -> Str = \w -> (SyntaxFin.mkAdv (casePrep essive) (mkNP w.noun)).s ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxFin.mkAdv (mkPrep translative) (mkNP l) ;
lin
weekdayN w = w.noun ;
monthN m = m ;
languagePN l = l ;
languageNP l = mkNP l ;
languageCN l = mkCN l ;
--------------- lexicon of special names
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ;
oper mkWeekday : Str -> Weekday = \d ->
lin Weekday {
@@ -138,7 +139,7 @@ lin danish_Language = mkLanguage "tanska" ;
lin dutch_Language = mkLanguage "hollanti" ;
lin english_Language = mkLanguage "englanti" ;
lin estonian_Language = mkLanguage "viro" ;
lin finnish_Language = mkPN (mkN "suomi" "suomia") ;
lin finnish_Language = mkN "suomi" "suomia" ;
lin french_Language = mkLanguage "ranska" ;
lin german_Language = mkLanguage "saksa" ;
lin greek_Language = mkLanguage "kreikka" ;

7
lib/src/french/ConstructionFre.gf
View File

@@ -70,7 +70,7 @@ lin
intMonthday = symb ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxFre.mkAdv (mkPrep "en") (mkNP l) ;
@@ -80,9 +80,10 @@ lin
weekdayPN w = mkPN w ;
monthPN m = mkPN m ;
languagePN l = l ;
languageCN l = mkCN l ;
languageNP l = mkNP the_Det l ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ;
----------------------------------------------
---- lexicon of special names

7
lib/src/german/ConstructionGer.gf
View File

@@ -64,7 +64,7 @@ lin
intYear = symb ;
intMonthday = symb ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxGer.mkAdv on_Prep (mkNP l) ;
@@ -75,9 +75,10 @@ lin
weekdayPN w = mkPN w ;
monthPN m = mkPN m ;
languagePN l = l ;
languageNP l = mkNP l ;
languageCN l = mkCN l ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ; ---- produces Masc
----------------------------------------------
---- lexicon of special names

7
lib/src/italian/ConstructionIta.gf
View File

@@ -70,7 +70,7 @@ lin
intMonthday = symb ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxIta.mkAdv (mkPrep "in") (mkNP l) ;
@@ -80,9 +80,10 @@ lin
weekdayPN w = mkPN w ;
monthPN m = mkPN m ;
languagePN l = l ;
languageNP l = mkNP l ;
languageCN l = mkCN l ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ;
----------------------------------------------
---- lexicon of special names

7
lib/src/spanish/ConstructionSpa.gf
View File

@@ -70,7 +70,7 @@ lin
intMonthday = symb ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxSpa.mkAdv (mkPrep "en") (mkNP l) ;
@@ -80,9 +80,10 @@ lin
weekdayPN w = mkPN w ;
monthPN m = mkPN m ;
languagePN l = l ;
languageNP l = mkNP l ;
languageCN l = mkCN l ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ;
----------------------------------------------
---- lexicon of special names

7
lib/src/swedish/ConstructionSwe.gf
View File

@@ -65,7 +65,7 @@ lin
intMonthday = symb ;
lincat Language = PN ;
lincat Language = N ;
lin InLanguage l = SyntaxSwe.mkAdv on_Prep (mkNP l) ;
@@ -76,9 +76,10 @@ lin
weekdayPN w = mkPN w ;
monthPN m = mkPN m ;
languagePN l = l ;
languageCN l = mkCN l ;
languageNP l = mkNP l ;
oper mkLanguage : Str -> PN = \s -> mkPN s ;
oper mkLanguage : Str -> N = \s -> mkN s ;
----------------------------------------------
---- lexicon of special names