Commit 405f287af337057fd6d8ee01ed796b660aa0d5c0

Authored by Wojciech Jaworski
1 parent cec384a6

Poprawki w modelu dla czasowników

morphology/data/alternations.dic
... ... @@ -370,6 +370,7 @@
370 370 # u u u
371 371 o oʲi o
372 372 u uʲi u
  373 +###? el oł el # nieprzyjacioły
373 374  
374 375 #@kontrakcje
375 376 # t ę ęt
... ... @@ -644,39 +645,45 @@
644 645 k ž sk
645 646 k ž sok
646 647  
647   -@ger
648   - t′ t′ t′
649   - n′ n′ n′
  648 +#@ger_t
  649 +# t′ t′ t′
  650 +
  651 +#@ger_n
  652 +# n′ n′ n′
650 653  
651 654 #@ger_wyglos
652 655 # t′ t′ t′
653 656 # n′ n′ n′
654 657  
655   -@pact
656   - c c c
  658 +#@pact
  659 +# c c c
657 660  
658   -@ppas
659   - t t t
660   - n n n
  661 +#@ppas_t
  662 +# t t t
661 663  
662   -@ppas_i
663   - t t′i t
664   - n n′i n
665   - n en′i on
  664 +#@ppas_n
  665 +# n n n
666 666  
667   -@praet
668   - ł ł ł
  667 +#@ppas_ti
  668 +# t t′i t
  669 +
  670 +#@ppas_ni
  671 +# n n′i n
  672 +# n en′i on
  673 +
  674 +#@praet
  675 +# ł ł ł
669 676  
670 677 @praet_i
671   - ł li ł
672   -* ł edli adł
673   -* ł etli otł
674   -* ł es′li osł
675   -* ł ez′li azł
676   -* ł ez′li ozł
677   -* ł s′li sł
678   -* ł z′li zł
679   -* ł eli ał
  678 + ł
  679 +* ł ed ad
  680 +* ł et ot
  681 +* ł es′ os
  682 +* ł ez′ az
  683 +* ł ez′ oz
  684 +* ł s′ s
  685 +* ł z′ z
  686 +* ł e a
680 687  
681 688 @ae
682 689 a a a
... ...
morphology/data/rules.dic
... ... @@ -18,6 +18,9 @@
18 18 * dowolne s′i suf=si
19 19 dowolne
20 20  
  21 +#nad niemi, kręgami śliskiemi, proroczemi księgi, ustami czerwonemi
  22 +#gasnącem okiem, "gasnącem wieki wieków spojrzyj na nas okiem"
  23 +
21 24 @ADJ-FLEX-PATAL
22 25 funkcjonalnie_miekkie_iy flex=y patal=t con cat=adj
23 26 funkcjonalnie_miekkie_iy x flex=ych patal=t con cat=adj
... ... @@ -32,6 +35,10 @@
32 35 funkcjonalnie_miekkie_ae o flex=o patal=t con cat=adj
33 36 * funkcjonalnie_miekkie_wyglos flex=ε patal=t con cat=adj
34 37 sz_i flex=i patal=sz con cat=adj
  38 +D funkcjonalnie_miekkie_ae em flex=ym patal=t con cat=adj
  39 +D funkcjonalnie_miekkie_ae emi flex=ymi patal=t con cat=adj
  40 +D funkcjonalnie_miekkie_ae o flex=ą patal=t con cat=adj
  41 +D funkcjonalnie_miekkie_ae om flex=ą patal=t con cat=adj
35 42  
36 43 @ADJ-FLEX-NPATAL
37 44 funkcjonalnie_twarde_y flex=y patal=n con cat=adj
... ... @@ -48,6 +55,10 @@
48 55 funkcjonalnie_twarde_a u flex=u patal=n con cat=adj
49 56 funkcjonalnie_twarde_i flex=i patal=n con cat=adj
50 57 * funkcjonalnie_twarde_wyglos flex=ε patal=n con cat=adj
  58 +D funkcjonalnie_twarde_e em flex=ym patal=n con cat=adj
  59 +D funkcjonalnie_twarde_e emi flex=ymi patal=n con cat=adj
  60 +D funkcjonalnie_twarde_a o flex=ą patal=n con cat=adj
  61 +D funkcjonalnie_twarde_a om flex=ą patal=n con cat=adj
