mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
d5c71e2057
Implementation of new format for quick reading and writing parts of the documents (sub-set of labels and sub-set of attributes). It consists in writing shapes and all their contents right in the TNaming_NamedShape attribute placement and skipping the shape section. New format 12 for Binary file types is assigned to this version. Added PCDM_ReaderFilter class that could be used in Open methods of TDocStd_Application. If it is defined, it allows to read: - into already opened document in append mode AppendMode_Protect (do not overwrite existing attributes) or AppendMode_Overwrite - only specified sub-trees of the document using AddPath (const TCollection_AsciiString& theEntryToRead) - only specified attributes using AddRead (const TCollection_AsciiString& theRead) where theRead could be "TDataStd_Name", for example - to skip specified attributes read using AddSkipped (const TCollection_AsciiString& theSkipped) where theSkipped could be "TDF_Reference", for example The current limitations: - only in Bin format - if shapes have in the document shared topology, loaded in "append" mode in different "load" operations, they will have no shared topology anymore Modifications: BinLDrivers and BinDrivers packages - modifications related to the quick part tree format flag usage, skipping shape section writing and adding labels sizes into the document to be able to pass labels during the reading quickly. BinObjMgt_Persistent and BinObjMgt_Position - to add possibility to write directly into the stream some data just after the attribute. Before this record a data-size is recorded. BinMXCAFDoc package modifications to write BinMXCAFDoc_LocationDriver location in the same way as shapes write location data right after the attribute (empty) data in this new format. BinTools package: creation of ShapeReader and ShapeWriter classes with same root class ShapeSetBase with ShapeSet class. These classes allows to write/read shapes directly to the stream. If some object is already in the stream, write a reference - relative position of the duplicated object. The old format of documents is still supported by Bin_ToolsShapeSet class. PCDM_ReaderFilter - Allows the user to create a reading filter. It contains algorithm to browse labels tree quickly, without usage of referencing by entry-strings. TDocStd, CDF and some other packages are changed for supporting reading filters API and options. Tests, documentation and upgrade information are also added for both issues: 31839 and 31918 related to this commit.
142 lines
3.8 KiB
Plaintext
142 lines
3.8 KiB
Plaintext
puts "==========="
|
|
puts "0031839: Application Framework - Add ability to partially load OCAF document"
|
|
puts "==========="
|
|
|
|
# This test checks partial opening of the document with integer and real attributes
|
|
# and then partial appending (reading into the same document).
|
|
|
|
NewDocument D0 BinOcaf
|
|
UndoLimit D0 10
|
|
|
|
# number of labels of objects in the document
|
|
set labs 100
|
|
# number of sub-labels of each object
|
|
set sublabs 10
|
|
|
|
NewCommand D0
|
|
|
|
# store at each object-label sub-labels with two attributes at each
|
|
set creation_time [lindex [time {
|
|
for {set i 1} {$i <= $labs} {incr i} {
|
|
set lab [Label D0 0:1:${i}]
|
|
SetName D0 ${lab} Object$i
|
|
for {set ii 1} {$ii <= $sublabs} {incr ii} {
|
|
set sublab [Label D0 ${lab}:$ii]
|
|
SetInteger D0 ${sublab} 10
|
|
SetReal D0 ${sublab} 12.3
|
|
}
|
|
}
|
|
}] 0]
|
|
|
|
set commit_time [lindex [time {
|
|
CommitCommand D0
|
|
}] 0]
|
|
|
|
|
|
puts "Tree creation time $creation_time mcs"
|
|
puts "Creation commit time $commit_time mcs"
|
|
|
|
set docname ${imagedir}/doc_${casename}.cbf
|
|
SaveAs D0 ${docname}
|
|
Close D0
|
|
|
|
set open_time [lindex [time {
|
|
Open ${docname} D1
|
|
}] 0]
|
|
|
|
puts "Full document open time $open_time mcs"
|
|
|
|
set attributes [Attributes D1 0:1:1:1]
|
|
if {[lsearch $attributes TDataStd_Real] < 0 || [lsearch $attributes TDataStd_Integer] < 0} {
|
|
puts "Error: full document is opened incorrectly"
|
|
}
|
|
|
|
Close D1
|
|
|
|
set open_noint_time [lindex [time {
|
|
Open ${docname} D2 -skipTDataStd_Integer
|
|
}] 0]
|
|
|
|
puts "Document without integers open time $open_noint_time mcs"
|
|
|
|
set attributes [Attributes D2 0:1:1:1]
|
|
if {[lsearch $attributes TDataStd_Real] < 0 || [lsearch $attributes TDataStd_Integer] >= 0} {
|
|
puts "Error: document open without integers contains wrong attributes"
|
|
}
|
|
|
|
set open_oneint_time [lindex [time {
|
|
Open ${docname} D2 -append -read0:1:1:1
|
|
}] 0]
|
|
|
|
puts "Read of one integer time $open_oneint_time mcs"
|
|
|
|
set attributes [Attributes D2 0:1:1:1]
|
|
if {[lsearch $attributes TDataStd_Real] < 0 || [lsearch $attributes TDataStd_Integer] < 0} {
|
|
puts "Error: document open with one integer contains wrong attributes"
|
|
}
|
|
|
|
set attributes [Attributes D2 0:1:1:10]
|
|
if {[lsearch $attributes TDataStd_Real] < 0 || [lsearch $attributes TDataStd_Integer] >= 0} {
|
|
puts "Error: document open with one integer contains wrong attributes at label 10"
|
|
}
|
|
|
|
set open_nineint_time [lindex [time {
|
|
Open ${docname} D2 -append -read0:1:1
|
|
}] 0]
|
|
puts "Read of nine integer time $open_nineint_time mcs"
|
|
|
|
set attributes [Attributes D2 0:1:1:10]
|
|
if {[lsearch $attributes TDataStd_Real] < 0 || [lsearch $attributes TDataStd_Integer] < 0} {
|
|
puts "Error: document open with nine integer contains wrong attributes at label 10"
|
|
}
|
|
|
|
set attributes [Attributes D2 0:1:1:5]
|
|
if {[lsearch $attributes TDataStd_Real] < 0 || [lsearch $attributes TDataStd_Integer] < 0} {
|
|
puts "Error: document open with nine integer contains wrong attributes at label 5"
|
|
}
|
|
|
|
set attributes [Attributes D2 0:1:2:5]
|
|
if {[lsearch $attributes TDataStd_Real] < 0 || [lsearch $attributes TDataStd_Integer] >= 0} {
|
|
puts "Error: document open with nine integer contains wrong attributes at the second object"
|
|
}
|
|
|
|
SetInteger D2 0:1:1:5 21
|
|
SetReal D2 0:1:1:7 32.1
|
|
|
|
set open_overwrite_time [lindex [time {
|
|
Open ${docname} D2 -overwrite -read0:1:1
|
|
}] 0]
|
|
puts "Overwrite of ten integers time $open_overwrite_time mcs"
|
|
|
|
|
|
set value [GetInteger D2 0:1:1:5]
|
|
if {$value != 10} {
|
|
puts "Error: integer is overwritten incorrectly"
|
|
}
|
|
|
|
set value [GetReal D2 0:1:1:7]
|
|
if {$value != 12.3} {
|
|
puts "Error: real is overwritten incorrectly"
|
|
}
|
|
|
|
SetInteger D2 0:1:1:5 21
|
|
SetReal D2 0:1:1:7 32.1
|
|
|
|
set open_append_time [lindex [time {
|
|
Open ${docname} D2 -append -read0:1:1
|
|
}] 0]
|
|
puts "Append of ten integers time $open_overwrite_time mcs"
|
|
|
|
|
|
set value [GetInteger D2 0:1:1:5]
|
|
if {$value != 21} {
|
|
puts "Error: integer is overwritten by append"
|
|
}
|
|
|
|
set value [GetReal D2 0:1:1:7]
|
|
if {$value != 32.1} {
|
|
puts "Error: real is overwritten by append"
|
|
}
|
|
|
|
Close D2
|