blob: 01d31d70d3a4b2ff11908f314a213e5fc4b771b7 (
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
34
35
|
--# -path=.:../romance:../abstract:../../prelude
concrete TestIta of TestAbs =
ResIta ** open Prelude, TypesIta, MorphoIta, SyntaxIta in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
lin
Big = mkAdjDegrTale "grande" adjPre ;
Small = mkAdjDegrSolo "piccolo" adjPre ;
Old = mkAdjDegrLong (mkAdj "vecchio" "vecchia" "vecchi" "vecchie") adjPre ;
Young = mkAdjDegrTale "giovane" adjPre ;
Man = mkCNom (numForms "uomo" "uomini") Masc ;
Woman = mkCNom (nomRana "donna") Fem ;
Car = mkCNom (nomRana "macchina") Fem ;
Light = mkCNom (nomSale "luce") Fem ;
House = mkCNom (nomRana "casa") Fem ;
Walk = verbAmare "camminare" ;
Run = verbCorrere "correre";
Send = mkTransVerbDir (verbAmare "mandare") ;
Love = mkTransVerbDir (verbAmare "amare") ;
Wait = mkTransVerbDir (verbAmare "aspettare") ;
Say = verbSent verbPresDire Ind Ind ;
Prove = verbSent (verbAmare "dimostrare") Ind Ind ;
SwitchOn = mkTransVerbDir (verbAmare "allumare") ;
SwitchOff = mkTransVerbDir verbPresSpegnere ;
Mother = funDi (mkCNom (nomSale "madre") Fem) ;
Uncle = funDi (mkCNom (nomVino "zio") Masc) ;
Well = ss "bene" ;
Always = ss "sempre" ;
John = mkProperName "Giovanni" Masc ;
Mary = mkProperName "Maria" Fem ;
}
|