51 62  
52 63 @ADJ-FLEX-GRAD
53 64 sz y flex=y cat=adj:grad
... ... @@ -61,6 +72,10 @@
61 72 sz a flex=a cat=adj:grad
62 73 sz ą flex=ą cat=adj:grad
63 74 sz_i flex=i cat=adj:grad
  75 +D sz em flex=ym cat=adj:grad
  76 +D sz emi flex=ymi cat=adj:grad
  77 +D sz o flex=ą cat=adj:grad
  78 +D sz om flex=ą cat=adj:grad
64 79  
65 80 @ADJ-GRAD-PATAL
66 81 adj_grad_miekkie_sz š grad=sz con
... ... @@ -107,6 +122,15 @@
107 122 funkcjonalnie_miekkie_wyglos flex=ε patal=t con cat=noun
108 123 * funkcjonalnie_miekkie_wyglos m′i flex=ami patal=t con cat=noun
109 124 c_cz e flex=cze patal=t con cat=noun
  125 +D funkcjonalnie_miekkie_ae em flex=ym patal=t con cat=noun
  126 +D funkcjonalnie_miekkie_ae em′i flex=ymi patal=t con cat=noun
  127 +D funkcjonalnie_miekkie_iy ma flex=ami patal=t con cat=noun
  128 +D funkcjonalnie_miekkie_ae om flex=ą con cat=noun
  129 +D funkcjonalnie_miekkie_ae o flex=ą con cat=noun
  130 +D funkcjonalnie_miekkie_ae e flex=ę con cat=noun
  131 +D funkcjonalnie_miekkie_ae om′i flex=ami patal=t con cat=noun
  132 +D funkcjonalnie_miekkie_ae amy flex=ami patal=t con cat=noun
  133 +D funkcjonalnie_miekkie_ae ox flex=ach patal=t con cat=noun
110 134  
111 135 @NOUN-FLEX-NPATAL
112 136 funkcjonalnie_twarde_y flex=y patal=n con cat=noun
... ... @@ -137,6 +161,15 @@
137 161 funkcjonalnie_twarde_ie2 flex=ie patal=n velar=t con cat=noun
138 162 funkcjonalnie_twarde_wyglos flex=ε patal=n con cat=noun
139 163 * funkcjonalnie_twarde_wyglos m′i flex=ami patal=n con cat=noun
  164 +D funkcjonalnie_twarde_e em flex=ym patal=n con cat=noun
  165 +D funkcjonalnie_twarde_e em′i flex=ymi patal=n con cat=noun
  166 +D funkcjonalnie_twarde_a om flex=ą con cat=noun
  167 +D funkcjonalnie_twarde_a o flex=ą con cat=noun
  168 +D funkcjonalnie_twarde_e e flex=ę con cat=noun
  169 +D funkcjonalnie_twarde_a om′i flex=ami patal=n con cat=noun
  170 +D funkcjonalnie_twarde_a amy flex=ami patal=n con cat=noun
  171 +D funkcjonalnie_twarde_a ox flex=ach patal=n con cat=noun
  172 +D funkcjonalnie_twarde_y ma flex=ami patal=n con cat=noun
