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