--# -path=.:../abstract:../common

concrete MarkupCze of Markup = CatCze, MarkHTMLX ** open ResCze in {

lin
  MarkupCN   m cn  = cn ** {s = \\n,c   => appMark m (cn.s ! n ! c)} ;

  -- s, clit and prep are alternative surface forms, so each is marked;
  -- but clit ! Nom is the pro-drop subject, empty for every pronoun,
  -- and marking it up would leave the tags around nothing
  MarkupNP   m np  = np ** {
    s    = \\c => appMark m (np.s ! c) ;
    clit = \\c => case c of {
      Nom => np.clit ! Nom ;
      _   => appMark m (np.clit ! c)
      } ;
    prep = \\c => appMark m (np.prep ! c)
    } ;

  MarkupAP   m ap  = ap ** {s = \\g,n,c => appMark m (ap.s ! g ! n ! c)} ;
  MarkupAdv  m adv =       {s =            appMark m adv.s} ;
  MarkupS    m s   =       {s =            appMark m s.s} ;
  MarkupUtt  m utt =       {s =            appMark m utt.s} ;
  MarkupPhr  m phr =       {s =            appMark m phr.s} ;
  MarkupText m txt =       {s =            appMark m txt.s} ;

}