140 173  
141 174 @NOUN-FLEX-Ę
142 175 funkcjonalnie_miekkie_ae ę flex=ę patal=ę con cat=noun
... ... @@ -223,90 +256,134 @@
223 256 kapitaliki_wyglos flex=εC con cat=noun
224 257 * kapitaliki_wyglos A flex=AC con cat=noun
225 258  
226   -@GER-FLEX
227   - ger om flex=om
228   - ger am′i flex=ami
229   - ger ax flex=ach
230   - ger e flex=e
231   - ger a flex=a
232   - ger u flex=u
233   - ger em flex=em
234   - ger flex=ε
235   -
236   -@PACT-FLEX
237   - pact yx flex=ych
238   - pact ym flex=ym
239   - pact ym′i flex=ymi
240   - pact e flex=e
241   - pact o flex=o
242   - pact y flex=y
243   - pact ą flex=ą
244   - pact a flex=a
245   - pact ego flex=ego
246   - pact emu flex=emu
247   - pact ej flex=ej
248   - pact flex=ε
249   -
250   -@PPAS-FLEX
251   - ppas yx flex=ych
252   - ppas ym flex=ym
253   - ppas ym′i flex=ymi
254   - ppas e flex=e
255   - ppas y flex=y
256   - ppas ą flex=ą
257   - ppas a flex=a
258   - ppas o flex=o
259   - ppas ego flex=ego
260   - ppas emu flex=emu
261   - ppas ej flex=ej
262   - ppas_i flex=i
263   -
264   -@PRAET-FLEX
265   - praet flex=ε
266   - praet em flex=em
267   - praet es′ flex=eś
268   - praet a flex=a
269   - praet am flex=am
270   - praet as′ flex=aś
271   - praet o flex=o
272   - praet om flex=om
273   - praet os′ flex=oś
274   - praet y flex=y
275   - praet ys′my flex=yśmy
276   - praet ys′t′e flex=yście
277   - praet ego flex=ego
278   - praet emu flex=emu
279   - praet_i flex=i
280   - praet_i s′my flex=iśmy
281   - praet_i s′t′e flex=iście
282   -
283   -@FIN-FLEX
284   - dowolne flex=ε
285   - dowolne my flex=my
286   - dowolne t′e flex=cie
287   - dowolne š flex=sz
288   -
289   -@FIN-FLEX-J
290   - ae m flex=m
291   - dowolne ą flex=ą
292   - dowolne ę flex=ę
293   -
294   -@VERB-FLEX2
  259 +@VERB-FLEX-J
  260 + ae m flex=m flex2=ε
  261 + dowolne ą flex=ą flex2=ε
  262 + dowolne ę flex=ę flex2=ε
  263 +D dowolne o flex=ą flex2=ε
  264 +D dowolne om flex=ą flex2=ε
  265 +D dowolne e flex=ę flex2=ε
  266 + dowolne nyx flex=ych flex2=n
  267 + dowolne nym flex=ym flex2=n
  268 + dowolne nym′i flex=ymi flex2=n
  269 + dowolne ne flex=e flex2=n
  270 + dowolne ny flex=y flex2=n
  271 + dowolne ną flex=ą flex2=n
  272 + dowolne na flex=a flex2=n
  273 + dowolne no flex=o flex2=n
  274 + dowolne nego flex=ego flex2=n
  275 + dowolne nemu flex=emu flex2=n
  276 + dowolne nej flex=ej flex2=n
  277 + dowolne n′i flex=i flex2=n
  278 +D dowolne no flex=ą flex2=n
  279 +D dowolne nom flex=ą flex2=n
  280 +D dowolne nem flex=ym flex2=n
  281 +D dowolne nem′i flex=ymi flex2=n
  282 + dowolne n′om flex=om flex2=ń
  283 + dowolne n′am′i flex=ami flex2=ń
  284 + dowolne n′ax flex=ach flex2=ń
  285 + dowolne n′e flex=e flex2=ń
  286 + dowolne n′a flex=a flex2=ń
  287 + dowolne n′u flex=u flex2=ń
  288 + dowolne n′em flex=em flex2=ń
  289 + dowolne n′ flex=ε flex2=ń
  290 +D dowolne n′om′i flex=ami flex2=ń
  291 +D dowolne n′amy flex=ami flex2=ń
  292 +D dowolne n′ox flex=ach flex2=ń
  293 + dowolne ącyx flex=ych flex2=ąc
  294 + dowolne ącym flex=ym flex2=ąc
  295 + dowolne ącym′i flex=ymi flex2=ąc
  296 + dowolne ące flex=e flex2=ąc
  297 + dowolne ąco flex=o flex2=ąc
  298 + dowolne ący flex=y flex2=ąc
  299 + dowolne ącą flex=ą flex2=ąc
  300 + dowolne ąca flex=a flex2=ąc
  301 + dowolne ącego flex=ego flex2=ąc
  302 + dowolne ącemu flex=emu flex2=ąc
  303 + dowolne ącej flex=ej flex2=ąc
  304 + dowolne ąc flex=ε flex2=ąc
  305 +D dowolne ącom flex=ą flex2=ąc
  306 +D dowolne ąco flex=ą flex2=ąc
  307 +D dowolne ącem flex=ym flex2=ąc
  308 +D dowolne ącem′i flex=ymi flex2=ąc
  309 +
  310 +@VERB-FLEX
  311 + dowolne flex=ε flex2=ε
  312 + dowolne my flex=my flex2=ε
  313 + dowolne t′e flex=cie flex2=ε
  314 + dowolne š flex=sz flex2=ε
  315 +D dowolne m flex=my flex2=ε
  316 +D dowolne s flex=sz flex2=ε
  317 + verb_łszy łšy flex2=łszy
  318 + verb_łszy ł flex=ε flex2=ł
  319 + dowolne ł flex=ε flex2=ł
  320 +# dowolne łem flex=em flex2=ł
  321 +# dowolne łes′ flex=eś flex2=ł
  322 + dowolne ła flex=a flex2=ł
  323 +# dowolne łam flex=am flex2=ł
  324 +# dowolne łas′ flex=aś flex2=ł
  325 + dowolne ło flex=o flex2=ł
  326 +# dowolne łom flex=om flex2=ł
  327 +# dowolne łos′ flex=oś flex2=ł
  328 + dowolne ły flex=y flex2=ł
  329 +# dowolne łys′my flex=yśmy flex2=ł
  330 +# dowolne łys′t′e flex=yście flex2=ł
  331 + praet_i li flex=i flex2=ł
  332 +# praet_i lis′my flex=iśmy flex2=ł
  333 +# praet_i lis′t′e flex=iście flex2=ł
  334 + dowolne tyx flex=ych flex2=t
  335 + dowolne tym flex=ym flex2=t
  336 + dowolne tym′i flex=ymi flex2=t
  337 + dowolne te flex=e flex2=t
  338 + dowolne ty flex=y flex2=t
  339 + dowolne tą flex=ą flex2=t
  340 + dowolne ta flex=a flex2=t
  341 + dowolne to flex=o flex2=t
  342 + dowolne tego flex=ego flex2=t
  343 + dowolne temu flex=emu flex2=t
  344 + dowolne tej flex=ej flex2=t
  345 + dowolne t′i flex=i flex2=t
  346 +D dowolne to flex=ą flex2=t
  347 +D dowolne tom flex=ą flex2=t
  348 +D dowolne tem flex=ym flex2=t
  349 +D dowolne tem′i flex=ymi flex2=t
  350 + dowolne t′om flex=om flex2=t
  351 + dowolne t′am′i flex=ami flex2=t
  352 + dowolne t′ax flex=ach flex2=t
  353 + dowolne t′e flex=e flex2=t
  354 + dowolne t′a flex=a flex2=t
  355 + dowolne t′u flex=u flex2=t
  356 + dowolne t′em flex=em flex2=t
  357 + dowolne t′ flex=ε flex2=t
  358 +D dowolne t′om′i flex=ami flex2=t
  359 +D dowolne t′amy flex=ami flex2=t
  360 +D dowolne t′ox flex=ach flex2=t
