git.pond.sub.org Git - eow/blob - 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 type ()
  19   ((value :type 8 :flags 4 :len 0 :table nil)
  20     (name :type 3 :flags 4 :len 0 :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))