vasilito
facf0c92e0
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
64 lines
1.4 KiB
Bash
Executable File
64 lines
1.4 KiB
Bash
Executable File
#!/bin/sh
|
|
. "${srcdir=.}/init.sh"; path_prepend_ . ../src
|
|
|
|
# Test of Tcl support.
|
|
|
|
cat <<\EOF > xg-t-1.tcl
|
|
#!/usr/bin/tclsh
|
|
|
|
proc isValid {target} {
|
|
global viScreenId
|
|
set address [valid $target]
|
|
# This comment is not extracted.
|
|
if {$address != 0} {
|
|
# First comment line.
|
|
|
|
# Second comment line.
|
|
viMsg $viScreenId [format [_ "%s is %s"] $target [string trim $address]]
|
|
} else {
|
|
viMsg $viScreenId [format [_ "%s not found"] $target]
|
|
}
|
|
}
|
|
EOF
|
|
|
|
: ${XGETTEXT=xgettext}
|
|
${XGETTEXT} --add-comments --no-location -k_ -o xg-t-1.tmp xg-t-1.tcl 2>xg-t-1.err
|
|
test $? = 0 || { cat xg-t-1.err; Exit 1; }
|
|
func_filter_POT_Creation_Date xg-t-1.tmp xg-t-1.pot
|
|
|
|
cat <<\EOF > xg-t-1.ok
|
|
# SOME DESCRIPTIVE TITLE.
|
|
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
|
|
# This file is distributed under the same license as the PACKAGE package.
|
|
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
|
|
#
|
|
#, fuzzy
|
|
msgid ""
|
|
msgstr ""
|
|
"Project-Id-Version: PACKAGE VERSION\n"
|
|
"Report-Msgid-Bugs-To: \n"
|
|
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
|
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
|
"Language-Team: LANGUAGE <LL@li.org>\n"
|
|
"Language: \n"
|
|
"MIME-Version: 1.0\n"
|
|
"Content-Type: text/plain; charset=CHARSET\n"
|
|
"Content-Transfer-Encoding: 8bit\n"
|
|
|
|
#. First comment line.
|
|
#. Second comment line.
|
|
#, tcl-format
|
|
msgid "%s is %s"
|
|
msgstr ""
|
|
|
|
#, tcl-format
|
|
msgid "%s not found"
|
|
msgstr ""
|
|
EOF
|
|
|
|
: ${DIFF=diff}
|
|
${DIFF} xg-t-1.ok xg-t-1.pot
|
|
result=$?
|
|
|
|
exit $result
|