Changeset 3675

Timestamp:

07/29/08 12:06:05 (4 months ago)

Author:

ksprotte

Message:

factored slot-strings into a seperate file

Files:

• trunk/projects/bos/m2/bos.m2.asd (modified) (2 diffs)
• trunk/projects/bos/m2/poi.lisp (modified) (3 diffs)
• trunk/projects/bos/m2/slot-strings.lisp (added)

trunk/projects/bos/m2/bos.m2.asd

@@ -12 +12 @@
-               (:file "config" :depends-on ("packages"))
-               (:file "utils" :depends-on ("packages"))
-poi
+slot-strings
-               (:file "tiled-index" :depends-on ("packages"))
-               (:file "mail-generator" :depends-on ("packages"))
@@ -25 +25 @@
-               (:file "allocation-cache" :depends-on ("allocation" "initialization-subsystem"
-                                                                   "packages" "utils"))
-
+
+
-               (:file "import" :depends-on ("packages"))
-               (:file "map" :depends-on ("config" "packages" "tiled-index"))

trunk/projects/bos/m2/poi.lisp

@@ -4 +4 @@
-;; Quadratmeter-Datenbank gespeichert werden.
-
-;; Die Implementation kurvt ein bisschen um den aktuellen Datastore
-;; herum, da eine Àsthetische Implementation der mehrsprachigen
-;; Strings MOP erforderlich machen wÃŒrde, die Umstellung des Datastore
-;; auf MOP jedoch noch nicht fertig ist.
-
-(in-package :bos.m2)
-
-;; Multilinguale Strings als Slots, werden als Hashes im Objekt
-;; gespeichert und ÃŒber slot-string bzw. (setf slot-string)
-;; angesprochen.
-
-(defun make-string-hash-table ()
-  (make-hash-table :test #'equal))
-
-(defun slot-string (object slot-name language &optional (not-found-value ""))
-  (or (gethash language (slot-value object slot-name)) not-found-value))
-
-(defun set-slot-string (object slot-name language new-value)
-  (unless (in-transaction-p)
-    (error "attempt to set string in multi-language string slot ~a of object ~a outside of transaction" slot-name object))
-  (setf (gethash language (slot-value object slot-name)) new-value))
-
-(defsetf slot-string set-slot-string)
-
-(deftransaction set-slot-string-values (object language &rest args)
-  (loop for (slot-name value) on args by #'cddr
-     do (setf (slot-string object slot-name language) value)))
-
-;;; POI-Anwendungsklassen und Konstruktoren
@@ -76 +50 @@
-;;; poi
-(define-persistent-class poi ()
-
+
+
-               :index-reader find-poi :index-values all-pois
-               :documentation "Symbolischer Name")
@@ -83 +58 @@
-   (description :update :initform (make-string-hash-table) :documentation "Beschreibungstext")
-   (area :update :initform nil :documentation "Polygon mit den POI-Koordinaten")
-
-
-
-
-
-
+
+
-
-(defmethod poi-movies :before ((poi poi))