#include <stdlib.h>

#include <gegl.h>

#include <string.h>

gint

main (gint    argc,

      gchar **argv)

{

  gchar *rules;

  GeglNode *gegl,

           *load_file,

           *crop,

           *save_file;

  GError *error = NULL;

  gegl_init (&argc, &argv);

  if (argv[1]==NULL ||

      argv[2]==NULL)

    {

      g_print ("\nusage: %s <inputimage> <slicefile> [pathprefix]\n\n"

 "  inputimage: the .png, .jpg, .svg or similar image to load\n"

 "  slicefile: a text file with rule lines like (x,y widthxheight slice1.png)\n"

 "  pathprefix: a string to preprend to the names of slices in theslicefile\n", strrchr (argv[0], '/')+1);

      exit (-1);

    }

  gegl = gegl_node_new ();

  load_file = gegl_node_new_child (gegl,

                              "operation", "gegl:load",

                              "path", argv[1],

                              NULL);

  crop = gegl_node_new_child (gegl,

                              "operation", "gegl:crop",

                              NULL);

  save_file = gegl_node_new_child (gegl,

                                   "operation", "gegl:png-save",

                                   "compression", 9,

                                   "bitdepth", 8,

                                   NULL);

  gegl_node_link_many (load_file, crop, save_file, NULL);

  if (g_file_get_contents (argv[2], &rules, NULL, &error))

    {

      gchar *line;

      gchar *next_line = NULL;

      for (line = rules;line; line = next_line)

        {

          gchar *next_new_line;

          next_new_line = strchr (line, '\n');

          if (next_new_line)

            {

              next_line = next_new_line + 1;

              *next_new_line = '\0';

            }

          else

            {

              next_line = NULL;

            }

          while (*line == ' ')line++;

          if (line[0]!='#' && line[0]!='\0')

            {

              gint x, y, width, height;

              x = strtol (line, &line, 10);

              while (*line == ' ' || *line == ',')line++;

              y = strtol (line, &line, 10);

              while (*line == ' ' || *line == ',')line++;

              width = strtol (line, &line, 10);

              while (*line == ' ' || *line == 'x')line++;

              height = strtol (line, &line, 10);

              while (*line == ' ')line++;

              {

                GString *str = g_string_new ("");

                if (argv[3])

                  {

                    g_string_append (str, argv[3]);

                  }

                g_string_append (str, line);

                gegl_node_set (save_file, "path", str->str, NULL);

              gegl_node_set (crop, "x", x*1.0,

                                   "y", y*1.0,

                                   "width", width*1.0,

                                   "height", height * 1.0,

                                   NULL);

              g_print ("%s (%i,%i %ix%i)\n", str->str, x, y, width, height);

              g_string_free (str, TRUE);

            }

              gegl_node_process (save_file);

            }

        }

      g_free (rules);

    } 

  return 0;

}