# et:ts=4 # portpkg.tcl # $Id: portpkg.tcl,v 1.5 2005/08/27 00:07:27 pguyot Exp $ # # Copyright (c) 2002 - 2003 Apple Computer, Inc. # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # 3. Neither the name of Apple Computer, Inc. nor the names of its contributors # may be used to endorse or promote products derived from this software # without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. # package provide portpkg 1.0 package require portutil 1.0 set com.apple.pkg [target_new com.apple.pkg pkg_main] target_runtype ${com.apple.pkg} always target_provides ${com.apple.pkg} pkg if {[option portarchivemode] == "yes"} { target_requires ${com.apple.pkg} unarchive destroot } else { target_requires ${com.apple.pkg} destroot } # define options options package.type package.destpath # Set defaults default package.destpath {${workpath}} set_ui_prefix proc pkg_main {args} { global portname portversion portrevision package.type package.destpath UI_PREFIX ui_msg "$UI_PREFIX [format [msgcat::mc "Creating pkg for %s-%s"] ${portname} ${portversion}]" return [package_pkg $portname $portversion $portrevision] } proc package_pkg {portname portversion portrevision} { global UI_PREFIX portdbpath destpath workpath prefix portresourcepath description package.destpath long_description homepage portpath set resourcepath ${workpath}/pkg_resources # XXX: we need to support .lproj in resources. set pkgpath ${package.destpath}/${portname}-${portversion}.pkg if {[file readable $pkgpath] && ([file mtime ${pkgpath}] >= [file mtime ${portpath}/Portfile])} { ui_msg "$UI_PREFIX [format [msgcat::mc "Package for %s-%s is up-to-date"] ${portname} ${portversion}]" return 0 } system "mkdir -p -m 0755 ${pkgpath}/Contents/Resources" write_PkgInfo ${pkgpath}/Contents/PkgInfo write_info_plist ${pkgpath}/Contents/Info.plist $portname $portversion $portrevision write_description_plist ${pkgpath}/Contents/Resources/Description.plist $portname $portversion $description # long_description, description, or homepage may not exist foreach variable {long_description description homepage} { if {![info exists $variable]} { set pkg_$variable "" } else { set pkg_$variable [set $variable] } } write_welcome_html ${pkgpath}/Contents/Resources/Welcome.html $portname $portversion $pkg_long_description $pkg_description $pkg_homepage file copy -force -- ${portresourcepath}/package/background.tiff ${pkgpath}/Contents/Resources/background.tiff system "mkbom ${destpath} ${pkgpath}/Contents/Archive.bom" system "cd ${destpath} && pax -x cpio -w -z . > ${pkgpath}/Contents/Archive.pax.gz" write_sizes_file ${pkgpath}/Contents/Resources/Archive.sizes ${portname} ${portversion} ${pkgpath} ${destpath} return 0 } proc write_PkgInfo {infofile} { set infofd [open ${infofile} w+] puts $infofd "pmkrpkg1" close $infofd } # XXX: deprecated proc write_info_file {infofile portname portversion description} { set infofd [open ${infofile} w+] puts $infofd "Title ${portname} Version ${portversion} Description ${description} DefaultLocation / DeleteWarning ### Package Flags NeedsAuthorization YES Required NO Relocatable NO RequiresReboot NO UseUserMask YES OverwritePermissions NO InstallFat NO RootVolumeOnly NO" close $infofd } proc xml_escape {s} { regsub -all {&} $s {\&} s regsub -all {<} $s {\<} s regsub -all {>} $s {\>} s return $s } proc write_info_plist {infofile portname portversion portrevision} { set portname [xml_escape $portname] set portversion [xml_escape $portversion] set portrevision [xml_escape $portrevision] set infofd [open ${infofile} w+] puts $infofd { } puts $infofd " CFBundleGetInfoString ${portname} ${portversion} CFBundleIdentifier org.opendarwin.darwinports.${portname} CFBundleName ${portname} CFBundleShortVersionString ${portversion} IFMajorVersion ${portrevision} IFMinorVersion 0 IFPkgFlagAllowBackRev IFPkgFlagAuthorizationAction RootAuthorization IFPkgFlagDefaultLocation / IFPkgFlagInstallFat IFPkgFlagIsRequired IFPkgFlagRelocatable IFPkgFlagRestartAction NoRestart IFPkgFlagRootVolumeOnly IFPkgFlagUpdateInstalledLanguages IFPkgFormatVersion 0.10000000149011612 " close $infofd } proc write_description_plist {infofile portname portversion description} { set portname [xml_escape $portname] set portversion [xml_escape $portversion] set description [xml_escape $description] set infofd [open ${infofile} w+] puts $infofd { } puts $infofd " IFPkgDescriptionDeleteWarning IFPkgDescriptionDescription ${description} IFPkgDescriptionTitle ${portname} IFPkgDescriptionVersion ${portversion} " close $infofd } proc write_welcome_html {filename portname portversion long_description description homepage} { set fd [open ${filename} w+] if {$long_description == ""} { set long_description $description } set portname [xml_escape $portname] set portversion [xml_escape $portversion] set long_description [xml_escape $long_description] set description [xml_escape $description] set homepage [xml_escape $homepage] puts $fd " Install ${portname} Welcome to the ${portname} for Mac OS X Installer


" if {$homepage != ""} { puts $fd "${homepage}

" } puts $fd "This installer guides you through the steps necessary to install ${portname} ${portversion} for Mac OS X. To get started, click Continue. " close $fd } proc write_sizes_file {sizesfile portname portversion pkgpath destpath} { if {[catch {set numFiles [exec lsbom -s ${pkgpath}/Contents/Archive.bom | wc -l]} result]} { return -code error [format [msgcat::mc "Reading package bom failed: %s"] $result] } if {[catch {set compressedSize [expr [dirSize ${pkgpath}] / 1024]} result]} { return -code error [format [msgcat::mc "Error determining compressed size: %s"] $result] } if {[catch {set installedSize [expr [dirSize ${destpath}] / 1024]} result]} { return -code error [format [msgcat::mc "Error determining installed size: %s"] $result] } if {[catch {set infoSize [file size ${pkgpath}/Contents/Info.plist]} result]} { return -code error [format [msgcat::mc "Error determining plist file size: %s"] $result] } if {[catch {set bomSize [file size ${pkgpath}/Contents/Archive.bom]} result]} { return -code error [format [msgcat::mc "Error determining bom file size: %s"] $result] } incr installedSize $infoSize incr installedSize $bomSize set fd [open ${sizesfile} w+] puts $fd "NumFiles $numFiles InstalledSize $installedSize CompressedSize $compressedSize" close $fd }