bulgarian in next-lib

1 files changed, 380 insertions, 0 deletions

diff --git a/next-lib/src/bulgarian/LexiconBul.gf b/next-lib/src/bulgarian/LexiconBul.gf
new file mode 100644
index 000000000..a02db0153
--- /dev/null
+++ b/next-lib/src/bulgarian/LexiconBul.gf
@@ -0,0 +1,380 @@
+--# -path=.:prelude
+
+concrete LexiconBul of Lexicon = CatBul ** 
+  open ParadigmsBul, ResBul, Prelude in {
+  flags coding=cp1251 ;
+
+
+flags 
+  optimize=values ;
+
+lin
+  airplane_N = mkN007 "самолет" ;
+  answer_V2S = mkV2S (actionV (mkV187 "отговарям") (mkV173 "отговоря")) naP ;
+  apartment_N = mkN007 "апартамент" ;
+  apple_N = mkN041 "ябълка" ;
+  art_N = mkN054 "изкуство" ;
+  ask_V2Q = mkV2Q (stateV (mkV186 "питам")) noPrep ;
+  baby_N = mkN065 "бебе" ;
+  bad_A = mkA076 "лош" ;
+  bank_N = mkN041 "банка" ;
+  beautiful_A = mkA076 "красив" ;
+  become_VA = mkVA (actionV (mkV186 "ставам") (mkV152 "стана")) ;
+  beer_N = mkN041 "бира" ;
+  beg_V2V = mkV2V (stateV (mkV173 "моля")) noPrep zaP ;
+  big_A = mkA081 "голям" ;
+  bike_N = mkN061 "колело" ;
+  bird_N = mkN041 "птица" ;
+  black_A = mkA079 "черен" ;
+  blue_A = mkA086 "син" ;
+  boat_N = mkN007 "кораб" ;
+  book_N = mkN041 "книга" ;
+  boot_N = mkN041 "обувка" ;
+  boss_N = mkN001 "шеф" ;
+  boy_N = mkN065 "момче" ;
+  bread_N = mkN001 "хляб" ;
+  break_V2 = dirV2 (actionV (mkV173 "чупя") (mkV173 "счупя")) ;
+  broad_A = mkA079 "обширен" ;
+  brother_N2 = prepN2 (mkN025 "брат") naP ;
+  brown_A = mkA076 "кафяв" ;
+  butter_N = mkN054 "масло" ;
+  buy_V2 = dirV2 (actionV (mkV186 "купувам") (mkV173 "купя")) ;
+  camera_N = mkN041 "камера" ;
+  cap_N = mkN041 "шапка" ;
+  car_N = mkN041 "кола" ;
+  carpet_N = mkN007 "килим" ;
+  cat_N = mkN041 "котка" ;
+  ceiling_N = mkN007 "таван" ;
+  chair_N = mkN001 "стол" ;
+  cheese_N = mkN066 "сирене" ;
+  child_N = mkN067 "дете" ;
+  church_N = mkN041 "църква" ;
+  city_N = mkN001 "град" ;
+  clean_A = mkA076 "чист" ;
+  clever_A = mkA079 "умен" ;
+  close_V2 = dirV2 (actionV (mkV187 "затварям") (mkV173 "затворя")) ;
+  coat_N = mkN054 "палто" ;
+  cold_A = mkA076 "студен" ;
+  come_V = actionV (mkV186 "идвам") (table {                                           -- special case "дойди", "дойдете" are archaic
+                                       VImperative Sg => "ела";
+                                       VImperative Pl => "елате";
+                                       vform          => mkV146a "дойда" ! vform}) ;
+  computer_N = mkN009 "компютър" ;
+  country_N = mkN041 "държава" ;
+  cousin_N = mkN007a "братовчед" ;
+  cow_N = mkN041 "крава" ;
+  die_V = actionV (mkV186 "умирам") (mkV150a "умра") ;
+  dirty_A = mkA079 "мръсен" ;
+  distance_N3 = prepN3 (mkN072 "разстояние") otP doP ;
+  doctor_N = mkN007a "доктор" ;
+  dog_N = mkN065 "куче" ;
+  door_N = mkN041 "врата" ;
+  drink_V2 = dirV2 (stateV (mkV163 "пия")) ;
+  easy_A2V = mkA2V (mkA079 "лесен") zaP ;
+  eat_V2 = dirV2 (stateV (mkV169 "ям")) ;
+  empty_A = mkA079 "празен" ;
+  enemy_N = mkN001 "враг" ;
+  factory_N = mkN041 "фабрика" ;
+  father_N2 = prepN2 (mkN038 "баща") naP ;
+  fear_VS = mkVS (stateV (mkV186 "страхувам")) ;
+  find_V2 = dirV2 (actionV (mkV186 "намирам") (mkV173 "намеря")) ;
+  fish_N = mkN041 "риба" ;
+  floor_N = mkN007 "етаж" ;
+  fridge_N = mkN007 "фризер" ;
+  friend_N = mkN031a "приятел" ;
+  fruit_N = mkN001 "плод" ;
+  fun_AV = mkAV (mkA079 "забавен") ;
+  forget_V2 = dirV2 (actionV (mkV187 "забравям") (mkV173 "забравя")) ;
+  garden_N = mkN041 "градина" ;
+  girl_N = mkN065 "момиче" ;
+  glove_N = mkN041 "ръкавица" ;
+  gold_N = mkN054 "злато" ;
+  good_A = adjAdv (mkA080 "добър") "добре" ;
+  go_V = actionV (mkV186 "отивам") (mkV146 "отида") ;
+  green_A = mkA076 "зелен" ;
+  harbour_N = mkN066 "пристанище" ;
+  hate_V2 = dirV2 (stateV (mkV173 "мразя")) ;
+  hat_N = mkN041 "шапка" ;
+  have_V2 = dirV2 (stateV (mkV186 "имам")) ;
+  hear_V2 = dirV2 (actionV (mkV186 "чувам") (mkV163 "чуя")) ;
+  hill_N = mkN001 "хълм" ;
+  hope_VS = mkVS (medialV (stateV (mkV186 "надявам")) Acc) ;
+  horse_N = mkN035 "кон" ;
+  hot_A = mkA076 "горещ" ;
+  house_N = mkN041 "къща" ;
+  important_A = mkA079 "важен" ;
+  industry_N = mkN047 "индустрия" ;
+  iron_N = mkN057 "желязо" ;
+  king_N = mkN035a "цар" ;
+  know_V2 = dirV2 {
+              s      = \\_,vform => case vform of {
+                                      VPassive aform => (mkA079 "известен").s ! aform ;
+                                      _              => mkV162 "зная" ! vform
+                                    } ;
+              vtype  = VNormal ;
+              lock_V = <>
+            } ;
+  lake_N = mkN054 "езеро" ;
+  lamp_N = mkN041 "лампа" ;
+  learn_V2 = dirV2 (actionV (mkV176 "уча") (mkV176 "науча")) ;
+  leather_N = mkN041 "кожа" ;
+  leave_V2 = dirV2 (actionV (mkV187 "оставям") (mkV173 "оставя")) ;
+  like_V2 = dirV2 (actionV (mkV186 "харесвам") (mkV186 "харесам")) ;
+  listen_V2 = dirV2 (stateV (mkV186 "слушам")) ;
+  live_V = stateV (mkV160 "живея") ;
+  long_A = mkA080 "дълъг" ;
+  lose_V2 = dirV2 (actionV (mkV173 "губя") (mkV173 "загубя")) ;
+  love_N = mkN049 "любов" ;
+  love_V2 = dirV2 (stateV (mkV186 "обичам")) ;
+  man_N = mkN024 "мъж" ;
+  married_A2 = mkA2 (mkA076 "женен") zaP ;
+  meat_N = mkN054 "месо" ;
+  milk_N = mkN057 "мляко" ;
+  moon_N = mkN041 "луна" ;
+  mother_N2 = prepN2 (mkN041a "майка") naP ;
+  mountain_N = mkN041 "планина" ;
+  music_N = mkN041 "музика" ;
+  narrow_A = mkA084 "тесен" ;
+  new_A = mkA076 "нов" ;
+  newspaper_N = mkN014 "вестник" ;
+  oil_N = mkN065 "олио" ;
+  old_A = mkA076 "стар" ;
+  open_V2 = dirV2 (actionV (mkV187 "отварям") (mkV173 "отворя")) ;
+  paint_V2A = mkV2A (actionV (mkV186 "рисувам") (mkV186 "нарисувам")) noPrep ;
+  paper_N = mkN047 "хартия" ;
+  paris_PN = mkPN "Париж" Masc ;
+  peace_N = mkN040a "мир" ;
+  pen_N = mkN041 "писалка" ;
+  planet_N = mkN041 "планета" ;
+  plastic_N = mkN041 "пластмаса" ;
+  play_V2 = dirV2 (stateV (mkV161 "играя")) ;
+  policeman_N = mkN032a "полицай" ;
+  priest_N = mkN014 "свещеник" ;
+  probable_AS = mkAS (mkA079 "вероятен") ;
+  queen_N = mkN041 "кралица" ;
+  radio_N = mkN054 "радио" ;
+  rain_V0 = mkV0 (stateV (mkV174 "вали")) ;
+  read_V2 = dirV2 (stateV (mkV145 "чета")) ;
+  red_A = mkA076 "червен" ;
+  religion_N = mkN047 "религия" ;
+  restaurant_N = mkN007 "ресторант" ;
+  river_N = mkN041 "река" ;
+  rock_N = mkN041 "скала" ;
+  roof_N = mkN007 "покрив" ;
+  rubber_N = mkN041 "гума" ;
+  run_V = stateV (mkV186 "бягам") ;
+  say_VS = mkVS (actionV (mkV186 "казвам") (mkV156 "кажа")) ;
+  school_N = mkN066 "училище" ;
+  science_N = mkN041 "наука" ;
+  sea_N = mkN065 "море" ;
+  seek_V2 = dirV2 (stateV (mkV173 "търся")) ;
+  see_V2 = dirV2 (actionV (mkV186 "виждам") (mkV181 "видя")) ;
+  sell_V3 = dirV3 (stateV (mkV186 "продавам")) naP ;
+  send_V3 = dirV3 (actionV (mkV186 "пращам") (mkV173 "пратя")) doP ;
+  sheep_N = mkN044 "овца" ;
+  ship_N = mkN007 "кораб" ;
+  shirt_N = mkN041 "риза" ;
+  shoe_N = mkN041 "обувка" ;
+  shop_N = mkN007 "магазин" ;
+  short_A = mkA076 "къс" ;
+  silver_N = mkN054 "сребро" ;
+  sister_N = mkN041a "сестра" ;
+  sleep_V = stateV (mkV182 "спя") ;
+  small_A = mkA080 "малък" ;
+  snake_N = mkN047 "змия" ;
+  sock_N = mkN007 "чорап" ;
+  speak_V2 = dirV2 (stateV (mkV173 "говоря")) ;
+  star_N = mkN041 "звезда" ;
+  steel_N = mkN041 "стомана" ;
+  stone_N = mkN017 "камък" ;
+  stove_N = mkN041 "печка" ;
+  student_N = mkN007a "студент" ;
+  stupid_A = mkA076 "глупав" ;
+  sun_N = mkN066 "слънце" ;
+  switch8off_V2 = dirV2 (actionV (mkV186 "изключвам") (mkV176 "изключа")) ;
+  switch8on_V2 = dirV2 (actionV (mkV186 "включвам") (mkV176 "включа")) ;
+  table_N = mkN041 "маса" ;
+  talk_V3 = mkV3 (stateV (mkV173 "говоря")) naP zaP ;
+  teacher_N = mkN031a "учител" ;
+  teach_V2 = dirV2 (actionV (mkV186 "преподавам") (mkV168 "преподам")) ;
+  television_N = mkN047 "телевизия" ;
+  thick_A = mkA076 "дебел" ;
+  thin_A = mkA080 "тънък" ;
+  train_N = mkN001 "влак" ;
+  travel_V = stateV (mkV186 "пътувам") ;
+  tree_N = mkN061 "дърво" ;
+  ugly_A = mkA076 "глупав" ;
+  understand_V2 = dirV2 (actionV (mkV186 "разбирам") (mkV170 "разбера")) ;
+  university_N = mkN007 "университет" ;
+  village_N = mkN054 "село" ;
+  wait_V2 = prepV2 (stateV (mkV186 "чакам")) zaP ;
+  walk_V = stateV (mkV173 "ходя") ;
+  warm_A = mkA080 "топъл" ;
+  war_N = mkN041 "война" ;
+  watch_V2 = dirV2 (stateV (mkV186 "гледам")) ;
+  water_N = mkN041 "вода" ;
+  white_A = mkA081 "бял" ;
+  window_N = mkN008 "прозорец" ;
+  wine_N = mkN054 "вино" ;
+  win_V2 = dirV2 (actionV (mkV186 "побеждавам") (mkV174 "победя")) ;
+  woman_N = mkN041a "жена" ;
+  wonder_VQ = mkVQ (medialV (actionV (mkV186 "учудвам") (mkV173 "чудя")) Acc) ;
+  wood_N = mkN041 "дървесина" ;
+  write_V2 = dirV2 (stateV (mkV159 "пиша")) ;
+  yellow_A = mkA076 "жълт" ;
+  young_A = mkA076 "млад" ;
+  do_V2 = dirV2 (actionV (mkV173 "правя") (mkV173 "направя")) ;
+  now_Adv = mkAdv "сега" ;
+  already_Adv = mkAdv "вече" ;
+  song_N = mkN050 "песен" ;
+  add_V3 = dirV3 (actionV (mkV186 "събирам") (mkV170 "събера")) sP ;
+  number_N = mkN054 "число" ;
+  put_V2 = prepV2 (actionV (mkV186 "слагам") (mkV176 "сложа")) noPrep ;
+  stop_V = actionV (mkV186 "спирам") (mkV150 "спра") ;
+  jump_V = actionV (mkV186 "скачам") (mkV176 "скоча") ;
+  left_Ord = mkA081 "ляв" ** {nonEmpty=True} ;
+  right_Ord = mkA084 "десен" ** {nonEmpty=True} ;
+  far_Adv = mkAdv "далече" ;
+  correct_A = mkA079 "правилен" ;
+  dry_A = mkA076 "сух" ;
+  dull_A = mkA076 "тъп" ;
+  full_A = mkA079 "пълен" ;
+  heavy_A = mkA080 "тежък" ;
+  near_A = mkA080 "близък" ;
+  rotten_A = mkA076 "прогнил" ;
+  round_A = mkA080 "кръгъл" ;
+  sharp_A = mkA080 "остър" ;
+  smooth_A = mkA080 "гладък" ;
+  straight_A = mkA081 "пряк" ;
+  wet_A = mkA080 "мокър" ; ----
+  wide_A = mkA076 "широк" ;
+  animal_N = mkN062 "животно" ;
+  ashes_N = mkN049 "пепeл" ;
+  back_N = mkN003 "гръб" ;
+  bark_N = mkN028 "лай" ;
+  belly_N = mkN007 "корем" ;
+  blood_N = mkN053 "кръв" ;
+  bone_N = mkN049 "кост" ;
+  breast_N = mkN041 "гърда" ;
+  cloud_N = mkN014 "облак" ;
+  day_N = mkN033 "ден" ;
+  dust_N = mkN001 "прах" ;
+  ear_N = mkN064 "ухо" ;
+  earth_N = mkN047 "земя" ;
+  egg_N = mkN066 "яйце" ;
+  eye_N = mkN063 "око" ;
+  fat_N = mkN041 "мазнина" ;
+  feather_N = mkN038 "баща" ;
+  fingernail_N = mkN034 "нокът" ;
+  fire_N = mkN030 "огън" ;
+  flower_N = mkN068 "цвете" ;
+  fog_N = mkN041 "мъгла" ;
+  foot_N = mkN041 "стъпка" ;
+  forest_N = mkN041 "гора" ;
+  grass_N = mkN041 "трева" ;
+  guts_N = mkN054 "черво" ;
+  hair_N = mkN041 "коса" ;
+  hand_N = mkN045 "ръка" ;
+  head_N = mkN041 "глава" ;
+  heart_N = mkN066 "сърце" ;
+  horn_N = mkN001 "рог" ;
+  husband_N = mkN015 "съпруг" ;  -- personal
+  ice_N = mkN001 "лед" ;
+  knee_N = mkN058 "коляно" ;
+  leaf_N = mkN054 "листо" ;
+  leg_N = mkN022 "крак" ;
+  liver_N = mkN001 "дроб" ;
+  louse_N = mkN041 "въшка" ;
+  mouth_N = mkN042 "уста" ;
+  name_N = mkN069 "име" ;
+  neck_N = mkN003 "гръб" ;
+  night_N = mkN049 "нощ" ;
+  nose_N = mkN001 "нос" ;
+  person_N = mkN014 "човек" ;
+  rain_N = mkN001 "дъжд" ;
+  road_N = mkN037 "път" ;
+  root_N = mkN007 "корен" ;
+  rope_N = mkN065 "въже" ;
+  salt_N = mkN049 "сол" ;
+  sand_N = mkN014 "пясък" ;
+  seed_N = mkN069 "семе" ;
+  skin_N = mkN041 "кожа" ;
+  sky_N = mkN070 "небе" ;
+  smoke_N = mkN014 "пушек" ;
+  snow_N = mkN002 "сняг" ;
+  stick_N = mkN041 "пръчка" ;
+  tail_N = mkN041 "опашка" ;
+  tongue_N = mkN014 "език" ;
+  tooth_N = mkN007 "зъб" ;
+  wife_N = mkN041 "съпруга" ;
+  wind_N = mkN004 "вятър" ;
+  wing_N = mkN056 "крило" ;
+  worm_N = mkN032 "червей" ;
+  year_N = mkN041 "година" ;
+  blow_V = stateV (mkV186 "духам") ;
+  breathe_V = dirV2 (stateV (mkV186 "дишам")) ;
+  burn_V = actionV (mkV187 "изгарям") (mkV177 "изгоря") ;
+  dig_V = stateV (mkV161 "копая") ;
+  fall_V = actionV (mkV186 "падам") (mkV152 "падна") ;
+  float_V = stateV (mkV186 "плавам") ;
+  flow_V = stateV (mkV148 "тека") ;
+  fly_V = stateV (mkV177 "летя") ;
+  freeze_V = stateV (mkV186 "замръзвам") ;
+  give_V3 = dirV3 (actionV (mkV186 "давам") (mkV186 "дам")) naP ;
+  laugh_V = medialV (stateV (mkV160 "смея")) Acc ;
+  lie_V = stateV (mkV178 "лежа") ;
+  play_V = stateV (mkV161 "играя") ;
+  sew_V = stateV (mkV163 "шия") ;
+  sing_V = stateV (mkV164 "пея") ;
+  sit_V = stateV (mkV177 "седя") ;
+  smell_V = stateV (mkV159 "мириша") ;
+  spit_V = stateV (mkV163 "плюя") ;
+  stand_V = stateV (mkV180 "стоя") ;
+  swell_V = actionV (mkV186 "надувам") (mkV163 "надуя") ;
+  swim_V = stateV (mkV186 "плувам") ;
+  think_V = stateV (mkV173 "мисля") ;
+  turn_V = actionV (mkV186 "обръщам") (mkV152 "обърна") ;
+  vomit_V = actionV (mkV186 "повръщам") (mkV152 "повърна") ;
+
+  bite_V2 = dirV2 (stateV (mkV154 "хапя")) ;
+  count_V2 = dirV2 (stateV (mkV175 "броя")) ;
+  cut_V2 = dirV2 (stateV (mkV157 "режа"))  ;
+  fear_V2 = dirV2 (medialV (stateV (mkV186 "страхувам")) Acc) ;
+  fight_V2 = dirV2 (medialV (stateV (mkV173 "боря")) Acc) ;
+  hit_V2 = dirV2 (actionV (mkV187 "удрям") (mkV173 "ударя")) ;
+  hold_V2 = dirV2 (stateV (mkV179 "държа")) ;
+  hunt_V2 = dirV2 (stateV (mkV174 "ловя")) ;
+  kill_V2 = dirV2 (actionV (mkV186 "убивам") (mkV163 "убия")) ;
+  pull_V2 = dirV2 (stateV (mkV186 "дърпам")) ;
+  push_V2 = dirV2 (stateV (mkV186 "бутам")) ;
+  rub_V2 = dirV2 (stateV (mkV163 "трия")) ;
+  scratch_V2 = dirV2 (actionV (mkV186 "драскам") (mkV152 "драсна")) ;
+  split_V2 = dirV2 (actionV (mkV187 "разделям") (mkV174 "разделя")) ;
+  squeeze_V2 = dirV2 (actionV (mkV186 "стискам") (mkV152 "стисна")) ;
+  stab_V2 = dirV2 (actionV (mkV186 "промушвам") (mkV176 "промуша")) ;
+  suck_V2 = dirV2 (stateV (mkV155 "суча")) ;
+  throw_V2 = dirV2 (actionV (mkV187 "хвърлям") (mkV173 "хвърля")) ;
+  tie_V2 = dirV2 (actionV (mkV186 "връзвам") (mkV156 "вържа")) ;
+  wash_V2 = dirV2 (stateV (mkV163 "мия")) ;
+  wipe_V2 = dirV2 (stateV (mkV159 "бърша")) ;
+
+  grammar_N = mkN041 "граматика" ;
+  language_N = mkN014 "език" ;
+  rule_N = mkN054 "правило" ;
+  
+  john_PN = mkPN "Джон" Masc ;
+  question_N = mkN007 "въпрос" ;
+  ready_A = mkA076 "готов" ;
+  reason_N = mkN041 "причина" ;
+  today_Adv = mkAdv "днес" ;
+  uncertain_A = mkA079 "неясен" ;
+  
+oper
+  zaP = mkPrep "за" Acc ;
+  naP = mkPrep [] Dat ;
+  otP = mkPrep "от" Acc ;
+  doP = mkPrep "до" Acc ;
+  sP  = mkPrep (pre { "с" ; 
+                      "със" / strs {"с" ; "з" ; "С" ; "З"}
+                    })  Acc ;
+} ;