fixes in DictEngBul and one more paradigm in ParadigmsBul

This commit is contained in:
kr.angelov
2013-11-12 09:58:39 +00:00
parent 1d7b6f44b6
commit 4b80a15b6c
2 changed files with 15 additions and 3 deletions

View File

@@ -5782,7 +5782,7 @@ lin biconvex_A = variants {};
lin bicorn_A = variants {};
lin bicorn_N = variants {};
lin bicuspid_A = variants {};
lin bicycle_N = mkN007 "велосипед" ; ----
lin bicycle_N = variants {mkN076 "колело"; mkN007 "велосипед"};
lin bicycle_V = variants {};
lin bicyclic_A = variants {};
lin bicycling_N = variants {};
@@ -56679,7 +56679,7 @@ lin treble_N = variants {};
lin treble_V = variants {};
lin treble_V2 = variants {};
lin tredegar_PN = variants {};
lin tree_N = mkN061 "дърво" ;
lin tree_N = dualN (mkN076 "дърво") (mkA079 "дървесен");
lin tree_V2 = variants {};
lin tree_fern_N = variants {};
lin treehopper_N = variants {};
@@ -61616,7 +61616,7 @@ lin wont_A = mkA076 "навикнал";
lin wont_N = mkN014 "навик";
lin wonted_A = mkA085 "обичаен";
lin woo_V2 = dirV2 (singleV (mkV186 "ухажвам"));
lin wood_N = mkN061 "дърво";
lin wood_N = dualN (mkN061 "дърво") (mkA076 "дървен");
lin wood_block_N = variants {};
lin wood_pulp_N = variants {};
lin woodbine_N = variants {};

View File

@@ -1210,6 +1210,18 @@ oper
rel = \\_ => base ;
g = ANeut ;
lock_N = <>
} ;
mkN076 : Str -> N ;
mkN076 base = let v0 = tk 1 base;
g = ANeut
in {s = mkNoun (v0+"î")
(v0+"ĺňŕ")
(v0+"ĺňŕ")
(v0+"î")
g ;
rel = \\_ => base ;
g = g ;
lock_N = <>
};
mkA076 : Str -> A ;
mkA076 base = let v0 = base