# Suomi-malaga, suomen kielen muoto-opin kuvaus.

#

# Tekijänoikeus © 2006-2011 Hannu Väisänen (Etunimi.Sukunimi@uef.fi)

#

# Tämä ohjelma on vapaa; tätä ohjelmaa on sallittu levittää

# edelleen ja muuttaa GNU yleisen lisenssin (GPL lisenssin)

# ehtojen mukaan sellaisina kuin Free Software Foundation

# on ne julkaissut; joko Lisenssin version 2, tai (valinnan

# mukaan) minkä tahansa myöhemmän version mukaisesti.

#

# Tätä ohjelmaa levitetään siinä toivossa, että se olisi

# hyödyllinen, mutta ilman mitään takuuta; ilman edes

# hiljaista takuuta kaupallisesti hyväksyttävästä laadusta tai

# soveltuvuudesta tiettyyn tarkoitukseen. Katso GPL

# lisenssistä lisää yksityiskohtia.

#

# Tämän ohjelman mukana pitäisi tulla kopio GPL

# lisenssistä; jos näin ei ole, kirjoita osoitteeseen Free

# Software Foundation Inc., 51 Franklin Street, Fifth Floor,

# Boston, MA 02110-1301, USA.

#

# Tämän ohjeman linkittäminen staattisesti tai dynaamisesti

# muihin moduuleihin on ohjelmaan perustuvan teoksen

# tekemistä, joka on siis GPL lisenssin ehtojen alainen.

#

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2, or (at your option)

# any later version.

#

# This program is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

# General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; see the file COPYING.  If not, write to the

# Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA

# 02110-1301, USA.

#

# Linking this program statically or dynamically with other modules is

# making a combined work based on this program.  Thus, the terms and

# conditions of the GNU General Public License cover the whole

# combination.

initial <>, rules # laatusana,

                  nimi_laatusana,

                  lukusana,

                  sanan_alku;

include "suomi.inc";

###include "sanat/luvut.mor";

define @teonsana := <teonsana, kieltosana>;

define @ehtotapa := <ehtotapa, ehtotapa_ttA, ehtotapa_tA>;

define @mahtotapa := 

                      mahtotapa_le_kielto, mahtotapa_ne_kielto,

                      mahtotapa_re_kielto, mahtotapa_se_kielto,

                      mahtotapa_ttA, mahtotapa_tA>;

define @käskytapa := 

                      käskytapa_tA>;

define @nimitapa_1 := 

                       nimitapa_1_nA, nimitapa_1_rA, nimitapa_1_tA>;

define @nimitapa_2 := <nimitapa_2, nimitapa_2_ttA, nimitapa_2_tA>;

define @nimitapa_3 := <nimitapa_3, nimitapa_3_saama, nimitapa_3_ttA, nimitapa_3_tA>;

define @voittoaste := <voittoaste>;

define @yliaste    := <yliaste>;

define @tekijämuodot := @kestämän_tekijäpääte + @tositavan_tekijäpääte_4 + @kertoman_tekijäpääte

                        + @ehtotapa + @mahtotapa + @käskytapa;

# Neljäs nimitapa katsotaan teonsanasta johdetuksi nimisanaksi.

define @nimitavat := @nimitapa_1 + @nimitapa_2 + @nimitapa_3 + <nimitapa_5>;

#define @nimitavat := @nimitapa_1 + @nimitapa_2 + @nimitapa_3 + <nimitapa_4, nimitapa_5>;

define @laatutavat := @laatutapa_1 + @laatutapa_2;

# Sääntö sanan_alku on muokattu Harri Pitkäsen Voikko-versiosta.

#

combi_rule sanan_alku ($vasen, $oikea, $sana):

####define $profile := transmit ("sanan_alku ($vasen, $oikea, $sana):");

#  define $a := transmit ($vasen);

#  define $b := transmit ($oikea);

#  define $c := transmit ($sana);

#if ($oikea.luokka in 

#                      asemosana, seikkasana, suhdesana, nimisana> + @erisnimi) then

#  define $b := transmit ("§§§ " + value_string($oikea.luokka));

