GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 19:48:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

added irregular Scots verbs

Browse Source
This commit is contained in:
Krasimir Angelov
2026-02-18 15:37:16 +01:00
parent dbe6eba30a
commit ec4bc75a64
5 changed files with 117 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/scots/LexiconSco.gf
+9 -9
View File
@@ -1,7 +1,7 @@
--# -path=.:prelude
concrete LexiconSco of Lexicon = CatSco **
open ParadigmsSco, Prelude in {
open ParadigmsSco, IrregSco, Prelude in {
flags
optimize=values ;
@@ -39,7 +39,7 @@ lin
brother_N2 = mkN2 (mkN masculine (mkN "brother")) (mkPrep "of") ;
brown_A = regADeg "brown" ;
butter_N = regN "butter" ;
buy_V2 = dirV2 (irregV "buy" "bought" "bought") ;
buy_V2 = dirV2 IrregSco.buy_V ;
camera_N = regN "camera" ;
cap_N = regN "cap" ;
car_N = regN "car" ;
@@ -67,7 +67,7 @@ lin
doctor_N = mkN human (regN "doctor") ;
dog_N = regN "dog" ;
door_N = regN "door" ;
drink_V2 = dirV2 (irregV "drink" "drank" "drunk") ;
drink_V2 = mkV2 IrregSco.drink_V ;
easy_A2V = mkA2V (regA "easy") forP ;
eat_V2 = dirV2 (irregV "eat" "ate" "eaten") ;
empty_A = regADeg "empty" ;
@@ -75,7 +75,7 @@ lin
factory_N = regN "factory" ;
father_N2 = mkN2 (mkN masculine (mkN "father")) (mkPrep "of") ;
fear_VS = mkVS (regV "fear") ;
find_V2 = dirV2 (irregV "find" "found" "found") ;
find_V2 = dirV2 IrregSco.find_V ;
fish_N = mk2N "fish" "fish" ;
floor_N = regN "floor" ;
forget_V2 = dirV2 (irregDuplV "forget" "forgot" "forgotten") ;
@@ -146,7 +146,7 @@ lin
queen_N = mkN feminine (regN "queen") ;
radio_N = regN "radio" ;
rain_V0 = mkV0 (regV "rain") ;
read_V2 = dirV2 (irregV "read" "read" "read") ;
read_V2 = dirV2 IrregSco.read_V ;
red_A = duplADeg "red" ;
religion_N = regN "religion" ;
restaurant_N = regN "restaurant" ;
@@ -213,7 +213,7 @@ lin
woman_N = mkN feminine (mk2N "woman" "women") ;
wonder_VQ = mkVQ (mkV "wonder" "wondered") ;
wood_N = regN "wood" ;
write_V2 = dirV2 (irregV "write" "wrote" "written") ;
write_V2 = dirV2 IrregSco.write_V ;
yellow_A = mkA "yellow" ;
young_A = regADeg "young" ;
@@ -306,15 +306,15 @@ lin
wing_N = regN "wing" ;
worm_N = regN "worm" ;
year_N = regN "year" ;
-- blow_V = IrregEng.blow_V ;
-- blow_V = IrregSco.blow_V ;
breathe_V = dirV2 (regV "breathe") ;
-- burn_V = IrregEng.burn_V ;
burn_V = IrregSco.burn_V ;
-- dig_V = IrregEng.dig_V ;
-- fall_V = IrregEng.fall_V ;
float_V = regV "float" ;
flow_V = regV "flow" ;
-- fly_V = IrregEng.fly_V ;
-- freeze_V = IrregEng.freeze_V ;
freeze_V = IrregSco.freeze_V ;
-- give_V3 = mkV3 give_V noPrep noPrep ;
laugh_V = regV "laugh" ;
-- lie_V = IrregEng.lie_V ;