root/lang/ruby/Chemr/mkchmbundle.rb

require "pathname"
require "yaml"

def mkchmbundle(bundle_name, title, home="/index.html", keywords=[], toc={})
        root = Pathname.new(bundle_name)
        root.rmtree rescue nil
        root.mkpath

        contents  = root + "Contents"
        contents.mkpath
        (contents + "PkgInfo").open("w") {|f| f << "BNDL????" }
        (contents + "Info.plist").open("w") {|f| f << <<-InfoPlist.gsub(/^\t{2}/, "") }
                <?xml version="1.0" encoding="UTF-8"?>
                <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
                <plist version="1.0">
                <dict>
                                <key>CFBundleName</key>
                                <string></string>
                                <key>CFBundleInfoDictionaryVersion</key>
                                <string>6.0</string>
                                <key>CFBundlePackageType</key>
                                <string>BNDL</string>
                                <key>CFBundleSignature</key>
                                <string>????</string>

                                <key>CHMTitle</key>
                                <string>#{title}</string>
                                <key>CHMHome</key>
                                <string>#{home}</string>
                                <key>CHMKeyword</key>
                                <string>/keyword.yaml</string>
                                <key>CHMTOC</key>
                                <string>/toc.yaml</string>
                </dict>
                </plist>
        InfoPlist

        resources = contents + "Resources"
        resources.mkpath

        (resources + "keyword.yaml").open("w") {|f| f << keywords.to_yaml }
        (resources + "toc.yaml").open("w") {|f| f << toc.to_yaml }

        [root, resources]
end

if $0 == __FILE__
        mkchmbundle("Test.chm", "Test", "/index.html", ["hoge", ["aaaa.html"]], {})
end