Server IP : 85.214.239.14 / Your IP : 18.188.233.69 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/gettext/ |
Upload File : |
# Reading tcl/msgcat .msg files. # Copyright (C) 2002 Free Software Foundation, Inc. # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see <https://www.gnu.org/licenses/>. namespace eval msgcat { namespace export mcset mcdump variable header "" } proc msgcat::puts_po_string {str} { # Replace " with \" regsub -all "\"" $str "\\\"" str # Replace \ with \\ regsub -all "\\\\" $str "\\\\\\" str # Replace newline with \n regsub -all [subst "\n"] $str "\\n" str regsub -all [subst "\a"] $str "\\a" str regsub -all [subst "\b"] $str "\\b" str regsub -all [subst "\f"] $str "\\f" str regsub -all [subst "\r"] $str "\\r" str regsub -all [subst "\t"] $str "\\t" str regsub -all [subst "\v"] $str "\\v" str # Output it. puts -nonewline "\"$str\"" } proc msgcat::write_po_message {msgid msgstr} { puts -nonewline "msgid " puts_po_string $msgid puts "" puts -nonewline "msgstr " puts_po_string $msgstr puts "" puts "" } # This gets called once for each message in the .msg catalog. proc msgcat::mcset {locale src {dest ""}} { msgcat::write_po_message $src $dest } # Main function. proc msgcat::mcdump {langfile} { if {[file exists $langfile]} { # msgunfmt expects the output in UTF-8 encoding. fconfigure stdout -encoding utf-8 set msgcat::header "" set fd [open $langfile r] # In newer tcl versions, the .msg files are in UTF-8 encoding. fconfigure $fd -encoding utf-8 eval [read $fd] close $fd if {$msgcat::header == ""} { # Provide a minimal header. set msgcat::header [subst "MIME-Version: 1.0\nContent-Type: text/plain; charset=UTF-8\nContent-Transfer-Encoding: 8bit\n"] } msgcat::write_po_message "" $msgcat::header } else { # Tell msgunfmt to emit an internationalized error message. exit 2 } } # Main code: call the main function on the first and only argument. msgcat::mcdump [lindex $argv 0] exit 0