purplepkg 0.0.3 → 0.0.4

data/lib/purple/debian.rb

@@ -0,0 +1,57 @@
+DEBIAN_CONTROL_TEMPLATE = proc do |pkg| <<EOS
+Source: #{pkg.name}
+Section: unknown
+Priority: optional
+Maintainer: 
+Uploaders: 
+Build-Depends: debhelper (>> 3.0.0)
+
+Package: #{pkg.name}
+Architecture: #{`dpkg-architecture -qDEB_HOST_GNU_CPU`.strip}
+Description: #{pkg.description}
+  #{pkg.description}
+EOS
+end
+
+DEBIAN_CHANGELOG_TEMPLATE = proc do |pkg| <<EOS
+#{pkg.name} (#{pkg.version}) local; urgency=low
+
+  * Created Purple Package for #{pkg.long_name}
+
+ -- mainname <mainemail>  #{`822-date`}
+
+EOS
+end
+
+module Purple
+    class PurpleCabinet
+        def make
+            packages.each do |pkg|
+                
+                debian_dir = assert_dir File.join(pkg.srcdir, 'debian')
+
+                # Debian changelog file - creating dummy
+                File.open File.join(debian_dir, 'changelog'), 'w' do |f|
+                    f.write DEBIAN_CHANGELOG_TEMPLATE.call(pkg)
+                end
+
+                # Debian control file
+                File.open File.join(debian_dir, 'control'), 'w' do |f|
+                    f.write DEBIAN_CONTROL_TEMPLATE.call(pkg)
+                end
+
+                File.symlink pkg.stage_root, File.join(debian_dir, 'tmp') unless File.symlink? File.join(debian_dir, 'tmp')
+                assert_dir File.join(debian_dir, 'tmp', 'DEBIAN')
+
+                system "cd #{pkg.srcdir}; dpkg-gencontrol"
+                system "dpkg-deb -b #{pkg.stage_root} #{packagedir}"
+            end
+        end
+
+        def deploy
+            package_list = Dir.new(packagedir).to_a.reject{|s| s =~ /^\.{1,2}/}
+            puts "DEBUG PurpleCabinet#deploy(debian.rb): #{package_list.inspect}"
+            system "cd #{packagedir}; sudo dpkg -i #{package_list.collect{|s| '"'+s+'"'}.join(' ')}"
+        end
+    end
+end

data/lib/purple/pkg_actions.rb

@@ -53,7 +53,7 @@ module Purple
                     when /bz2$/; '-j'
                     else ''
                 end
-                if not Purple.sys "tar x #{unpack} -C '#{cabinet.srcdir}' -f #{cabinet.filesdir}/#{f}"
+                if not cabinet.sys 'prepare', "tar xv #{unpack} -C '#{cabinet.srcdir}' -f #{cabinet.filesdir}/#{f}"
                     throw :stop
                 end
             end
@@ -61,11 +61,11 @@ module Purple
         end
 
         def default_config
-           throw :stop unless system "cd #{srcdir}; ./configure --prefix=/usr"
+           throw :stop unless cabinet.sys 'config', "cd #{srcdir}; ./configure --prefix=/usr"
         end
 
         def default_build
-           throw :stop unless system "make -C '#{srcdir}'"
+           throw :stop unless cabinet.sys 'build', "make -C '#{srcdir}'"
         end
 
         def default_stage
@@ -89,7 +89,7 @@ module Purple
                 end
             end
                
-            throw :stop if not system "make -C '#{srcdir}' #{make_args} install"
+            throw :stop if not cabinet.sys 'stage', "make -C '#{srcdir}' #{make_args} install"
         end
     end
 end

data/lib/purple/process.rb

@@ -0,0 +1,33 @@
+
+module Purple
+    module Run
+        class Child
+            def initialize name, dir, cmd, *args
+                @out = File.new File.join(dir, name + ".out"), 'w'
+                @err = File.new File.join(dir, name + ".err"), 'w'
+                @cmd, @args = cmd, args
+                @status = @exit_code = nil
+            end
+            attr_reader :status, :exit_code
+            
+            def start
+                pid = fork do
+                    STDOUT.reopen @out
+                    STDERR.reopen @err
+                    puts "> #{@cmd} #{@args.join ' '}"
+                    exec @cmd, *@args
+                end
+                Thread.new do
+                    begin
+                        #puts "DEBUG Purple::Process::Child#start: HERE"
+                        @exit_code = Process.waitpid2(pid)[1].exitstatus
+                        #puts "DEBUG Purple::Process::Child#start: status=#{@exit_code}"
+                    ensure
+                        @status = :done
+                    end
+                end
+                #pid
+            end
+        end
+    end
+end

data/lib/purple/util.rb

@@ -0,0 +1,10 @@
+
+
+module Purple
+    module Util
+        def self.filter filename
+            contents = File.open(filename) { |f| contents = yield f.read }
+            File.open(filename, 'w') { |f| f.write contents }
+        end
+    end
+end

data/lib/purple.rb

@@ -7,6 +7,8 @@ module Purple
     autoload :Script, 'purple/script'
     autoload :Matches, 'purple/matches'
     autoload :Platform, 'purple/platform'
+    autoload :Run, 'purple/process'
+    autoload :Util, 'purple/util'
     PURPLE_FOLDER = "#{ENV['HOME']}/purple"
 
 
@@ -36,6 +38,10 @@ module Purple
             assert_dir File.join(@cabinet_dir, 'Package')
         end
 
+        def logdir
+            assert_dir File.join(@cabinet_dir, 'Log')
+        end
+
         def fetch_all
             urls.each do |url|
                 Getter.get url, filesdir
@@ -127,7 +133,23 @@ module Purple
             end
             (FileTest.directory? path) ? path : nil
         end
-        
+
+        def sys name, cmd, *args
+            bars = ['  -', '  \\', '  |', '  /']
+            child = Run::Child.new name, logdir, cmd, *args
+            $>.print "     > #{name}\015"
+            $>.flush
+            child.start
+            while not child.status
+                $>.print bars[0] + "\015"
+                $>.flush
+                bars << bars.shift
+                sleep 1
+            end
+            puts "Done"
+            return(child.exit_code == 0)
+        end
+
     end
 
     class PackageInfo
@@ -202,14 +224,15 @@ module Purple
         EOS
         )
         cabinet.setup
-        Purple::Script.write cabinet, File.join(cabinet.cabinet_dir, cabinet.name + '.purple')
-        cabinet
-    end
 
-    def self.sys cmd
-        system cmd
-    end
+        purple_script_path = File.join(cabinet.cabinet_dir, cabinet.name + '.purple')
+        if FileTest.exist? purple_script_path
+            raise 'purple script already exists'
+        end
 
+        Purple::Script.write cabinet, purple_script_path
+        cabinet
+    end
 end
 
 module Kernel

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.8.1
 specification_version: 1
 name: purplepkg
 version: !ruby/object:Gem::Version 
-  version: 0.0.3
-date: 2004-11-12
+  version: 0.0.4
+date: 2004-11-19
 summary: A simple pre-packing tool with meta-package plugin support.
 require_paths: 
   - lib
@@ -35,8 +35,11 @@ files:
   - lib/purple/pkg_actions.rb
   - lib/purple/script.rb
   - lib/purple/makefile.rb
+  - lib/purple/util.rb
   - lib/purple/getter.rb
   - lib/purple/platform.rb
+  - lib/purple/debian.rb
+  - lib/purple/process.rb
   - bin/purple
   - bin/install_ruby
 test_files: []