;;; -*- Mode: tdl; Coding: utf-8; -*- ;;; ;;; Copyright (c) 2000 -- 2018 Dan Flickinger (danf@stanford.edu); ;;; copyright (c) 2009 -- 2018 Stephan Oepen (oe@ifi.uio.no); ;;; 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 < "?", "”" > ].