source: trunk/src/xml-constants.lisp

Last change on this file was 385, checked in by lgiessmann, 14 years ago

tm-sparql: added an xtm file that contains all special uris defined by the networkedplanet tmsparql proposal as topic with corresponding PSIs; added a funtion that allos to initialise the tmsparql module, ie. the tmsparql xtm is imported

  • Property svn:eol-style set to native
File size: 1.1 KB
Line 
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 :xml-constants
11  (:use :common-lisp
12        :asdf)
13  (:import-from :constants
14                *isidorus-system*)
15  (:export :*xml-component*
16           :*core_psis.xtm*
17           :*rdf_core_psis.xtm*
18           :*tmsparql_core_psis.xtm*))
19
20(in-package :xml-constants)
21
22(defparameter *xml-component*
23  (asdf:find-component *isidorus-system* "xml"))
24
25(defparameter *core_psis.xtm*
26  (asdf:component-pathname
27   (asdf:find-component *isidorus-system* "xml/xtm/core_psis.xtm")))
28
29(defparameter *rdf_core_psis.xtm*
30  (asdf:component-pathname
31   (asdf:find-component *isidorus-system* "xml/rdf/rdf_core_psis.xtm")))
32
33(defparameter *tmsparql_core_psis.xtm*
34  (asdf:component-pathname
35   (asdf:find-component *isidorus-system* "TM-SPARQL/tmsparql_core_psis.xtm")))
Note: See TracBrowser for help on using the repository browser.