mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
604aa3f4b3
A table for fast access to the labels by entry is implemented in OCAF document. A method TDF_Data::SetAccessByEntries(true) fills-in a table for fast access to the labels. New labels, created later will be added to the table automatically. The method TDF_Tool::Label() will search the entry in the table and then, if not found, will call the old code. Disabling of usage of the table (by calling of TDF_Data::SetAccessByEntries(false)) cleans the internal table of entries - labels. By default, the table is not used.
This improvement is useful for large documents with a lot of labels, and if the application uses entries to get labels. The application should call TDF_Data::SetAccessByEntries(true) for a document and then, the method TDF_Tool::Label() called inside OCAF and XCAF will use the fast access to the labels and speed-up the application.
Also, the method TDF_Tool::Entry() is improved (by MPV).
Modified files:
- TDF_Data.hxx and cxx: the new methods SetAccessByEntries(bool), IsAccessByEntries() and GetLabel(entry) are implemented. No need to use the method GetLabel() directly. It is called in TDF_Tool::Label().
- TDF_Label.cxx: adding of a newly created label to the table of entries - labels.
- TDF_Tool.cxx: the method Entry() is accelerated (by MPV) and Label() is improved to call TDF_Data::GetLabel().
- DDF_DataCommands.cxx: a new draw-command is added SetAccessByEntry, which sets or unsets usage of the table for fast access to the labels. Usage of the draw-command is illustrated in a new test "bugs caf bug31920".
Tests:
- bugs caf bug31920: a new simple test to check TDF_Tool::Label() when fast access to the labels is on.
Doc:
- dox\upgrade\upgrade.md is extended for new information
23 lines
529 B
Plaintext
23 lines
529 B
Plaintext
puts "==========="
|
|
puts "0031920: Application Framework - speed up methods of getting label by entry and vice versa"
|
|
puts "==========="
|
|
|
|
NewDocument D
|
|
set entry 0:2
|
|
set value 5
|
|
SetInteger D $entry 5
|
|
set checkvalue1 [GetInteger D $entry]
|
|
if { $value != $checkvalue1 } {
|
|
puts "Set a value of TDataStd_Integer attribute: Error"
|
|
return
|
|
}
|
|
|
|
SetAccessByEntry D 1
|
|
set checkvalue2 [GetInteger D $entry]
|
|
if { $value != $checkvalue2 } {
|
|
puts "Fast access to label by entry: Error"
|
|
return
|
|
}
|
|
|
|
puts "Fast access to label by entry: OK"
|