;;; Hey, emacs, this file is -*- Mode: tdl; -*- ... got that?


head-complement-rule-0 := head-initial & 
[ VAL [ SPR #spr,
	COMPS < > ],
  ARGS < word & [ VAL [ SPR #spr, COMPS < > ] ] > ].


head-complement-rule-1 := head-initial &
[ VAL [ SPR #spr, 
	COMPS < > ],   
  ARGS < word & [ VAL [ SPR #spr,
                        COMPS < #1 & [ VAL [ SPR < > ] ] > ] ],  
         #1 > ].


head-complement-rule-2 := head-initial &
[ VAL [ SPR #spr, 
	COMPS < > ],
  ARGS < word & [ VAL [ SPR #spr, 
			COMPS < #1 & [ VAL [ SPR < > ] ], 
				#2 & [ VAL [ SPR < > ] ] > ] ],  
         #1,
         #2 > ].


head-specifier-rule := head-final &
[ VAL [ SPR < >,
	COMPS #comps ],
  ARGS < phrase & #1 & [ VAL [ SPR < > ] ],
         phrase & [ VAL [ SPR < #1 >,
			  COMPS #comps ] ] > ]. 


head-modifier-rule-post := head-initial &
[ VAL #2,
  ARGS < head-initial & #1 & [ VAL #2 & [ SPR *ne-list* ]
 ],
         phrase & [ HEAD post-mod & [ MOD < #1 > ] ] > ]. 

head-modifier-rule-pre := head-final &
[ VAL #2,
  ARGS < phrase & [ HEAD pre-mod & [ MOD < #1 > ] ],
         phrase & #1 & [ VAL #2 & [ SPR *ne-list* ] ] > ].