Changeset 35

Timestamp:

02/13/06 17:55:34 (18 years ago)

Author:

kdeugau

Message:

/trunk

Checkpoint - source package sub

File:

• trunk/debbuild (modified) (3 diffs)

trunk/debbuild

@@ -134 +134 @@
 }
 
+# -> srcpkg if -.s
+if ($cmdopts{stage} eq 's') {
+  srcpackage();
+  exit 0;
+}
+
 # Hokay.  Need to:
 # -> prep if -.p OR (-.[cilabs] AND !--short-circuit)
@@ -160 +166 @@
 if ($cmdopts{stage} eq 'b') {
   binpackage();
-}
-# -> srcpkg if -.s
-if ($cmdopts{stage} eq 's') {
-  srcpackage();
 }
 
@@ -743 +745 @@
 
 
-sub srcpackage {}
+## srcpackage()
+# Builds a .src.deb source package.  Note that Debian's idea of
+# a "source package" is seriously flawed IMO, because you can't
+# easily copy it as-is.
+sub srcpackage {
+  # use pax -w [file] [file] ... >outfile.sdeb
+  my $paxcmd = "cd %{_topdir}; pax -w ";
+
+# tweak source entry into usable form.  Need it locally somewhere along the line.
+  (my $pkgsrc = $pkgdata{main}{source}) =~ s|.+/([^/]+)$|$1|;
+  $paxcmd .= "$pkgsrc ";
+
+  # create file list:  Source[nn], Patch[nn]
+  foreach my $specbit (keys %{$pkgdata{main}} ) {
+    next if $specbit eq 'source';
+    $paxcmd .= "$pkgdata{main}{$specbit} " if $specbit =~ /^(source|patch)/;
+  }
+
+  # add the spec file now
+  $paxcmd .= "$specfile > SDEBS/$pkgdata{main}{name}.sdeb";
+
+  $paxcmd = expandmacros($paxcmd,'gp');
+  
+  print "$paxcmd\n";
+}