iOS設定バンドルにライセンスセクションを追加する最良の方法 質問する

これまで遭遇していた問題はすべて解決できたと思います。

• ライセンスを保持するには、グループ要素のタイトルを使用するのが最適なようです (これは Apple が iWork アプリで行っていることです)。ただし、これらの長さには制限があります (制限が正確にどれくらいかはまだわかりません)。そのため、各ライセンス ファイルを複数の文字列に分割する必要があります。
• これらの中に改行を作成するには、リテラルのキャリッジリターン（つまり、^M、\r、または0x0Aとも呼ばれます）を含めます。
• テキストの途中にリテラルの「s」を含めないようにしてください。含めると、ファイル内の文字列の一部またはすべてが暗黙的に無視されます。

以下に示すような、.plist ファイルと .strings ファイルの生成に役立つ便利なスクリプトがあります。

使用するには:

1. プロジェクトの下に「licenses」ディレクトリを作成します
2. そのディレクトリにスクリプトを置く
3. 各ライセンスを、ファイルごとに 1 つずつ、ファイル名の末尾が .license となるようにディレクトリに配置します。
4. ライセンスの必要な再フォーマットを実行します。(例: 行頭の余分なスペースを削除し、段落の途中で改行がないことを確認します)。各段落の間には空白行が必要です。
5. ライセンスディレクトリに移動してスクリプトを実行します
6. 設定バンドルの Root.plist を編集して、「Acknowledgements」という子セクションを追加します。

スクリプトは次のとおりです。

#!/usr/bin/perl -w

use strict;

my $out = "../Settings.bundle/en.lproj/Acknowledgements.strings";
my $plistout =  "../Settings.bundle/Acknowledgements.plist";

unlink $out;

open(my $outfh, '>', $out) or die $!;
open(my $plistfh, '>', $plistout) or die $!;

print $plistfh <<'EOD';
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
        <key>StringsTable</key>
        <string>Acknowledgements</string>
        <key>PreferenceSpecifiers</key>
        <array>
EOD
for my $i (sort glob("*.license"))
{
    my $value=`cat $i`;
    $value =~ s/\r//g;
    $value =~ s/\n/\r/g;
    $value =~ s/[ \t]+\r/\r/g;
    $value =~ s/\"/\'/g;
    my $key=$i;
    $key =~ s/\.license$//;

    my $cnt = 1;
    my $keynum = $key;
    for my $str (split /\r\r/, $value)
    {
        print $plistfh <<"EOD";
                <dict>
                        <key>Type</key>
                        <string>PSGroupSpecifier</string>
                        <key>Title</key>
                        <string>$keynum</string>
                </dict>
EOD

        print $outfh "\"$keynum\" = \"$str\";\n";
        $keynum = $key.(++$cnt);
    }
}

print $plistfh <<'EOD';
        </array>
</dict>
</plist>
EOD
close($outfh);
close($plistfh);

for my $str (split /\r\r/, $value)
{
    print $plistfh <<"EOD";
            <dict>
                    <key>Type</key>
                    <string>PSGroupSpecifier</string>
                    <key>FooterText</key> # <= here is the change
                    <string>$keynum</string>
            </dict>
 EOD

    print $outfh "\"$keynum\" = \"$str\";\n";
    $keynum = $key.(++$cnt);
}