295 361 * verb_inf_ć t′ flex2=ć
296 362 * verb_inf_c c flex2=c
297   - dowolne t′ flex2=ć
298   - dowolne flex2=ε
299   - dowolne t flex2=t
300 363 dowolne všy flex2=wszy
301   - dowolne ł flex2=ł
302   - verb_łszy ł flex2=ł
303   - verb_łszy łšy flex2=łszy
304 364  
305   -@VERB-FLEX2-J
306   - dowolne flex2=ε
307   - dowolne n′ flex2=ń
308   - dowolne n flex2=n
309   - dowolne ąc flex2=ąc
  365 +#@GER-FLEX-T
  366 +
  367 +#@PPAS-FLEX-T
  368 +
  369 +#@PRAET-FLEX
  370 +
  371 +#@FIN-FLEX
  372 +
  373 +#@VERB-FLEX2
  374 +# dowolne t′ flex2=ć
  375 +# dowolne flex2=ε
  376 +# dowolne t flex2=t
  377 +# dowolne všy flex2=wszy
  378 +# dowolne ł flex2=ł
  379 +# verb_łszy ł flex2=ł
  380 +# verb_łszy łšy flex2=łszy
  381 +
  382 +#@VERB-FLEX2-J
  383 +# dowolne flex2=ε
  384 +# dowolne n′ flex2=ń
  385 +# dowolne n flex2=n
  386 +# dowolne ąc flex2=ąc
310 387  
311 388 @VERB-GROUP-SUFIX
312 389 verb_a a group=a cat=verb
... ... @@ -320,6 +397,9 @@
320 397 dowolne ej group=ej cat=verb
321 398 verb_a aj group=aj cat=verb
322 399 funkcjonalnie_twarde_y j group=yj cat=verb
  400 +D verb_a o group=a cat=verb
  401 +D dowolne oje group=aje cat=verb
  402 +D verb_a oj group=aj cat=verb
