inqlude 0.0.2

data/lib/distros/suse.rb

@@ -0,0 +1,66 @@
+# Copyright (C) 2011 Cornelius Schumacher <schumacher@kde.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+class Suse
+
+  attr_accessor :name, :version
+
+  def is_it_me?
+    begin
+      File.open "/etc/SuSE-release" do |file|
+        if file.readline =~ /^openSUSE/
+          @name = "openSUSE"
+          file.readline =~ /VERSION = (.*)/
+          @version = $1
+        end
+      end
+      
+      true
+    rescue Errno::ENOENT
+      false
+    end
+  end
+
+  def installed handler
+    packages = Hash.new
+
+    `rpmqpack`.each_line do |package|
+      packages[package.chomp] = true
+    end
+
+    unknown = 0
+
+    installed = Array.new
+    handler.manifests.each do |manifest|
+      unknown += 1
+      package_section = manifest["packages"]
+      next unless package_section
+      name_section = package_section[name]
+      next unless name_section
+      version_section = name_section[version]
+      next unless version_section
+      if packages.has_key? version_section["package_name"]
+        installed.push manifest
+        unknown -= 1
+      end
+    end
+    
+    STDERR.puts "Warning: #{unknown} libraries don't have package information"
+    
+    installed
+  end
+
+end

data/lib/inqlude.rb

@@ -0,0 +1,12 @@
+require "rubygems"
+
+require "thor"
+require "json"
+
+require File.expand_path('../version', __FILE__)
+require File.expand_path('../cli', __FILE__)
+require File.expand_path('../manifest_handler', __FILE__)
+require File.expand_path('../view', __FILE__)
+require File.expand_path('../distro', __FILE__)
+require File.expand_path('../rpm_manifestizer', __FILE__)
+require File.expand_path('../settings', __FILE__)

data/lib/manifest_handler.rb

@@ -0,0 +1,35 @@
+# Copyright (C) 2011 Cornelius Schumacher <schumacher@kde.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+class ManifestHandler
+
+  attr_reader :manifests
+  
+  def initialize settings
+    @settings = settings
+  
+    @manifests = Array.new
+  end
+
+  def read_remote
+    Dir.glob( "#{@settings.manifest_dir}/*.manifest" ).sort.each do |filename|
+      File.open filename do |file|
+        manifests.push JSON file.read
+      end
+    end
+  end
+
+end

data/lib/rpm_manifestizer.rb