#end;

  define $res := <[alku: $sana] + $oikea>;

  if $oikea.luokka = nimisana then

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (yhdyssana in $oikea.jatko) and

        (($oikea.tiedot = nil) or not ((ei_ys in $oikea.tiedot) or (ei_ysa in $oikea.tiedot))) then

      result $res, rules yhdyssana;

    end;

    if (@nimisanasta_johdettu_laatusana * $oikea.jatko /= <>) then

      result $res, rules nimisanasta_johdettu_laatusana;

    end;

    if (@nimisanasta_johdettu_seikkasana * $oikea.jatko /= <>) then

      result $res, rules nimisanasta_johdettu_seikkasana;

    end;

    if (@nimi_laatusanan_johdin * $oikea.jatko /= <>) then

      result $res, rules nimi_laatusanan_johdin;

    end;

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules sijapääte;

  elseif ($oikea.luokka = laatusana) then

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    # Arka+mainen, halpa+mainen, oiva+llinen, täyde+llinen (= täysi + johdin_llinen), yms.

    if (@nimi_laatusanan_johdin * $oikea.jatko /= <>) then

      result $res, rules nimi_laatusanan_johdin;

    end;

    if (@voittoaste + @yliaste * $oikea.jatko /= <>) then

      result $res, rules voitto_yliaste;

    end;

    if (@laatusanasta_johdettu_nimisana * $oikea.jatko /= <>) then

      result $res, rules laatusanasta_johdettu_nimisana;

    end;

    if (@laatusanasta_johdettu_laatusana * $oikea.jatko /= <>) then

      result $res, rules laatusanasta_johdettu_laatusana;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

#    if (yhdyssana in $oikea.jatko) then

    if (yhdyssana in $oikea.jatko) and

        (($oikea.tiedot = nil) or not ((ei_ys in $oikea.tiedot) or (ei_ysa in $oikea.tiedot))) then

      result $res, rules yhdyssana;

#      result $res, rules inen_päätteinen_laatusana;

    end;

    result $res, rules sijapääte;

  elseif ($oikea.luokka = teonsana) then

