-
Notifications
You must be signed in to change notification settings - Fork 3
/
ple.tdl
110 lines (76 loc) · 2.2 KB
/
ple.tdl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
;;; -*- Mode: tdl; Coding: utf-8; -*-
;;;
;;; Copyright (c) 2000 -- 2018 Dan Flickinger ([email protected]);
;;; copyright (c) 2009 -- 2018 Stephan Oepen ([email protected]);
;;; see `LICENSE' for conditions.
;;;
;;;
;;; punctuation lexical entries
;;;
period_pct := pt_-_period_le &
[ ORTH < "." > ].
qmark_pct := pt_-_qmark_le &
[ ORTH < "?" > ].
bang_pct := pt_-_bang_le &
[ ORTH < "!" > ].
comma_pct := pt_-_comma_le &
[ ORTH < "," > ].
comma_inf_pct := pt_-_comma-informal_le &
[ ORTH < "," > ].
comma_dbl_pct := pt_-_comma-informal_le &
[ ORTH < ",", "," > ].
comma_sdwch_pct := pt_-_comma_le &
[ ORTH < "⸴" > ].
semicolon_pct := pt_-_semicolon_le &
[ ORTH < ";" > ].
rparen_pct := pt_-_rparen_le &
[ ORTH < ")" > ].
rcurlybrack_pct := pt_-_rparen_le &
[ ORTH < "}" > ].
rsqrbrack_pct := pt_-_rparen_le &
[ ORTH < "]" > ].
rvertbrack_pct := pt_-_rparen_le &
[ ORTH < "|" > ].
lparen_pct := pt_-_lparen_le &
[ ORTH < "(" > ].
lcurlybrack_pct := pt_-_lparen_le &
[ ORTH < "{" > ].
lsqrbrack_pct := pt_-_lparen_le &
[ ORTH < "[" > ].
lvertbrack_pct := pt_-_lparen_le &
[ ORTH < "|" > ].
dqright_pct := pt_-_dqright_le &
[ ORTH < "”" > ].
dqleft_pct := pt_-_dqleft_le &
[ ORTH < "“" > ].
sqright_pct := pt_-_sqright_le &
[ ORTH < "’" > ].
sqleft_pct := pt_-_sqleft_le &
[ ORTH < "‘" > ].
asterisk_pref_pct := pt_-_asterisk-pref_le &
[ ORTH < "*" > ].
italleft_pct := pt_-_italleft_le &
[ ORTH < "⌊/" > ].
italright_pct := pt_-_italright_le &
[ ORTH < "/⌋" > ].
italdropleft_pct := pt_-_drop-italleft_le &
[ ORTH < "⌊/" > ].
italdropright_pct := pt_-_drop-italright_le &
[ ORTH < "/⌋" > ].
dash_pct := pt_-_hyphn-rgt_le &
[ ORTH < "-" >,
SYNSEM.PHON.ONSET con_or_voc ].
punct_ellipsis_r := pt_-_3dots-rgt_le &
[ ORTH < "…" > ].
s_dash_pct := pt_-_s-dash_le &
[ ORTH < "–" >,
SYNSEM.PHON.ONSET con_or_voc ].
s_mdash_pct := pt_-_s-dash_le &
[ ORTH < "—" > ].
underbar_pct := pt_-_s-dash_le &
[ ORTH < "_" >,
SYNSEM.PHON.ONSET con_or_voc ].
;; DPF 2022-06-20 - Added cluster punctuation so we can avoid having an
;; embedded question impose its mark on the semantics of the enbedding clause.
qmark_dqright_pct := pt_-_dqright_le &
[ ORTH < "?", "”" > ].