Changeset 3695

Show
Ignore:
Timestamp:
07/30/08 15:18:21 (4 months ago)
Author:
ksprotte
Message:

working on new m2 poi schema; cleaned up exprted poi symbols

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/m2/packages.lisp

    r3681 r3695  
    201201           #:left #:top #:width #:height #:active-p 
    202202 
    203            ;; pois 
    204            #:*current-language* 
     203           ;; slot-strings 
    205204           #:slot-string 
    206205           #:set-slot-string-values 
    207  
     206                       
     207           ;; pois 
     208           #:title #:subtitle #:description ; for slot-string access 
     209           #:update-textual-attributes 
     210           #:poi-medium 
     211           #:poi-medium-poi 
     212           #:make-poi-medium 
    208213           #:poi-image 
    209            #:poi-image-poi 
    210            #:poi-image-title 
    211            #:poi-image-subtitle 
    212            #:poi-image-description 
    213            #:poi-airals 
    214            #:airals 
    215            #:poi-panoramas 
    216            #:panoramas 
    217            #:poi-movies 
    218            #:movies 
     214           #:poi-airal 
     215           #:poi-panorama 
    219216           #:poi-movie 
    220            #:poi-movie-poi 
    221217           #:poi-movie-url 
    222            #:make-poi-image 
    223            #:update-poi-image 
    224218           #:poi 
    225219           #:poi-name 
     220           #:find-poi 
     221           #:all-pois 
    226222           #:poi-published 
    227            #:poi-title 
    228            #:poi-subtitle 
    229            #:poi-description 
    230223           #:poi-area 
    231224           #:poi-icon 
    232            #:poi-images 
     225           #:poi-media 
     226           #:make-poi 
    233227           #:poi-complete 
    234            #:title #:subtitle #:description ; for slot-string access 
    235            #:make-poi 
    236            #:update-poi 
    237            #:find-poi 
    238  
    239228           #:poi-center-x 
    240229           #:poi-center-y 
    241230           #:poi-center-lon-lat 
     231           #:poi-images 
     232           #:poi-airals 
     233           #:poi-panoramas 
     234           #:poi-movies 
    242235           #:make-poi-javascript 
    243  
     236            
    244237           ;; news 
    245238           #:news-item 

  • trunk/projects/bos/m2/poi.lisp

    r3694 r3695  
    99 
    1010;;; textual-attributes-mixin 
    11 (define-persistent-class textual-attributes-mixin () 
    12   ((title :update :initform (make-string-hash-table) 
    13                   :documentation "Angezeigter Name") 
    14    (subtitle :update :initform (make-string-hash-table) 
    15                      :documentation "Unterschrift") 
    16    (description :update :initform (make-string-hash-table) 
    17                         :documentation "Beschreibungstext"))) 
     11(defpersistent-class textual-attributes-mixin () 
     12  ((title :initform (make-string-hash-table) 
     13          :documentation "angezeigter name") 
     14   (subtitle :initform (make-string-hash-table) 
     15             :documentation "unterschrift") 
     16   (description :initform (make-string-hash-table) 
     17                :documentation "beschreibungstext"))) 
    1818 
    1919(deftransaction update-textual-attributes (obj language &key title subtitle description) 
    …… 
    2323    (setf (slot-string obj 'subtitle language) subtitle)) 
    2424  (when description 
    25     (setf (slot-string obj 'description language) description))) 
     25    (setf (slot-string obj 'description language) description)) 
     26  obj) 
    2627 
    2728;;; poi-medium 
    28 (define-persistent-class poi-medium (textual-attributes-mixin) 
    29   ((poi :read))) 
     29(defpersistent-class poi-medium (textual-attributes-mixin) 
     30  ((poi :reader poi-medium-poi :initarg :poi))) 
    3031 
    3132(deftransaction make-poi-medium (class-name &rest rest &key language title subtitle description poi initargs) 
    …… 
    5455 
    5556;;; poi-image 
    56 (define-persistent-class poi-image (store-image poi-medium) 
     57(defpersistent-class poi-image (store-image poi-medium) 
    5758  ()) 
    5859 
    5960;;; poi-airal 
    60 (define-persistent-class poi-airal (store-image poi-medium) 
     61(defpersistent-class poi-airal (store-image poi-medium) 
    6162  ()) 
    6263 
    6364;;; poi-panorama 
    64 (define-persistent-class poi-panorama (store-image poi-medium) 
     65(defpersistent-class poi-panorama (store-image poi-medium) 
    6566  ()) 
    6667 
    6768;;; poi-movie 
    68 (define-persistent-class poi-movie (poi-medium) 
    69   ((url :update :initform nil))) 
     69(defpersistent-class poi-movie (poi-medium) 
     70  ((url :accessor poi-movie-url :initarg :url :initform nil))) 
    7071 
    7172;;; poi 
    72 (define-persistent-class poi (textual-attributes-mixin) 
    73   ((name :read :index-type string-unique-index 
    74                :index-reader find-poi :index-values all-pois 
    75                :documentation "Symbolischer Name") 
    76    (published :update :initform nil :documentation "Wenn dieses Flag NIL ist, wird der POI in den UIs nicht angezeigt") 
    77    (area :update :initform nil :documentation "Polygon mit den POI-Koordinaten") 
    78    (icon :update :initform "palme" :documentation "Name des Icons") 
    79    (media :update :initform nil :documentation "Liste aller POI-Medien, wie POI-IMAGE, POI-AIRAL ..."))) 
     73(defpersistent-class poi (textual-attributes-mixin)   
     74  ((name 
     75    :reader poi-name :initarg :name 
     76    :index-type string-unique-index 
     77    :index-reader find-poi :index-values all-pois 
     78    :documentation "symbolischer name") 
     79   (published 
     80    :accessor poi-published :initarg :published :initform nil 
     81    :documentation "wenn dieses flag nil ist, wird der poi in den uis nicht angezeigt") 
     82   (area 
     83    :accessor poi-area :initarg :area :initform nil 
     84    :documentation "polygon mit den poi-koordinaten") 
     85   (icon 
     86    :accessor poi-icon :initarg :icon :initform "palme" 
     87    :documentation "name des icons") 
     88   (media 
     89    :accessor poi-media :initarg :media :initform nil 
     90    :documentation "liste aller poi-medien, wie poi-image, poi-airal ..."))) 
    8091 
    8192(deftransaction make-poi (language name &key title description area) 

  • trunk/projects/bos/test/bos.test.asd

    r3656 r3695  
    1         (in-package :cl-user) 
     1;; -*- Lisp -*- 
     2(in-package :cl-user) 
    23 
    3         (asdf:defsystem :bos.test 
    4           :description "BOS Online-System test-suite" 
    5             :depends-on (:bos.web :fiveam :drakma) 
    6               :components ((:file "package") 
    7                              (:file "suites" :depends-on ("package")) 
    8                                             (:file "fixtures" :depends-on ("package")) 
    9                                                            (:file "allocation" :depends-on ("suites" "fixtures")) 
    10                                                                           (:file "geometry" :depends-on ("suites")) 
    11                                                                                          (:file "geo-utm" :depends-on ("suites")) 
    12                                                                                                         ;; (:file "utils" :depends-on ("config")) 
    13                                                                                                                        (:module :web 
    14                                                                                                                                                :depends-on ("suites" "fixtures") 
    15                                                                                                                                                                        :components 
    16                                                                                                                                                                                                ((:file "drakma-requests") 
    17                                                                                                                                                                                                                         (:file "quad-tree") 
    18                                                                                                                                                                                                                                                  (:file "sat-tree"))))) 
     4(asdf:defsystem :bos.test 
     5  :description "BOS Online-System test-suite" 
     6  :depends-on (:bos.web :fiveam :drakma) 
     7  :components ((:file "package") 
     8               (:file "suites" :depends-on ("package")) 
     9               (:file "fixtures" :depends-on ("package")) 
     10               (:file "allocation" :depends-on ("suites" "fixtures")) 
     11               (:file "geometry" :depends-on ("suites")) 
     12               (:file "geo-utm" :depends-on ("suites")) 
     13               (:file "poi" :depends-on ("suites")) 
     14               ;; (:file "utils" :depends-on ("config")) 
     15               (:module :web 
     16                        :depends-on ("suites" "fixtures") 
     17                        :components 
     18                        ((:file "drakma-requests") 
     19                         (:file "quad-tree") 
     20                         (:file "sat-tree"))))) 

  • trunk/projects/bos/test/suites.lisp

    r3656 r3695  
    77    :in :bos.test 
    88    :description "Tests for everything about allocation, including the allocation-cache.") 
     9 
     10(def-suite :bos.test.poi 
     11    :in :bos.test) 
    912 
    1013(def-suite :bos.test.geometry