English Exceptions MorphRules

read lexc bozhich_engxceptions.lexc
define Lexicon;

define Exceptions [[{be} "+Aux" "+3P" .x. {is}] |
       		  [{be} "+Aux" "+PresPart" .x. {being}] |
		  [{be} "+Aux" "+Past" "+3P"+ "+Sg" .x. {was}] |
		  [{be} "+Aux" "+Past" "+3P" "+Pl" .x. {were}] |
		  [{be} "+Aux" "+PastPart" .x. {been}]] ,,

		  [[{do} "+Aux" "+3P" "+Sg" .x. {does}] |
		  [{do} "+Aux" "+3P" "+Pl" .x. {do}] |
		  [{do} "+Aux" "+Past" .x. {did}] |
		  [{do} "+Aux" "+PastPart" .x. {done}]] ,,

		   [[{have} "+Aux" "+3P" "+Sg" .x. {has}] |
		   [{have} "+Aux" "+3P" "+Pl" .x. {have}] |
		   [{have} "+Aux" "+Past" .x. {had}] |
		   [{had} "+Aux" "+PastPart" .x. {had}]] ,,

		   [[{become} "+V" "+Past" .x. {became}] |
		   [{become} "+V" "+PastPart" .x. {become}]] ,,

		   [[{bet} "+V" "+Past" .x. {bet}] |
		   [{bet} "+V" "+PastPart" .x. {bet}]] ,,

		   [[{catch} "+V" "+Past" .x. {caught}] |
		   [{catch} "+V" "+PastPart" .x. {caught}]] ,,

		   [[{choose} "+V" "+Past" .x. {chose}] |
		   [{choose} "+V" "PastPart" .x. {chosen}]] ,,

		   [[{come} "+V" "+Past" .x. {came}] |
		   [{come} "+V" "+PastPart" .x. {come}]] ,,

		   [[{eat} "+V" "+Past" .x. {ate}] |
		   [{eat} "+V" "+PastPart" .x. {eaten}]];


define ConsonantDoubling g -> g g || _ "^" [{ing}|{ed}] ,,
       			 m -> m m || _ "^" [{ing}] ,,
			 n -> n n || _ "^" [{ing}] ,,
			 p -> p p || _ "^" [{ing}|{ed}] ,,
			 t -> t t || _ "^" [{ing}];
#(swim/swimming), (spin/spinning), (chip/chipped/chipping), (bet/betting)

define EDeletion e -> 0 || _ "^" [{ing}|{ed}] ;

define EInsertion [..] -> e || [s|z|x|{ch}|{sh}] _ "^" s ;

define YReplacement y -> i e || _ "^" s    ,,
                    y -> i   || _ "^" e d  ;

define KInsertion [..] -> k ||  c _ "^" [{ed}|{ing}];


define Cleanup "^" -> 0;


define Grammar Lexicon           .o.
               ConsonantDoubling .o.
               EDeletion         .o.
               EInsertion        .o.
               YReplacement      .o.
               KInsertion        .o.
               Cleanup;

regex Grammar;
regex Exceptions  .P. Grammar;