mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-19 17:59:32 -06:00
35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
--# -path=.:../abstract:../../prelude
|
|
|
|
concrete MinimalEng of Minimal = CategoriesEng ** open ParadigmsEng in {
|
|
|
|
flags
|
|
optimize=all ;
|
|
|
|
lin
|
|
man_N = mk2N "man" "men" ;
|
|
wine_N = regN "wine" ;
|
|
mother_N2 = regN2 "mother" ;
|
|
distance_N3 = mkN3 (regN "distance") "from" "to" ;
|
|
john_PN = regPN "John" masculine ;
|
|
blue_ADeg = regADeg "blue" ;
|
|
american_A = regA "american" ;
|
|
married_A2 = mkA2 (regA "married") "to" ;
|
|
probable_AS = mkAS (regA "probable") ;
|
|
important_A2S = mkA2S (regA "important") "to" ;
|
|
easy_A2V = mkA2V (regA "easy") "for" ;
|
|
now_Adv = mkAdv "now" ;
|
|
walk_V = (regV "walk") ;
|
|
love_V2 = dirV2 (regV "love") ;
|
|
give_V3 = dirV3 (irregV "give" "gave" "given") "to" ;
|
|
believe_VS = mkVS (regV "believe") ;
|
|
try_VV = mkVV (regV "try") ;
|
|
wonder_VQ = mkVQ (regV "wonder") ;
|
|
become_VA = mkVA (irregV "become" "became" "become") ;
|
|
paint_V2A = mkV2A (regV "paint") [] ;
|
|
promise_V2V = mkV2V (regV "promise") [] "to" ;
|
|
ask_V2Q = mkV2Q (regV "ask") [] ;
|
|
tell_V2S = mkV2S (irregV "tell" "told" "told") [] ;
|
|
rain_V0 = mkV0 (regV "rain") ;
|
|
|
|
} ;
|