Changeset 340 for trunk/src/model

Timestamp:

11/17/10 21:41:59 (14 years ago)

Author:

lgiessmann

Message:

added a SPARQL-Query class with several accessor-methods. This class contains the actual query-string, some query-attributes and the result objects; started to implement a SPARQL-parser => currently the PREFIX parts can be processed; added some functions to base-tools

Location:

trunk/src/model

Files:

• datamodel.lisp (modified) (2 diffs)
• exceptions.lisp (modified) (1 diff)

trunk/src/model/datamodel.lisp ¶

@@ -136 +136 @@
            :list-super-types
            :in-topicmap
-           :string-starts-with
            :get-fragments
            :get-fragment
@@ -883 +882 @@
 (defmethod internal-id ((construct TopicMapConstructC))
   (slot-value construct (find-symbol "OID" 'elephant)))
-
-
-(defun string-starts-with (str prefix)
-  "Checks if string str starts with a given prefix."
-  (declare (string str prefix))
-  (string= str prefix :start1 0 :end1
-           (min (length prefix)
-                (length str))))
 
 

trunk/src/model/exceptions.lisp ¶

@@ -18 +18 @@
            :missing-argument-error
            :tm-reference-error
-           :bad-type-error))
+           :bad-type-error
+           :missing-query-string-error
+           :sparql-parser-error))
 
 (in-package :exceptions)
+
+
+(define-condition missing-query-string-error(error)
+  ((message
+    :initarg :message
+    :accessor message)))
+
+
+(define-condition sparql-parser-error(error)
+  ((message
+    :initarg :message
+    :accessor message)))
+
 
 (define-condition inconsistent-file-error(error)