;;; -*-Scheme-*-

(ns-base-uri "http://dig.csail.mit.edu/TAMI/tami-entities")

(ns-prefix ts: "http://dig.csail.mit.edu/TAMI/tami-schema#")
(ns-prefix sorn: "http://dig.csail.mit.edu/TAMI/sorn-schema#")
(ns-prefix law: "http://dig.csail.mit.edu/TAMI/law/")

(ns-prefix u: "http://niem.gov/niem/universal/0.1#")

;;;; Officials

(ts:Official :RobinsonDuckworth
	     u:personGivenName "Robinson"
	     u:personSurName "Duckworth"
	     ts:employment
	     (ts:Employment #f
			    ts:position ts:CriminalInvestigator
			    ts:office :TSA-DC))

#|
<ts:Official rdf:ID=":RobinsonDuckworth">
    <ts:employment>
	<ts:Employment ts:position="ts:CriminalInvestigator"
		       ts:office=":TSA-DC">
	</ts:Employment>
    </ts:employment>
</ts:Official>
|#

(ts:Official :CharlesDodgson
	     u:personGivenName "Charles"
	     u:personMiddleName "Lutwidge"
	     u:personSurName "Dodgson"
	     ts:employment
	     (ts:Employment #f
			    ts:position ts:SpecialAgent
			    ts:office :FBI-NYC))

(ts:Official :ChristianAbelman
	     u:personGivenName "Christian"
	     u:personMiddleName "M."
	     u:personSurName "Abelman"
	     ts:employment
	     (ts:Employment #f
			    ts:position ts:AssistantUSAttorney
			    ts:office :USAO-NY))

(ts:Official :AnnaLiszt
	     u:personGivenName "Anna"
	     u:personSurName "Liszt"
	     ts:employment
	     (ts:Employment #f
			    ts:position ts:IntelligenceAnalyst
			    ts:office :FBI-NYC))

(ts:Official :MattDillon
	     u:personGivenName "Matthew"
	     u:personSurName "Dillon"
	     ts:employment
	     (ts:Employment #f
			    ts:position ts:DeputyMarshal
			    ts:office :marshalls-NY))

(ts:Official :JosephCrater
	     u:personGivenName "Joseph"
	     u:personMiddleName "F."
	     u:personSurName "Crater"
	     ts:employment
	     (ts:Employment #f
			    ts:position ts:Judge
			    ts:organization :NYCFC))

;;;; Organizations

(ts:Organization :USG
		 dc:title "United States Government"
		 dc:identifier http://www.firstgov.gov/)

(ts:Organization :FederalExecutive
		 dc:title "Federal Executive Branch"
		 ts:partOf :USG)

(ts:Organization :FR
		 dc:title "Federal Register"
		 dc:identifier http://www.gpoaccess.gov/fr/
		 ts:partOf :FederalExecutive)

(ts:Organization :DHS
		 dc:title "Department of Homeland Security"
		 dc:identifier http://www.dhs.gov/
		 ts:partOf :FederalExecutive)

(ts:Organization :TSA
		 dc:title "Transportation Security Administration"
		 dc:identifier http://www.tsa.gov/
		 ts:partOf :DHS)

(ts:Organization :DOJ
		 dc:title "Department of Justice"
		 dc:identifier http://www.usdoj.gov/
		 ts:partOf :FederalExecutive)

(ts:Organization :FBI
		 dc:title "Federal Bureau of Investigation"
		 dc:identifier http://www.fbi.gov/
		 ts:partOf :DOJ)

(ts:Organization :JTTF
		 dc:title "Joint Terrorism Task Force"
		 ts:partOf :FBI)

(ts:Organization :TSC
		 dc:title "Terrorism Screening Center"
		 ts:partOf :FBI)

(ts:Organization :Marshalls
		 dc:title "US Marshals Service"
		 dc:identifier http://www.usmarshals.gov/
		 ts:partOf :DOJ)

(ts:Organization :USAO
		 dc:title "United States Attorneys"
		 dc:identifier http://www.usdoj.gov/usao/
		 ts:partOf :DOJ)

(ts:Organization :BOP
		 dc:title "Federal Bureau of Prisons"
		 dc:identifier http://www.bop.gov/
		 ts:partOf :DOJ)

(ts:Organization :NYCFC
		 dc:title "New York City Family Court"
		 dc:identifier http://www.nycourts.gov/courts/nyc/family/)

;;;; Offices

(ts:Office :FBI-NYC
	   ts:organization :FBI
	   ts:address :NYC)

(ts:Office :Marshals-NY
	   ts:organization :Marshals
	   ts:address :NYC)

(ts:Office :TSA-DC
	   ts:organization :TSA
	   ts:address :DC)

(ts:Office :JTTF-NY
	   ts:organization :JTTF
	   ts:address :NYC)

(ts:Office :USAO-NY
	   ts:organization :USAO
	   ts:address :NYC)

(ts:Office :MCC-NYC
	   dc:title "Metropolitan Correctional Center - NEW YORK"
	   ts:organization :BOP
	   ts:address :NYC)

(ts:Location :NYC
	     u:locationCityName "New York"
	     u:locationStateName "NY")

(ts:Location :DC
	     u:locationCityName "Washington"
	     u:locationStateName "DC")

;;;; Databases

(sorn:SOR :SFDB
	  dc:title "Secure Flight Test Records System"
	  ts:owner :TSA
	  sorn:notice http://edocket.access.gpo.gov/2005/05-12405.htm)

(ts:Database :TSDB
	     ts:owner :TSC)

(ts:Commercial-database :lexis
			ts:owner
			(ts:Organization #f dc:title "LexisNexis"))

(ts:Commercial-database :AA-PNR
			ts:owner
			(ts:Organization #f dc:title "American Airlines"))

;;;; Legal citations

;; body-of-law title [subtitle-structure] section subsection subsubsection

;; 18 USC part/chapter/section/...
;; 26 USC subtitle/chapter/subchapter/part/section/...

;; law:<body>/<title>/<section>#<subsection>_<subsection>_ ...
;; 18 USC 228 -> law:USC/18/228
;; 18 USC 228(a) -> law:USC/18/228#a
;; 18 USC 228(a)(2) -> law:USC/18/228#a_2

;; Very stupid version of this.  We will need a much more powerful one
;; to support alternate notations, such as those incorporating
;; subtitle structure.

(define (statute<=? s1 s2)
  (let ((s1 (uri->string s1))
	(s2 (uri->string s2)))
    (let ((i (string-match-forward s1 s2))
	  (n (string-length s1)))
      (and (> i 0)
	   (if (< i n)
	       (memq (string-ref s1 i) '(#\/ #\# #\_))
	       #t)))))

(sorn:Authorized-purpose :ct-criminal-law-enforcement
			 ts:statute law:USC/18/2331
			 ts:statute law:USC/18/2332
			 ts:statute law:USC/18/2333
			 ts:statute law:USC/18/2334
			 ts:statute law:USC/18/2335
			 ts:statute law:USC/18/2336
			 ts:statute law:USC/18/2337
			 ts:statute law:USC/18/2338
			 ts:statute law:USC/18/2339/a
			 ts:statute law:USC/18/2339/b
			 ts:statute law:USC/18/2339/c)

(sorn:Authorized-purpose :ct-intelligence)