mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 21:39:32 -06:00
34 lines
1.2 KiB
Plaintext
34 lines
1.2 KiB
Plaintext
--# -path=.:../newresource/abstract:../newresource/swedish:../resource/abstract:../resource/swedish:../prelude
|
|
--- path names: resource in release, newresource in cvs
|
|
|
|
concrete RestaurantSwe of Restaurant =
|
|
DatabaseSwe ** open Prelude, ResourceSwe, ParadigmsSwe in {
|
|
|
|
lin
|
|
Restaurant = UseN (nRisk "restaurang") ;
|
|
Bar = UseN (nRisk "bar") ;
|
|
French = AdjP1 (adjReg "fransk") ;
|
|
Italian = AdjP1 (adjReg "italiensk") ;
|
|
Indian = AdjP1 (adjReg "indisk") ;
|
|
Japanese = AdjP1 (adjReg "japansk") ;
|
|
|
|
address = funAv (nRisk "adress") ;
|
|
phone =
|
|
funTill (mkN "telefonnummer" "telefonnumret" "telefonnummer"
|
|
"telefonnumren" neutrum nonmasculine) ;
|
|
priceLevel = funPaa (nRisk "prisnivå") ;
|
|
|
|
Cheap = aReg "billig" ;
|
|
Expensive = aReg "dyr" ;
|
|
|
|
WhoRecommend rest =
|
|
ss2 ["vem rekommenderade"] (rest.s ! nominative) ** {lock_Phr = <>} ;
|
|
WhoHellRecommend rest =
|
|
ss2 ["vem fan rekommenderade"] (rest.s ! nominative) ** {lock_Phr = <>} ;
|
|
|
|
LucasCarton = pnReg ["Lucas-Carton"] neutrum nonmasculine ; --- -
|
|
LaCoupole = pnReg ["La-Coupole"] neutrum nonmasculine ;
|
|
BurgerKing = pnS (variants {["Burger King"] ; "BK"}) neutrum nonmasculine ;
|
|
|
|
}
|