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


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


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


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


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