rdp-rmagick 0.0.0

data/lib/rvg/to_c.rb

@@ -0,0 +1,103 @@
+class Magick::RVG
+
+  private
+    def header_text(pgm, name)
+        pgm.puts <<"END_HEADER"
+/*
+Version: #{Magick_version}
+
+gcc `Magick-config --cflags --cppflags` #{name}.c `Magick-config --ldflags --libs` -o #{name}
+*/
+
+#include <stdio.h>
+#include <time.h>
+#include <sys/types.h>
+#include <string.h>
+#include <stdlib.h>
+#include <magick/api.h>
+
+
+int main(int argc,char **argv)
+{
+  Image *image;
+  ImageInfo *info;
+  DrawInfo *draw;
+  const char * const primitives =
+END_HEADER
+    end
+
+    def list_primitives(pgm, gc)
+        primitives = gc.inspect.split("\n")
+        indent = 0
+        primitives.each do |cmd|
+            indent -= 1 if cmd['pop ']
+            pgm.print('  ', ('  '*indent), '"', cmd, '\n"', "\n")
+            indent += 1 if cmd['push ']
+        end
+    end
+
+    def trailer_text(pgm, name)
+        pgm.puts <<"END_TRAILER"
+  ;
+
+  InitializeMagick("#{name}");
+
+  info = CloneImageInfo(NULL);
+  if (!info)
+  {
+    MagickError(ResourceLimitError,"Unable to allocate ImageInfo",
+      "Memory allocation failed");
+  }
+
+  info->size = AcquireMagickMemory(20);
+  sprintf(info->size, "%dx%d", #{@width.to_i}, #{@height.to_i});
+
+  image = AllocateImage(info);
+  if (!image)
+  {
+    MagickError(ResourceLimitError,"Unable to allocate Image",
+      "Memory allocation failed");
+  }
+
+  SetImage(image, OpaqueOpacity);
+
+  draw = CloneDrawInfo(info, NULL);
+  CloneString(&(draw->primitive), primitives);
+  DrawImage(image, draw);
+
+  if (image->exception.severity != UndefinedException)
+  {
+        printf("%s: %s", image->exception.reason, image->exception.description);
+        exit(1);
+  }
+
+  strcpy(image->filename, "#{name+".gif"}");
+  WriteImage(info, image);
+
+  DestroyDrawInfo(draw);
+  DestroyImage(image);
+  DestroyImageInfo(info);
+  DestroyMagick();
+
+  return 0;
+}
+END_TRAILER
+    end
+
+  public
+
+    # Convert an RVG object to a stand-alone C program
+    # suitable for reproducing a bug.
+    def to_c(name)
+        pgm = File.open(name+".c", "w")
+        header_text(pgm, name)
+        gc = Draw.new
+        add_primitives(gc)
+        list_primitives(pgm, gc)
+        trailer_text(pgm, name)
+        pgm.close
+        $stderr.puts "Done"
+    end
+
+end     # class Magick::RVG
+

data/lib/rvg/transformable.rb

@@ -0,0 +1,133 @@
+#--
+# $Id: transformable.rb,v 1.5 2009/02/28 23:52:28 rmagick Exp $
+# Copyright (C) 2009 Timothy P. Hunter
+#++
+
+module Magick
+    class RVG
+
+        # Transforms is an Array with a deep_copy method.
+        # During unit-testing it also has a deep_equal method.
+        class Transforms < Array        #:nodoc:
+
+            def deep_copy(h=nil)
+                copy = self.class.new
+                each { |transform| copy << [transform[0], transform[1].dup] }
+                return copy
+            end
+
+        end     # class Transform
+
+        # Transformations are operations on the coordinate system.
+        # All the transformations defined within a container (an RVG object
+        # or a group) are applied before drawing any shapes or text.
+        # All transformations are applied in the order they were
+        # defined. <em>Note:</em> This means that
+        #   g.translate(10,20).scale(2)
+        # is not the same as
+        #   g.scale(2).translate(10,20)
+        module Transformable
+
+          private
+
+            # Apply transforms in the same order they were specified!
+            def add_transform_primitives(gc)
+                @transforms.each { |transform| gc.__send__(transform[0], *transform[1]) }
+            end
+
+            def initialize(*args, &block)
+                super()
+                @transforms = Transforms.new
+            end
+
+          public
+
+            # Applies the transformation matrix [sx, rx, ry, sy, tx, ty]
+            def matrix(sx, rx, ry, sy, tx, ty)
+                begin
+                    @transforms << [:affine, [Float(sx), Float(rx), Float(ry), Float(sy), Float(tx), Float(ty)]]
+                rescue ArgumentError
+                    raise ArgumentError, "arguments must be convertable to float (got #{sx.class}, #{rx.class}, #{ry.class}, #{sy.class}, #{sx.class}, #{sx.class}, #{tx.class}, #{ty.class})"
+                end
+                yield(self) if block_given?
+                self
+            end
+
+            # Add <tt>tx</tt> to all x-coordinates and <tt>ty</tt>
+            # to all y-coordinates. If <tt>ty</tt> is omitted it defaults
+            # to <tt>tx</tt>.
+            def translate(tx, ty=nil)
+                ty ||= tx
+                begin
+                    @transforms << [:translate, [Float(tx), Float(ty)]]
+                rescue ArgumentError
+                    raise ArgumentError, "arguments must be convertable to float (got #{tx.class}, #{ty.class})"
+                end
+                yield(self) if block_given?
+                self
+            end
+
+            # Multiply the x-coordinates by <tt>sx</tt> and the y-coordinates
+            # by <tt>sy</tt>. If <tt>sy</tt> is omitted it defaults to <tt>sx</tt>.
+            def scale(sx, sy=nil)
+                sy ||= sx
+                begin
+                    @transforms << [:scale, [Float(sx), Float(sy)]]
+                rescue ArgumentError
+                    raise ArgumentError, "arguments must be convertable to float (got #{sx.class}, #{sy.class})"
+                end
+                yield(self) if block_given?
+                self
+            end
+
+            # This method can take either of two argument lists:
+            # [rotate(angle)] rotate by <tt>angle</tt> degrees
+            # [rotate(angle, cx, cy)] rotate by <tt>angle</tt> degrees about
+            #                         the point [<tt>cx</tt>, <tt>cy</tt>].
+            def rotate(angle, *args)
+                begin
+                    case args.length
+                        when 0
+                            @transforms << [:rotate, [Float(angle)]]
+                        when 2
+                            cx, cy = Float(args[0]), Float(args[1])
+                            @transforms << [:translate, [cx, cy]]
+                            @transforms << [:rotate, [angle]]
+                            @transforms << [:translate, [-cx, -cy]]
+                        else
+                            raise ArgumentError, "wrong number of arguments (#{args.length} for 1 or 3)"
+                    end
+                rescue ArgumentError
+                    raise ArgumentError, "arguments must be convertable to float (got #{[angle, *args].collect {|a| a.class}.join(', ')})"
+                end
+                yield(self) if block_given?
+                self
+            end
+
+            # Skew the X-axis by <tt>angle</tt> degrees.
+            def skewX(angle)
+                begin
+                    @transforms << [:skewx, [Float(angle)]]
+                rescue ArgumentError
+                    raise ArgumentError, "argument must be convertable to float (got #{angle.class})"
+                end
+                yield(self) if block_given?
+                self
+            end
+
+            # Skew the Y-axis by <tt>angle</tt> degrees.
+            def skewY(angle)
+                begin
+                    @transforms << [:skewy, [Float(angle)]]
+                rescue ArgumentError
+                    raise ArgumentError, "argument must be convertable to float (got #{angle.class})"
+                end
+                yield(self) if block_given?
+                self
+            end
+
+        end     # module Transformable
+
+    end # class RVG
+end # module Magick
+

data/lib/rvg/units.rb

@@ -0,0 +1,66 @@
+# $Id: units.rb,v 1.5 2009/02/28 23:52:28 rmagick Exp $
+# Copyright (C) 2009 Timothy P. Hunter
+module Magick
+    class RVG
+
+        # Define RVG.dpi and RVG.dpi=. Add conversions to Fixnum and Float classes
+        class << self
+            attr_reader :dpi
+            def dpi=(n)
+                if !defined?(@dpi)
+                    [Float, Fixnum].each do |c|
+                        c.class_eval <<-END_DEFS
+                            # the default measurement - 1px is 1 pixel
+                            def px
+                                self
+                            end
+                            # inches
+                            def in
+                                self * ::Magick::RVG.dpi
+                            end
+                            # millimeters
+                            def mm
+                                self * ::Magick::RVG.dpi / 25.4
+                            end
+                            # centimeters
+                            def cm
+                                self * ::Magick::RVG.dpi / 2.54
+                            end
+                            # points
+                            def pt
+                                self * ::Magick::RVG.dpi / 72.0
+                            end
+                            # picas
+                            def pc
+                                self * ::Magick::RVG.dpi / 6.0
+                            end
+                            # percentage of the argument
+                            def pct(of)
+                                self * Float(of) / 100.0
+                            end
+                            # the default is deg
+                            def deg
+                                self
+                            end
+                            # radians -> degrees
+                            def rad
+                                self * 180.0 / Math::PI
+                            end
+                            # grads -> degrees
+                            def grad
+                                self * 9.0 / 10.0
+                            end
+                        END_DEFS
+                    end
+                end
+
+                @dpi = Float(n)
+                return @dpi
+            rescue ArgumentError
+                raise TypeError, "Can't convert `#{n}' to Float"
+            end
+        end     # class << self
+
+    end # class RVG
+end # module Magick
+

data/metaconfig

@@ -0,0 +1,7 @@
+# define additional install.rb config options
+# add --allow-example-errors - default is false (only allow 5 examples to fail)
+add_bool_config('allow-example-errors', false, 'Allow installation to proceed even if a lot of examples fail')
+# add --disable-htmldoc - default is false, if true don't build doc and examples
+add_bool_config('disable-htmldoc', false, "don't build HTML doc and examples")
+# add --doc-dir - default is $prefix/share/RMagick
+add_path_config('doc-dir', "$prefix/share/RMagick", 'where to install RMagick documentation')

data/post-clean.rb

@@ -0,0 +1,12 @@
+# delete RMagick documentation created by post-setup.rb
+# doc/*.rb.html
+# doc/ex/* (!rb)
+# Bug #246: Don't use chdir!
+require 'fileutils'
+
+targets = Dir['doc/*.rb.html']
+FileUtils.safe_unlink(targets) unless targets.empty?
+
+targets = Dir['doc/ex/*']
+targets.delete_if { |entry| File.directory?(entry) || %r{\.rb\z}.match(entry) }
+FileUtils.safe_unlink(targets) unless targets.empty?

data/post-install.rb

@@ -0,0 +1,50 @@
+# install RMagick documentation
+
+require 'fileutils'
+require 'find'
+
+if defined?(Installer) && self.class == Installer
+
+    BUILD_HTMLDOC = get_config('disable-htmldoc') != 'yes'
+
+    $docdir = nil
+
+    # Where to install the documentation
+    def docdir
+        return $docdir if $docdir
+        dir = get_config('doc-dir')+'/'
+        dir.sub!(/\A$prefix/, get_config('prefix'))
+        $docdir = dir
+    end
+else
+
+    BUILD_HTMLDOC = true
+
+    def docdir
+        return ARGV[0]
+    end
+end
+
+if BUILD_HTMLDOC
+
+    puts "\npost-install.rb: installing documentation..."
+
+    Find.find('doc') do |file|
+        next if FileTest.directory? file
+        target = file.sub(/^doc\//,docdir())
+        unless FileTest.exists? File.dirname(target)
+            FileUtils.mkdir_p(File.dirname(target), :verbose => true)
+            # Mark this directory as one we created so
+            # that uninstall.rb knows it's okay to delete
+            FileUtils.touch("#{File.dirname(target)}/.rmagick")
+        end
+        FileUtils.install(file, target, :mode => 0644)
+    end
+
+else
+
+    puts "\npost-install.rb: --disable-htmldoc specified. No documentation will be installed."
+
+end
+
+exit

data/post-setup.rb

@@ -0,0 +1,254 @@
+#===============================================================================
+# post-setup.rb - setup documentation
+#===============================================================================
+
+EXAMPLES   = '.examples'
+STD_URI    = 'http:\/\/www.imagemagick.org'
+STD_URI_RE = /"#{STD_URI}/
+DONT_RUN   = ['fonts.rb']  # never run these examples
+ENTITY     = Hash['&' => '&amp;', '>' => '&gt;', '<' => '&lt;']
+
+if defined?(Installer) && self.class == Installer
+
+  RUBYPROG  = get_config('ruby-prog')
+  SRCDIR    = curr_srcdir()
+  ALLOW_EXAMPLE_ERRORS = get_config('allow-example-errors') == 'yes'
+  BUILD_HTMLDOC = get_config('disable-htmldoc') != 'yes'
+
+else
+
+  RUBYPROG  = 'ruby'
+  SRCDIR    = '.'
+  ALLOW_EXAMPLE_ERRORS = true
+  BUILD_HTMLDOC = true
+
+end
+
+
+#
+# A set of example programs in a directory and the output image each example produces.
+#
+
+class ExampleSet
+  def initialize(of)
+    @status_quo = get_status_quo()
+    @errs = 0
+    begin
+      File.open(EXAMPLES) do |f|
+        @targets = Marshal.load(f)
+      end
+    rescue
+      @targets = Hash.new
+      @n = 0
+      @of = of
+      @first_time = true
+    else
+      @first_time = false
+    end
+  end
+
+  def persist
+    File.open(EXAMPLES, 'w') do |f|
+      Marshal.dump(@targets, f)
+    end
+  end
+
+  def targets(example)
+    @targets[example] || Array.new
+  end
+
+  def get_status_quo
+    sq = Dir["*"]
+    sq.delete_if { |entry| File.directory?(entry) }
+  end
+
+  def update_targets(example, new)
+    t = targets(example) + new
+    @targets[example] = t.uniq
+  end
+
+  def update_status_quo(example)
+    new_status_quo = get_status_quo()
+    new = new_status_quo - @status_quo
+    update_targets(example, new)
+    @status_quo = new_status_quo
+  end
+
+  def build(example)
+    cmd = "#{RUBYPROG} -I #{SRCDIR}/lib -I #{SRCDIR}/ext/RMagick #{example}"
+    print cmd
+    print " (example #{@n += 1} of #{@of})" if @first_time
+    puts
+    system cmd
+
+    if $? != 0 then
+      puts("post-setup.rb: #{example} example returned error code #{$?}")
+      @errs += 1 unless ALLOW_EXAMPLE_ERRORS
+      if @errs > 4
+         err(<<-END_EXFAIL
+            Too many examples failed. Search for "Help!" at
+            http://rmagick.rubyforge.org/install-faq.html.
+            END_EXFAIL
+            )
+      end
+    end
+
+    update_status_quo(example)
+  end
+
+  def update(example)
+    targets = targets(example)
+    up_to_date = ! targets.empty?
+    targets.each do |target|
+      up_to_date &&= File.exists?(target) && (File.stat(target) >= File.stat(example))
+    end
+    build(example) unless up_to_date
+  end
+
+  #
+  # print message and exit
+  #
+  def err(msg)
+      $stderr.puts "#{$0}: #{msg}"
+      exit 1
+  end
+
+end
+
+
+#
+# Modify file lines via proc. If no lines changed, discard new version.
+#
+def filter(filename, backup=nil, &filter)
+  if ! File.writable? filename then
+    raise ArgumentError, "`#{filename}' is write-protected"
+  end
+
+  backup_name = filename + '.' + (backup || 'old')
+  File.rename(filename, backup_name)
+  changed = false
+  begin
+    File.open(filename, 'w') do |output|
+      File.foreach(backup_name) do |line|
+        old = line
+        line = filter.call(line)
+        output.puts(line)
+        changed ||= line != old
+      end
+    end
+  rescue
+    File.rename(backup_name, filename)
+    raise
+  end
+
+  if !changed
+    newname = filename + '.xxx'
+    File.rename(filename, newname)
+    File.rename(backup_name, filename)
+    File.unlink(newname)
+  elsif !backup
+    # Don't remove old copy if a backup extension was specified
+    File.unlink(backup_name) rescue nil
+  end
+end
+
+
+#
+# Copy an example to the doc directory, wrap in HTML tags
+#
+def filetoHTML(file, html)
+  return if File.exists?(html) && File.stat(html) >= File.stat(file)
+
+  File.open(file) do |src|
+    File.open(html, 'w') do |dest|
+      dest.puts <<-END_EXHTMLHEAD
+<!DOCTYPE public PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+  <meta name="generator" content="ex2html.rb" />
+  <meta http-equiv="Content-Type" content=
+  "text/html; charset=us-ascii" />
+  <link rel="stylesheet" type="text/css" href="css/popup.css" />
+
+  <title>RMagick example: #{file}</title>
+</head>
+
+<body>
+<h1>#{file}</h1>
+<div class="bodybox">
+<div class="bodyfloat">
+<pre>
+        END_EXHTMLHEAD
+
+      src.each do |line|
+        line.gsub!(/[&><]/) { |s| ENTITY[s] }
+        dest.puts(line)
+      end
+
+      dest.puts <<-END_EXHTMLTAIL
+</pre>
+</div>
+</div>
+<div id="close"><a href="javascript:window.close();">Close window</a></div>
+</body>
+</html>
+        END_EXHTMLTAIL
+    end
+    File.chmod(0644, html)
+  end
+
+end
+
+puts "setup.rb: entering post-setup phase..."
+
+
+if BUILD_HTMLDOC
+
+  #
+  # Don't bother if we're in the sandbox
+  #
+  if File.exist? 'CVS/Entries'
+    puts "post-setup.rb: in CVS sandbox - stopping..."
+    exit
+  end
+
+  puts "post-setup.rb: setting up documentation..."
+
+  # We're in the source directory. Process the doc in-place. The post-install.rb
+  # script moves the generated documentation to the ultimate installation directories.
+
+  cwd = Dir.getwd()
+  Dir.chdir('doc')          # need to work with 1.6.x, can't use block form
+  begin
+
+    # Step 1A: edit the shebang line in the examples
+    Dir.chdir('ex')
+    files = Dir['*.rb']
+    files.each do |file|
+      filter(file) { |line| line.sub(/\A\#!\s*\S*ruby\s/, '#!'+RUBYPROG+' ') }
+
+      # Step 1B: Make a copy of the example as HTML in the doc directory
+      filetoHTML(file, "../#{file}.html")
+    end
+
+    # Step 2: run the examples
+    examples = Dir['*.rb'].sort
+    examples -= DONT_RUN
+    es = ExampleSet.new(examples.length)
+    begin
+      examples.each { |example| es.update(example) }
+    ensure
+      es.persist
+    end
+
+  ensure
+    Dir.chdir(cwd)
+  end
+
+else
+
+  puts "post-setup.rb: --disable-htmldoc specified. No documentation will be set up."
+
+end
+
+exit