tclscripts-BlackTools-TCL/BlackTools2.5/BlackTools/lang/loader.tcl

###############
################################################################
#
##### LANGUAGE MODULE 
### This is the language loader for BlackTools.tcl
#
### it'll provide replies/notices in diff languages.
### The default lang can be set in BlackTools.tcl
#
## 1 - Romanian
## 2 - English
## 3 - Italian (not available)
## 4 - Spanish (not available)
## 5 - French (not available)
#                                                ###############
################################################################

#load language

	set get_lang_files [glob -directory "$black(dirname)/BlackTools/lang" "*.??.lang.tcl"]
foreach lang $get_lang_files {
	set black(lang_error_$lang) [catch {source $lang} black(lang_error_stats_$lang)]
if {$black(lang_error_$lang) == "1"} {
	putlog "\[BT\] :Couldn't load the lang file \"$lang\".Reason: \"$black(lang_error_stats_$lang)\""
} else {
	set split_lang [split $lang "."]
	set the_lang [lindex $split_lang 1]
	lappend black(current_lang) [join $the_lang ","]
} 

if {![info exists black(current_lang) ]} {set black(current_lang) "N/A"}

}

#load manual

set get_man_files [glob -directory "$black(dirname)/BlackTools/lang" "*.???-??.lang.tcl"]
foreach lang $get_man_files {
	set black(man_error_$lang) [catch {source $lang} black(man_error_stats_$lang)]
if {$black(man_error_$lang) == "1"} {
	putlog "\[BT\] :Couldn't load the manual file \"$lang\".Reason: \"$black(man_error_stats_$lang)\""
	}
}

###############
################################################################
#   END                                                        #
################################################################