new structure of much in Rules

lib/resource/swedish/StructuralSwe.gf

@@ -17,15 +17,16 @@ concrete StructuralSwe of Structural =
   TheyNP = pronNounPhrase de_38 ;
   TheyFemNP = pronNounPhrase de_38 ;
 
-  YouNP  = let {ni = pronNounPhrase ni_37 } in {s = ni.s ; g = ni.g ; n = Sg} ;
+  YouNP  = let {ni = pronNounPhrase ni_37 } in {
+             s = ni.s ; g = ni.g ; n = Sg ; p = P2} ; ---- gives wrong refl
 
   ItNP   = pronNounPhrase det_40 ; ----
   ThisNP = regNameNounPhrase ["det här"] NNeutr ; 
   ThatNP = regNameNounPhrase ["det där"] NNeutr ; 
   TheseNumNP n = 
-    {s = \\c => ["de här"] ++ n.s ! npCase c ; g = Neutr ; n = Pl} ;
+    {s = \\c => ["de här"] ++ n.s ! npCase c ; g = Neutr ; n = Pl ; p = P3} ;
   ThoseNumNP n = 
-    {s = \\c => ["de där"] ++ n.s ! npCase c ; g = Neutr ; n = Pl} ;
+    {s = \\c => ["de där"] ++ n.s ! npCase c ; g = Neutr ; n = Pl ; p = P3} ;
 
   EveryDet = varjeDet ; 
   AllMassDet   = mkDeterminerSgGender2 "all" "allt" IndefP ; 
@@ -74,7 +75,7 @@ concrete StructuralSwe of Structural =
   ThereforeAdv = ss "därför" ;
 
   EverybodyNP  = let alla = table {Nom => "alla" ; Gen => "allas"} in
-                   {s = \\c => alla ! npCase c ; g = Utr ; n = Pl} ;
+                   {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ;
   SomebodyNP   = nameNounPhrase (mkProperName "någon" (NUtr Masc)) ;
   NobodyNP     = nameNounPhrase (mkProperName "ingen" (NUtr Masc)) ;
   EverythingNP = nameNounPhrase (mkProperName "allting" NNeutr) ; 

lib/resource/swedish/SyntaxSwe.gf

@@ -121,4 +121,12 @@ instance SyntaxSwe of SyntaxScand = TypesSwe **
   adjPastPart : Verb -> Adjective = \verb -> {
     s = \\af,c => verb.s1 ++ verb.s ! VI (PtPret af c) --- på slagen
     } ;
+
+  reflPron : Number -> Person -> Str = \n,p -> case <n,p> of {
+    <Sg,P1> => "mig" ;
+    <Sg,P2> => "mig" ;
+    <Pl,P1> => "oss" ;
+    <Pl,P2> => "er" ;
+    _ => "sig"
+    } ;
 }

lib/resource/swedish/TestResourceSwe.gf

@@ -1,6 +1,7 @@
 --# -path=.:../scandinavian:../abstract:../../prelude
 
-concrete TestResourceSwe of TestResource = RulesSwe, StructuralSwe ** open MorphoSwe, SyntaxSwe in {
+concrete TestResourceSwe of TestResource = RulesSwe, StructuralSwe ** 
+  open Prelude, MorphoSwe, SyntaxSwe in {
 
 flags startcat=Phr ; lexer=text ; unlexer=text ;
 
@@ -48,4 +49,18 @@ lin
 
   John = mkProperName "Johan" (NUtr Masc) ;
   Mary = mkProperName "Maria" (NUtr NoMasc) ;
+
+--- next
+   AlreadyAdv = advPre "redan" ;
+   NowAdv = advPre "now" ;
+
+   Paint = extTransVerb (vNopart (vTala "mål")) [] ;
+   Green = aFin "grön" ;
+   Beg = extTransVerb (mkVerbPart "be" "ber" "be" "bad" "bett" "bedd" []) [] ** {s3 = "att"} ;
+   Promise  = extTransVerb (vNopart (vTala "lov")) [] ** {isAux = False} ;
+   Promise2 = extTransVerb (vNopart (vTala "lov")) [] ** {s3 = "att"} ;
+   Wonder = extTransVerb (vNopart (vTala "undr")) [] ;
+   Ask = extTransVerb (vNopart (vTala "fråg")) [] ;
+   Tell = extTransVerb (vNopart (vTala "berätt")) [] ;
+   Look = extTransVerb (mkVerbPart "se" "ser" "se" "såg" "sett" "sedd" "ut") [] ;
 } ;

lib/resource/swedish/sag-missing.txt

@@ -0,0 +1,48 @@
++ vi lovade Per att följa med
+
+- att meditera ägnar han nästan allsin tid nuförtiden
+
++ hon har vunnit stora priser igen
+
+? han blev anklagad för att ha förfalskat en namnteckning
+
++ de undrar om det blit något biobesök ikväll
+
++ vi kan nog gissa varifrån föroreningarna kommer
+
++ hon har inte meddelat mig hur hon tänker göra
+
+- jag såg nog vad/så/vilka fina rosor du hade
+
+- jag läser vilka böcker han än skriver
+
+- han kan skaffa dig vad för slags bil du än vill ha
+
+- de tycker om när det är mörkt
+
+- jag avskyr när han röker här inne
+
+- (?) vi skulle uppskatta om du kom
+
+- sedan sa hon stillsamt: när kommer du tillbaka
+
++ de ansåg oss ha svikit överenskommelsen
+
++ vi såg dem försvinna
+
++ han lät oss inte dansa
+
+? det gick honom väl
+
+? det hände mig något hemskt
+
+- han hittade en bräda och sågade itu
+
+- jag köpte en pizza och åt på lunchen
+
+- jag ska strax betala er (vad jag är skyldig) "bitransitiva med bara ett objekt"
+
+
+
+
+