/xmlbench/trunk

To get this branch, use:
bzr branch http://darksoft.org/webbzr/xmlbench/trunk

« back to all changes in this revision

Viewing changes to parse/lisp/cxml-sax.cl

  • Committer: Suren A. Chilingaryan
  • Date: 2009-09-28 21:25:28 UTC
  • Revision ID: csa@dside.dyndns.org-20090928212528-e6oby5he4yrueskz
Parsing tests for mono, vtd-xml, lisp, scripting languages

Show diffs side-by-side

added added

removed removed

Lines of Context:
parse/lisp/cxml-sax.cl
 
1
#! /usr/bin/clisp -C -q -q
 
2
; Should be called from root account once to generate binaries for libraries
 
3
 
 
4
(load #p"/usr/share/common-lisp/source/asdf/asdf.lisp")
 
5
(push #p"/usr/share/common-lisp/systems/" asdf:*central-registry*)
 
6
;(asdf:oos 'asdf:load-op :closures-common)
 
7
(asdf:oos 'asdf:load-op :cxml)
 
8
 
 
9
(defvar dom NIL)
 
10
 
 
11
;(defclass sax-handler (sax:content-handler) ())
 
12
(defclass sax-handler () ())
 
13
(defmethod sax:start-element
 
14
    ((handler sax-handler) namespace-uri local-name qname attributes)
 
15
;    (pprint local-name)
 
16
    )
 
17
(defmethod sax:end-element 
 
18
    ((handler sax-handler) namespace-uri local-name qname)
 
19
    ()
 
20
)
 
21
(defmethod sax:characters 
 
22
    ((handler sax-handler) data)
 
23
    ()
 
24
)
 
25
 
 
26
(defun parse_file (fn)
 
27
    (setf dom
 
28
        (cxml:parse-file fn (make-instance 'sax-handler))))
 
29
 
 
30
(defun parse_iteration (fn i)
 
31
    (if fn
 
32
        (parse_file fn)
 
33
        (parse_file (concatenate 'string "../xml.tmp/" (write-to-string i) ".xml"))))
 
34
 
 
35
 
 
36
(defvar iterations NIL)
 
37
(defvar xmlfn NIL)
 
38
 
 
39
(if (> (length *ARGS*) 0)
 
40
    (setf iterations (parse-integer (first *ARGS*)))
 
41
    (setf iterations 0))
 
42
 
 
43
(if (> (length *ARGS*) 1)
 
44
    (setf xmlfn (second *ARGS*))
 
45
    (setf xmlfn NIL))
 
46
 
 
47
(parse_iteration xmlfn 0)
 
48
;(pprint (list "Number of Iterations" iterations))
 
49
(if (> iterations 0)
 
50
    (time
 
51
        (dotimes (i iterations) 
 
52
            (parse_iteration xmlfn (+ i 1))))
 
53
    (dotimes (i iterations) 
 
54
        (parse_iteration xmlfn (+ i 1))))
 
55
 
 
56
 
 
57
;(pprint dom)