Adjective Smart Paradigm

next-lib/src/romanian/CatRon.gf

@@ -22,7 +22,7 @@ concrete CatRon of Cat =
     AP = {s : AForm => Str ; isPre : Bool} ; 
 
 -- Noun
-
+ lincat 
     CN      = {s : Number => Str ; g : Gender} ;
  --   Pron    = Pronoun ;
  --   NP      = NounPhrase ;

next-lib/src/romanian/LexiconRon.gf

@@ -14,17 +14,17 @@ lin
  art_N = mkN "artã" ;
  ask_V2Q = mkV2Q (v_besch29 "întreba") (noPrep Ac) ; 
  baby_N = mkAnim (mkN "bebeluº" masculine) ;
- bad_A =  mk4A "rãu" "rea" "rãi" "rele" ;
+ bad_A =  mkA "rãu" "rea" "rãi" "rele" ;
  bank_N = mkN "bancã" "bãnci" ;
  beautiful_A = mkRMut "frumos" ; 
  become_VA = mkVA (v_besch136 "deveni") ;
  beer_N = mkN "bere" ;
  beg_V2V = mkV2V (v_besch48 "ruga") (noPrep Ac) (noPrep Da) ; 
- big_A = regA "mare" ;
+ big_A = mkA "mare" ;
  bike_N = mkN "bicicletã" ;
  bird_N = mkN "pasãre" "pãsãri" ;
  black_A = mkRMut "negru" ;
- blue_A = regA "albastru" ;
+ blue_A = mkA "albastru" ;
  boat_N = mkN "vapor" neuter ;
  book_N = mkN "carte" "cãrþi" ;
  boot_N = mkN "cizmã" ;
@@ -32,7 +32,7 @@ lin
  boy_N = mkAnim (mkN "bãiat" "bãieþi") ;
  bread_N = mkN "pâine";
  break_V2 = dirV2 (v_besch97 "sparge") ;
- broad_A = regA "larg" ;
+ broad_A = mkA "larg" ;
  brother_N2 = mkN2 (mkAnim(mkN "frate" masculine)) (noPrep Ge) ;
  brown_A = invarA "maro" ;
  butter_N = mkNR "unt";
@@ -48,18 +48,18 @@ lin
  child_N = mkAnim (mkN "copil" "copii" ) ;
  church_N = mkN "bisericã"  ;
  city_N = mkN "oraº" ;
- clean_A = regA "curat" ;
+ clean_A = mkA "curat" ;
- clever_A = regA "deºtept" ; 
+ clever_A = mkRMut "deºtept" ; 
  close_V2 = dirV2 (mkV "închide") ;
  coat_N = mkN "hainã" ;
- cold_A = regA "rece" ;
+ cold_A = mkA "rece" ;
  come_V = v_besch136 "veni" ;
  computer_N = mkN "calculator" neuter ;
  country_N = mkN "þarã" "þãri" ;
  cousin_N = mkAnim (mkN "vãr" masculine) ; 
  cow_N = mkN "vacã" "vaci"  ;
  die_V = v_besch129 "muri" ;
- dirty_A = regA "murdar" ;
+ dirty_A = mkA "murdar" ;
  distance_N3 = mkN3 (mkN "distanþã") (mkPrep "de la" Ac) (mkPrep "la" Ac) ;
  doctor_N = mkAnim (mkN "doctor") ;
  dog_N = mkN "câine" masculine ;
@@ -80,14 +80,14 @@ lin
  fridge_N = mkN "frigider" ;
  friend_N = mkAnim (mkN "prieten") ;
  fruit_N = mkN "fruct"  ;
- fun_AV = mkAV (regA "distractiv") (noPrep Ac) ;
+ fun_AV = mkAV (mkA "distractiv") (noPrep Ac) ;
  garden_N = mkN "gradinã" ;
  girl_N = mkAnim (mkN "fatã" "fete") ;
  glove_N = mkN "mãnuºã" "mãnuºi" ;
  gold_N = mkNR "aur" ;
-good_A = mk5A "bun" "bunã" "buni" "bune" "bine" ;
+good_A = mkA "bun" "bunã" "buni" "bune" "bine" ;
 go_V = v_besch90 "merge" ;
-green_A = regA "verde" ;
+green_A = mkA "verde" ;
 harbour_N = mkNR "port" ;
 hate_V2 = dirV2 (mkV "urî") ;
 hat_N = mkN "pãlãrie" ;
