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
55 lines
956 B
Plaintext
55 lines
956 B
Plaintext
pload OCAF
|
|
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir .
|
|
}
|
|
set BugNumber OCC24164
|
|
|
|
#1 open new document
|
|
NewDocument D BinOcaf
|
|
UndoLimit D 10 0 0
|
|
InitLogBook D
|
|
AddDriver D Box
|
|
|
|
#2 build box
|
|
NewCommand D
|
|
set B2 [AddObject D]
|
|
set F2 [AddFunction D $B2 Box]
|
|
BoxDX D $B2 190
|
|
BoxDY D $B2 290
|
|
BoxDZ D $B2 390
|
|
ComputeFun D $F2
|
|
GetShape D $F2:2 Box2
|
|
NewCommand D
|
|
|
|
#3 save shape in the document
|
|
set aTmpFile ${imagedir}/${casename}.cbf
|
|
SaveAs D $aTmpFile
|
|
|
|
#4 close document
|
|
set catch_status 0
|
|
if { [catch {Close D} catch_result] } {
|
|
set catch_status 1
|
|
}
|
|
if { ${catch_status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
#5 reopen just saved document with the same name
|
|
Open $aTmpFile D
|
|
file delete -force $aTmpFile
|
|
set catch_status 0
|
|
|
|
#6 close the document
|
|
if { [catch {Close D} catch_result] } {
|
|
set catch_status 1
|
|
}
|
|
|
|
if { ${catch_status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|