Comment class stub
[eow] / scratch.lisp
1 (setf *e* (empire::connect :user "1" :password "1"))
2 (empire::quit *e*)
3
4 ;XDUMP meta meta 1242293190
5 ;"name" 3 4 0 -1
6 ;"type" 4 4 0 34
7 ;"flags" 5 12 0 33
8 ;"len" 7 4 0 -1
9 ;"table" 8 4 0 -1
10 ;/5
11 (defclass meta ()
12   (name type flags len table))
13
14 ;XDUMP meta meta-type 1242293224
15 ;"value" 8 4 0 -1
16 ;"name" 3 4 0 -1
17 ;/2
18 (defclass meta-type ()
19   ((value :x-type 8 :x-flags 4 :x-len 0 :x-table nil)
20     (name :x-type 3 :x-flags 4 :x-len 0 :x-table nil)))
21
22 ;; http://localhost:4242/eow/
23
24 ;(setf *r* (drakma:http-request "http://gdata.youtube.com/feeds/videos"))
25 ;
26 ;;; DOM
27 ;(setf *d* (cxml:parse *r* (cxml-dom:make-dom-builder)))
28 ;(dom:child-nodes *d*)
29 ;(dom:get-elements-by-tag-name *d* "entry")
30 ;(setf *c* (aref (dom:get-elements-by-tag-name *d* "entry") 0))
31 ;(dom:map-document (cxml:make-character-stream-sink *standard-output*) *c*)
32 ;
33 ;;; Klacks
34 ;(setf *s* (cxml:make-source *r*))
35 ;(klacks:peek-next *s*)
36 ;(klacks:find-element *s* "entry")
37 ;(klacks:serialize-element *s* (cxml-xmls:make-xmls-builder))
38
39 ;;;;;;;;;;;;;;;;;;
40
41 (defclass meta-type ()
42   (value name))
43
44 (sb-mop:ensure-class 'meta-type 
45                      ':direct-superclasses '()
46                      ':direct-slots (list (list ':name 'value)
47                                           (list ':name 'name)))
48