mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
ea86bfe2fa
DCAF require VISUALIZATION for correct work. In some scenario DRAWEXE can generate a dublicates of the internal static singletons. This means each dynamic library will have their own instance of the static singleton. Update all direct library loading to use the DCAF plugin mechanism. This will ensure that the DCAF plugin is loaded only once and that the correct instance is used. Originally issue is reproduced only Linux with dlopen with "RTLD_LAZY". Can be resolved additionally adding "RTLD_LAZY | RTLD_GLOBAL" for dlopen
82 lines
2.2 KiB
Plaintext
82 lines
2.2 KiB
Plaintext
puts "============================================================================"
|
|
puts "0028104: Data Exchange - Extract sub-assembly (XDE)"
|
|
puts "============================================================================"
|
|
puts ""
|
|
|
|
pload OCAF
|
|
|
|
Close D0 -silent
|
|
Close D1 -silent
|
|
|
|
# Reading step file
|
|
ReadStep D0 [locate_data_file as1-oc-214-mat.stp]
|
|
|
|
# All copy
|
|
XNewDoc D1
|
|
XExtract D1 D0 0:1:1:1
|
|
|
|
# checking Props, labels structure and number of colors and shape
|
|
set err_compare_ref ""
|
|
set statD0 [XStat D0]
|
|
set statD1 [XStat D1]
|
|
set cur_list [split $statD0 \n]
|
|
set ref_list [split $statD1 \n]
|
|
set nb_ref [llength $ref_list]
|
|
set nb_cur [llength $cur_list]
|
|
set ref_Compare 0
|
|
set isNextLayer 0; set isNextColor 0
|
|
for { set i 0 } { $i < $nb_cur } { incr i } {
|
|
set refstr [lindex $ref_list $i]
|
|
set curstr [lindex $cur_list $i]
|
|
set isOK 1
|
|
if {[regexp "Number of colors" $refstr]} {
|
|
set isNextColor 1
|
|
} elseif {[regexp "Number of layers" $refstr]} {
|
|
set isNextLayer 1
|
|
} elseif {$isNextLayer || $isNextColor} {
|
|
set refProp [split $refstr " "]
|
|
set curProp [split $curstr " "]
|
|
if {[llength $refProp] != [llength $curProp]} {
|
|
set isOK 0
|
|
} else {
|
|
for { set j 0 } { $j < [llength $refProp] && $isOK} { incr j } {
|
|
set isFind 0
|
|
for { set k 0 } { $k < [llength $refProp] && $isOK} { incr k } {
|
|
if {[lindex $refProp $j] == [lindex $curProp $k]} {
|
|
set isFind 1
|
|
break
|
|
}
|
|
}
|
|
set isOK $isFind
|
|
}
|
|
}
|
|
set isNextLayer 0; set isNextColor 0
|
|
} elseif {$refstr != $curstr} {
|
|
set isOK 0
|
|
}
|
|
if {!$isOK} {
|
|
incr ref_Compare
|
|
append err_compare_ref " Reference data - $refstr\n"
|
|
append err_compare_ref " Current data - $curstr\n"
|
|
append err_compare_ref "----------------------------------------------\n"
|
|
}
|
|
}
|
|
|
|
if { $ref_Compare > 0} {
|
|
puts "Error : $ref_Compare differences with reference data found :\n$err_compare_ref"
|
|
} else {
|
|
puts "Comparison of current result with reference data - OK\n"
|
|
}
|
|
|
|
XGetOneShape res0 D0
|
|
XGetOneShape res1 D1
|
|
set propsD0 [XCheckProps D0]
|
|
set propsD1 [XCheckProps D1]
|
|
if { $propsD0 != $propsD1 } {
|
|
puts "Error: Incorrect extraction of shape properties"
|
|
}
|
|
checkprops res0 -equal res1
|
|
|
|
Close D0 -silent
|
|
Close D1 -silent
|