i18n.tcl

是TCL的另外一个编译（解释）器

global testModus

set testModus 0

proc load_languageFile {language} {
    global langArray
    global ASEDsRootDir
    global EditorData
    
    array unset langArray *
    # set keywords
    set fd [open [file join $ASEDsRootDir lang $language.txt ] r]
    while {![eof $fd]} {
        gets $fd line
        set langArray([lindex $line 0]) [lindex $line 1]
    }
    close $fd
}

proc tr {expression} {
    global langArray
    global testModus
    global ASEDsRootDir
    global EditorData
    
    # tk_messageBox -message \"$expression\"
    
    if {[lsearch -exact [array names langArray] $expression] != -1} {
        set txt $langArray($expression)
    } else  {
        set txt $expression
        if $testModus {
            set fd [open [file join $ASEDsRootDir lang $EditorData(options,language).missing ] a+]
            set data [read $fd]
            append data \"$expression\"
            puts $fd $data
            close $fd
        }
    }
    return $txt
}

# load_languageFile filename