% -*-trale-prolog-*-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%      $file: lex_ rules.pl $
%%  $Revision: 1.0 $
%%      $Date: 2011/05/21 $
%%     Author: Hiroki Koga (hkoga@cc.saga-u.ac.jp) $
%%  Reference: ALE Manual
%%    Purpose: the tense expletive $
%%   Language: Trale $
%      System: TRALE 2.7.5 (release) under Sicstus 3.12.0 $
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

:- multifile '*'/2.

:- discontiguous '*'/2.

:- lex_rule_depth(2).

% e.g., /ne/ --> /n/
%

stem_shortening_lex_rule ##
 (morpheme,
  synsem:category:head:v,
                       stem_space:sform:basic)
  **> 
 (synsem:category:head:v,
                       stem_space:(sform:vwl_adjstd,
                                   length:shorter))
 morphs
  (X,[e]) becomes (X).

%% This analysis will be motivated if the scope includes old Japanese,
%% in which the other vowel-final base verbs like /oki/ `get up'
%% also have the other shortened stems like /ok/ `get up' for the
%% example.

%
% /s/ --> /se/ (It is applicable to /k/ --> /ko/.) 
%

stem_lengthening_lex_rule ##
 (morpheme,
  synsem:category:head:v,
                       stem_space:sform:basic)
  **> 
 (synsem:category:head:v,
                       stem_space:(sform:vwl_adjstd,
                                   length:longer))
 morphs
  (s) becomes (s,e).
