Create loader.tcl

BlackTools 2.5.3/lang/loader.tcl

@@ -0,0 +1,54 @@
+#################################################################
+#     _   _   _   _   _   _   _   _   _   _   _   _   _   _  ####
+#    / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \    #
+#   ( T | C | L | S | C | R | I | P | T | S | . | N | E | T )   #
+#    \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/    #
+#                                                               #
+###############                                                 #
+#################################################################
+#
+##### LANGUAGE MODULE 
+### This is the language loader for BlackTools.tcl
+#
+### Provides 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                                                         #
+#################################################################