@@ -96,9 +96,9 @@ hear_V2 = dirV2 (v_besch127 "auzi") ;
 hill_N = mkNR "deal" ;
 hope_VS = mkVS (v_besch17 "spera") ;
 horse_N = mkN "cal" "cai" ;
-hot_A = regA "cald" ;
+hot_A = mkA "cald" ;
 house_N = mkN "casã" ;
-important_A = regA "important" ;
+important_A = mkA "important" ;
 industry_N = mkN "industrie" ;
 iron_N = mkN "fier" masculine ;
 king_N = mkAnim (mkN "rege" masculine) ;
@@ -112,23 +112,23 @@ leave_V2 = dirV2 (mkV "p
 like_V2 = dirV2 (v_besch71 "plãcea") ;
 listen_V2 = dirV2 (v_besch18 "asculta") ;
 live_V = mkV "trãi" ;
-long_A = regA "lung" ;
+long_A = mkA "lung" ;
 lose_V2 = dirV2 (v_besch113 "pierde") ;
 love_N = mkN "iubire" ;
 love_V2 = dirV2 (mkV "iubi") ;
 man_N = mkAnim (mkN "om" "oameni") ;
-married_A2 = mkA2 (regA "cãsãtorit") (mkPrep "cu" Ac) ;
+married_A2 = mkA2 (mkA "cãsãtorit") (mkPrep "cu" Ac) ;
 meat_N = mkN "carne" "cãrnuri" "cãrni" ;
 milk_N = mkN "lapte" masculine ;
 moon_N = mkN "lunã" "luni" ;
 mother_N2 = mkN2 (chV "mamã" (mkAnim (mkN "mamã"))) (noPrep Ge) ;
 mountain_N = mkN "munte" masculine ;
 music_N = mkN "muzicã" ;
-narrow_A = regA "îngust" ;
+narrow_A = mkA "îngust" ;
-new_A = mk4A "nou" "nouã" "noi" "noi" ;
+new_A = mkA "nou" "nouã" "noi" "noi" ;
 newspaper_N = mkN "ziar" ;
 oil_N = mkNR "ulei" ;
-old_A = regA "vechi" ; 
+old_A = mkA "vechi" "veche" "vechi" "vechi" ; 
 open_V2 = dirV2 (mkV "deshide") ;
 paint_V2A = mkV2A (mkV "picta") (noPrep Ac) (mkPrep "cu" Ac) ; 
 paper_N = mkN "hârtie" ;
@@ -140,12 +140,12 @@ plastic_N = mkN "plastic" ;
 play_V2 = dirV2 (v_besch48 "juca") ;
 policeman_N = mkAnim (mkN "poliþist" masculine) ;
 priest_N = mkAnim (mkN "preot" masculine) ;
-probable_AS = mkAS (regA "probabil") ;
+probable_AS = mkAS (mkA "probabil") ;
 queen_N = mkAnim (mkN "reginã" "regine") ;
 radio_N = mkNR "radio";
 --rain_V0 = mkV0 (v_besch54 "ploua") ;
 read_V2 = dirV2 (mkV "citi") ;
-red_A = mk4A "roºu" "roºie" "roºii" "roºii" ;
+red_A = mkA "roºu" "roºie" "roºii" "roºii" ;
 religion_N = mkN "religie" ;
 restaurant_N = mkN "restaurant" ;
 river_N = mkN "fluviu" masculine ;
@@ -166,11 +166,11 @@ rubber_N = mkNR "cauciuc";
  shirt_N = mkN "cãmaºã" "cãmãºi" ;
  shoe_N = mkN "pantof" masculine ;
  shop_N = mkN "magazin" ;
- short_A = regA "scurt" ; 
+ short_A = mkA "scurt" ; 
  silver_N = mkN "argint" masculine ;
  sister_N = mkAnim (mkN "sorã" "surori") ;
  sleep_V = v_besch128 "dormi" ;
- small_A = mk4A "mic" "micã" "mici" "mici" ;
+ small_A = mkA "mic" "micã" "mici" "mici" ;
  snake_N = mkN "ºarpe" "ºerpi" masculine ;
  sock_N = mkN "ºosetã" ;
  speak_V2 = dirV2 (mkV "vorbi") ;
@@ -179,7 +179,7 @@ rubber_N = mkNR "cauciuc";
  stone_N = mkN "piatrã" "pietre" ;
  stove_N = mkN "sobã" ;
  student_N = mkAnim (mkN "student" masculine) ;
- stupid_A = regA "stupid" ;
+ stupid_A = mkA "stupid" ;
  sun_N = mkN "soare" "sori" masculine ;
  switch8off_V2 = dirV2 (v_besch77 "stinge") ;
  switch8on_V2 = dirV2 (mkV "aprinde") ;
@@ -189,22 +189,22 @@ rubber_N = mkNR "cauciuc";
  teach_V2 = dirV2 (v_besch57 "preda") ;
  television_N = mkN "televiziune" ;
  thick_A = mkRMut "gros" ;
- thin_A = regA "subþire" ;
+ thin_A = mkA "subþire" ;
  train_N = mkNR "tren";
  travel_V = mkV "cãlãtori" ;
  tree_N = mkN "copac" masculine ;
  --trousers_N = mkN "pantalon" masculine ;
- ugly_A = regA "urât" ;
+ ugly_A = mkA "urât" ;
  understand_V2 = dirV2 (v_besch83 "înþelege") ;
  university_N = mkN "universitate" ;
  village_N = mkN "sat" neuter ;
  wait_V2 = dirV2 (v_besch30 "aºtepta") ;
  walk_V = v_besch90 "merge" ;
- warm_A = regA "calduþ" ;
+ warm_A = mkA "calduþ" ;
  war_N = mkN "rãzboi" neuter ;
  watch_V2 = dirV2 (mkV "privi") ;
  water_N = mkN "apã" ;
- white_A = regA "alb" ;
+ white_A = mkA "alb" ;
  window_N = mkN "fereastrã" "ferestre" ;
  wine_N = mkNR "vin" ;
  win_V2 = dirV2 (v_besch17 "câºtiga") ;
@@ -212,8 +212,8 @@ rubber_N = mkNR "cauciuc";
  wonder_VQ = mkVQ (mkRV (regV "minuna")) ;
  wood_N = mkN "lemn" ;
  write_V2 = dirV2 (v_besch117 "scrie") ;
- yellow_A = regA "galben" ;
+ yellow_A = mkA "galben" ;
- young_A = mk5A "tânãr" "tânãrã" "tineri" "tinere" "tinereºte" ;
+ young_A = mkA "tânãr" "tânãrã" "tineri" "tinere" "tinereºte" ;
 
   do_V2 = dirV2 (v_besch115 "face") ;
   now_Adv = mkAdv "acum" ; 
@@ -228,19 +228,19 @@ rubber_N = mkNR "cauciuc";
   left_Ord = mkOrd (regA "stâng") ;
   right_Ord = mkOrd (mkRMut "drept") ;
 far_Adv = mkAdv "departe" ;
-correct_A = regA "corect" ;
+correct_A = mkA "corect" ;
-dry_A = regA "uscat" ;
+dry_A = mkA "uscat" ;
-dull_A = regA "monoton";
+dull_A = mkA "monoton";
-full_A = regA "plin" ;
+full_A = mkA "plin" ;
-heavy_A = mk4A "greu" "grea" "grei" "grele";
+heavy_A = mkA "greu" "grea" "grei" "grele";
-near_A = regA "apropiat" ;
+near_A = mkA "apropiat" ;
-rotten_A = regA "stricat" ;
+rotten_A = mkA "stricat" ;
-round_A = regA "rotund" ;
+round_A = mkA "rotund" ;
-sharp_A = regA "ascuþit" ;
+sharp_A = mkA "ascuþit" ;
-smooth_A = regA "neted" ;
+smooth_A = mkA "neted" ;
 straight_A = mkRMut "drept" ;
-wet_A = regA "ud" ;
+wet_A = mkA "ud" ;
-wide_A = regA "adânc" ;
+wide_A = mkA "adânc" ;
   animal_N = mkN "animal" ;
   ashes_N = mkN "cenuºã" "cenuºi" ;
   back_N = mkN "spate" "spate" neuter ;
@@ -357,10 +357,10 @@ rule_N = mkN "regul
 
 john_PN = mkPN "Ion" ;
 question_N = mkN "întrebare" ;
-ready_A = regA "pregãtit" ;
+ready_A = mkA "pregãtit" ;
 reason_N = mkN "motiv" ;
 today_Adv = mkAdv "astãzi" ;
-uncertain_A = regA "nesigur" ;
+uncertain_A = mkA "nesigur" ;
 
 
 } ;

next-lib/src/romanian/MorphoRon.gf

@@ -391,8 +391,7 @@ case s of
 
 mkFemSg : Str -> Str = \s ->
 case s of
-{x + "hi" => x + "he";
+{x + "i"  => s + "e";
- x + "i"  => s + "e";
  x + "iu" => x + "ie";
  x + "u"  => x + "ã";
  _        => s + "ã"