1 puts "================"
4 puts "================"
6 #######################################################################################
7 # BinOcaf: portability of binary file between platforms
8 #######################################################################################
9 # Various improvements of RINA LH3D-3H project
10 #######################################################################################
14 set SetIntegerAttribute 100
15 set SetRealAttribute 123.45
27 #### FOR PREPARING TEST ONLY ####
28 #### # Create testing document
29 #### NewDocument Doc BinOcaf
30 #### UndoLimit Doc 100
33 #### # Set an integer attribute
34 #### SetInteger Doc ${aLabel} ${SetIntegerAttribute}
36 #### # Set a real attribute
37 #### SetReal Doc ${aLabel} ${SetRealAttribute}
39 #### # Set a real array attribute
40 #### SetRealArray Doc ${aLabel} ${aFrom1} ${aTo1} ${SetReal1} ${SetReal2}
42 #### # Set an integer array attribute
43 #### SetIntArray Doc ${aLabel} ${aFrom2} ${aTo2} ${SetInteger1} ${SetInteger2}
47 #### # Save the document
48 #### set OS $tcl_platform(os)
49 #### if { ${OS} == "SunOS" } {
51 #### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-SunOS.cbf
54 #### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-WNT.cbf
56 #### puts "aFile=${aFile}"
57 #### catch {exec rm -f ${aFile}}
58 #### catch {SaveAs Doc ${aFile}}
59 #### if { ![file exists ${aFile}] } {
60 #### puts "There is not ${aFile} file; SaveAs command: Error"
61 #### puts "OCC1724: ERROR (case 1)"
63 #### catch {exec chmod 777 ${aFile}}
65 #### FOR PREPARING TEST ONLY ####
69 Open [locate_data_file OCC1724-M3-WNT.cbf] DDoc
71 # Get a value of integer attribute
72 set GetIntegerAttribute ""
73 set IsDone [catch {set GetIntegerAttribute [GetInteger DDoc ${aLabel}]} message]
74 if { ${IsDone} != 0 ||
75 ${SetIntegerAttribute}!=${GetIntegerAttribute} } {
77 puts "SetIntegerAttribute=${SetIntegerAttribute} GetIntegerAttribute=${GetIntegerAttribute}"
78 puts "Get a value of TDataStd_Integer attribute from restoring document: Error"
79 puts "OCC1724: ERROR (case 3)"
82 puts "Get a value of TDataStd_Integer attribute from restoring document: OK"
85 # Get a value of real attribute
86 set GetRealAttribute ""
87 set IsDone [catch {set GetRealAttribute [GetReal DDoc ${aLabel}]} message]
88 if { ${IsDone} != 0 ||
89 ${SetRealAttribute}!=${GetRealAttribute} } {
91 puts "SetRealAttribute=${SetRealAttribute} GetRealAttribute=${GetRealAttribute}"
92 puts "Get a value of TDataStd_Real attribute from restoring document: Error"
93 puts "OCC1724: ERROR (case 4)"
96 puts "Get a value of TDataStd_Real attribute from restoring document: OK"
99 # Get a value of real array attribute
100 set GetRealArrayAttribute ""
101 set IsDone [catch {set GetRealArrayAttribute [GetRealArray DDoc ${aLabel}]} message]
102 if { ${IsDone} != 0 } {
104 puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
105 puts "OCC1724: ERROR (case 5)"
108 set aRealArrayLength [llength ${GetRealArrayAttribute}]
109 if { ${aRealArrayLength} != [expr ${aTo1} - ${aFrom1} + 1] } {
110 puts "aRealArrayLength=${aRealArrayLength}"
111 puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
112 puts "OCC1724: ERROR (case 6)"
115 set GetReal1 [lindex ${GetRealArrayAttribute} 0]
116 if { ${SetReal1} != ${GetReal1} } {
117 puts "GetReal1=${GetReal1}"
118 puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
119 puts "OCC1724: ERROR (case 7)"
122 set GetReal2 [lindex ${GetRealArrayAttribute} 1]
123 if { ${SetReal2} != ${GetReal2} } {
124 puts "GetReal2=${GetReal2}"
125 puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
126 puts "OCC1724: ERROR (case 8)"
129 puts "Get a value of TDataStd_RealArray attribute from restoring document: OK"
132 # Get a value of Integer array attribute
133 set GetIntegerArrayAttribute ""
134 set IsDone [catch {set GetIntegerArrayAttribute [GetIntArray DDoc ${aLabel}]} message]
135 if { ${IsDone} != 0 } {
137 puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
138 puts "OCC1724: ERROR (case 9)"
141 set aIntegerArrayLength [llength ${GetIntegerArrayAttribute}]
142 if { ${aIntegerArrayLength} != [expr ${aTo2} - ${aFrom2} + 1] } {
143 puts "aIntegerArrayLength=${aIntegerArrayLength}"
144 puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
145 puts "OCC1724: ERROR (case 10)"
148 set GetInteger1 [lindex ${GetIntegerArrayAttribute} 0]
149 if { ${SetInteger1} != ${GetInteger1} } {
150 puts "GetInteger1=${GetInteger1}"
151 puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
152 puts "OCC1724: ERROR (case 11)"
155 set GetInteger2 [lindex ${GetIntegerArrayAttribute} 1]
156 if { ${SetInteger2} != ${GetInteger2} } {
157 puts "GetInteger2=${GetInteger2}"
158 puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
159 puts "OCC1724: ERROR (case 12)"
162 puts "Get a value of TDataStd_IntegerArray attribute from restoring document: OK"
165 if { ${IsGood} == 1 } {