esiparsi.h-Object ttyyppi esiparsi.h- with s1, s2, sijamuoto, esiparsi.h- esiparsi.h- tulosta [ vk fk mon adr len char_at av ttnro; esiparsi.h: if (org) print "** !! ttyyppi.tulosta^"; -- esiparsi.h- esiparsi.h- ], esiparsi.h- esiparsi.h- parsi [ vk fk mon adr len char_at av ttnro; esiparsi.h: if (org) print "** !! ttyyppi.parsi^"; -- esiparsi.h- esiparsi.h- esiparsi.h-! esiparsi, return tn esiparsi.h-[ esiparsi vk fk mon ttnro; esiparsi.h: if (org) print "** !! esiparsi^"; -- esiparsi.h-]; esiparsi.h- esiparsi.h- esiparsi.h-[ esiparsi_o_loppuiset fk; esiparsi.h: if (org) print "** !! esiparsi_o_loppuiset^"; -- esiparsi.h- esiparsi.h- esiparsi.h-! i-loppuiset esiparsi.h-[ esiparsi_i_loppuiset fk; esiparsi.h: if (org) print "** !! esiparsi_i_loppuiset^"; -- esiparsi.h-]; esiparsi.h- esiparsi.h- esiparsi.h-[ esiparsi_e_loppuiset fk mon; esiparsi.h: if (org) print "** !! esiparsi_e_loppuiset^"; -- esiparsi.h- ]; esiparsi.h- esiparsi.h-! kala 9, koira 10 esiparsi.h-[ esiparsi_a_loppuiset fk mon; esiparsi.h: if (org) print "** !! esiparsi_a_loppuiset^"; -- esiparsi.h- esiparsi.h-]; esiparsi.h- esiparsi.h-[ hae_s1_s2 adr len av char_at av1 av2 av1_pit av2_pit; esiparsi.h: if (org) print "** !! hae_s1_s2^"; -- esiparsi.h- esiparsi.h- esiparsi.h-! fk vk voidaan tarvita monikossa esim laatikot laatikoiden laatikoita? esiparsi.h-[ arvaa_av_tyyppi mon char_at fk vk arr1 arr2; esiparsi.h: if (org) print "** !! arvaa_av_tyyppi^"; -- esiparsi.h-! if (tv('','','') && vk=='k') yks.tyyppi('k', syy); esiparsi.h- esiparsi.h- esiparsi.h-[ gen_apusana; esiparsi.h: if (org) print "** !! gen_apusana^"; -- esiparsi.h-! arr = esiparsi.h-! nom_arr (kun parsitaan) esiparsi.h-! nom_tulostus_arr (kun tulostetaan) esiparsi.h-[ yks_nom_viimeinen_k arr len vk; esiparsi.h: if (org) print "** !! yks_nom_viimeinen_k^"; -- esiparsi.h- esiparsi.h-[ arvaa_yks_vk_mon_partitiivista fk; esiparsi.h: if (org) print "** !! arvaa_yks_vk_mon_partitiivista^"; -- esiparsi.h- esiparsi.h-Object arvaa esiparsi.h- with esiparsi.h-tnro [ fk mon vk; esiparsi.h: if (org) print "** !! arvaa.tnro^"; -- esiparsi.h- ]; esiparsi.h- esiparsi.h- esiparsi.h-[ arvaa_mon_vk tv1 tv2 tv3 vv1 vv2 vv3; esiparsi.h: if (org) print "** !! arvaa_mon_vk^"; -- esiparsi.h- esiparsi.h-]; esiparsi.h- esiparsi.h-[ arvaa_tn mon tv_len vv_len tv1 tv2 tv3 vv1 vv2 vv3 vk; esiparsi.h: if (org) print "** !! arvaa_tn^"; -- esiparsi.h-]; esiparsi.h- esiparsi.h- esiparsi.h-[ arvaa_tn_y fk arr len k1 k2 k3; esiparsi.h: if (org) print "** !! arvaa_tn_y^"; -- esiparsi.h- esiparsi.h-]; esiparsi.h- esiparsi.h-[ arvaa_tn_m fk len k1 k2 k3; esiparsi.h: if (org) print "** !! arvaa_tn_m^"; -- esiparsi.h-Constant tv_arr_len = 3; esiparsi.h-Array tv_arr-->tv_arr_len; esiparsi.h- esiparsi.h-[ tee_tv_arr arr len k1 k2 k3 a1 a2 a3; esiparsi.h: if (org) print "** !! tee_tv_arr^"; -- esiparsi.h- esiparsi.h-]; esiparsi.h- esiparsi.h-[ t_arr arr h1 h2 h3 t1 t2 t3 len; esiparsi.h: if (org) print "** !! t_arr^"; -- esiparsi.h-]; esiparsi.h- esiparsi.h-! partitiivi par arr esiparsi.h-[ pv h1 h2 h3 t1 t2 t3 len; esiparsi.h: if (org) print "** !! pv^"; -- esiparsi.h- esiparsi.h- esiparsi.h-! tv(0,'k',0) hakisi *, k, * esiparsi.h-[ tv h1 h2 h3 tv1 tv2 tv3 len; esiparsi.h: if (org) print "** !! tv^"; -- esiparsi.h- esiparsi.h-! syy parsiminen... (ei käytetä vok vaihtelua vielä) esiparsi.h-! yksikkö: 'vastaus', 'sädetys, ...' 39 ei astevaihtelua! esiparsi.h-[ s_ks adr len av char_at_var; esiparsi.h: if (org) print "** !! s_ks^"; -- esiparsi.h- esiparsi.h-]; esiparsi.h-! monikko: 'laatikot', 'maljakot', 'männiköt' 4 A esiparsi.h-[ o_ko_mon mon adr len av char_at; esiparsi.h: if (org) print "** !! o_ko_mon^"; Binaaritiedosto esiparsi.h täsmää hakuun -- nomgenpar.h- nomgenpar.h- nomgenpar.h-[ check_string_prop_len osa p length limit full_length start stop i nomgenpar.h- ff; nomgenpar.h: if (org) print "** !! check_string_prop_len^"; -- nomgenpar.h-]; nomgenpar.h- nomgenpar.h- nomgenpar.h-[ check_string_prop osa at limit i p length full_length start stop x ff; nomgenpar.h: if (org) print "** !! check_string_prop^"; -- nomgenpar.h- nomgenpar.h-]; nomgenpar.h- nomgenpar.h-[ pilko_nomgenpar from_ nom_ gen_ par_ jatke_ at len n gen_at par_at nom_at temp; nomgenpar.h: if (org) print "** !! pilko_nomgenpar^"; -- otsikot.h- otsikot.h:! org tulostaa rutiinien nimet tyyliin: ** !! Binaaritiedosto otsikot.h täsmää hakuun -- parsa.h-! ** Dictinary Lookup parsa.h-#Ifdef TARGET_ZCODE; parsa.h- parsa.h-[ DL b l i; parsa.h: if (org) print "** !! DL^"; -- parsa.h- parsa.h-#Ifnot; ! TARGET_GLULX parsa.h- parsa.h-[ DL b l i; parsa.h: if (org) print "** !! DL^"; -- parsa.h- parsa.h-[ ParserError error_code; parsa.h: if (org) print "** !! ParserError^"; -- parsa.h- parsa.h-[ WordInPropNum wd obj prop k l m; parsa.h: if (org) print "** !! WordInPropNum^"; -- parsa.h-]; parsa.h- parsa.h- parsa.h-[ LR_vahva_aste obj; parsa.h: if (org) print "** !! LR_vahva_aste^"; -- parsa.h-]; parsa.h- parsa.h- parsa.h-[ WordInPropertyHack wd obj prop k l m; parsa.h: if (org) print "** !! WordInPropertyHack^"; -- parsa.h- rfalse; parsa.h-]; parsa.h- parsa.h-[ WordInPropNumVart wd obj prop tark k l m; parsa.h: if (org) print "** !! WordInPropNumVart^"; -- parsa.h- ! esim. 'vari' 's' >variSTa parsa.h-[ onko_vahva_astevaihtelu w obj adr end vartprop vv; parsa.h: if (org) print "** !! onko_vahva_astevaihtelu^"; -- parsa.h-]; parsa.h- parsa.h- parsa.h-[ LR_hae_vaihtelu_ja_suffiksi w obj adr len end onko_string; parsa.h: if (org) print "** !! LR_hae_vaihtelu_ja_suffiksi^"; -- parsa.h- parsa.h-[ vart_hae_str w obj vart at_prop str i n_of; parsa.h: if (org) print "** !! vart_hae_str^"; -- parsa.h-! | | parsa.h-! check_string_prop(str, 0, 0), "^"; parsa.h- parsa.h-[ erittele_yks_vart adr len end n g p g1 n1 char_at_end av_temp; parsa.h: if (org) print "** !! erittele_yks_vart^"; -- parsa.h-]; parsa.h- parsa.h-[ erittele_mon_vart len end; parsa.h: if (org) print "** !! erittele_mon_vart^"; -- parsa.h- parsa.h-]; parsa.h- parsa.h-[ jatke_pituus at arr_len; parsa.h: if (org) print "** !! jatke_pituus^"; -- parsa.h- parsa.h-! ks. av_match arr at adr i v_pit; parsa.h- parsa.h-[ jatke_match wnum end jatke_pit adr len at; parsa.h: if (org) print "** !! jatke_match^"; -- parsa.h- parsa.h- parsa.h-[ vart_jatke_match end adr len at; parsa.h: if (org) print "** !! vart_jatke_match^"; -- parsa.h- parsa.h-[ av_match arr dif adr w_at av_at av_pit match_len ret; parsa.h: if (org) print "** !! av_match^"; -- parsa.h- parsa.h- parsa.h- parsa.h-[ onko_suffiksi_nomgenpar end wnum adr len at i x; parsa.h: if (org) print "** !! onko_suffiksi_nomgenpar^"; -- parsa.h-]; parsa.h- parsa.h- parsa.h-[ tyhjenna_taulut; parsa.h: if (org) print "** !! tyhjenna_taulut^"; -- parsa.h-!]; parsa.h- parsa.h-! koko sana parsa.h-[ input_tauluun wnum adr len i x; parsa.h: if (org) print "** !! input_tauluun^"; -- parsa.h- parsa.h-]; parsa.h- parsa.h-[ input_match_tauluun wnum end adr len i x; parsa.h: if (org) print "** !! input_match_tauluun^"; -- parsa.h-]; parsa.h- parsa.h- parsa.h-[ input_loppu_tauluun wnum end adr len i x; parsa.h: if (org) print "** !! input_loppu_tauluun^"; -- parsa.h-]; parsa.h- parsa.h-[ vrt_tauluja_dif_at arrA arrB len dif_at; parsa.h: if (org) print "** !! vrt_tauluja_dif_at^"; -- parsa.h- parsa.h- parsa.h-[ onko_monikko nom_last_c par_c_2_before_last par_c_3_before_last parsa.h- nom_len par_len mon; parsa.h: if (org) print "** !! onko_monikko^"; -- parsa.h-! ks_k parsa.h-! esim.: parsa.h-! if (ks_k(g_dif-1, nom_arr, 't', 't') && ks_k(g_dif-1, gen_arr, 't')) parsa.h-[ ks_k from arr k1 k2; parsa.h: if (org) print "** !! ks_k^"; -- parsa.h- parsa.h-! hae_k parsa.h-! esim: n1 = hae_k(nom_arr, g_dif-1); parsa.h-[ hae_k arr at ; parsa.h: if (org) print "** !! hae_k^"; -- parsa.h-! esim. tuote av1 "t" av2 "tt"; parsa.h- parsa.h-[ hae_vart adr len end print_sija mon av tn ret_sija char_at fk vk t_arr; parsa.h: if (org) print "** !! hae_vart^"; -- parsa.h-]; parsa.h- parsa.h- parsa.h-[ hae_char_at_mon fk vk nom_pit; parsa.h: if (org) print "** !! hae_char_at_mon^"; -- parsa.h-! jos av 0 ret 0 parsa.h-! jos vahva aste esiintyy perusmuodossa se on suora av: ret 1 parsa.h-[ av_tyyppi av; parsa.h: if (org) print "** !! av_tyyppi^"; -- parsa.h-Global v2 = 0; parsa.h- parsa.h- parsa.h-[ tee_av_taulut av; parsa.h: if (org) print "** !! tee_av_taulut^"; -- parsa.h-Array takavok table parsa.h- 'a' 'o' 'u'; parsa.h- parsa.h-[ arvaa_gen_vart mon arr last_c c1 c2 c3; parsa.h: if (org) print "** !! arvaa_gen_vart^"; -- parsa.h-! y: voiTeen voiDetta parsa.h-! m: voiTeet voiTeita (monikossa ei dif) parsa.h- parsa.h-[ arvaa_av char_at_dif arr arr_b; parsa.h: if (org) print "** !! arvaa_av^"; -- parsa.h-! ~ if (mon) {if (n3 == 's' && n2 == 'e') tt = 38;}! n4 vokaali (vrt 39) parsa.h-! ~ else if (n3 == 'n' && n2 == 'e' && n1 == 'n') tn = 38; parsa.h- parsa.h-[ hae_tyyppi_yksikko; parsa.h: if (org) print "** !! hae_tyyppi_yksikko^"; -- parsa.h- parsa.h-]; parsa.h- parsa.h-[ hae_tyyppi_monikko nom_end gen_end par_end; parsa.h: if (org) print "** !! hae_tyyppi_monikko^"; -- parsa.h- parsa.h- parsa.h- parsa.h-[ LanguageRefers obj wnum adr len end w str suffiksi j_pit; parsa.h: if (org) print "** !! LanguageRefers^"; -- parsa.h- 'b' 'c' 'd' 'f' 'g' 'h' 'j' 'k' 'l' 'm' 'n' 'p' 'q' 'r' 's' 't' 'v' 'x' 'z'; parsa.h- parsa.h- parsa.h-[ onko_taulussa alkio taulu n len; parsa.h: if (org) print "** !! onko_taulussa^"; -- parsa.h-]; parsa.h- parsa.h- parsa.h-[ plaep adr len end obj; parsa.h: if (org) print "** !! plaep^"; -- parsa.h- print "^ "; parsa.h-]; parsa.h- parsa.h-[ hae_yks_suffiksi adr len end sijap offset; parsa.h: if (org) print "** !! hae_yks_suffiksi^"; -- parsa.h- else rfalse; parsa.h-]; parsa.h- parsa.h-[ hae_suffiksi adr len end obj sijap offset; parsa.h: if (org) print "** !! hae_suffiksi^"; -- parsa.h-]; parsa.h- parsa.h-[ suffiksit_yks s; parsa.h: if (org) print "** !! suffiksit_yks^"; -- parsa.h-]; parsa.h- parsa.h-! TODO parsa.h-[ suffiksit_mon s; parsa.h: if (org) print "** !! suffiksit_mon^"; Binaaritiedosto parsa.h täsmää hakuun -- tparsi.h-[ tt_parsi ttnro; tparsi.h: if (org) print "** !! tt_parsi^"; -- tparsi.h- tparsi.h-! 1 yks valo pato jne tparsi.h- tparsi.h-[ parsi_valo; tparsi.h: if (org) print "** !! parsi_valo^"; -- tparsi.h- tparsi.h-]; tparsi.h- tparsi.h-[ parsi_valot; tparsi.h: if (org) print "** !! parsi_valot^"; -- tparsi.h- tparsi.h-]; tparsi.h- tparsi.h-[ parsi_laatikko; tparsi.h: if (org) print "** !! parsi_laatikko^"; -- tparsi.h-]; tparsi.h- tparsi.h-! 4 mon tparsi.h-[ parsi_laatikot; tparsi.h: if (org) print "** !! parsi_laatikot^"; -- tparsi.h- tparsi.h- tparsi.h-! 5 yks tparsi.h-[ parsi_risti; tparsi.h: if (org) print "** !! parsi_risti^"; -- tparsi.h-]; tparsi.h- tparsi.h- tparsi.h-[ parsi_ristit; tparsi.h: if (org) print "** !! parsi_ristit^"; -- tparsi.h- tparsi.h-]; tparsi.h- tparsi.h-[ parsi_kala; tparsi.h: if (org) print "** !! parsi_kala^"; -- tparsi.h- tparsi.h-]; tparsi.h- tparsi.h-[ parsi_kalat; tparsi.h: if (org) print "** !! parsi_kalat^"; -- tparsi.h- tparsi.h-]; tparsi.h- tparsi.h-[ parsi_koira; tparsi.h: if (org) print "** !! parsi_koira^"; -- tparsi.h- tparsi.h-]; tparsi.h- tparsi.h-[ parsi_koirat; tparsi.h: if (org) print "** !! parsi_koirat^"; -- tparsi.h- tparsi.h- tparsi.h-! ee e hame tparsi.h-[ parsi_hame; tparsi.h: if (org) print "** !! parsi_hame^"; -- tparsi.h- ]; tparsi.h- tparsi.h-! 48 tparsi.h-[ parsi_hameet; tparsi.h: if (org) print "** !! parsi_hameet^"; Binaaritiedosto tparsi.h täsmää hakuun -- ttulosta.h-[ tt_tulosta ttnro av sija av1_char av2_char; ttulosta.h: if (org) print "** !! tt_tulosta^"; -- ttulosta.h- ttulosta.h-! tulosta ttulosta.h- ttulosta.h-[ tulosta_valo; ttulosta.h: if (org) print "** !! tulosta_valo^"; -- ttulosta.h- ttulosta.h-]; ttulosta.h- ttulosta.h-[ tulosta_valot; ttulosta.h: if (org) print "** !! tulosta_valot^"; -- ttulosta.h-]; ttulosta.h- ttulosta.h- ttulosta.h-[ tulosta_laatikko; ttulosta.h: if (org) print "** !! tulosta_laatikko^"; -- ttulosta.h-]; ttulosta.h- ttulosta.h- ttulosta.h-[ tulosta_laatikot; ttulosta.h: if (org) print "** !! tulosta_laatikot^"; -- ttulosta.h-!! av on jo tulostettu tai taulussa? ttulosta.h- ttulosta.h-[ tulosta_risti t av1 av2 a vp; ttulosta.h: if (org) print "** !! tulosta_risti^"; -- ttulosta.h- ttulosta.h- ttulosta.h- ttulosta.h-[ tulosta_ristit sija av1 av2 arr vp o a; ttulosta.h: if (org) print "** !! tulosta_ristit^"; -- ttulosta.h- ttulosta.h-]; ttulosta.h- ttulosta.h-[ tulosta_kala; ttulosta.h: if (org) print "** !! tulosta_kala^"; -- ttulosta.h- if (dp) print "*tulosta_kala*"; ttulosta.h-]; ttulosta.h- ttulosta.h-[ tulosta_kalat; ttulosta.h: if (org) print "** !! tulosta_kalat^"; -- ttulosta.h- ttulosta.h-]; ttulosta.h- ttulosta.h-[ tulosta_koira; ttulosta.h: if (org) print "** !! tulosta_koira^"; -- ttulosta.h- ttulosta.h-]; ttulosta.h- ttulosta.h-[ tulosta_koirat; ttulosta.h: if (org) print "** !! tulosta_koirat^"; -- ttulosta.h-]; ttulosta.h- ttulosta.h- ttulosta.h-[ tulosta_hame; ttulosta.h: if (org) print "** !! tulosta_hame^"; -- ttulosta.h- ttulosta.h-]; ttulosta.h- ttulosta.h-[ tulosta_hameet; ttulosta.h: if (org) print "** !! tulosta_hameet^"; Binaaritiedosto ttulosta.h täsmää hakuun -- tulosta.h- tulosta.h- tulosta.h- tulosta.h-[ tyhjenna_taulut_tulostus; tulosta.h: if (org) print "** !! tyhjenna_taulut_tulostus^"; -- tulosta.h-]; tulosta.h- tulosta.h- tulosta.h-[ debug_taulut_print; tulosta.h: if (org) print "** !! debug_taulut_print^"; -- tulosta.h-Constant osa_tulostus_len = 60; tulosta.h-Array osa_tulostus_arr --> osa_tulostus_len; tulosta.h- tulosta.h-[ tulosta_sn obj print_sija kap; tulosta.h: if (org) print "** !! tulosta_sn^"; -- tulosta.h- tulosta.h-! oli temp testi2.h: palat_n() tulosta_ngp() tulosta.h-[ tulosta_sn_osat obj print_sija kap arr lkm len at merkki k_at at_osa tulosta.h- alku loppu adhoc_match_len; tulosta.h: if (org) print "** !! tulosta_sn_osat^"; -- tulosta.h-]; tulosta.h- tulosta.h- tulosta.h-[ pilko_nomgenpar_tulostus from_ nom_ gen_ par_ jatke_ at len n gen_at par_at nom_at temp; tulosta.h: if (org) print "** !! pilko_nomgenpar_tulostus^"; -- tulosta.h- tulosta.h-! vrt hae_vart() tulosta.h-[ hae_vart_tulostus adr len end print_sija mon av tn ret_sija char_at tulosta.h- fk vk t_arr; tulosta.h: if (org) print "** !! hae_vart_tulostus^"; -- tulosta.h- tulosta.h- tulosta.h-! debug ! tark. WORDSIZE & arr-->0+1 (???) tulosta.h-[ print_arr arr i; tulosta.h: if (org) print "** !! print_arr^"; -- tulosta.h-]; tulosta.h- tulosta.h-[ print_merkkij_taulu the_array i; tulosta.h: if (org) print "** !! print_merkkij_taulu^"; -- tulosta.h- for (i=1: i<=the_array->0: i++) print (char) the_array->i; tulosta.h-]; tulosta.h- tulosta.h-[ Print_adr adr len at; tulosta.h: if (org) print "** !! Print_adr^"; -- tulosta.h- print (char) adr->at; tulosta.h-]; tulosta.h- tulosta.h-[ PrinttaaChars wnum adr len at; tulosta.h: if (org) print "** !! PrinttaaChars^"; -- tulosta.h-]; tulosta.h- tulosta.h- tulosta.h-[ tulosta_taulut_ja_sija mon cs; tulosta.h: if (org) print "** !! tulosta_taulut_ja_sija^"; -- tulosta.h-]; tulosta.h- tulosta.h-! ** tulosta.h-[ debugsijat adr wnum len end w; tulosta.h: if (org) print "** !! debugsijat^"; -- tulosta.h-!??? multiflag jottei luule montaa asiaa haettavan tulosta.h- tulosta.h-[ c_token idtok csID retval; tulosta.h: if (org) print "** !! c_token^"; -- tulosta.h- tulosta.h-]; tulosta.h- tulosta.h-[ LanguagePrintShortName obj sn; tulosta.h: if (org) print "** !! LanguagePrintShortName^"; -- tulosta.h-Constant SutLen = 102; tulosta.h-Array Suttu --> SutLen; tulosta.h- tulosta.h-[ CCase obj csID ucase i dlm limit at vart; tulosta.h: if (org) print "** !! CCase^"; -- tulosta.h-!??? ps on 1 jos (monikko)objektilla *ei* ole ine-ohjetta (esim. "susilla") tulosta.h- tulosta.h-[ CaseEnd obj csID at num limit i ps a paate_isolla sufstr; tulosta.h: ! if (org) print "** !! CaseEnd^"; -- tulosta.h-! print(Cap)verb_word; tulosta.h-!]; tulosta.h- tulosta.h-[ VerbiKap i k iso; tulosta.h: ! if (org) print "** !! VerbiKap^"; -- tulosta.h- tulosta.h-! ** verbin loppuosan tulostus tulosta.h- tulosta.h-[ VerbEnd obj csID; tulosta.h: !if (org) print "** !! VerbEnd^"; Binaaritiedosto tulosta.h täsmää hakuun