InfoPlistStrings.jam [plain text]
rule CatInfoPlist
{
DEPENDS "$(1)" : "$(2)" ;
Clean.Remove clean : "$(1)" ;
}
actions CatInfoPlist
{
# we would like to be using perl unicode support but the X perl version is too old
mkdir -p "$(1:D)"
cat "$(2)" | perl -e '{local $/; undef $/; $_ = <STDIN>;} s/(.)/\0$1/sg; print chr(0xFE) . chr(0xFF) . $_;' > "$(1)"
}
rule CatAlreadyConverted
{
DEPENDS "$(1)" : "$(2)" ;
Clean.Remove clean : "$(1)" ;
}
actions CatAlreadyConverted
{
# we would like to be using perl unicode support but the X perl version is too old
mkdir -p "$(1:D)"
cat "$(2)" | perl -e '{local $/; undef $/; $_ = <STDIN>;} $start = chr(0xFE) . chr(0xFF); s/$start//sg; print $start . $_;' > "$(1)"
}