forked from GitHub/gf-rgl
updates in Phrasebook and resources
This commit is contained in:
@@ -103,7 +103,8 @@ lin
|
|||||||
iron_N = mk2N "jern" "jernet" ;
|
iron_N = mk2N "jern" "jernet" ;
|
||||||
john_PN = mkPN "John" utrum ;
|
john_PN = mkPN "John" utrum ;
|
||||||
king_N = mk2N "konge" "kongen" ;
|
king_N = mk2N "konge" "kongen" ;
|
||||||
know_V2 = dirV2 vide_V ;
|
know_V2 = dirV2 (mkV "kende" "kendte") ;
|
||||||
|
know_VS = mkVS vide_V ;
|
||||||
lake_N = mk2N "sø" "søen" ;
|
lake_N = mk2N "sø" "søen" ;
|
||||||
lamp_N = mk2N "lampe" "lampen" ;
|
lamp_N = mk2N "lampe" "lampen" ;
|
||||||
learn_V2 = dirV2 (mk2V "lære" "lærte") ;
|
learn_V2 = dirV2 (mk2V "lære" "lærte") ;
|
||||||
|
|||||||
@@ -16,9 +16,10 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
|
|||||||
isPron = False
|
isPron = False
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
UsePN pn = heavyNP {
|
UsePN pn = {
|
||||||
s = \\c => usePrepC c (\k -> pn.s ! k) ;
|
s = \\c => usePrepC c (\k -> pn.s ! k) ;
|
||||||
a = agrP3 Sg
|
a = agrP3 Sg ;
|
||||||
|
isPron = True --- means: this is not a heavy NP, but comes before negation
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
UsePron pron = {
|
UsePron pron = {
|
||||||
|
|||||||
@@ -101,7 +101,8 @@ lin
|
|||||||
iron_N = regGenN "jern" neutrum ;
|
iron_N = regGenN "jern" neutrum ;
|
||||||
john_PN = mkPN "John" masculine ;
|
john_PN = mkPN "John" masculine ;
|
||||||
king_N = regGenN "konge" masculine ;
|
king_N = regGenN "konge" masculine ;
|
||||||
know_V2 = dirV2 IrregNor.vite_V ;
|
know_V2 = dirV2 (mkV "kjenne" "kjente") ;
|
||||||
|
know_VS = mkVS IrregNor.vite_V ;
|
||||||
lake_N = regGenN "vann" neutrum ;
|
lake_N = regGenN "vann" neutrum ;
|
||||||
lamp_N = regGenN "lampe" feminine ;
|
lamp_N = regGenN "lampe" feminine ;
|
||||||
learn_V2 = dirV2 (mk2V "lære" "lærte") ;
|
learn_V2 = dirV2 (mk2V "lære" "lærte") ;
|
||||||
|
|||||||
@@ -100,7 +100,8 @@ lin
|
|||||||
industry_N = regN "industria" ;
|
industry_N = regN "industria" ;
|
||||||
iron_N = regN "fierro" ;
|
iron_N = regN "fierro" ;
|
||||||
king_N = regN "rey" ;
|
king_N = regN "rey" ;
|
||||||
know_V2 = dirV2 (verboV (saber_71 "saber")) ; -- conocer
|
know_V2 = mkV2 (verboV (conocer_25 "conocer")) ;
|
||||||
|
know_VS = mkVS (verboV (saber_71 "saber")) ;
|
||||||
lake_N = regN "lago" ;
|
lake_N = regN "lago" ;
|
||||||
lamp_N = regN "lámpara" ;
|
lamp_N = regN "lámpara" ;
|
||||||
learn_V2 = dirV2 (regV "aprender") ;
|
learn_V2 = dirV2 (regV "aprender") ;
|
||||||
|
|||||||
Reference in New Issue
Block a user