;;; -*- Mode: tdl; Coding: utf-8; -*-


%(letter-set (!c bdfgklmnprstz))
%(letter-set (!s abcdefghijklmnopqrtuvwxyz05_/.))
%(letter-set (!t bcdfghjklmnpqrstvwxyz))
%(letter-set (!v aeiou))
%(letter-set (!. abcdefghijklmnopqrstuvwxyzåøöáéíóúìñABCDEFGHIJKLMNOPQRSTUVWXYZÅØÖÉÌ0123456789[]\(\){}|>/_-…%`”"'’?!#+¦σΩÅص™°º))
%(letter-set (!p abcdefghijklmnopqrstuvwxyzåøöáéíóúìµñABCDEFGHIJKLMNOPQRSTUVWXYZÅØÖÉÌ0123456789,.?\![]\(\){}|>/_%”"'’#+¦σΩÅØ®…™°ºβ*))
%(letter-set (!q abcdefghijklmnopqrstuvwxyzåøöáéíóúìñABCDEFGHIJKLMNOPQRSTUVWXYZÅØÖÉÌ0123456789,.?\!\(\)[]{}|>:/_-%`”"'’#+¦σΩ…µ™°º))
%(letter-set (!f abcdefghijklmnopqrstuvwxyzåøöáéíóúìñABCDEFGHIJKLMNOPQRSTUVWXYZÅØÖÉÌ0123456789[]“"‘'#+¦$£=\(\)[]{}|<_\-.,Åؽ…µ™°ºβ))
%(letter-set (!b \!))

;;; irregular words are stored in a separate file - irregs.tab
;;; because the forms stored there are the values of affix
;;; all the rules here should have the name `affix-type'_infl_rule

; <type val="n_pl_olr">
; <description>Plural noun with |-s| suffix
; <ex>cats
; <nex>
; <todo>
; </type>
n_pl_olr :=
%suffix (!s !ss) (!ss !ssses) (es eses) (ss sses) (!ty !ties) (ch ches) (sh shes) (x xes) (z zes)
n_pl_inflrule &
[ ND-AFF +,
  SYNSEM mass_or_count_synsem &
         [ LOCAL plur_noun ],
  RNAME lnpl ].

; <type val="v_3s-fin_olr">
; <description>Third-singular present verb      
; <ex>admires                    
; <nex>
; <todo>
; </type>
v_3s-fin_olr :=
%suffix (!s !ss) (!ss !ssses) (ss sses) (!ty !ties) (ch ches) (sh shes) (x xes) (z zes)
v_3s-fin_inflrule &
[ ND-AFF +,
  SYNSEM.LOCAL third_sg_fin_verb,
  RNAME lvsg ].

; <type val="v_psp_olr">
; <description>Past particple verb              
; <ex>admired                    
; <nex>
; <todo>
; </type>
v_psp_olr :=
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced) 
v_psp_inflrule &
[ ND-AFF +,
  SYNSEM.LOCAL psp_verb,
  RNAME lvpp ].

; <type val="v_pst_olr">
; <description>Past tense verb                  
; <ex>admired                    
; <nex>
; <todo>
; </type>
v_pst_olr :=
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced) 
v_pst_inflrule &
[ ND-AFF +,
  SYNSEM.LOCAL past_or_subj_verb,
  RNAME lvpt ].

; <type val="v_prp_olr">
; <description>Present participle verb          
; <ex>admiring                   
; <nex>
; <todo>
; </type>
v_prp_olr :=
%suffix (* ing) (!t!v!c !t!v!c!cing) (e ing) (ee eeing) (ie ying)
v_prp_inflrule &
[ ND-AFF +,
  SYNSEM.LOCAL prp_verb,
  RNAME lvpr ].

; Non-standard variant for |tryin| and |tryin'|
; <type val="v_prp-nf_olr">
; <description>Present participle verb,nonformal
; <ex>admirin                    
; <nex>
; <todo>
; </type>
v_prp-nf_olr :=
%suffix (* in) (!t!v!c !t!v!c!cin) (e in) (ee eein) (ie yin)
v_prp-nf_inflrule &
[ ND-AFF +,
  SYNSEM.LOCAL prp_verb,
  RNAME lvprn,
  GENRE nonformal ].

#|
bse_verb_irule := lex_rule_infl_affixed &
[ ND-AFF -,
  ORTH #stem,
  DTR  [ ORTH #stem ],
  SYNSEM.LOCAL bse_verb,
  RNAME lvbs ].

non_third_sg_fin_verb_irule := lex_rule_infl_affixed &
[ ND-AFF -,
  ORTH #stem,
  DTR  [ ORTH #stem ],
  SYNSEM.LOCAL non_third_sg_fin_verb,
  RNAME lvns ].
|#

; <type val="v_n3s-bse_ilr">
; <description>Non-3sing or base form verb      
; <ex>admire                     
; <nex>
; <todo>
; </type>
v_n3s-bse_ilr := v_n3s-bse_inflrule &
[ ND-AFF -,
  ORTH #stem,
  DTR  [ ORTH #stem ],
  SYNSEM.LOCAL bse_or_non3sg_verb,
  RNAME lvns ].

; <type val="n_sg_ilr">
; <description>Singular noun                    
; <ex>cat                        
; <nex>
; <todo>
; </type>
n_sg_ilr := n_sg_inflrule &
[ ND-AFF -,
  ORTH #stem,
  DTR  [ ORTH #stem ],
  SYNSEM count_noun_synsem & [ LOCAL sing_noun ],
  RNAME lnsg ].

; <type val="n_ms_ilr">
; <description>Mass noun                        
; <ex>rice                       
; <nex>
; <todo>
; </type>
n_ms_ilr := n_ms_inflrule &
[ ND-AFF -,
  ORTH #stem,
  DTR  [ ORTH #stem ],
  SYNSEM basic_mass_noun_synsem & [ LOCAL mass_noun ],
  RNAME lnms ].

; <type val="n_ms-cnt_ilr">
; <description>Mass or count noun               
; <ex>[unknown noun]             
; <nex>
; <todo>
; </type>
n_ms-cnt_ilr := n_ms-cnt_inflrule &
[ ND-AFF -,
  ORTH #stem,
  DTR  [ ORTH #stem ],
  SYNSEM basic_mass_or_count_synsem & [ LOCAL mass_count_noun ],
  RNAME lnmc ].

; <type val="n_pl-cur_ilr">
; <description>Plural of currency noun: no |-s| 
; <ex>$                          
; <nex>
; <todo>
; </type>
n_pl-cur_ilr := n_pl-cur_inflrule &
[ ND-AFF -,
  ORTH #stem,
  DTR n_-_c-cur_le & [ ORTH #stem ],
  SYNSEM.LOCAL plur_noun,
  RNAME lnpn ].

#|
pos_adj_irule := lex_rule_infl_affixed &
[ ND-AFF -,
  ORTH #stem,
  DTR  [ ORTH #stem ],
  SYNSEM.LOCAL pos_adj,
  RNAME ladj ].
|#

; <type val="v_pas_odlr">
; <description>Passive verb                     
; <ex>admired                    
; <nex>
; <todo>
; </type>
v_pas_odlr := 
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced) 
v_pas-norm_lexrule &
  [ ND-AFF +,
    DTR.SYNSEM trans_subst &
               [ LOCAL [ CAT.VAL.COMPS [ FIRST [ LOCAL.CONT #objcont,
                                                 --SIND #objind,
                                                 NONLOC #ononloc ],
                                         REST #comps ] ],
                 LKEYS.KEYREL #keyrel ],
    SYNSEM [ LOCAL [ CAT [ VAL [ SUBJ < [ LOCAL.CONT #objcont,
					  --SIND #objind,
					  NONLOC #ononloc ] >,
				 COMPS.REST #comps ] ],
                     CONT [ HOOK.XARG #objind ] ],
             LKEYS.KEYREL #keyrel ],
  RNAME lvpa ].

; "X was often referred to"
; <type val="v_pas-p_odlr">
; <description>Prepositional passive verb       
; <ex>referred to                
; <nex>
; <todo>
; </type>
v_pas-p_odlr := 
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced) 
prep_passive_verb_lr &
[ ND-AFF +,
  RNAME lvpe ].

; "X has been added to"
; <type val="v_pas-p-t_odlr">
; <description>Prep. passive of trans. verb     
; <ex>added to                   
; <nex>
; <todo>
; </type>
v_pas-p-t_odlr := 
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced) 
prep_passive_trans_verb_lr &
[ ND-AFF +,
  RNAME lvpf ].

; <type val="v_pas-prt-t_odlr">
; <description>Passive of verb+sel_PP           
; <ex>relied on                  
; <nex>
; <todo>
; </type>
v_pas-prt-t_odlr := 
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced) 
prep_passive_ptcl_verb_lr &
[ ND-AFF +,
  RNAME lvpg ].

; For "it was believed (by many) that Sandy left"
; <type val="v_pas-cp_odlr">
; <description>Passive of cp-complement verb    
; <ex>said                       
; <nex>
; <todo>
; </type>
v_pas-cp_odlr := 
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced) 
v_pas-cp_lexrule &
  [ ND-AFF +,
    DTR.SYNSEM cp_passivable_verb &
               [ LOCAL.CAT.VAL [ COMPS #comps,
                                 KCMP #kcmp ] ],
    SYNSEM passive_atrans_synsem &
           [ LOCAL.CAT [ VAL [ COMPS.REST #comps,
			       KCMP #kcmp ] ] ],
    RNAME lvcp ].

; <type val="v_pas-dat_odlr">
; <description>Passive of dative shift verb     
; <ex>given                      
; <nex>
; <todo>
; </type>
v_pas-dat_odlr := 
%suffix (* ed) (!ty !tied) (e ed) (!t!v!c !t!v!c!ced)
basic_passive_verb_lr &
  [ ND-AFF +,
    DTR [ SYNSEM basic_ditrans_subst &
		 [ LOCAL [ CAT.VAL [ SUBJ < [ --SIND #subjind, 
					      NONLOC #snonloc ] >,
				     COMPS < [ LOCAL.CONT #objcont,
					       --SIND #objind,
					       NONLOC #ononloc ],
					     #npcomp > ] ],
		   LKEYS.KEYREL #keyrel ] ],
    SYNSEM [ LOCAL [ CAT [ VAL [ SUBJ < [ LOCAL.CONT #objcont,
					  --SIND #objind,
					  NONLOC #ononloc ] >,
				 COMPS < #npcomp,
                                       synsem & 
                                       [ LOCAL local &
                                         [ CAT [ HEAD prep & 
                                                   [ MINORS.MIN _by_p_cm_rel ],
                                                 VAL [ SUBJ < >,
                                                       SPR *olist*,
                                                       COMPS < > ] ],
                                           CONT.HOOK.INDEX #subjind ],
                                         NONLOC #snonloc,
                                         OPT + ] > ] ],
		     CONT [ HOOK.XARG #objind ] ],
             LKEYS.KEYREL #keyrel ],
  RNAME lvdp ].

; Placeholder rule mentioned in irregs.tab, but only used in grammar checking,
; where this rule is redefined.
;
non_third_sg_fin_v_rbst := lex_rule_infl_affixed &
 [ DTR.SYNSEM [ LOCAL.CAT.HEAD no_head,
		LKEYS.KEYREL.PRED never_unify_rel ],
   RNAME vfrb ].