gf-core/examples/extmini/GrammarCmn.gf

concrete GrammarCmn of Grammar = open ResCmn, Prelude in {
flags coding = utf8;

  lincat  
    S  = {s : Aspect => Str} ; 
    Cl = {s : Bool => Aspect => Str; 
          np: Str; 
          vp: Bool => Aspect => Str} ; 
    NP = ResCmn.NP ;  
      --  {s : Str ; n : Number} ;     
    VP = ResCmn.VP ;  
      -- { verb : Verb ; compl : Str ; prePart : Str} ;  
    AP = {s : Str; monoSyl: Bool} ;
    CN = ResCmn.Noun ;           -- {s : Str; Counter : Str} ;
    Det = {s : Str ; n : Number} ;
    N = Noun ;                   -- {s : Str; Counter : Str} ;
    A = ResCmn.Adj ;             -- {s : Str; monoSyl: Bool} ; 
    V = ResCmn.Verb;          
    -- Verb : Type = {s : Bool => Aspect => Str ; vinf : Str} ;
    V2 = ResCmn.Verb ;
    AdA = {s : Str} ; 
    Pol = {s : Str ; b : Bool} ;
    Tense = {s : Str ; t : TTense} ;
    Conj = {s : SForm => Str} ;    

  lin

    UseCl t p cl = {s = \\a => cl.s ! p.b ! a } ; 
    PredVP np vp = {s = \\p,a => np.s ++ vp.prePart ++ vp.verb.s ! p ! a ++ vp.compl;
                    np = np.s;
                    vp = \\p,a => vp.verb.s ! p ! a ++ vp.compl} ;
      
    ComplV2 v2 np = {
      verb = v2 ; 
      compl = np.s ;
      prePart = []
      } ;
      
    DetCN det cn = case det.n of {
            Sg => {s = det.s ++ cn.Counter ++ cn.s ; n = Sg } ;
            Pl => {s = det.s ++ "些" ++ cn.s ; n = Pl }             
      } ;
      
    ModCN ap cn = case ap.monoSyl of {
            True => {s = ap.s ++ cn.s ; Counter = cn.Counter} ;
            False => {s = ap.s ++ "的" ++ cn.s ; Counter = cn.Counter} 
            } ;

    CompAP ap = {
      verb = copula ;
      compl = ap.s ++ "的" ;
      prePart = []
      } ;
      
    AdAP ada ap = {
      s = ada.s ++ ap.s ;
      monoSyl = False
      } ;

    ConjS  co x y = {s = \\a => x.s ! a ++ co.s ! Sent ++ y.s ! a} ;  
    ConjAP co x y = {s = x.s ++ co.s ! Phr APhrase ++ y.s;
                     monoSyl = False} ;
                     
    ConjNP co x y = {
    s = x.s ++ co.s ! Phr NPhrase ++ y.s ;
    n = Pl
    } ;


    UseN n = n ;

    UseA adj = adj ;
    
    UseV v = {
      verb = v ; 
      compl = [] ;
      prePart = [] ;
      } ; 

    
    a_Det = mkDet "一" Sg ;
    every_Det = mkDet "每" Sg ;
    the_Det = mkDet "那" Sg ;
        
    this_Det = mkDet "这" Sg ;
    these_Det = mkDet "这" Pl ;
    that_Det = mkDet "那" Sg ;
    those_Det = mkDet "那" Pl ;

    i_NP = pronNP "我" Sg ;
    youSg_NP = pronNP "你"  Sg ;
    he_NP = pronNP "他" Sg ;
    she_NP = pronNP "她" Pl ;
    we_NP = pronNP "我们" Pl ;
    youPl_NP = pronNP "你们" Pl ;
    they_NP = pronNP "他们" Pl ;

    very_AdA = ss "非常" ;    


    Pos  = {s = [] ; b = True} ;
    Neg  = {s = [] ; b = False} ;
    
    Pres = {s = [] ; t = TPres} ;
    Perf = {s = [] ; t = TPerf} ;
    Past = {s = [] ; t = TPast} ;
    Fut  = {s = [] ; t = TFut} ;
    
    and_Conj = {s = table {
                    Phr NPhrase => "和" ;
                    Phr APhrase => "而" ;
                    Phr VPhrase => "又" ;
                    Sent =>  []
                          }
                } ;

    or_Conj  = {s = table {
                    Phr _ => "或" ;
                    Sent => "还是"
                          }
                } ;
                
-- more

  lincat
    Utt = {s : Str} ;
    QS  = {s : Aspect => Str} ;
    QCl = {s : Bool => Aspect => Str; 
           np: Str; 
           vp: Bool => Aspect => Str} ; 
    PN = {s : Str ; n : Number } ; 
    
    ClSlash = {s : Bool => Aspect => Str ; 
               np: Str ; 
               vp: Bool => Aspect => Str ;
               prepMain : Str ; 
               prepPre : Str} ;  
    Adv = {s : Str ; prePart : Str} ; 
    Prep = {s : Str ; prePart : Str} ; 
    VS = Verb ;
    VQ = Verb ;
    VV = {s : Bool => Aspect => Str ; vinf : Str} ;  
    IP = {s : Str} ;
    Subj = {prePart : Str ;sufPart : Str} ;
    IAdv = {s : Str} ;
  
  lin    
  
    UttS s = {s = s.s ! (ResCmn.Perf | ResCmn.DurStat | 
                         ResCmn.DurProg | ResCmn.Exper) } ;

    UttQS s = {s = s.s ! (ResCmn.Perf | ResCmn.DurStat | 
                       ResCmn.DurProg | ResCmn.Exper) } ; 
  
    UseQCl t p cl = {s = \\a => cl.s ! p.b ! a} ; 
  
    QuestCl cl = {s = \\p,a => cl.s ! p ! a ++ "吗";
                  np = cl.np ;
                  vp = cl.vp } ;
  
    QuestVP ip vp = {
     s = \\p,a => ip.s ++ vp.prePart ++ vp.verb.s ! p ! a ++ vp.compl ;
     np = ip.s ;
     vp = \\p,a => vp.prePart ++ vp.verb.s ! p ! a ++ vp.compl 
      } ;
  
    QuestSlash ip cls =  {
           s =\\p,a => cls.prepPre ++ cls.np ++ cls.prepMain ++ cls.vp ! p ! a ++ "的是" ++ ip.s ;
      np = cls.np ;
      vp = cls.vp 
      } ;       
      
    QuestIAdv iadv cl = {s = \\p,a => cl.np ++ iadv.s ++ cl.vp ! p ! a ;
                         np = cl.np ;
                         vp = \\p,a => cl.vp ! p ! a
                      } ;
  
    SubjCl cl subj s = {
      s = \\p,a => subj.prePart ++ s.s ! a ++ subj.sufPart ++ cl.s ! p ! a ;
      np = subj.prePart ++ s.s ! ResCmn.Perf ++ subj.sufPart ++ cl.np ;
      vp = \\p,a => cl.vp ! p ! a } ;
  
    CompAdv adv = {
      verb = {s = table {
                    True => table { _ => "在"} ;
                    False => table { _ => "不在"}
                    } ;
              vinf = "在"
              } ; 
      compl = adv.s ;
      prePart = []
      } ;
  
    PrepNP prep np = {
      s = np.s ++ prep.s ;
      prePart = prep.prePart
      } ;   
      
    ComplVS v s = {
      verb = v ;
      compl = s.s ! ResCmn.Perf  ;
      prePart = []
      } ;
    
    ComplVQ v q = {
      verb = v ;
      compl = q.s ! ResCmn.Perf ;
      prePart = []
     } ;
      
    ComplVV v vp = {
      verb = v ;
      compl = vp.verb.vinf ++ vp.compl ;
      prePart = vp.prePart
      } ;
      
    SlashV2 np v2 = {
      s = \\p,a => np.s ++ v2.s ! p ! a ;
      np = np.s ;
      vp = \\p,a => v2.s ! p ! a ;
      prepMain = [] ;
      prepPre = []
      } ;          

    SlashPrep cl prep = {
      s = \\b, a => cl.s ! b ! a ;
      np = cl.np ;
      vp = cl.vp ;      
      prepMain = prep.s ;
      prepPre = prep.prePart 
      } ;      
      
    AdvVP vp adv = {
      verb = vp.verb ;
      compl = vp.compl ;
      prePart = adv.prePart ++ adv.s
      } ;        

    UsePN pn = {
      s = pn.s ;
      n = pn.n
      } ;
      
    AdvNP np adv = {
      s = adv.prePart ++ adv.s ++ "的" ++ np.s ;
      n = np.n
      } ;

    who_IP  = ss "谁" ;      
    here_Adv = mkAdv [] "这里" ; 
    by_Prep = mkPrep "旁边" [] ;
    in_Prep = mkPrep "里" [];
    of_Prep = mkPrep "的" [];
    with_Prep = mkPrep "一起" "和"; 
    
    can_VV  = {s = table{True => table{ _ => "能"};
                         False =>table{ _ => "不能"} } ;
               vinf = [] };
    must_VV = {s = table{True => table{ _ => "必须"};
                         False =>table{ _ => "不能"} } ;
               vinf = []};
    want_VV = {s = table{True => table{ _ => "想"};
                         False =>table{ _ => "不想"} } ;
               vinf = []};   
               
    although_Subj = mkSubj "虽然" "但";
    because_Subj = mkSubj "因为" "所以" ;
    when_Subj = mkSubj [] "的时候" ; 
    
    when_IAdv = ss "什么时候" ;
    where_IAdv = ss "在哪里" ;
    why_IAdv = ss "为什么" ;   

}