mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-02 17:46:22 +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
58 lines
1.5 KiB
Plaintext
58 lines
1.5 KiB
Plaintext
puts "TODO OCC16740 ALL: ERROR: OCC16740 is reproduced:"
|
|
|
|
puts "========"
|
|
puts "OCC16740"
|
|
puts "========"
|
|
puts ""
|
|
########################################
|
|
# XCAFDoc_ShapeMapTool is not restored
|
|
########################################
|
|
|
|
pload OCAF
|
|
|
|
# Check the output file and delete it if necessary
|
|
set anOutputFile ${imagedir}/${casename}.xbf
|
|
if {[file exists $anOutputFile] == 1} {
|
|
file delete $anOutputFile
|
|
}
|
|
|
|
# Read STEP file
|
|
ReadStep D [locate_data_file screw.step]
|
|
|
|
# Get attributes from entity 0:1:1:1
|
|
set AttributesList_1 [Attributes D 0:1:1:1]
|
|
|
|
# Save document in file and close document
|
|
XSave D $anOutputFile
|
|
Close D
|
|
|
|
# Open document from file
|
|
XOpen $anOutputFile D
|
|
|
|
# Get attributes from entity 0:1:1:1
|
|
set AttributesList_2 [Attributes D 0:1:1:1]
|
|
|
|
# Rough comparison of attributes list #1 and #2
|
|
if {$AttributesList_1 != $AttributesList_2} {
|
|
puts "ERROR: OCC16740 is reproduced:"
|
|
}
|
|
|
|
# Subtle comparison of attributes list #1 and #2
|
|
set CounterList_1 0
|
|
while {$CounterList_1 != [llength $AttributesList_1]} {
|
|
set anAttribute_1 [lindex $AttributesList_1 $CounterList_1]
|
|
set isEqualAttribute 0
|
|
set CounterList_2 0
|
|
while {$CounterList_2 != [llength $AttributesList_2]} {
|
|
set anAttribute_2 [lindex $AttributesList_2 $CounterList_2]
|
|
if {$anAttribute_1 == $anAttribute_2} {
|
|
set isEqualAttribute 1
|
|
}
|
|
set CounterList_2 [expr {$CounterList_2 + 1}]
|
|
}
|
|
if {$isEqualAttribute == 0} {
|
|
puts " -----> Attribute $anAttribute_1 has not been restored."
|
|
}
|
|
set CounterList_1 [expr {$CounterList_1 + 1}]
|
|
}
|