323 403  
324 404 @VERB-GROUP-PATAL
325 405 funkcjonalnie_miekkie_iy group=y cat=verb
... ... @@ -330,6 +410,7 @@
330 410 funkcjonalnie_miekkie_iy j group=yj cat=verb
331 411 funkcjonalnie_miekkie_wyglos group=ε cat=verb
332 412 funkcjonalnie_miekkie_ae a group=a cat=verb
  413 +D funkcjonalnie_miekkie_ae o group=a cat=verb
333 414  
334 415 @VERB-GROUP-J-PATAL
335 416 funkcjonalnie_miekkie_ae group=J cat=verb
... ...
morphology/data/schemata.dic
... ... @@ -14,30 +14,12 @@ NOUN-FLEX-O(N) NOUN-LEMMA-O(N)
14 14 NOUN-FLEX-STWO NOUN-LEMMA-STWO
15 15 NOUN-FLEX-NI NOUN-LEMMA-NI
16 16 #NOUN-FLEX-CAP NOUN-LEMMA-CAP
17   -PREF-ε FIN-FLEX VERB-FLEX2 VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
18   -PREF-NIE GER-FLEX VERB-FLEX2 VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
19   -PREF-NIE PPAS-FLEX VERB-FLEX2 VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
20   -PREF-ε PRAET-FLEX VERB-FLEX2 VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
21   -PREF-ε FIN-FLEX-J VERB-FLEX2-J VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
22   -PREF-NIE GER-FLEX VERB-FLEX2-J VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
23   -PREF-NIE PACT-FLEX VERB-FLEX2-J VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
24   -PREF-NIE PPAS-FLEX VERB-FLEX2-J VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
25   -PREF-ε FIN-FLEX VERB-FLEX2 VERB-GROUP-PATAL VERB-LEMMA-PATAL
26   -PREF-NIE GER-FLEX VERB-FLEX2 VERB-GROUP-PATAL VERB-LEMMA-PATAL
27   -PREF-NIE PPAS-FLEX VERB-FLEX2 VERB-GROUP-PATAL VERB-LEMMA-PATAL
28   -PREF-ε PRAET-FLEX VERB-FLEX2 VERB-GROUP-PATAL VERB-LEMMA-PATAL
29   -PREF-ε FIN-FLEX-J VERB-FLEX2-J VERB-GROUP-J-PATAL VERB-LEMMA-PATAL
30   -PREF-NIE GER-FLEX VERB-FLEX2-J VERB-GROUP-J-PATAL VERB-LEMMA-PATAL
31   -PREF-NIE PACT-FLEX VERB-FLEX2-J VERB-GROUP-J-PATAL VERB-LEMMA-PATAL
32   -PREF-NIE PPAS-FLEX VERB-FLEX2-J VERB-GROUP-J-PATAL VERB-LEMMA-PATAL
33   -PREF-ε FIN-FLEX VERB-FLEX2 VERB-GROUP-NĄ VERB-LEMMA-NĄ
34   -PREF-NIE GER-FLEX VERB-FLEX2 VERB-GROUP-NĄ VERB-LEMMA-NĄ
35   -PREF-NIE PPAS-FLEX VERB-FLEX2 VERB-GROUP-NĄ VERB-LEMMA-NĄ
36   -PREF-ε PRAET-FLEX VERB-FLEX2 VERB-GROUP-NĄ VERB-LEMMA-NĄ
37   -PREF-ε FIN-FLEX-J VERB-FLEX2-J VERB-GROUP-J-NĄ VERB-LEMMA-NĄ
38   -PREF-NIE GER-FLEX VERB-FLEX2-J VERB-GROUP-J-NĄ VERB-LEMMA-NĄ
39   -PREF-NIE PACT-FLEX VERB-FLEX2-J VERB-GROUP-J-NĄ VERB-LEMMA-NĄ
40   -PREF-NIE PPAS-FLEX VERB-FLEX2-J VERB-GROUP-J-NĄ VERB-LEMMA-NĄ
  17 +PREF-NIE VERB-FLEX VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
  18 +PREF-NIE VERB-FLEX-J VERB-GROUP-SUFIX VERB-LEMMA-SUFIX
  19 +PREF-NIE VERB-FLEX VERB-GROUP-PATAL VERB-LEMMA-PATAL
  20 +PREF-NIE VERB-FLEX-J VERB-GROUP-J-PATAL VERB-LEMMA-PATAL
  21 +PREF-NIE VERB-FLEX VERB-GROUP-NĄ VERB-LEMMA-NĄ
  22 +PREF-NIE VERB-FLEX-J VERB-GROUP-J-NĄ VERB-LEMMA-NĄ