@@ -0,0 +1,230 @@
+# Copyright (C) 2011 Cornelius Schumacher <schumacher@kde.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+class RpmManifestizer
+
+  attr_accessor :dry_run
+
+  def initialize settings
+    @settings = settings
+  
+    @cut_off_exceptions = [ "qt4-x11" ]
+    @source_rpms = Hash.new
+  end
+
+  def create_manifest name, rpm_name
+    filename =  "#{@settings.manifest_dir}/#{name}.manifest" 
+    File.open( filename, "w") do |f2|
+      source_rpm = `rpm -q --queryformat '%{SOURCERPM}' #{rpm_name}`
+      @source_rpms[source_rpm] = Array.new
+
+      raw = `rpm -q --queryformat '%{DESCRIPTION}' #{rpm_name}`
+      parse_authors = false
+      description = ""
+      authors = Array.new
+      raw.each_line do |line3|
+        if line3 =~ /^Authors:/
+          parse_authors = true
+          next
+        end
+        if parse_authors
+          if line3 =~ /^---/
+            next
+          end
+          authors.push "\"#{line3.strip}\""
+        else
+          description += line3.chomp + "\\n"
+        end
+      end
+      description.gsub! /"/, "\\\""
+      description.strip!
+
+      qf = '  "version": "%{VERSION}",\n'
+      qf += '  "summary": "%{SUMMARY}",\n'
+      qf += '  "homepage": "%{URL}",\n'
+      qf += '  "license": "%{LICENSE}",\n'
+      header = `rpm -q --queryformat '#{qf}' #{rpm_name}`
+
+      f2.puts '{';
+      f2.puts '  "schema_version": 1,'
+      f2.puts "  \"name\": \"#{name}\","
+      f2.puts header
+      f2.puts "  \"description\": \"#{description}\","
+      f2.puts '  "authors": [' + authors.join(",") + '],'
+      f2.puts '  "maturity": "stable",'
+      f2.puts '  "packages": {'
+      f2.puts '    "openSUSE": {'
+      f2.puts '      "11.4": {'
+      f2.puts "        \"package_name\": \"#{rpm_name}\","
+      f2.puts '        "repository": {'
+      f2.puts '          "url": "http://download.opensuse.org/distribution/11.4/repo/oss/",'
+      f2.puts '          "name": "openSUSE-11.4-Oss"'
+      f2.puts '        },'
+      f2.puts "        \"source_rpm\": \"#{source_rpm}\""
+      f2.puts '      }'
+      f2.puts '    }'
+      f2.puts '  }'
+      f2.puts '}'
+    end
+  end
+
+  def requires_qt? rpm_name
+    IO.popen "rpm -q --requires #{rpm_name}" do |f2|
+      while line2 = f2.gets do
+        if line2 =~ /Qt/
+          return true
+        end
+      end
+    end
+    false
+  end
+
+  def is_library? rpm_name
+    rpm_name =~ /^lib/
+  end
+
+  def is_32bit? rpm_name
+    rpm_name =~ /\-32bit/
+  end
+
+  def cut_off_number_suffix name
+    if @cut_off_exceptions.include? name
+      return name
+    end
+
+    i = name.length - 1
+    while i > 0
+      if name[i].chr !~ /[\-_0-9]/
+        break
+      end
+      i -= 1
+    end
+    if i > 0
+      return name[0..i]
+    end
+    name
+  end
+
+  def process_all_rpms
+    if !File.exist? @settings.cache_dir + "/qt_source.json"
+      create_qt_source_cache
+    end
+    
+    qt_sources = Hash.new
+    File.open @settings.cache_dir + "/qt_source.json" do |file|
+      qt_sources = JSON file.read
+    end
+
+    qt_sources.each do |source,sections|
+      sections["all"].each do |rpm|
+        if rpm =~ /(.*)-devel$/
+          name = $1
+
+          if name =~ /^lib(.*)/
+            name = $1
+          end
+
+          lib_rpm = ""
+          sections["lib"].each do |lib|
+            if lib !~ /\-devel$/
+              lib_rpm = lib
+              break
+            end
+          end
+          if lib_rpm.empty?
+            lib_rpm = rpm
+          end
+        
+          puts "Identified manifest: #{name} (Library RPM: #{lib_rpm})"
+        
+          if !dry_run
+            create_manifest name, lib_rpm
+          end
+        end
+      end
+    end
+  end
+
+  def read_source_cache
+    if !File.exist? @settings.cache_dir + "/source.json"
+      create_source_cache
+    end
+  
+    sources = Hash.new
+    File.open @settings.cache_dir + "/source.json" do |file|
+      sources = JSON file.read
+    end
+
+    sources
+  end
+
+  def create_source_cache
+    puts "Creating cache of RPM meta data"
+    get_involved "Create more friendly progress display for cache creation"
+    sources = Hash.new
+    IO.popen "rpmqpack" do |f|
+      while line = f.gets do
+        rpm_name = line.chomp
+        puts "SCAN #{rpm_name}"
+        source_rpm = `rpm -q --queryformat '%{SOURCERPM}' #{rpm_name}`
+        sources[rpm_name] = source_rpm
+      end
+    end
+
+    File.open @settings.cache_dir + "/source.json", "w" do |f|
+      f.puts sources.to_json
+    end
+  end
+
+  def create_qt_source_cache
+    puts "Creating cache of Qt library RPMs"
+
+    sources = read_source_cache
+
+    rpms = Hash.new    
+    sources.each do |rpm,source|
+      if rpms.has_key? source
+        rpms[source] = rpms[source].push rpm
+      else
+        rpms[source] = Array.new.push rpm
+      end
+    end
+
+    qt_sources = Hash.new
+    sources.each do |rpm,source|
+      next unless requires_qt? rpm
+      next unless is_library? rpm
+      next if is_32bit? rpm
+
+      if !qt_sources.has_key? source
+        sections = Hash.new
+        sections[:all] = Array.new
+        sections[:lib] = Array.new
+        qt_sources[source] = sections
+      end
+      
+      qt_sources[source][:all] = rpms[source]
+      qt_sources[source][:lib] = qt_sources[source][:lib].push rpm
+
+      puts "Found RPM #{rpm} (#{source})"
+    end
+  
+    File.open @settings.cache_dir + "/qt_source.json", "w" do |f|
+      f.puts JSON.pretty_generate qt_sources
+    end
+  end
+
+end

data/lib/settings.rb

@@ -0,0 +1,41 @@
+# Copyright (C) 2011 Cornelius Schumacher <schumacher@kde.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+class Settings
+
+  def manifest_dir
+    local_dir "manifests"
+  end
+
+  def cache_dir
+    local_dir "cache"
+  end
+
+  def version
+    Inqlude::VERSION
+  end
+
+  private
+
+  def local_dir dirname
+    home = ENV["HOME"] + "/.inqlude/"
+    Dir::mkdir home unless File.exists? home
+    path = home + dirname
+    Dir::mkdir path unless File.exists? path
+    path
+  end
+
+end

data/lib/version.rb

@@ -0,0 +1,5 @@
+module Inqlude
+
+  VERSION = "0.0.2"
+
+end

data/lib/view.rb

