[occt.git] / tests / bugs / demo / bug14673_3

puts "# ============================================================"
puts "# 0014673: Provide true support for Unicode symbols"
puts "# ============================================================"
puts ""
puts "# Check that resource file with messages saved in file with UTF-8"
puts "# encoding is correctly loaded and processed"

puts "# Prepare resource file to be used instead of standard XSTEP.us,"
puts "# with Russian translation of one message"
dsetenv CSF_LANGUAGE ru
dsetenv CSF_XSMessage $imagedir
set message "Б-сплайн поверхность не является гладкой"
set fd [open $imagedir/XSTEP.ru w]
fconfigure $fd -encoding utf-8
puts $fd ".XSTEP_1\nMessage used to check file load\n.IGES_1250\n$message"
close $fd 

puts "# Load IGES file which is known to generate the message, and check it"
puts "REQUIRED 14673 ALL: $message"
pload XSDRAW IGES
igesbrep [locate_data_file hammer.iges] a *
tpstat c
Commit	Line	Data
94f16a89	1	puts "# ============================================================"
	2	puts "# 0014673: Provide true support for Unicode symbols"
	3	puts "# ============================================================"
	4	puts ""
	5	puts "# Check that resource file with messages saved in file with UTF-8"
	6	puts "# encoding is correctly loaded and processed"
	7
	8	puts "# Prepare resource file to be used instead of standard XSTEP.us,"
	9	puts "# with Russian translation of one message"
	10	dsetenv CSF_LANGUAGE ru
	11	dsetenv CSF_XSMessage $imagedir
	12	set message "Б-сплайн поверхность не является гладкой"
	13	set fd [open $imagedir/XSTEP.ru w]
	14	fconfigure $fd -encoding utf-8
	15	puts $fd ".XSTEP_1\nMessage used to check file load\n.IGES_1250\n$message"
	16	close $fd
	17
	18	puts "# Load IGES file which is known to generate the message, and check it"
	19	puts "REQUIRED 14673 ALL: $message"
bd651bbb	20	pload XSDRAW IGES
94f16a89	21	igesbrep [locate_data_file hammer.iges] a *
94f16a89	22	tpstat c