| 1 | ;;+----------------------------------------------------------------------------- |
|---|
| 2 | ;;+ Isidorus |
|---|
| 3 | ;;+ (c) 2008-2010 Marc Kuester, Christoph Ludwig, Lukas Georgieff |
|---|
| 4 | ;;+ |
|---|
| 5 | ;;+ Isidorus is freely distributable under the LLGPL license. |
|---|
| 6 | ;;+ You can find a detailed description in trunk/docs/LLGPL-LICENSE.txt and |
|---|
| 7 | ;;+ trunk/docs/LGPL-LICENSE.txt. |
|---|
| 8 | ;;+----------------------------------------------------------------------------- |
|---|
| 9 | |
|---|
| 10 | (defpackage :constants |
|---|
| 11 | (:use :cl :base-tools) |
|---|
| 12 | (:export :*atom-ns* |
|---|
| 13 | :*egovpt-ns* |
|---|
| 14 | :*instance-psi* |
|---|
| 15 | :*isidorus-system* |
|---|
| 16 | :*type-instance-psi* |
|---|
| 17 | :*type-psi* |
|---|
| 18 | :*supertype-subtype-psi* |
|---|
| 19 | :*supertype-psi* |
|---|
| 20 | :*subtype-psi* |
|---|
| 21 | :*xtm2.0-ns* |
|---|
| 22 | :*xtm1.0-ns* |
|---|
| 23 | :*xtm1.0-xlink* |
|---|
| 24 | :*rdf-ns* |
|---|
| 25 | :*rdfs-ns* |
|---|
| 26 | :*xml-ns* |
|---|
| 27 | :*xmlns-ns* |
|---|
| 28 | :*xml-string* |
|---|
| 29 | :*xml-boolean* |
|---|
| 30 | :*xml-decimal* |
|---|
| 31 | :*xml-double* |
|---|
| 32 | :*xml-integer* |
|---|
| 33 | :*xml-date* |
|---|
| 34 | :*xml-uri* |
|---|
| 35 | :*rdf2tm-ns* |
|---|
| 36 | :*rdf-statement* |
|---|
| 37 | :*rdf-object* |
|---|
| 38 | :*rdf-subject* |
|---|
| 39 | :*rdf-predicate* |
|---|
| 40 | :*rdf-nil* |
|---|
| 41 | :*rdf-first* |
|---|
| 42 | :*rdf-rest* |
|---|
| 43 | :*rdf-type* |
|---|
| 44 | :*rdf2tm-object* |
|---|
| 45 | :*rdf2tm-subject* |
|---|
| 46 | :*rdf2tm-scope-prefix* |
|---|
| 47 | :*tm2rdf-ns* |
|---|
| 48 | :*tm2rdf-topic-type-uri* |
|---|
| 49 | :*tm2rdf-name-type-uri* |
|---|
| 50 | :*tm2rdf-name-property* |
|---|
| 51 | :*tm2rdf-variant-type-uri* |
|---|
| 52 | :*tm2rdf-variant-property* |
|---|
| 53 | :*tm2rdf-occurrence-type-uri* |
|---|
| 54 | :*tm2rdf-occurrence-property* |
|---|
| 55 | :*tm2rdf-role-type-uri* |
|---|
| 56 | :*tm2rdf-role-property* |
|---|
| 57 | :*tm2rdf-association-type-uri* |
|---|
| 58 | :*tm2rdf-associaiton-property* |
|---|
| 59 | :*tm2rdf-subjectIdentifier-property* |
|---|
| 60 | :*tm2rdf-itemIdentity-property* |
|---|
| 61 | :*tm2rdf-subjectLocator-property* |
|---|
| 62 | :*tm2rdf-value-property* |
|---|
| 63 | :*tm2rdf-nametype-property* |
|---|
| 64 | :*tm2rdf-scope-property* |
|---|
| 65 | :*tm2rdf-varianttype-property* |
|---|
| 66 | :*tm2rdf-occurrencetype-property* |
|---|
| 67 | :*tm2rdf-roletype-property* |
|---|
| 68 | :*tm2rdf-associationtype-property* |
|---|
| 69 | :*tm2rdf-player-property* |
|---|
| 70 | :*rdf2tm-blank-node-prefix* |
|---|
| 71 | :*tm2rdf-reifier-property* |
|---|
| 72 | :*xsd-ns* |
|---|
| 73 | :*topic-name-psi*)) |
|---|
| 74 | |
|---|
| 75 | |
|---|
| 76 | (in-package :constants) |
|---|
| 77 | (defparameter *xtm2.0-ns* "http://www.topicmaps.org/xtm/") |
|---|
| 78 | |
|---|
| 79 | (defparameter *xtm1.0-ns* "http://www.topicmaps.org/xtm/1.0/") |
|---|
| 80 | |
|---|
| 81 | (defparameter *xtm1.0-xlink* "http://www.w3.org/1999/xlink") |
|---|
| 82 | |
|---|
| 83 | (defparameter *atom-ns* "http://www.w3.org/2005/Atom") |
|---|
| 84 | |
|---|
| 85 | (defparameter *egovpt-ns* "http://www.egovpt.org/sdshare/") |
|---|
| 86 | |
|---|
| 87 | (defparameter *type-instance-psi* "http://psi.topicmaps.org/iso13250/model/type-instance") |
|---|
| 88 | |
|---|
| 89 | (defparameter *type-psi* "http://psi.topicmaps.org/iso13250/model/type") |
|---|
| 90 | |
|---|
| 91 | (defparameter *instance-psi* "http://psi.topicmaps.org/iso13250/model/instance") |
|---|
| 92 | |
|---|
| 93 | (defparameter *supertype-subtype-psi* "http://psi.topicmaps.org/iso13250/model/supertype-subtype") |
|---|
| 94 | |
|---|
| 95 | (defparameter *supertype-psi* "http://psi.topicmaps.org/iso13250/model/supertype") |
|---|
| 96 | |
|---|
| 97 | (defparameter *subtype-psi* "http://psi.topicmaps.org/iso13250/model/subtype") |
|---|
| 98 | |
|---|
| 99 | (defparameter *isidorus-system* (asdf:find-system "isidorus")) |
|---|
| 100 | |
|---|
| 101 | (defparameter *rdf-ns* "http://www.w3.org/1999/02/22-rdf-syntax-ns#") |
|---|
| 102 | |
|---|
| 103 | (defparameter *rdfs-ns* "http://www.w3.org/2000/01/rdf-schema#") |
|---|
| 104 | |
|---|
| 105 | (defparameter *xml-ns* "http://www.w3.org/XML/1998/namespace") |
|---|
| 106 | |
|---|
| 107 | (defparameter *xmlns-ns* "http://www.w3.org/2000/xmlns/") |
|---|
| 108 | |
|---|
| 109 | (defparameter *xml-string* "http://www.w3.org/2001/XMLSchema#string") |
|---|
| 110 | |
|---|
| 111 | (defparameter *xml-boolean* "http://www.w3.org/2001/XMLSchema#boolean") |
|---|
| 112 | |
|---|
| 113 | (defparameter *xml-integer* "http://www.w3.org/2001/XMLSchema#integer") |
|---|
| 114 | |
|---|
| 115 | (defparameter *xml-date* "http://www.w3.org/2001/XMLSchema#date") |
|---|
| 116 | |
|---|
| 117 | (defparameter *xml-decimal* "http://www.w3.org/2001/XMLSchema#decimal") |
|---|
| 118 | |
|---|
| 119 | (defparameter *xml-double* "http://www.w3.org/2001/XMLSchema#double") |
|---|
| 120 | |
|---|
| 121 | (defparameter *xml-uri* "http://www.w3.org/2001/XMLSchema#anyURI") |
|---|
| 122 | |
|---|
| 123 | (defparameter *rdf2tm-ns* "http://isidorus/rdf2tm_mapping/") |
|---|
| 124 | |
|---|
| 125 | (defparameter *rdf-statement* (concat *rdf-ns* "Statement")) |
|---|
| 126 | |
|---|
| 127 | (defparameter *rdf-object* (concat *rdf-ns* "object")) |
|---|
| 128 | |
|---|
| 129 | (defparameter *rdf-subject* (concat *rdf-ns* "subject")) |
|---|
| 130 | |
|---|
| 131 | (defparameter *rdf-predicate* (concat *rdf-ns* "predicate")) |
|---|
| 132 | |
|---|
| 133 | (defparameter *rdf-nil* (concat *rdf-ns* "nil")) |
|---|
| 134 | |
|---|
| 135 | (defparameter *rdf-type* (concat *rdf-ns* "type")) |
|---|
| 136 | |
|---|
| 137 | (defparameter *rdf-first* (concat *rdf-ns* "first")) |
|---|
| 138 | |
|---|
| 139 | (defparameter *rdf-rest* (concat *rdf-ns* "rest")) |
|---|
| 140 | |
|---|
| 141 | (defparameter *rdf2tm-object* (concat *rdf2tm-ns* "object")) |
|---|
| 142 | |
|---|
| 143 | (defparameter *rdf2tm-subject* (concat *rdf2tm-ns* "subject")) |
|---|
| 144 | |
|---|
| 145 | (defparameter *rdf2tm-scope-prefix* (concat *rdf2tm-ns* "scope/")) |
|---|
| 146 | |
|---|
| 147 | (defparameter *rdf2tm-blank-node-prefix* (concat *rdf2tm-ns* "blank_node/")) |
|---|
| 148 | |
|---|
| 149 | (defparameter *tm2rdf-ns* "http://isidorus/tm2rdf_mapping/") |
|---|
| 150 | |
|---|
| 151 | (defparameter *tm2rdf-topic-type-uri* (concat *tm2rdf-ns* "types/Topic")) |
|---|
| 152 | |
|---|
| 153 | (defparameter *tm2rdf-name-type-uri* (concat *tm2rdf-ns* "types/Name")) |
|---|
| 154 | |
|---|
| 155 | (defparameter *tm2rdf-name-property* (concat *tm2rdf-ns* "name")) |
|---|
| 156 | |
|---|
| 157 | (defparameter *tm2rdf-variant-type-uri* (concat *tm2rdf-ns* "types/Variant")) |
|---|
| 158 | |
|---|
| 159 | (defparameter *tm2rdf-variant-property* (concat *tm2rdf-ns* "variant")) |
|---|
| 160 | |
|---|
| 161 | (defparameter *tm2rdf-occurrence-type-uri* (concat *tm2rdf-ns* "types/Occurrence")) |
|---|
| 162 | |
|---|
| 163 | (defparameter *tm2rdf-occurrence-property* (concat *tm2rdf-ns* "occurrence")) |
|---|
| 164 | |
|---|
| 165 | (defparameter *tm2rdf-role-type-uri* (concat *tm2rdf-ns* "types/Role")) |
|---|
| 166 | |
|---|
| 167 | (defparameter *tm2rdf-role-property* (concat *tm2rdf-ns* "role")) |
|---|
| 168 | |
|---|
| 169 | (defparameter *tm2rdf-association-type-uri* (concat *tm2rdf-ns* "types/Association")) |
|---|
| 170 | |
|---|
| 171 | (defparameter *tm2rdf-association-property* (concat *tm2rdf-ns* "association")) |
|---|
| 172 | |
|---|
| 173 | (defparameter *tm2rdf-subjectIdentifier-property* (concat *tm2rdf-ns* "subjectIdentifier")) |
|---|
| 174 | |
|---|
| 175 | (defparameter *tm2rdf-subjectLocator-property* (concat *tm2rdf-ns* "subjectLocator")) |
|---|
| 176 | |
|---|
| 177 | (defparameter *tm2rdf-itemIdentity-property* (concat *tm2rdf-ns* "itemIdentity")) |
|---|
| 178 | |
|---|
| 179 | (defparameter *tm2rdf-value-property* (concat *tm2rdf-ns* "value")) |
|---|
| 180 | |
|---|
| 181 | (defparameter *tm2rdf-nametype-property* (concat *tm2rdf-ns* "nametype")) |
|---|
| 182 | |
|---|
| 183 | (defparameter *tm2rdf-scope-property* (concat *tm2rdf-ns* "scope")) |
|---|
| 184 | |
|---|
| 185 | (defparameter *tm2rdf-varianttype-property* (concat *tm2rdf-ns* "varianttype")) |
|---|
| 186 | |
|---|
| 187 | (defparameter *tm2rdf-occurrencetype-property* (concat *tm2rdf-ns* "occurrencetype")) |
|---|
| 188 | |
|---|
| 189 | (defparameter *tm2rdf-roletype-property* (concat *tm2rdf-ns* "roletype")) |
|---|
| 190 | |
|---|
| 191 | (defparameter *tm2rdf-associationtype-property* (concat *tm2rdf-ns* "associationtype")) |
|---|
| 192 | |
|---|
| 193 | (defparameter *tm2rdf-player-property* (concat *tm2rdf-ns* "player")) |
|---|
| 194 | |
|---|
| 195 | (defparameter *tm2rdf-reifier-property* (concat *tm2rdf-ns* "reifier")) |
|---|
| 196 | |
|---|
| 197 | (defparameter *xsd-ns* "http://www.w3.org/2001/XMLSchema#") |
|---|
| 198 | |
|---|
| 199 | (defparameter *topic-name-psi* "http://psi.topicmaps.org/iso13250/model/topic-name") |
|---|