;;; -*- Mode: tdl; Coding: utf-8; -*-


punct_period_orule :=
%suffix (!. !..)
punctuation_period_rule.

punct_qmark_orule :=
%suffix (!p !p\?)
punctuation_qmark_rule.

punct_comma_orule :=
%suffix (!. !.,)
punctuation_comma_rule.

punct_bang_orule :=
%suffix (!p !p\!)
punctuation_bang_rule.

punct_semicol_orule :=
%suffix (!. !.;)
punctuation_semicol_rule.

;punct_colon_orule :=
;%suffix (!p !p:)
;punctuation_colon_rule.

punct_rparen_orule :=
%suffix (!p !p\))
punctuation_rparen_rule.

punct_lparen_orule :=
%prefix (!f (!f)
punctuation_lparen_rule.

punct_rbracket_orule :=
%suffix (!p !p])
punctuation_rparen_rule.

punct_lbracket_orule :=
%prefix (!f [!f)
punctuation_lparen_rule.

punct_dqright_orule :=
%suffix (!q !q")
punctuation_dqright_rule.

punct_dqleft_orule :=
%prefix (!f "!f)
punctuation_dqleft_rule.

punct_sqright_orule :=
%suffix (!q !q')
punctuation_sqright_rule.

punct_sqleft_orule :=
%prefix (!f `!f)
punctuation_sqleft_rule.

punct_sqleft2_orule :=
%prefix (!f '!f)
punctuation_sqleft_rule.

punct_hyphen_orule :=
%suffix (!p !p-)
punctuation_hyphen_rule.

; Add punct_comma_informal_rule for e.g. comma-marked subjects and hcomp heads
; but don't use for generation.
punct_comma_informal_orule :=
%suffix (!. !.,)
punctuation_comma_informal_rule.

; Replace punct_period_rule to also admit questions ending in periods
; For VM and EC data only
;punct_period_orule :=
;%suffix (!. !..)
;punctuation_period_robust_rule.