Changeset 711 for trunk/src/json

Timestamp:

08/04/11 19:01:13 (14 years ago)

Author:

lgiessmann

Message:

trunk: datamodel: improved caching of serialized fragments

File:

• trunk/src/json/isidorus-json/json_exporter.lisp (modified) (1 diff)

trunk/src/json/isidorus-json/json_exporter.lisp ¶

@@ -481 +481 @@
                  j-str))
           (concat (subseq j-str 0 (- (length j-str) 1)) "}")))))
-
-
-;; =============================================================================
-;; --- json data fragment-serializer-cache -------------------------------------
-;; =============================================================================
-
-(defgeneric set-fragment-cache (fragment)
-  (:documentation "sets the fragment cache, no matter if the
-                   fragment chaged or not.")
-  (:method ((fragment FragmentC))
-    (let ((top (topic fragment)))
-      (setf (slot-value fragment 'serializer-notes)
-            (list :psis (length (psis top :revision 0))
-                  :iis (length (item-identifiers top :revision 0))
-                  :sls (length (locators top :revision 0))
-                  :names (length (names top :revision 0))
-                  :occurrences (length (occurrences top :revision 0))
-                  :roles (length (player-in-roles top :revision 0))))
-      (setf (slot-value fragment 'serializer-cache)
-            (json-exporter:export-construct-as-isidorus-json-string
-             fragment :revision 0))
-      (serializer-cache fragment))))
-
-
-(defgeneric serialize-fragment (fragment)
-  (:documentation "returns a string that represent the isidours-json
-                   serialization of the passed fragment instance.
-                   This method uses the fragments serializer-cache
-                   slot to perform faster, i.e. if the fragment has
-                   not changed since the last time, the serializer-cache
-                   is returned, otherwise the serialization is invoked
-                   again.")
-  (:method ((fragment FragmentC))
-    (cond ((null (serializer-notes fragment))
-           (set-fragment-cache fragment))
-          ((serializer-notes-changed-p fragment)
-           (set-fragment-cache fragment))
-          (t
-           (serializer-cache fragment)))))
-           
-          
-