4 if {[array get env os_type] != ""} {
7 XOpen [locate_data_file CR23384-doc_subshapes.dxc] doc
9 regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
10 regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
11 regexp {level N 2 +: +([-0-9.+eE]+)} $info1 full l2
12 regexp {level N 3 +: +([-0-9.+eE]+)} $info1 full l3
13 regexp {level N 4 +: +([-0-9.+eE]+)} $info1 full l4
14 regexp {level N 5 +: +([-0-9.+eE]+)} $info1 full l5
15 regexp {level N 6 +: +([-0-9.+eE]+)} $info1 full l6
16 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
17 regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
19 param write.stepcaf.subshapes.name 1
20 if { [string compare $os "windows"] == 0 } {
21 WriteStep doc C:/temp/doc_subshapes.stp
23 WriteStep doc /tmp/doc_subshapes.stp
25 param read.stepcaf.subshapes.name 1
26 if { [string compare $os "windows"] == 0 } {
27 ReadStep after_doc C:/temp/doc_subshapes.stp
29 ReadStep after_doc /tmp/doc_subshapes.stp
32 set info2 [XStat after_doc]
33 regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
34 regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1
35 regexp {level N 2 +: +([-0-9.+eE]+)} $info2 full l2_1
36 regexp {level N 3 +: +([-0-9.+eE]+)} $info2 full l3_1
37 regexp {level N 4 +: +([-0-9.+eE]+)} $info2 full l4_1
38 regexp {level N 5 +: +([-0-9.+eE]+)} $info2 full l5_1
39 regexp {level N 6 +: +([-0-9.+eE]+)} $info2 full l6_1
40 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1
41 regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1
43 if { ${l0} != ${l0_1} ||
51 ${nbname} != ${nbname_1} } {
52 puts "Error : Document is read/written wrong!"
53 puts "Error : It's $nb indtead of $check_nb!"