gf-rgl/src/turkish/VerbTur.gf

concrete VerbTur of Verb = CatTur ** open Prelude, ResTur, SuffixTur, HarmonyTur in {

  lin
    UseV v = {s = mkVerbForms v; compl = []} ;
    SlashV2a v = {s = mkVerbForms v; compl = []; c = v.c} ;

    Slash2V3 v = variants {} ;
    Slash3V3 v = variants {} ;
    SlashV2A v = variants {} ;
    SlashV2V v = variants {} ;
    SlashV2S v = variants {} ;
    SlashV2Q v = variants {} ;
    SlashVV v = variants {} ;
    SlashV2VNP = variants {} ;

    ComplSlash vps np = vps ** {
      compl = vps.compl ++ vps.c.s ++ np.s ! vps.c.c ;
    } ;

    -- TODO: test this and fix.
    ComplVS vs s = variants {} ; {- vs ** {
      compl = s.subord
    } ; -}

    ComplVA _ _ = variants {} ;
    ComplVV _ _ = variants {} ;
    ComplVQ _ _ = variants {} ;
    
    UseComp comp = comp ** {compl = []} ;
    CompCN _ = variants {} ;

    CompNP np = {
      s = table {
            VFin Pres p agr => np.s ! Nom ++
                               case <agr,p> of {
                                 <{n=Sg; p=P3},Pos> => [] ;
                                 <{n=Sg; p=P3},Neg> => BIND ++ suffixStr np.h negativeSuffix ;
                                 <_,           Pos> => BIND ++ suffixStr np.h (verbSuffixes ! agr) ;
                                 <_,           Neg> => BIND ++ suffixStr np.h negativeSuffix +
                                                       (let negHar = mkHar (case np.h.vow of {
                                                                             I_Har  | U_Har  => I_Har ;
                                                                             Ih_Har | Uh_Har => Ih_Har
                                                                            }) SVow
                                                        in suffixStr negHar (verbSuffixes ! agr))
                               } ;
            VFin Past p agr => np.s ! Nom ++ BIND ++
                               case p of {
                                 Pos => [] ;
                                 Neg => suffixStr np.h negativeSuffix
                               } +
                               suffixStr np.h (alethicCopulaSuffixes ! agr) ;
            vform           => np.s ! Nom ++
                               mkVerbForms olmak_V ! vform
          } ;
      compl = []
    } ;

    CompAP ap = {
      s = table {
            VInf p          => ap.s ! Sg ! Nom ++
                               mkVerbForms olmak_V ! (VInf p) ;
            VImp p n        => ap.s ! n ! Nom ++
                               mkVerbForms olmak_V ! (VImp p n) ;
            VFin Pres p agr => ap.s ! agr.n ! Nom ++
                               case <agr,p> of {
                                 <{n=Sg; p=P3},Pos> => [] ;
                                 <{n=Sg; p=P3},Neg> => BIND ++ suffixStr ap.h negativeSuffix ;
                                 <_,           Pos> => BIND ++ suffixStr ap.h (verbSuffixes ! agr) ;
                                 <_,           Neg> => BIND ++ suffixStr ap.h negativeSuffix +
                                                       (let negHar = {vow = case ap.h.vow of {
                                                                             I_Har  | U_Har  => I_Har ;
                                                                             Ih_Har | Uh_Har => Ih_Har
                                                                           } ;
                                                                     con = SVow
                                                                    }
                                                        in suffixStr negHar (verbSuffixes ! agr))
                               } ;
            VFin Past p agr => ap.s ! agr.n ! Nom ++ BIND ++
                               case p of {
                                 Pos => [] ;
                                 Neg => suffixStr ap.h negativeSuffix
                               } +
                               suffixStr ap.h (alethicCopulaSuffixes ! agr) ;
            VFin t p agr    => ap.s ! agr.n ! Nom ++
                               mkVerbForms olmak_V ! (VFin t p agr)
          } ;
      compl = []
    } ;

    CompAdv _ = variants {} ;

    ReflVP = variants {} ;

    AdvVP vp adv = vp ** {
      compl = vp.compl ++ adv.s ;
    } ;

    AdVVP adv vp = vp ** {
      s = \\vf => adv.s ++ vp.s ! vf ;
    } ;

    PassV2 = variants {} ;

oper
  olmak_V : V = lin V {
    s = "olmak" ;
    stems = \\_ => "ol" ;
    aoristType = SgSylConIrreg ;
    h = mkHar U_Har (SCon Soft)
  } ;

}