Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
clippath.rb	1.44 KB	-rw-r--r--
container.rb	3.91 KB	-rw-r--r--
deep_equal.rb	1.63 KB	-rw-r--r--
describable.rb	1.15 KB	-rw-r--r--
embellishable.rb	13.49 KB	-rw-r--r--
misc.rb	20.78 KB	-rw-r--r--
paint.rb	1.78 KB	-rw-r--r--
pathdata.rb	4.45 KB	-rw-r--r--
rvg.rb	10.72 KB	-rw-r--r--
stretchable.rb	5.01 KB	-rw-r--r--
stylable.rb	4.08 KB	-rw-r--r--
text.rb	4.56 KB	-rw-r--r--
to_c.rb	2.51 KB	-rw-r--r--
transformable.rb	4.28 KB	-rw-r--r--
units.rb	1.71 KB	-rw-r--r--

Code Editor : to_c.rb

module Magick
  class 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
      warn 'Done'
    end
  end # class Magick::RVG
end

${this.title}

Code Editor : to_c.rb