Ticket #581: rpm-port.patch

Makefile

@@ -1 +1 @@
 INSTALLDIR=     ${DESTDIR}${datadir}/darwinports/Tcl/port1.0
 
-SRCS=           port.tcl portchecksum.tcl portconfigure.tcl portextract.tcl portfetch.tcl portmain.tcl portbuild.tcl portpatch.tcl portutil.tcl portinstall.tcl portdepends.tcl portinstall.tcl portuninstall.tcl portdepends.tcl portclean.tcl portpackage.tcl portcontents.tcl portmpkg.tcl
+SRCS= port.tcl portchecksum.tcl portconfigure.tcl portextract.tcl           \
+        portfetch.tcl portmain.tcl portbuild.tcl portpatch.tcl portutil.tcl \
+        portinstall.tcl portdepends.tcl portinstall.tcl portuninstall.tcl   \
+        portdepends.tcl portclean.tcl portpackage.tcl portcontents.tcl      \
+        portmpkg.tcl portrpmpackage.tcl
 
 SUBDIR=         resources
 

port.tcl

@@ -43 +43 @@
 package require portuninstall 1.0
 package require portclean 1.0
 package require portpackage 1.0
+package require portrpmpackage 1.0
 package require portcontents 1.0
 package require portmpkg 1.0

new file portrpmpackage.tcl

@@ +1 @@
+# et:ts=4
+# portrpmpackage.tcl
+#
+# 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 portrpmpackage 1.0
+package require portutil 1.0
+
+set com.apple.rpmpackage [target_new com.apple.rpmpackage rpmpackage_main]
+target_runtype ${com.apple.rpmpackage} always
+target_provides ${com.apple.rpmpackage} rpmpackage
+target_requires ${com.apple.rpmpackage} install
+
+# define options
+options rpmpackage.type rpmpackage.destpath
+
+# Set defaults
+default rpmpackage.destpath {${workpath}/destroot}
+
+set UI_PREFIX "---> "
+
+proc rpmpackage_main {args} {
+    global portname portversion portrevision rpmpackage.type rpmpackage.destpath UI_PREFIX
+
+    ui_msg "$UI_PREFIX [format [msgcat::mc "Creating RPM package for %s-%s"] ${portname} ${portversion}]"
+
+    return [rpmpackage_pkg $portname $portversion $portrevision]
+}
+
+proc rpmpackage_pkg {portname portversion portrevision} {
+    global portdbpath destpath workpath prefix portresourcepath description rpmpackage.destpath long_description homepage
+
+    set specpath ${workpath}/${portname}.spec
+    # 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]
+        }
+    }
+
+    set dependencies {}
+    # get deplist
+    set deps [make_dependency_list $portname]
+    set deps [lsort -unique $deps]
+    foreach dep $deps {
+        set name [lindex [split $dep /] 0]
+        set vers [lindex [split $dep /] 1]
+        # don't re-package ourself
+        if {$name != $portname} {
+            lappend dependencies "${name} >= ${vers}"
+        }
+    }
+
+    system "cd '${destpath}' && find . ! -type d | sed -e 's/^.//' > '${workpath}/${portname}.filelist'"
+    puts "destpath = ${destpath}"
+    write_spec ${specpath} $portname $portversion $portrevision $pkg_description $pkg_long_description $destpath $dependencies
+    system "mkdir -p '${workpath}/rpmbuild/RPMS/i386'"
+    system "mkdir -p '${workpath}/rpmbuild/RPMS/ppc'"
+    system "mkdir -p '${workpath}/rpmbuild/RPMS/ppc64'"
+    system "mkdir -p '${workpath}/rpmbuild/RPMS/noarch'"
+    system "mkdir -p '${workpath}/rpmbuild/BUILD'"
+    system "mkdir -p '${workpath}/rpmbuild/SRPMS'"
+    system "rpm -bb -v --define '_tmppath ${workpath}' --define '_topdir ${workpath}/rpmbuild' ${specpath}"
+
+    return 0
+}
+
+proc make_dependency_list {portname} {
+    set result {}
+    if {[catch {set res [dportsearch "^$portname\$"]} error]} {
+        ui_error "port search failed: $error"
+        return 1
+    }
+    foreach {name array} $res {
+        array set portinfo $array
+
+        if {[info exists portinfo(depends_run)] || [info exists portinfo(depends_lib)]} {
+            # get the union of depends_run and depends_lib
+            # xxx: only examines the portfile component of the depspec
+            set depends {}
+            if {[info exists portinfo(depends_run)]} { eval "lappend depends $portinfo(depends_run)" }
+            if {[info exists portinfo(depends_lib)]} { eval "lappend depends $portinfo(depends_lib)" }
+
+            foreach depspec $depends {
+                set dep [lindex [split $depspec :] 2]
+        
+                # xxx: nasty hack
+                if {$dep != "XFree86"} {
+                    eval "lappend result [make_dependency_list $dep]"
+                }
+            }
+        }
+        lappend result $portinfo(name)/$portinfo(version)
+        unset portinfo
+    }
+    ui_debug "dependencies for ${portname}: $result"
+    return $result
+}
+
+proc write_spec {specfile portname portversion portrevision description long_description destroot dependencies} {
+    set specfd [open ${specfile} w+]
+    set deplist [join ${dependencies} ", "]
+    puts $specfd "\#Spec file generated by DarwinPorts
+Summary: ${description}
+Name: ${portname}
+Version: ${portversion}
+Release: ${portrevision}
+Group: darwinports
+License: Unknown
+BuildRoot: ${destroot}
+Requires: ${deplist}
+
+%description
+${long_description}
+%prep
+%build
+echo \"Go DarwinPorts\"
+%install
+%clean
+%files -f ${destroot}/../${portname}.filelist
+"
+    close $specfd
+}