X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=scratch.lisp;h=67540bc03200e05d224e0c19a4beb89d313ae6c4;hp=136799df5f2f22b443d6429fb6a35363c21c3915;hb=96d5b46f8a408652757fb21a801c005697dc45f7;hpb=e4d88be3d42602ab32883201be6a9eda576356b7;ds=sidebyside

diff --git a/scratch.lisp b/scratch.lisp
index 136799d..67540bc 100644
--- a/scratch.lisp
+++ b/scratch.lisp
@@ -1,6 +1,24 @@
 (setf *e* (empire::connect :user "1" :password "1"))
 (empire::quit *e*)
 
+;XDUMP meta meta 1242293190
+;"name" 3 4 0 -1
+;"type" 4 4 0 34
+;"flags" 5 12 0 33
+;"len" 7 4 0 -1
+;"table" 8 4 0 -1
+;/5
+(defclass meta ()
+  (name type flags len table))
+
+;XDUMP meta meta-type 1242293224
+;"value" 8 4 0 -1
+;"name" 3 4 0 -1
+;/2
+(defclass meta-type ()
+  ((value :x-type 8 :x-flags 4 :x-len 0 :x-table nil)
+    (name :x-type 3 :x-flags 4 :x-len 0 :x-table nil)))
+
 ;; http://localhost:4242/eow/
 
 ;(setf *r* (drakma:http-request "http://gdata.youtube.com/feeds/videos"))
@@ -17,3 +35,17 @@
 ;(klacks:peek-next *s*)
 ;(klacks:find-element *s* "entry")
 ;(klacks:serialize-element *s* (cxml-xmls:make-xmls-builder))
+
+;;;;;;;;;;;;;;;;;;
+
+(defclass meta-type ()
+  (value name))
+
+(sb-mop:ensure-class 'meta-type 
+		     ':direct-superclasses '()
+		     ':direct-slots (list (list ':name 'value)
+					  (list ':name 'name)))
+
+
+(loop for entry across (xdump::table-entries (xdump::get-table "table")) if entry collect (xdump-data::table-name entry))
+