adapting to other languages

tools/grammarcheckers/grammarchecker.cg3

@@ -2399,11 +2399,11 @@ SET NOT-BEFORE-REL = (*) - Inf - VFIN - COMMA - Po - ("(") ;
 LIST ONE-smn = "oovtâ" ;
 LIST ONE-sme = "okta" ;
 LIST ONE-sma = "akte" ;
-LIST ONE-smj = "okta" ;
+LIST ONE-smj = "akta" ;
 
 SET ONE = ONE-smn OR ONE-sme OR ONE-sma OR ONE-smj ;   
 
-ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (*-1 (N Pl) OR (Pron Pl) OR Pers - Sg1 - Sg2 - Sg3 BARRIER NOT-BEFORE-REL LINK NOT 0 (N Sg) LINK NEGATE -1 VFIN OR Inf LINK -1 (N Sg) OR (Pron Sg))(NEGATE *-1 (N Pl) OR (Pron Pl) OR Pers - Sg1 - Sg2 - Sg3 BARRIER NOT-BEFORE-REL LINK -1 ("akta") OR ("1" Num))(NEGATE -1 Po LINK -1 (Gen Pl) LINK -1 (N Sg))(NEGATE -1 (V <TH-FS-Qpron>))(NEGATE *1 <TH-Nom-Any> + Sg3 BARRIER NOT-ADV-PCLE LINK NOT 1 (Pron Sg3) OR (N Nom Sg)) (NEGATE 0 ("guhti") LINK -1 ("mån" Pl1 Gen) LINK -1 ("áhttje" Sg Nom)) ;
+ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (*-1 (N Pl) OR (Pron Pl) OR Pers - Sg1 - Sg2 - Sg3 BARRIER NOT-BEFORE-REL LINK NOT 0 (N Sg) LINK NEGATE -1 VFIN OR Inf LINK -1 (N Sg) OR (Pron Sg))(NEGATE *-1 (N Pl) OR (Pron Pl) OR Pers - Sg1 - Sg2 - Sg3 BARRIER NOT-BEFORE-REL LINK -1 ONE OR ("1" Num))(NEGATE -1 Po LINK -1 (Gen Pl) LINK -1 (N Sg))(NEGATE -1 (V <TH-FS-Qpron>))(NEGATE *1 <TH-Nom-Any> + Sg3 BARRIER NOT-ADV-PCLE LINK NOT 1 (Pron Sg3) OR (N Nom Sg)) (NEGATE 0 ("guhti") LINK -1 ("mån" Pl1 Gen) LINK -1 ("áhttje" Sg Nom)) ;
 
     ## Valla mij gut lijma Vuonas vuolggám ejma davdiede.
     ## Da gut ásadin æjvvalimev, lidjin dudálattja.
