(in-package "KPML")
(in-language :languages :english)

;; stops subjects being topical when there are thematic circumstances...

(GATE
 :NAME   marked-theme
 :INPUTS   (or thematic-accompaniment thematic-cause thematic-complement thematic-manner
               thematic-role thematic-spatial-extent thematic-spatial-location
               thematic-temporal-extent thematic-temporal-location thematic-matter)
 :OUTPUTS   ((1.0 marked-theme))
 :REGION   THEME
 :METAFUNCTION   TEXTUAL
 )

;;; 14-8-1999 15:01:36 -- current language is :ENGLISH


(GATE
 :NAME   TOPICAL-SUBJECT
 :INPUTS   (AND SUBJECT-INSERTED
                (OR (AND ACCOMPANIMENT NONTHEMATIC-ACCOMPANIMENT)
                    NONACCOMPANIMENT)
                (OR (AND CAUSE NONTHEMATIC-CAUSE)
                    NONCAUSE)
                (OR (AND COMPLEMENTED NONTHEMATIC-COMPLEMENT)
                    NONCOMPLEMENTED)
                (OR (AND MANNER NONTHEMATIC-MANNER)
                    NONMANNER)
                (OR (AND MATTER NONTHEMATIC-MATTER)
                    NONMATTER)
                (OR (AND ROLE NONTHEMATIC-ROLE)
                    NONROLE)
                (OR (AND SPATIAL-EXTENT NONTHEMATIC-SPATIAL-EXTENT)
                    NO-SPATIAL-EXTENT)
                (OR (AND SPATIAL-LOCATION NONTHEMATIC-SPATIAL-LOCATION)
                    NO-SPATIAL-LOCATION)
                (OR (AND TEMPORAL-EXTENT NONTHEMATIC-TEMPORAL-EXTENT)
                    NO-TEMPORAL-EXTENT)
                (OR (AND TEMPORAL-LOCATION NONTHEMATIC-TEMPORAL-LOCATION)
                    NO-TEMPORAL-LOCATION)
                (OR EXPLICIT-DECLARATIVE-SUBJECT INDIRECT-INDICATIVE
                    EXTENDING-CLAUSE ENHANCING-CLAUSE FINITE-ELABORATING
                    IMPLICIT-SUBJECT-ELABORATING
                    (AND IMPERATIVE
                         (OR OBLATIVE SUGGESTIVE IMPERATIVE-SUBJECT-EXPLICIT))))
 :OUTPUTS   ((1.0 TOPICAL-SUBJECT
                  (CONFLATE TOPICAL SUBJECT)))
 :REGION   THEME
 :METAFUNCTION   TEXTUAL
 )
