1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/bin/sh
#\
exec tclsh8.1 "$0" "$@"
#load ./tclexpat.sl Tclexpat
#load ./tclexpat.so Tclexpat
lappend auto_path [file dirname [info script]]
package require expat
proc element {tag name {attrs {}}} {
puts [list Element $tag $name $attrs]
}
proc pcdata pcdata {
puts [list Character data: $pcdata]
}
set ch [open [lindex $argv 0]]
set data [read $ch]
close $ch
puts stderr [list creating parser]
set parser [expat xmlparser \
-elementstartcommand {element start} \
-elementendcommand {element end} \
-characterdatacommand pcdata \
-final yes \
]
puts stderr [list parsing document]
$parser parse $data
exit 0
|
