GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-13 23:09:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

testing ParadigmsFre

Browse Source
This commit is contained in:
aarne
2004-11-11 14:41:51 +00:00
parent 001ff1b564
commit 010e247445
2 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
grammars/database/DatabaseFre.gf Normal file
View File

@@ -0,0 +1,3 @@
--# -path=.:../newresource/abstract:../newresource/french:../prelude:../newresource/romance
concrete DatabaseFre of Database = DatabaseI with (Resource=ResourceFre) ;

33
grammars/database/RestaurantFre.gf Normal file
View File

@@ -0,0 +1,33 @@
--# -path=.:../newresource/abstract:../newresource/french:../newresource/romance:../prelude
--- path names: resource in release, newresource in cvs
concrete RestaurantFre of Restaurant =
DatabaseFre ** open Prelude, ResourceFre, ParadigmsFre in {
lin
Restaurant = UseN (nReg "restaurant" masculine) ;
Bar = UseN (nReg "bar" masculine) ;
French = AdjP1 (adj1Anglais "français" postpos) ;
Italian = AdjP1 (adj1Italien "italien" postpos) ;
Indian = AdjP1 (adj1Italien "indien" postpos) ;
Japanese = AdjP1 (adj1Anglais "japonais" postpos) ;
address = funDe (nReg "adresse" feminine) ;
phone = funCNCase (AdvCN (UseN (nReg "numéro" masculine))
(PrepNP PossessPrep (MassNP (UseN (nReg "téléphone" masculine))))) genitive ;
priceLevel = funCNCase (AdvCN (UseN (nEau "niveau" masculine))
(PrepNP PossessPrep (MassNP (UseN (nCas "prix" masculine))))) genitive ;
Cheap = aReg "cher" postpos ; ----
Expensive = aReg ["pas cher"] postpos ; ----
WhoRecommend rest =
ss2 ["qui a recommandé"] rest.s ** {lock_Phr = <>} ;
WhoHellRecommend rest =
ss2 ["qui enfer a recommandé"] rest.s ** {lock_Phr = <>} ;
LucasCarton = mkPN ["Lucas Carton"] masculine ;
LaCoupole = mkPN ["La Coupole"] feminine ;
BurgerKing =mkPN ["Burger King"] masculine ;
}