41 23 #NOUN-FLEX-FOREIGN NOUN-LEMMA-FOREIGN
42 24 #NOUN-FLEX-APOSTROF NOUN-LEMMA-FOREIGN
43 25 #LU-NOUN
... ...
morphology/generate.ml
... ... @@ -187,7 +187,7 @@ let _ =
187 187  
188 188 let _ =
189 189 (* Fonetics.latex_of_rules "data/fonetics_pl.dic"; *)
190   - Rules.latex_of_alternations "../morphology/data/alternations.dic";
  190 + (* Rules.latex_of_alternations "../morphology/data/alternations.dic"; *)
191 191 (* Rules.latex_of_schemata (); *)
192 192 (* Rules.latex_of_interp_rules (); *)
193 193 ()
... ... @@ -351,6 +351,10 @@ let _ =
351 351 test_lemmatize "mamleć" "mamlajmy";
352 352 test_lemmatize "ostać" "ostańmy";
353 353 test_lemmatize "dopowiedzieć" "dopowiedzmy"; *)
  354 + (* test_lemmatize "nazywać" "nazywoł";
  355 + test_lemmatize "Danja" "Danji";
  356 + test_lemmatize "Kolej" "Koleji";
  357 + test_lemmatize "rozumiem" "rozumicie"; *)
354 358 ()
355 359  
356 360 (* Generowanie reguł *)
... ... @@ -358,7 +362,7 @@ let _ =
358 362 (* Dict.generate_rules compound_rule_trees results_path adj_sgjp_filename "results/rules-odm-adj.txt"; *)
359 363 (* Dict.generate_rules compound_rule_trees results_path noun_sgjp_filename "results/rules-odm-noun.txt"; *)
360 364 (* Dict.generate_rules compound_rule_trees results_path adv_sgjp_filename "results/rules-adv.txt"; *)
361   - (* Dict.generate_rules compound_rule_trees results_path verb_sgjp_filename "results/rules-verb.txt"; *)
  365 + Dict.generate_rules compound_rule_trees results_path verb_sgjp_filename "results/rules-verb.txt";
362 366 (* Dict.generate_rules compound_rule_trees results_path "test.tab" "results/rules-test.txt"; *)
363 367 (* Dict.generate_rules compound_rule_trees results_path "not_validated_noun.tab" "results/rules-nv-noun.txt"; *)
364 368 (* Dict.generate_rules compound_rule_trees results_path "not_validated_p_noun.tab" "results/rules-nv-noun.txt"; *)
... ... @@ -404,7 +408,7 @@ let _ =
404 408 (* Dict.generate_interp_rules compound_rule_trees interp_compound_rule_trees ["pref";"cat";"flex";"flex2"] results_path verb_sgjp_filename "results/interp_rules_verb2.tab"; *)
405 409 (* Dict.generate_interp_rules compound_rule_trees interp_compound_rule_trees ["pref";"cat";"flex";"flex2";"group";"lemma"] results_path "sgjp_selected.tab" "results/interp_rules_verb.tab"; *)
406 410 (* ignore (Sys.command "totem ~/Dokumenty/Inne/gong/gong_00m_30s.ogg"); *)
407   - (* ignore (Sys.command "totem ~/\"Muzyka/Era/Era 1998 Era/Era 02 Ameno (remix).ogg\""); *)
  411 + ignore (Sys.command "totem ~/\"Muzyka/Era/Era 1998 Era/Era 02 Ameno (remix).ogg\"");
