--# -path=.:../scandinavian:../abstract:../../prelude

concrete TestResourceSwe of TestResource = 
RulesSwe, 
ClauseSwe,
StructuralSwe 
** 
  open Prelude, MorphoSwe, SyntaxSwe in {

flags startcat=Phr ; lexer=text ; unlexer=text ;

-- a random sample from the lexicon

lin
  Big = stor_25 ;
  Small = liten_1146 ;
  Old = gammal_16 ;
  Young = ung_29 ;
  American = extAdjective (aFin "amerikansk") ;
  Finnish = extAdjective (aFin "finsk") ;
  Happy = aFin "lycklig" ;
  Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
  Man = extCommNoun man_1144 ;
  Bar = extCommNoun (sSak "bar") ;
  Bottle = extCommNoun (sApa "flask") ;
  Woman = extCommNoun (sApa "kvinn") ;
  Car = extCommNoun (sBil "bil") ;
  House = extCommNoun (sHus "hus") ;
  Light = extCommNoun (sHus "ljus") ;
  Wine = extCommNoun (sParti "vin") ;
  Walk = vNopart (mkVerb "gå" "går" "gå" "gick" "gått" "gången") ;
  Run = vNopart (vFinna "spring" "sprang" "sprung") ;
  Drink = extTransVerb (vFinna "drick" "drack" "druck") [] ;
  Love = extTransVerb (vNopart (vTala "älsk")) [] ;
  Send = extTransVerb (vNopart (vTala "skick")) [] ;
  Wait = extTransVerb (vNopart (vTala "vänt")) "på" ;
  Give = extTransVerb (vNopart (mkVerb "ge" "ger" "ge" "gav" "givit" "given")) [] ** {s3 = "till"} ;
  Prefer = extTransVerb (vNopart (vFinna "föredrag" "föredrog" "föredrag")) [] ** 
           {s3 = "framför"} ; --- föredra

  Say = vNopart (mkVerb "säga" "säger" "säg" "sade" "sagt" "sagd") ;
  Prove = vNopart (vTala "bevis") ;
  SwitchOn = mkDirectVerb (vFinna "sätt" "satte" "satt" ** {s1 = "på"}) ;
  SwitchOff = mkDirectVerb (vLeka "stäng" ** {s1 = "av"}) ;

  Mother = mkFun (extCommNoun mor_1) "till" ;
  Uncle = mkFun (extCommNoun farbror_8) "till" ;
  Connection = mkFun (extCommNoun (sVarelse "förbindelse")) "från" ** 
               {s3 = "till"} ;

  Always = advPre "alltid" ;
  Well = advPost "bra" ;

  John = mkProperName "Johan" (NUtr Masc) ;
  Mary = mkProperName "Maria" (NUtr NoMasc) ;

--- next
   AlreadyAdv = advPre "redan" ;
   NowAdv = advPre "nu" ;

   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")) [] ** {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") [] ;

   Try = extTransVerb (vNopart (vLeka "försök")) [] ** {isAux=False} ;
   Important = extAdjective (aFin "viktig") ** {s2 = "för"} ;
   Probable = extAdjective (aFin "sannolik") ;
   Easy = extAdjective (aAbstrakt "lätt") ** {s2 = "för"} ;
   Rain = extTransVerb (vNopart (vTala "regn")) [] ;


} ;
