1 files changed, 87 insertions, 0 deletions
diff --git a/app/core/gimppattern-save.c b/app/core/gimppattern-save.c
new file mode 100644
index 0000000..b9ded3e
--- /dev/null
+++ b/app/core/gimppattern-save.c
@@ -0,0 +1,87 @@
+/* GIMP - The GNU Image Manipulation Program
+ * Copyright (C) 1995 Spencer Kimball and Peter Mattis
+ *
+ * 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 3 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, see <https://www.gnu.org/licenses/>.
+ */
+
+#include "config.h"
+
+#include <gdk-pixbuf/gdk-pixbuf.h>
+
+#include "core-types.h"
+
+#include "gimppattern.h"
+#include "gimppattern-header.h"
+#include "gimppattern-save.h"
+#include "gimptempbuf.h"
+
+#include "gimp-intl.h"
+
+
+gboolean
+gimp_pattern_save (GimpData       *data,
+                   GOutputStream  *output,
+                   GError        **error)
+{
+  GimpPattern       *pattern = GIMP_PATTERN (data);
+  GimpTempBuf       *mask    = gimp_pattern_get_mask (pattern);
+  const Babl        *format  = gimp_temp_buf_get_format (mask);
+  GimpPatternHeader  header;
+  const gchar       *name;
+  gint               width;
+  gint               height;
+
+  name   = gimp_object_get_name (pattern);
+  width  = gimp_temp_buf_get_width  (mask);
+  height = gimp_temp_buf_get_height (mask);
+
+  if (width > GIMP_PATTERN_MAX_SIZE || height > GIMP_PATTERN_MAX_SIZE)
+    {
+      g_set_error (error, GIMP_DATA_ERROR, GIMP_DATA_ERROR_READ,
+                   _("Unsupported pattern dimensions %d x %d.\n"
+                     "GIMP Patterns have a maximum size of %d x %d."),
+                   width, height,
+                   GIMP_PATTERN_MAX_SIZE, GIMP_PATTERN_MAX_SIZE);
+      return FALSE;
+    }
+  header.header_size  = g_htonl (sizeof (GimpPatternHeader) +
+                                 strlen (name) + 1);
+  header.version      = g_htonl (1);
+  header.width        = g_htonl (width);
+  header.height       = g_htonl (height);
+  header.bytes        = g_htonl (babl_format_get_bytes_per_pixel (format));
+  header.magic_number = g_htonl (GIMP_PATTERN_MAGIC);
+
+  if (! g_output_stream_write_all (output, &header, sizeof (header),
+                                   NULL, NULL, error))
+    {
+      return FALSE;
+    }
+
+  if (! g_output_stream_write_all (output, name, strlen (name) + 1,
+                                   NULL, NULL, error))
+    {
+      return FALSE;
+    }
+
+  if (! g_output_stream_write_all (output,
+                                   gimp_temp_buf_get_data (mask),
+                                   gimp_temp_buf_get_data_size (mask),
+                                   NULL, NULL, error))
+    {
+      return FALSE;
+    }
+
+  return TRUE;
+}