408 412 ()
409 413  
410 414 (* Printexc.record_backtrace true;
... ...
morphology/rules.ml
... ... @@ -22,6 +22,7 @@ let parse_star = function
22 22 "" -> Productive
23 23 | "*" -> Star
24 24 | "ndm" -> Ndm
  25 + | "D" -> Dial
25 26 | s -> failwith "parse_star"
26 27  
27 28 let merge_stars = function
... ... @@ -35,6 +36,7 @@ let string_of_star = function
35 36 Productive -> ""
36 37 | Star -> "*"
37 38 | Ndm -> "ndm"
  39 + | Dial -> "D"
38 40  
39 41 let print_rule file rule =
40 42 Printf.fprintf file "%s\t%d\t%s\t%s\t%s\t%s\t%s\n" rule.id rule.freq (string_of_star rule.star)
... ... @@ -355,6 +357,7 @@ let string_of_star = function
355 357 Productive -> ""
356 358 | Star -> "*"
357 359 | Ndm -> "ndm"
  360 + | Dial -> "D"
358 361  
359 362 let string_of_freq_rule rule =
360 363 sprintf "%s\t%d\t%s\t%s\t%s\t%s\t%s" rule.id rule.freq (string_of_star rule.star) rule.pref rule.find rule.set rule.interp
... ... @@ -427,6 +430,22 @@ let alt_names = [
427 430 "sz_i","{\\bf s\\boldmath$'$i}";
428 431 "c_cz","{\\bf č}";
429 432 "aiy","\\boldmath$\\iota$";
  433 + "ger_t","{\\bf t\\boldmath$'$}";
  434 + "ger_n","{\\bf n\\boldmath$'$}";
  435 + "pact","{\\bf c}";
  436 + "ppas_t","{\\bf t}";
  437 + "ppas_n","{\\bf n}";
  438 + "ppas_ti","{\\bf t\\boldmath$'$i}";
  439 + "ppas_ni","{\\bf n\\boldmath$'$i}";
  440 + "praet","{\\bf ł}";
  441 + "praet_i","{\\bf li}";
  442 + "ae","{\\bf a}";
  443 + "verb_owa","";
  444 + "verb_ywa","y";
  445 + "verb_awa","";
  446 + "verb_a","";
  447 + "verb_u","";
  448 + "verb_y","";
430 449 "obce_ais","{\\bf }";
431 450 "obce_apostrof","{\\bf }";
432 451 "obce_funkcjonalnie_miekkie_ae","{\\bf }";
... ... @@ -579,17 +598,17 @@ let latex_prepare_tags2 tags =
579 598 | (k,v) -> (k ^ ":=" ^ latex_escape_string v) :: l)))
580 599  
581 600 let latex_prepare_rule r =
582   - (if r.sstar = Star then "\\star" else "") ^
  601 + (if r.sstar = Star then "\\star" else if r.sstar = Dial then "D" else "") ^
583 602 "-" ^ latex_math_text ((try Xlist.assoc alt_names r.salt_name with Not_found -> print_endline r.salt_name; "???") ^ r.ssufix) ^
584 603 " & " ^ (latex_prepare_tags r.stags)
585 604  
586 605 let latex_prepare_rev_rule r =
587   - (if r.sstar = Star then "\\star" else "") ^
  606 + (if r.sstar = Star then "\\star" else if r.sstar = Dial then "D" else "") ^
588 607 "+" ^ latex_math_text ((try Xlist.assoc alt_names r.salt_name with Not_found -> print_endline r.salt_name; "???") ^ r.ssufix) ^
589 608 " & " ^ (latex_prepare_tags r.stags)
590 609  
591 610 let latex_prepare_pref_rule r =
592   - (if r.pstar = Star then "\\star" else "") ^
  611 + (if r.pstar = Star then "\\star" else if r.pstar = Dial then "D" else "") ^
593 612 latex_math_text r.pprefix ^ "- & " ^ (latex_prepare_tags r.ptags)
594 613  
595 614 let latex_prepare_rules prepare_fun rule_map (name,rules) =
... ...
morphology/types.ml
... ... @@ -6,7 +6,7 @@ let empty_form = {orth=""; phon_orth=[]; interp=""; freq=1; genre=""; validated=
6 6 let empty_entry = {lemma=""; phon_lemma=[]; cat=""; forms=[]; proper_type=""; (*ndm=false;*)
7 7 stem=""; phon_stem=[]; aspect=""}
8 8  
9   -type star = Productive | Star | Ndm
  9 +type star = Productive | Star | Ndm | Dial
10 10  
11 11 type rule = {star: star; pref: string; find: string; set: string; tags: (string * string) list;
12 12 interp: string; id: string; freq: int}
... ...