#define $a := transmit ($oikea);

    if (liitesana in $oikea.jatko) then

      if (($oikea.tapaluokka = käskytapa) and

          ($oikea.tekijä = 2) and

          ($oikea.luku = yksikkö)) then

        result $res, rules liitesana_ei_kO;

      else

        result $res, rules liitesana;

      end;

    end;

    if (loppu in  $oikea.jatko) then

      result $res, accept;

    end;

    if (tavuviiva in  $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (@teonsanasta_johdettu_teonsana * $oikea.jatko /= <>) then

      result $res, rules teonsanan_johdos_teonsana;

    end;

#    if (@tekijämuodot * $oikea.jatko /= <>) then

#      result $res, rules tekijämuodot;

#    end;

#    if (@nimitavat * $oikea.jatko /= <>) then

#      result $res, rules nimitavat;

#    end;

#    if (@laatutavat * $oikea.jatko /= <>) then

#      result $res, rules laatutavat;

#    end;

#    result $res, rules teonsanan_johdos_nimisana, teonsanan_johdos_laatusana;

# Tämä on nopeampi kuin kaikki erikseen!

    result $res, rules tekijämuodot, nimitavat, laatutavat,

                       teonsanan_johdos_nimisana, teonsanan_johdos_laatusana;

  elseif $oikea.luokka = lyhenne then

    if (kaksoispiste in $oikea.jatko) then

      result $res, rules kaksoispiste;

    end;

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

#    result $res, rules kaksoispiste, tavuviiva, loppu;

  elseif $oikea.luokka in @erisnimi then

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    if ((johdin_lAinen in $oikea.jatko or johdin_mAinen in $oikea.jatko)

        and ($oikea.luokka in <paikannimi, sukunimi>)) then

      result $res, rules paikannimen_ja_sukunimen_lainen_johdin;

    end;

    result $res, rules erisnimen_sijapääte;

  elseif $oikea.luokka in <huudahdussana, sidesana> then

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules liitesana;

  elseif $oikea.luokka = etuliite then

    if (kieltosana in $oikea.jatko) then

      result $res, rules kieltosana;

    end;

    if (nimisana in $oikea.jatko) then

      result $res, rules nimisana, teonsanasta_johdettu_nimisana,

                         paikannimen_ja_sukunimen_lainen_johdos;

      if (not (teonsana in $oikea.jatko)) then

        result $res, rules teonsana_teonsanasta_johdettu_nimisana;

      end;

    end;

    if (laatusana in $oikea.jatko) then

      result $res, rules laatusana, teonsanasta_johdettu_laatusana;

      if (not (teonsana in $oikea.jatko)) then

        result $res, rules teonsana_teonsanasta_johdettu_laatusana;

      end;

    end;

    if (nimi_laatusana in $oikea.jatko) then

      result $res, rules nimi_laatusana;

      if (not (nimisana in $oikea.jatko)) then

        result $res, rules nimisana, teonsanasta_johdettu_nimisana;

      end;

      if (not (laatusana in $oikea.jatko)) then

        result $res, rules laatusana, teonsanasta_johdettu_laatusana;

      end;

    end;

    if (teonsana in $oikea.jatko) then

      result $res, rules teonsana;

    end;

    # Tavuviiva ja etuliite ovat aina jatkossa eli niitä ei tarvitse testata.

    result $res, rules tavuviiva, etuliite;

  elseif $oikea.luokka = kieltosana then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules liitesana, liitesana_kä, tavuviiva;

  elseif $oikea.luokka = asemosana then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules asemosanan_sijapääte, liitesana, tavuviiva, voitto_yliaste;

  elseif $oikea.luokka in <seikkasana, suhdesana> then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    result $res, rules sijapääte;

  elseif $oikea.luokka in @erisnimi then

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    if ((johdin_lAinen in $oikea.jatko) and ($oikea.luokka in <paikannimi, sukunimi>)) then

      result $res, rules paikannimen_ja_sukunimen_lainen_johdin;

    end;

    result $res, rules erisnimen_sijapääte;

  end;

#define $b := transmit (<"c"> + <$oikea>);

#define $c := transmit (<"d"> + <$sana>);

  stop;

end;

combi_rule etuliite ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("etuliite ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = etuliite;

#define $a := transmit ($vasen);

#define $b := transmit (<$oikea> + <$sana> + <"">);

  define $i := $n - 1;

#assert ($i = length($vasen));

  ? ($oikea.luokka in $vasen.$i.jatko);

  ? (($vasen.$i.tiedot = nil) or not ((ei_ys in $vasen.$i.tiedot) or (ei_ysa in $vasen.$i.tiedot)));

  ? (($oikea.tiedot    = nil) or not ((ei_ys in $oikea.tiedot)    or (ei_ysj in $oikea.tiedot)));

  define $res := $vasen + <[alku: $sana] + $oikea>;

# Ehkei-tyyppiset sanat eivät voi olla yhdyssanojen osana.

#  if (kieltosana in $oikea.jatko) then

#    result $r, rules kieltosana;

#  end;

  if (nimisana in $oikea.jatko) then

    result $res, rules nimisana, teonsanasta_johdettu_nimisana,

                       paikannimen_ja_sukunimen_lainen_johdos;

    if (not (teonsana in $oikea.jatko)) then

      result $res, rules teonsana_teonsanasta_johdettu_nimisana;

    end;

  end;

  if (laatusana in $oikea.jatko) then

    result $res, rules laatusana, teonsanasta_johdettu_laatusana;

    if (not (teonsana in $oikea.jatko)) then

      result $res, rules teonsana_teonsanasta_johdettu_laatusana;

    end;

  end;

  if (nimi_laatusana in $oikea.jatko) then

    result $res, rules nimi_laatusana;

    if (not (nimisana in $oikea.jatko)) then

      result $res, rules nimisana, teonsanasta_johdettu_nimisana;

    end;

    if (not (laatusana in $oikea.jatko)) then

      result $res, rules laatusana, teonsanasta_johdettu_laatusana;

    end;

  end;

  if (teonsana in $oikea.jatko) then

    result $res, rules teonsana;

  end;

  # Tavuviiva ja etuliite ovat aina jatkossa eli niitä ei tarvitse testata.

  #

  result $res, rules tavuviiva, etuliite;

end;

combi_rule nimisana ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("nimisana ($vasen, $oikea, $sana, $n):");

  define $i := $n - 1;

#assert ($i = length($vasen));

  define $res := $vasen + <[alku: $sana] + $oikea>;

  # Esim. (koillis)puolitse, (maan)teitse, (sähkö)postitse.

  #

  if ($oikea.luokka = seikkasana and $oikea.tiedot /= nil and

      ys_perusosa in $oikea.tiedot and $vasen /= <>) then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    if (liitesana in $oikea.jatko) then

       result $res, rules liitesana;

    end;

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    result $res, rules ei_ys_sijapääte;

  end;

  ? $oikea.luokka = nimisana;

#define $n1 := transmit (<"nimisana1"> + <$vasen.$i.jatko>);

#define $n2 := transmit (<"nimisana2"> + <$oikea.luokka>);

#define $n3 := transmit (<"nimisana3"> + <$sana>);

#define $n4 := transmit (<"nimisana4"> + <($oikea.luokka in $vasen.$i.jatko)>);

#define $n5 := transmit (<"nimisana5"> + <$oikea.tiedot>);

  ? $oikea.luokka in $vasen.$i.jatko;

  ? yhdyssana_oikein ($vasen, $oikea, $i);

###  ? ($oikea.tiedot = nil) or not (ei_ys in $oikea.tiedot); # Ei toimi!

  if (tavuviiva in $oikea.jatko) then

    result $res, rules tavuviiva;

  end;

  if (yhdyssana in $oikea.jatko) then

    result $res, rules yhdyssana;

  end;

  if (@nimisanasta_johdettu_laatusana * $oikea.jatko /= <>) then

    result $res, rules nimisanasta_johdettu_laatusana;

  end;

  if (@nimisanasta_johdettu_seikkasana * $oikea.jatko /= <>) then

    result $res, rules nimisanasta_johdettu_seikkasana;

  end;

  if (@nimi_laatusanan_johdin * $oikea.jatko /= <>) then

    result $res, rules nimi_laatusanan_johdin;

  end;

  if ($vasen.$i.luokka = tavuviiva) or ($oikea.tiedot = nil or not (ei_ysj in $oikea.tiedot)) then

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules sijapääte;

  end;

end;

combi_rule laatusana ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("laatusana ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = laatusana;

  define $i := $n - 1;

#define $nimi := transmit (<"laatusana"> + <$vasen.$i.alku> + <$oikea> + <$sana>);

#define $n := transmit (<"luokka"> + <$vasen.$i.luokka>);

  ? ($oikea.luokka in $vasen.$i.jatko);

  ? yhdyssana_oikein ($vasen, $oikea, $i);

#define $n := transmit (<$vasen> + <$oikea> + <$sana>);

#define $n1 := transmit ($vasen);

#define $n2 := transmit ($oikea);

#define $n3 := transmit ($sana);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (omistusliite in $oikea.jatko) then

    result $res, rules omistusliite;

  end;

  if (liitesana in $oikea.jatko) then

    result $res, rules liitesana;

  end;

  # Arka+mainen, halpa+mainen, oiva+llinen, täyde+llinen (= täysi + johdin_llinen), yms.

  if (@nimi_laatusanan_johdin * $oikea.jatko /= <>) then

    result $res, rules nimi_laatusanan_johdin;

  end;

  if (@voittoaste + @yliaste * $oikea.jatko /= <>) then

    result $res, rules voitto_yliaste;

  end;

  if (@laatusanasta_johdettu_nimisana * $oikea.jatko /= <>) then

    result $res, rules laatusanasta_johdettu_nimisana;

  end;

  if (@laatusanasta_johdettu_laatusana * $oikea.jatko /= <>) then

    result $res, rules laatusanasta_johdettu_laatusana;

  end;

  if (loppu in $oikea.jatko) then

    result $res, accept;

  end;

  if (tavuviiva in $oikea.jatko) then

    result $res, rules tavuviiva;

  end;

  if (yhdyssana in $oikea.jatko) then

#    ? ($oikea.tiedot = nil) or not ((ei_ys in $oikea.tiedot) or (ei_ysj in $oikea.tiedot));

    result $res, rules yhdyssana;

#    result $res, rules inen_päätteinen_laatusana;

  end;

  result $res, rules sijapääte;

end;

combi_rule inen_päätteinen_laatusana ($vasen, $oikea, $sana, $n):

  ? $oikea.perusmuoto /= nil;

  ? $oikea.luokka in <laatusana, nimi_laatusana>;

  ? $oikea.perusmuoto matches ".*inen";

define $i := $n - 1;

define $profile := transmit ("inen_päätteinen_laatusana ($vasen, $oikea, $sana, $n):");

define $a1 := transmit ($vasen.$i);

define $a2 := transmit ($oikea - jatko);

define $a3 := transmit ($sana);

define $a4 := transmit ($n);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if omistusliite in $oikea.jatko then

    result $res, rules omistusliite;

  end;

  if tavuviiva in $oikea.jatko then

    result $res, rules tavuviiva;

  end;

  if loppu in $oikea.jatko then

    result $res, accept;

  end;

  if liitesana in $oikea.jatko then

    result $res, rules liitesana;

  end;

  if yhdyssana in $oikea.jatko then

    result $res, rules yhdyssana;

  end;

  result $res, rules sijapääte;

##  result $res, rules laatusanan_sijapäte; laatusanan_johdos;

end;

combi_rule nimi_laatusana ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("nimi_laatusana ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = nimi_laatusana;

  define $i := $n - 1;

##assert ($i = length($vasen));

#define $n4 := transmit ($oikea.luokka);

  if ($i greater 0) then

    ? $oikea.luokka in $vasen.$i.jatko;

    ? yhdyssana_oikein ($vasen, $oikea, $i);

  end;

#define $n1 := transmit ($vasen);

#define $n2 := transmit ($oikea);

#define $n3 := transmit ($sana);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (omistusliite in $oikea.jatko) then

    result $res, rules omistusliite;

  end;

  if (liitesana in $oikea.jatko) then

    result $res, rules liitesana;

  end;

  if ((voittoaste in $oikea.jatko) or (yliaste in $oikea.jatko)) then

    result $res, rules voitto_yliaste;

  end;

  if (loppu in $oikea.jatko) then

     result $res, accept;

  end;

  if (@nimi_laatusanan_johdin * $oikea.jatko /= <>) then

    result $res, rules nimi_laatusanan_johdin;

  end;

  if (@laatusanasta_johdettu_nimisana * $oikea.jatko /= <>) then

    result $res, rules laatusanasta_johdettu_nimisana;

  end;

  if (@laatusanasta_johdettu_laatusana * $oikea.jatko /= <>) then

    result $res, rules laatusanasta_johdettu_laatusana;

  end;

  if (@nimisanasta_johdettu_laatusana * $oikea.jatko /= <>) then

    result $res, rules nimisanasta_johdettu_laatusana;

  end;

  if (@nimisanasta_johdettu_seikkasana * $oikea.jatko /= <>) then

    result $res, rules nimisanasta_johdettu_seikkasana;

  end;

  if (tavuviiva in $oikea.jatko) then

    result $res, rules tavuviiva;

  end;

  if (yhdyssana in $oikea.jatko) then

    result $res, rules yhdyssana;

  end;

  result $res, rules sijapääte;

end;

combi_rule asemosana ($vasen, $oikea, $sana):

####define $profile := transmit ("asemosana ($vasen, $oikea, $sana):");

  ? $oikea.luokka = asemosana;

#define $nimi := transmit (<"asemosana"> + <$oikea> + <$sana>);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (loppu in $oikea.jatko) then

    result $res, accept;

  end;

  result $res, rules asemosanan_sijapääte, liitesana, tavuviiva, voitto_yliaste;

end;

combi_rule lyhennesääntö ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("lyhennesääntö ($vasen, $oikea, $sana):");

  ? $oikea.luokka in <lyhenne>;

#define $nimi := transmit (<"lyhennesääntö"> + <$vasen> + <$oikea> + <$sana>);

#define $nimi1 := transmit (<"lyhennesääntö1"> + <$vasen.($n-1)>);

#define $nimi2 := transmit (<"lyhennesääntö2"> + <$oikea>);

#define $nimi3 := transmit (<"lyhennesääntö3"> + <$sana>);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (loppu in $oikea.jatko) then

    result $res, accept;

  end;

  result $res, rules kaksoispiste, tavuviiva;

end;

combi_rule apusana ($vasen, $oikea, $sana):

####define $profile := transmit ("apusana ($vasen, $oikea, $sana):");

  ? $oikea.luokka in <huudahdussana, sidesana>;

#define $nimi := transmit (<"apusana"> + <$oikea> + <$sana>);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (loppu in $oikea.jatko) then

    result $res, accept;

  end;

  result $res, rules liitesana, tavuviiva;

end;

combi_rule kaksoispiste ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("kaksoispiste ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka in <kaksoispiste>;

#define $nimi := transmit (<":"> + <$vasen> + <$oikea> + <$sana> + <length($vasen)>);

  result $vasen + <[alku: $sana] + $oikea + [äs: $vasen.($n-1).äs]>,

         rules kaksoispisteen_sijapääte;

end;

combi_rule tavuviiva ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("tavuviiva ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka in <tavuviiva>;

  ? $oikea.luokka in $vasen.($n-1).jatko;

#define $nimi1 := transmit (<"tavuviiva1"> + <$vasen>);

#define $nimi2 := transmit (<"tavuviiva2"> + <$oikea>);

#define $nimi3 := transmit (<"tavuviiva3"> + <$sana>);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (loppu in $oikea.jatko) then

    result $res, accept;

  end;

  result $res, rules yhdyssana, asemosana, apusana, lyhennesääntö, erisnimi, lukusana;

end;

# Tämä sääntö on muokattu Harri Pitkäsen Voikko-versiosta.

#

combi_rule kaksoispisteen_sijapääte ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("kaksoispisteen_sijapääte ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = sijapääte;

  ? $oikea.sija /= keinonto_n;

  define $edellinen := $vasen.($n-1);

  ? ($edellinen.äs = aä) or ($oikea.äs = aä) or ($edellinen.äs = $oikea.äs);

  if $oikea.äs = aä then $oikea.äs := $edellinen.äs; end;

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (loppu in $oikea.jatko) then

    result $res, accept;

  end;

  result $res, rules omistusliite, liitesana;

end;

define @sti_edeltäjä := <laatusana, nimi_laatusana, voittoaste, yliaste>

                        + @nimisanasta_johdettu_laatusana

                        + @laatusanasta_johdettu_laatusana

                        + @nimi_laatusanan_johdin

                        + @teonsanasta_johdettu_laatusana

                        + @lukusana + @laatutapa_1 + @laatutapa_2;

# Sijapääte, joka voi olla yhdyssanan alkuosassa.

#

#define @yhdyssanasija := 

#                          omanto_en,

#                          omanto_ien,

#                          omanto_jen,

#                          omanto_in,          # Vanhempainloma.

#                          omanto_ten,         # Naistentanssit.

#                          omanto_iT,          # Hampaidenhoito, hampaittenhoito.

#                          sisätulento_hVn,    # Maahantulo, työhönotto.

#                          sisätulento_ihin>;  # Maihinnousu.

combi_rule sijapääte ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("sijapääte ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = sijapääte;

#define $nimi := transmit (<$vasen> + <$oikea> + <$sana>);

  define $edellinen := $vasen.($n-1);

  ? $oikea.sija in $edellinen.jatko;

  ? äs_ok ($edellinen,$oikea);

  ? ($oikea.sija /= sisätulento_Vn)  or sisätulento_Vn_oikein  ($oikea.sija, substring($edellinen.alku,1R), $sana);

  ? ($oikea.sija /= sisätulento_hVn) or sisätulento_hVn_oikein ($oikea.sija, substring($edellinen.alku,1R), $sana);

  if $oikea.äs = aä then $oikea.äs := $edellinen.äs; end;

  define $res := $vasen + <[alku: $sana] + $oikea>;

#define $a1 := transmit ($edellinen);

#define $b1 := transmit ($oikea);

#define $c1 := transmit ($sana);

  if (($oikea.sija = kerronto_sti) and ($edellinen.luokka in @sti_edeltäjä)) then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules liitesana;

  else

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (yhdyssana in $oikea.jatko) and

       (($edellinen.tiedot = nil) or not ((ei_ys in $edellinen.tiedot) or (ei_ysa in $edellinen.tiedot))) then

      result $res, rules yhdyssana;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

  end;

end;

combi_rule ei_ys_sijapääte ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("sijapääte ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = sijapääte;

#define $nimi := transmit (<$vasen> + <$oikea> + <$sana>);

  define $edellinen := $vasen.($n-1);

  ? $oikea.sija in $edellinen.jatko;

  ? äs_ok ($edellinen,$oikea);

  ? ($oikea.sija /= sisätulento_Vn)  or sisätulento_Vn_oikein  ($oikea.sija, substring($edellinen.alku,1R), $sana);

  ? ($oikea.sija /= sisätulento_hVn) or sisätulento_hVn_oikein ($oikea.sija, substring($edellinen.alku,1R), $sana);

  if $oikea.äs = aä then $oikea.äs := $edellinen.äs; end;

  define $res := $vasen + <[alku: $sana] + $oikea>;

#define $a1 := transmit ($edellinen);

#define $b1 := transmit ($oikea);

#define $c1 := transmit ($sana);

  if (($oikea.sija = kerronto_sti) and ($edellinen.luokka in @sti_edeltäjä)) then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules liitesana;

  else

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (tavuviiva in $oikea.jatko) then

      result $res, rules tavuviiva;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

  end;

end;

combi_rule asemosanan_sijapääte ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("asemosanan_sijapääte ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = sijapääte;

  define $edellinen := $vasen.($n-1);

  ? $oikea.sija in $edellinen.jatko;

  ? äs_ok ($edellinen,$oikea);

  ? ($oikea.sija /= sisätulento_Vn)  or sisätulento_Vn_oikein  ($oikea.sija, substring($edellinen.alku,1R), $sana);

  ? ($oikea.sija /= sisätulento_hVn) or sisätulento_hVn_oikein ($oikea.sija, substring($edellinen.alku,1R), $sana);

  if $oikea.äs = aä then $oikea.äs := $edellinen.äs; end;

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (($oikea.sija = kerronto_sti) and ($edellinen.luokka in @sti_edeltäjä)) then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules liitesana;

  else

    if sijamuoto_sijasta($oikea.sija) = omanto then

      result $res, rules inen_johdos_nimisanasta; # Muun+tyyppinen yms.

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules liitesana;

#    result $res, rules liitesana, tavuviiva, loppu;

  end;

end;

combi_rule laatutavan_sijapääte ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("laatutavan_sijapääte ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka = sijapääte;

  define $edellinen := $vasen.($n-1);

  ? $oikea.sija in $edellinen.jatko;

  ? äs_ok ($edellinen,$oikea);

  ? ($oikea.sija /= sisätulento_Vn)  or sisätulento_Vn_oikein  ($oikea.sija, substring($edellinen.alku,1R), $sana);

  ? ($oikea.sija /= sisätulento_hVn) or sisätulento_hVn_oikein ($oikea.sija, substring($edellinen.alku,1R), $sana);

  if $oikea.äs = aä then $oikea.äs := $edellinen.äs; end;

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (($oikea.sija = kerronto_sti) and ($edellinen.luokka in @sti_edeltäjä)) then

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

    result $res, rules liitesana;

  else

    if (omistusliite in $oikea.jatko) then

      result $res, rules omistusliite;

    end;

    if (liitesana in $oikea.jatko) then

      result $res, rules liitesana;

    end;

    if (loppu in $oikea.jatko) then

      result $res, accept;

    end;

###    result $res, rules omistusliite, liitesana, loppu;

  end;

end;

combi_rule teonsana ($vasen, $oikea, $sana, $n):

####define $profile := transmit ("teonsana ($vasen, $oikea, $sana, $n):");

  ? $oikea.luokka in <teonsana>;

  define $i := $n - 1;

  ? $oikea.luokka in $vasen.$i.jatko;

  if ((substring($vasen.$i.perusmuoto,1R) matches @ääntiö) and

      (substring($oikea.perusmuoto,1) matches @ääntiö)) then

   ? (substring($vasen.$i.perusmuoto,1R) /= substring($oikea.perusmuoto,1));

  end;

#define $n1 := transmit (<"teonsana1"> + <$vasen>);

#define $n2 := transmit (<"teonsana2"> + <$oikea>);

#define $n3 := transmit (<"teonsana3"> + <$sana>);

#define $n6 := transmit (<"">);

  define $res := $vasen + <[alku: $sana] + $oikea>;

  if (liitesana in $oikea.jatko) then

    if (($oikea.tapaluokka = käskytapa) and

        ($oikea.tekijä = 2) and

        ($oikea.luku = yksikkö)) then

      result $res, rules liitesana_ei_kO;

    else

      result $res, rules liitesana;

    end;

  end;

  if (loppu in  $oikea.jatko) then

    result $res, accept;