% -*-trale-prolog-*-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%   $RCSfile: lexicon.pl,i $
%%  $Revision: 1.0 $
%%      $Date: 2011/05/21 $
%%     Author: Hiroki Koga (hkoga@cc.saga-u.ac.jp) $
%%   Reference: Stefan Mueller's grammar implementations $
%%    Purpose: Grant-in-aid research No. 21520410 by JSPS $
%%         the tense expletive $
%%   Language: Trale $
%      System: TRALE 2.7.5 (release) under Sicstus 3.12.0 $
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%German
%das ~~> (word,
%  p_o_s:det,
%  subcat:[] ).
%
%mannes ~~> (word,
%  p_o_s:noun,
%  subcat:[(p_o_s:det,
%           subcat:[])]).


kodon ---> (morpheme,
  phon:[(a_ kodon)],
  synsem:category:(head:(n,mod:[]),
                   comps:[])).

tomato ---> (morpheme,
  phon:[(a_ tomato)],
  synsem:category:(head:(n,mod:[]),
                   comps:[])).

tenisu ---> (morpheme,
  phon:[(a_ tenisu)],
  synsem:category:(head:(n,mod:[]),
                   comps:[])).

% nominative morpheme
no ---> (morpheme,
  phon:[(a_ no)],
  synsem:category:(head:(k,kform:nom,mod:[category:head:t]),
                   comps:[category:(head:n,
                                    comps:[])])).
% accusative morpheme
ba ---> (morpheme,
  phon:[(a_ ba)],
  synsem:category:(head:(k,kform:acc,mod:[category:head:v]),
                   comps:[category:(head:n,
                                    comps:[])])).

% `get up'
oki ---> (morpheme,
  phon:[(a_ oki)],
  synsem:category:(head:(v,mod:[]),
                   comps:[])).

% s(e) `do'
s ---> (morpheme,
  phon:[(a_ s)],
  synsem:category:(head:(v,stem_space:(sform:basic,
                                       length:shorter),
                         mod:[]),
                   comps:[])).


%se ---> (morpheme,
%  phon:[(a_ se)],
%  synsem:category:(head:(v,stem_space:(sform:vwl_adjstd,
%                                             length:longer),
%                         mod:[]),
%                   comps:[])).

% n(e) `sleep'
ne ---> (morpheme,
  phon:[(a_ ne)],
  synsem:category:(head:(v,stem_space:(sform:basic,
                                       length:longer),
                         mod:[]),
                   comps:[])).

stem_shortening ##
(morpheme,
 synsem:category:(head:(v,
                       stem_space:sform:basic,
                       mod:[])),
                  comps:[])
 **>
(synsem:category:(head:(v,
                        stem_space:(sform:vwl_adjstd,
			       	    length:longer),
                        mod:[])),
                  comps:[])
 morphs
 ne becomes n.


%n ---> (morpheme,
%  phon:[(a_ n)],
%  synsem:category:(head:(v,stem_space:(sform:vwl_adjstd,
%                                       length:shorter),
%                         mod:[]),
%                   comps:[])).

% (r)u `tense expletive'
u ---> (morpheme,
  phon:[(a_ u)],
  synsem:category:(head:(t,tform:expltv,mod:[]),
                   comps:[category:(head:(v,
                                          stem_space:(length:shorter)),
                                    comps:[])])).

ru ---> (morpheme,
  phon:[(a_ ru)],
  synsem:category:(head:(t,tform:expltv,mod:[]),
                   comps:[category:(head:(v,
                                          stem_space:(length:shorter)),
                                    comps:[])])).

% ru `tense expletive'
ru ---> (morpheme,
  phon:[(a_ ru)],
  synsem:category:(head:(t,tform:expltv,mod:[]),
                   comps:[category:(head:(t,
                                          tform:expltv),
                                    comps:[])])).

% (i)ta `past'
ta ---> (morpheme,
  phon:[(a_ ta)],
  synsem:category:(head:(t,tform:past,mod:[]),
                   comps:[category:(head:(v,
                                          stem_space:(sform:basic)),
                                    comps:[])])).

ita ---> (morpheme,
  phon:[(a_ ita)],
  synsem:category:(head:(t,tform:past,mod:[]),
                   comps:[category:(head:(v,
                                          stem_space:(sform:basic)),
                                    comps:[])])).