gf-3.4: lib/src/chinese/IdiomChi.gf

concrete IdiomChi of Idiom = CatChi ** open Prelude, ResChi in {

  lin
    ---- formal subject, e.g. it is hot ?? now empty subject
    ImpersCl vp =  mkClause [] vp ;
    --can be empty, or ImpersCl vp =  mkClause "天" vp ; but "天" only used to describe weather(e.g. it's raining)

    ---- one wants to learn Chinese ?? now empty subject
    GenericCl vp = mkClause [] vp ;
    -- GenericCl vp = mkClause "有人" vp ; (meaning: there is a person)

    ---- it is John who did it
    CleftNP np rs = mkClause rs.s copula np.s ; -- did it + de + is I

    CleftAdv ad s = mkClause (s.s ++ possessive_s) copula ad.s ;  -- she sleeps + de + is here

    ExistNP np = mkClause [] (regVerb you_s) np.s ; ---- infl of you

    ExistIP ip = {s = (mkClause [] (regVerb you_s) ip.s).s} ; ---- infl of you

    ProgrVP vp = vp ; ----

    ImpPl1 vp = ss (zan_s ++ men_s ++ infVP vp ++ ba0_s) ;

}