blob: 81e023cf5262c27d5089781a51b8ef9943aed1e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
--# -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 ;
}
|
