mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
1b9cb073b9
- Add support of the control directives ( "\X2\" "\X4" "\X\" "\P*\" "\S\"); - Make param "read.stepcaf.codepage" base for conversion inside StepData instead of CAF; - Rename "read.stepcaf.codepage" to "read.step.codepage". - Add ISO 8859-1 - 9 code pages for conversion - Add Resource_FormatType_NoConversion format type, that indicates non-conversion behavior - Update old test cases that contain control directives
23 lines
684 B
Plaintext
23 lines
684 B
Plaintext
puts "================"
|
|
puts "0031670: Data Exchange - cp1251 Cyrillic characters in STEP file"
|
|
puts "================"
|
|
puts ""
|
|
|
|
pload OCAF
|
|
|
|
# Read file
|
|
param read.step.codepage CP1251
|
|
ReadStep D [locate_data_file bug31670_russian.stp]
|
|
|
|
# Checking
|
|
set aNameAssambly [encoding convertfrom utf-8 "\xd0\xa1\xd0\xb1\xd0\xbe\xd1\x80\xd0\xba\xd0\xb0\x31"]
|
|
set aNameShape [encoding convertfrom utf-8 "\xd0\x94\xd0\xb5\xd1\x82"]
|
|
|
|
set isOK 1
|
|
if { [GetName D 0:1:1:1] != "$aNameAssambly" } { set isOK 0 }
|
|
for { set i 1 } { $i < 9 } { incr i } {
|
|
if { [GetName D 0:1:1:[expr $i + 1]] != "$aNameShape$i" } { set isOK 0 }
|
|
}
|
|
if { $isOK == 0 } { puts "Error: unable to read CP1251 STEP" }
|
|
|
|
Close D |