mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 10:22:50 -06:00
moved obsolete files; updated umlaut help
This commit is contained in:
@@ -1,77 +0,0 @@
|
||||
--# -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")) [] ;
|
||||
|
||||
|
||||
} ;
|
||||
Reference in New Issue
Block a user