@@ -0,0 +1,93 @@
+# Copyright (C) 2011 Cornelius Schumacher <schumacher@kde.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+require "rubygems"
+
+require "haml"
+
+class View
+
+  attr_accessor :enable_disqus
+
+  def initialize handler
+    @manifest_handler = handler
+  end
+
+  def create output_dir
+    assert_dir output_dir
+
+    assert_dir "#{output_dir}/public"
+    system "cp #{view_dir}/public/* #{output_dir}/public/"
+
+    index = template "index"
+    engine = Haml::Engine.new index
+
+    File.open "#{output_dir}/index.html", "w" do |file|
+      file.puts engine.render( binding )
+    end
+
+    library_path = "#{output_dir}/libraries/"
+    assert_dir library_path
+
+    engine = Haml::Engine.new template "library"
+
+    manifests.each do |manifest|
+      File.open library_path + manifest["name"] + ".html", "w" do |file|
+        @manifest = manifest
+        file.puts engine.render( binding )
+      end
+    end
+
+  end
+
+  def m attr
+    @manifest[ attr ]
+  end
+
+  def link_to_manifest name
+    "<a href=\"libraries/#{name}.html\">#{name}</a>"
+  end
+
+  def link url
+    "<a href=\"#{url}\" target=\"_blank\">#{url}</a>"
+  end
+
+  def manifests
+    if @manifest_handler.manifests.empty?
+      @manifest_handler.read_remote
+    end
+    @manifest_handler.manifests
+  end
+
+  def disqus_enabled?
+    @enable_disqus
+  end
+
+  private
+  
+  def assert_dir name
+    Dir::mkdir name unless File.exists? name
+  end    
+  
+  def template name
+    File.read( view_dir + "#{name}.html.haml" )
+  end
+
+  def view_dir
+    File.expand_path( File.dirname( __FILE__ ) + "/../view/" ) + "/"
+  end
+
+end

data/test/rpm_manifestizer_test.rb

@@ -0,0 +1,11 @@
+require File.expand_path('../test_helper', __FILE__)
+
+class RpmManifestizerTest < Test::Unit::TestCase
+
+  def test_is_library
+    m = RpmManifestizer.new Settings.new
+    assert m.is_library?( "libjson" )
+    assert !m.is_library?( "kontact" )
+  end
+
+end

data/test/test_helper.rb

@@ -0,0 +1,3 @@
+require File.expand_path('../../lib/inqlude',__FILE__)
+
+require 'test/unit'

data/view/index.html.haml

@@ -0,0 +1,26 @@
+%head
+  %link{ :rel => "stylesheet", :type => "text/css",
+         :href => "public/inqlude.css" }
+  <link href='http://fonts.googleapis.com/css?family=Droid+Sans' rel='stylesheet' type='text/css'>
+%body
+  .header.center
+    %h1
+      %span.logo><
+        \#in
+      %span.logo.green><
+        q
+      %span.logo><
+        lude
+      %span.subtitle
+        The Qt library archive
+
+  .menu.center
+
+  .content.center
+    %table
+      - manifests.each do |manifest|
+        %tr
+          %td.first
+            = link_to_manifest manifest["name"]
+          %td.last
+            = manifest["summary"]

data/view/library.html.haml

@@ -0,0 +1,53 @@
+%head
+  %link{ :rel => "stylesheet", :type => "text/css",
+         :href => "../public/inqlude.css" }
+
+%body
+  .header.center
+    %h1
+      %span.logo><
+        \#in
+      %span.logo.green><
+        q
+      %span.logo><
+        lude
+      %span.subtitle
+        The Qt library archive
+
+  .menu.center
+
+  .content.center
+    %h2
+      = m "name"
+  
+    %p
+      %em
+        Version
+        = m "version"
+
+    %p
+      = m "summary"
+
+    %p
+      = m "description"
+
+    %p
+      = link m( "homepage" )
+
+    - if disqus_enabled?
+      %hr
+
+      #disqus_thread
+
+      :javascript
+        var disqus_shortname = 'inqlude';
+
+        var disqus_identifier = '#{m "name"}';
+        var disqus_url = 'http://inqlude.org/libraries/#{m "name"}.html';
+
+        /* * * DON'T EDIT BELOW THIS LINE * * */
+        (function() {
+          var dsq = document.createElement('script'); dsq.type = 'text/javascript'; dsq.async = true;
+          dsq.src = 'http://' + disqus_shortname + '.disqus.com/embed.js';
+          (document.getElementsByTagName('head')[0] || document.getElementsByTagName('body')[0]).appendChild(dsq);
+        })();

data/view/public/inqlude.css

@@ -0,0 +1,60 @@
+body {
+  background-color: yellowgreen;
+  margin: 0px;
+  font-family: 'Droid Sans', arial, serif;
+}
+
+.center {
+  margin-left: auto;
+  margin-right: auto;
+}
+
+h1 {
+  text-align: center;
+  font-family: monospace;
+  font-size: 200%;
+  font-weight: normal;
+  margin-top: 0px;
+  margin-bottom: 0px;
+}
+
+h1 .logo {
+  font-size: 200%;
+  font-weight: bold;
+}
+
+h1 .green {
+  color: green;
+}
+
+
+h1 .subtitle {
+  padding-left: 12px;
+}
+
+.header {
+  width: 80%;
+  background-color: white;
+  padding: 10px;
+}
+
+.menu {
+  width: 85%;
+  height: 20px;
+  background-color: green;
+}
+
+.content {
+  width: 80%;
+  background-color: white;
+  padding: 10px;
+}
+
+table {
+  margin: auto;
+}
+
+td {
+  vertical-align: top;
+  padding-left: 16px;
+}