@@ -2440,7 +2440,7 @@ ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (*-1 (N Pl) O
     ##  Tjielggidus vuoset oajvvehásstalusájda mij gullu giellaj. DNW LINDA, fordi det er illativ pl om bestemmer, og vanligvis er jo ill adverbial. 
     #$ Áhttje mijá guhti le almen. DNW LINDA, fordi mijá kommer etter subjektet, skal egentlig vær før, men siden det er oversatt "fadervår" så er det rart. Kanskje vi må skrive regel for WO først :)
 
-ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (*-1 (N Sg) BARRIER NOT-BEFORE-REL LINK *-1 Num - ("akta") BARRIER NOT-NPMOD) ;
+ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (*-1 (N Sg) BARRIER NOT-BEFORE-REL LINK *-1 Num - ONE BARRIER NOT-NPMOD) ;
 
     ## Mij lip vihtta nuora guhti vuolggep dåhku.
     ## Da li gålmmå nuora 
@@ -2463,7 +2463,7 @@ ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (1 (Ind V Pl1
     #$ Aktan oajvvadusájn sihtap oanegis tevstav {mij} oajvvadusá hábbmimav tjielggi.
     #$ Gárdij hábme, {mij} li soajttá anedum guhkep ájggegávdajn dålen, vuosedi åvddålijguovlluj ja geldulasj aktijvuodajda gåddebivddema ja ællosujto gaskan.
 
-ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (-1 (N Pl Ela) OR (N Pl Ill)) (NEGATE -2 Inf) (NEGATE -1 (N Pl Ela) LINK -1 ("akta"))(NEGATE *1 <TH-Nom-Any> + Sg3 BARRIER NOT-ADV-PCLE LINK NOT 1 (Pron Sg3) OR (N Nom Sg)) ;
+ADD:xmsyn-congr-mij-ma (&msyn-congr-mij-ma) TARGET (Rel Nom Sg) IF (-1 (N Pl Ela) OR (N Pl Ill)) (NEGATE -2 Inf) (NEGATE -1 (N Pl Ela) LINK -1 ONE)(NEGATE *1 <TH-Nom-Any> + Sg3 BARRIER NOT-ADV-PCLE LINK NOT 1 (Pron Sg3) OR (N Nom Sg)) ;
 
     ## Tjielggidus vuoset oajvvehásstalusájda {mij} gullu giellaj.
     ## Automatihkalattjat ráfájduhtedum kulturmujto li automatihkalattjat suodjaluvvam mij sihtá javllat suodjaluvvam divna dåjmajs {mij} bæjsstá jali vahágahttá, jådedime, ietjájduhttema, gåbttjåma jali hiebalgahtes biledime, dáj gaskan aj dåjmajs ma ietjájduhtti gåktu kulturmujto vuojnnu.
@@ -2538,8 +2538,12 @@ ADD:msyn-congr-gænna-gejn (&msyn-congr-gænna-gejn) TARGET (Rel Ine Sg) IF (*-1
     #$ Ja ålmmåjdises javlaj: Válldit sujsta buttev ja vaddit ålmmåj {gänna} li lågev butte.
     ## 
 
+LIST SOME-PL-smj = ("juohkkahasj" Pl) "moattes" ("soames" A Pl Nom) ;
+LIST SOME-PL-sme = ("juohkehaš" Pl) "moattis" ("soames" Pron Indef Sg Nom) ;
+LIST SOME-PL-sma = "fïerhte" "måedtie" "såemies" ;
+SET SOME-PL = SOME-PL-smj OR SOME-PL-sme OR SOME-PL-sma ;
 
-ADD:msyn-congr-gænna-gejn (&msyn-congr-gænna-gejn) TARGET (Rel Ine Sg) IF (-1 (N Pl Ill) OR (Pron Pl Ill) OR (A Pl Ill) + Sem/Hum OR (Pl1 Ill) OR (Pl2 Ill) OR (Pl3 Ill) OR (Du1 Ill) OR (Du2 Ill) OR (Du3 Ill) OR (N Pl Ela) OR (Pron Pl Ela) OR (Pl1 Ela) OR (Pl2 Ela) OR (Pl3 Ela) OR (Du1 Ela) OR (Du2 Ela) OR (Du3 Ela) OR (Indef Pl Nom) OR ("juohkkahasj" Pl) OR ("moattes") OR ("soames" A Pl Nom) LINK NEGATE *-1 (ImprtII Sg3) BARRIER NOT-ADV-PCLE) ;
+ADD:msyn-congr-gænna-gejn (&msyn-congr-gænna-gejn) TARGET (Rel Ine Sg) IF (-1 (N Pl Ill) OR (Pron Pl Ill) OR (A Pl Ill) + Sem/Hum OR (Pl1 Ill) OR (Pl2 Ill) OR (Pl3 Ill) OR (Du1 Ill) OR (Du2 Ill) OR (Du3 Ill) OR (N Pl Ela) OR (Pron Pl Ela) OR (Pl1 Ela) OR (Pl2 Ela) OR (Pl3 Ela) OR (Du1 Ela) OR (Du2 Ela) OR (Du3 Ela) OR (Indef Pl Nom) OR SOME-PL LINK NEGATE *-1 (ImprtII Sg3) BARRIER NOT-ADV-PCLE) ;
     ## Dát ságastallamstasjåvnnå hiehpá oahppijda gænna l buorre sámegiella, ja vuorrasap oahppijda gudi tjuovvu sáme oahppamplánav
     ## ja stuorra lassánibme l mánájs gænna li sáme mánájgárddefálaldagá
     ## Buoremus le jus duodje dagáduvvá ulmutjijs {gænna} histåvrålasj tjanos bájkkáj.
@@ -2567,7 +2571,13 @@ COPY:msyn-congr-gænna-gejn (Pl &SUGGEST) EXCEPT (Sg &msyn-congr-gænna-gejn Are
     # ===================================================================================================
     # ===================================================================================================
 
-ADD:msyn-congr-iesj-ietja (&msyn-congr-iesj-ietja) TARGET ("iesj" Pron Refl Sg Nom) IF (-1 (V Pl1) OR (V Pl2) OR (V Pl3) OR (V Du1) OR (V Du2) OR (V Du3) LINK NOT 0 (N Nom) OR (V Sg1) OR (V Sg2) OR (V Sg3)) (NEGATE 1 (Pron Indef)) ;
+LIST REFL-PRON-smj = "iesj" ;
+LIST REFL-PRON-sma = "ieš" ;
+LIST REFL-PRON-sme = "ieš" ;
+LIST REFL-PRON-smn = "jieš" ;
+SET REFL-PRON = REFL-PRON-smj OR REFL-PRON-sma OR REFL-PRON-sme OR REFL-PRON-smn ;
+
+ADD:msyn-congr-iesj-ietja (&msyn-congr-iesj-ietja) TARGET REFL-PRON + (Pron Refl Sg Nom) IF (-1 (V Pl1) OR (V Pl2) OR (V Pl3) OR (V Du1) OR (V Du2) OR (V Du3) LINK NOT 0 (N Nom) OR (V Sg1) OR (V Sg2) OR (V Sg3)) (NEGATE 1 (Pron Indef)) ;
 
    ##  Suv mielas åvdemusát vierttip {iesj} sámástit nuppe nubbáj.
    ##  Dá e galla máhte tjoavdeduvvat dåssju doarrodievnujn aktu, ja vierttiji {iesj} gávnnat tjoavddusijt gássjelisvuodajda.
@@ -2576,22 +2586,22 @@ ADD:msyn-congr-iesj-ietja (&msyn-congr-iesj-ietja) TARGET ("iesj" Pron Refl Sg N
    #$ Juska tjehpudagá li iesj geŋga fágajn moatten láhkáj åvddånbuvtedum, de båhtusa li guoskavattja gájkka åhpadiddjijda ja ij dåssju dárogiela / sámegiela ja matemátihka åhpadiddjijda.
    #$ Duodden hæhttu liehket duodje majt le iesj dahkam.
 
-ADD:msyn-congr-iesj-ietja (&msyn-congr-iesj-ietja) TARGET ("iesj" Pron Refl Sg Nom) IF (-1 (N Pl Nom) LINK NEGATE 0 (N Sg Nom) LINK *1 (V Sg3) OR (V Sg2) OR (V Sg1) BARRIER NOT-ADV-PCLE - Refl - Ine)(NEGATE *0 (N Sg Nom) BARRIER S-BOUNDARY) (NEGATE 1 (Pron Indef)) ;
+ADD:msyn-congr-iesj-ietja (&msyn-congr-iesj-ietja) TARGET REFL-PRON + (Pron Refl Sg Nom) IF (-1 (N Pl Nom) LINK NEGATE 0 (N Sg Nom) LINK *1 (V Sg3) OR (V Sg2) OR (V Sg1) BARRIER NOT-ADV-PCLE - Refl - Ine)(NEGATE *0 (N Sg Nom) BARRIER S-BOUNDARY) (NEGATE 1 (Pron Indef)) ;
    ## Valla ælla gus rievddama iesj allasisá buore?
    #$ Ánu {iesj} viehká ällorabdav, huvkká ja slávggi gahperijn.
 
 
     #  Congr verb on right side of iesj
     #----------------------------------
-ADD:msyn-congr-iesj-ietja (&msyn-congr-iesj-ietja) TARGET ("iesj" Pron Refl Sg Nom) IF (1 (V Pl1) OR (V Pl2) OR (V Pl3) OR (V Du1) OR (V Du2) OR (V Du3) LINK NEGATE 0 (N Nom) OR (N Acc) OR (N Gen) OR (V Sg1) OR (V Sg2) OR (V Sg3) OR A)(NEGATE -1 (V Sg1) OR (V Sg2) OR (V Sg3)) ;
+ADD:msyn-congr-iesj-ietja (&msyn-congr-iesj-ietja) TARGET REFL-PRON + (Pron Refl Sg Nom) IF (1 (V Pl1) OR (V Pl2) OR (V Pl3) OR (V Du1) OR (V Du2) OR (V Du3) LINK NEGATE 0 (N Nom) OR (N Acc) OR (N Gen) OR (V Sg1) OR (V Sg2) OR (V Sg3) OR A)(NEGATE -1 (V Sg1) OR (V Sg2) OR (V Sg3)) ;
 
   ## Dákkir dilen gå æjgáda iesj e sámegielav buvte sjaddi mánájgárde ja skåvlå sierralágásj ájnas gielladåmadiddje.
   ## Ulmme prosjevtajn la máná galggi sámástit, gånnå máná iesj válljiji sámegielav guládallamgiellan.
   #$ Tjále dålusj subttsasav jali subttsasav majt la gullam, dagá jus sidá {iesj} mujtalusáv mij tjielggi muhtem luonndofenomienav ja gåk dát la nammaduvvam. 
 
 COPY:msyn-congr-iesj-ietja (Pl &SUGGEST) EXCEPT (Sg &msyn-congr-iesj-ietja) AFTER Refl TARGET (&msyn-congr-iesj-ietja) ;
 
-ADD:msyn-congr-ietjas-ietjasa (&msyn-congr-ietjas-ietjasa) TARGET ("iesj" Pron Refl PxSg3) OR ("iesj" Pron Refl PxSg2) OR ("iesj" Pron Refl PxSg1) IF (-1 (V Pl1) OR (V Pl2) OR (V Pl3) OR (V Du1) OR (V Du2) OR (V Du3)) (NEGATE 1 (Pron Indef) ) (NEGATE -1 (V Prs Sg3) LINK -1 (Sg Nom)) ; 
+ADD:msyn-congr-ietjas-ietjasa (&msyn-congr-ietjas-ietjasa) TARGET REFL-PRON + (Pron Refl PxSg3) OR REFL-PRON + (Pron Refl PxSg2) OR REFL-PRON + (Pron Refl PxSg1) IF (-1 (V Pl1) OR (V Pl2) OR (V Pl3) OR (V Du1) OR (V Du2) OR (V Du3)) (NEGATE 1 (Pron Indef) ) (NEGATE -1 (V Prs Sg3) LINK -1 (Sg Nom)) ; 
 
 COPY:msyn-congr-iesj-ietja (PxPl3 &SUGGEST) EXCEPT (PxSg3 &msyn-congr-ietjas-ietjasa) TARGET (&msyn-congr-ietjas-ietjasa) IF (-1 (V Pl3)) ;    
 COPY:msyn-congr-iesj-ietja (PxDu3 &SUGGEST) EXCEPT (PxSg3 &msyn-congr-ietjas-ietjasa) TARGET (&msyn-congr-ietjas-ietjasa) IF (-1 (V Du3)) ;    
@@ -2619,7 +2629,7 @@ COPY:msyn-congr-iesj-ietja (PxPl2 &SUGGEST) EXCEPT (PxSg2 &msyn-congr-ietjas-iet
     # ----------------------------------------
 
 
-ADD:xreal-ActioGen-PrtPl1 (&real-ActioGen-PrtPl1) TARGET IT-CONTRACT-VERBS IF (0 (Actio Gen)) (NEGATE *0 VFIN BARRIER S-BOUNDARY-OPEN ) (NEGATE 1 Po) ; 
+ADD:xreal-ActioGen-PrtPl1 (&real-ActioGen-PrtPl1) TARGET IT-CONTRACT-VERBS IF (0 (Actio Gen)) (NEGATE *0 VFIN BARRIER S-BOUNDARY-OPEN) (NEGATE 1 Po) ; 
 
 COPY:real-ActioGen-PrtPl1 (Ind Prt Pl1 &SUGGEST) EXCEPT (Actio Gen) TARGET (&real-ActioGen-PrtPl1) ;