[gvfs] Add gvfs-set-attribute program

[Alexander Larsson <alexl src gnome org>]

commit a8d6c3db07ad5d9dc75b94eb95492b03bc20e788
Author: Alexander Larsson <alexl redhat com>
Date:   Tue Jun 23 14:48:30 2009 +0200

    Add gvfs-set-attribute program

 programs/.gitignore           |    1 +
 programs/Makefile.am          |    4 +
 programs/gvfs-set-attribute.c |  200 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 205 insertions(+), 0 deletions(-)
---
diff --git a/programs/.gitignore b/programs/.gitignore
index 17f3ce7..43866e3 100644
--- a/programs/.gitignore
+++ b/programs/.gitignore
@@ -13,3 +13,4 @@ gvfs-rm
 gvfs-save
 gvfs-trash
 gvfs-tree
+gvfs-set-attribute
diff --git a/programs/Makefile.am b/programs/Makefile.am
index bde75e4..0e9aa8f 100644
--- a/programs/Makefile.am
+++ b/programs/Makefile.am
@@ -18,6 +18,7 @@ bin_PROGRAMS =					\
 	gvfs-ls					\
 	gvfs-tree				\
 	gvfs-info				\
+	gvfs-set-attribute			\
 	gvfs-trash				\
 	gvfs-rename                             \
 	gvfs-rm					\
@@ -52,6 +53,9 @@ gvfs_save_LDADD = $(libraries)
 gvfs_info_SOURCES = gvfs-info.c
 gvfs_info_LDADD = $(libraries)
 
+gvfs_set_attribute_SOURCES = gvfs-set-attribute.c
+gvfs_set_attribute_LDADD = $(libraries)
+
 gvfs_trash_SOURCES = gvfs-trash.c
 gvfs_trash_LDADD = $(libraries)
 
diff --git a/programs/gvfs-set-attribute.c b/programs/gvfs-set-attribute.c
new file mode 100644
index 0000000..7d24d9c
--- /dev/null
+++ b/programs/gvfs-set-attribute.c
@@ -0,0 +1,200 @@
+/* GIO - GLib Input, Output and Streaming Library
+ *
+ * Copyright (C) 2006-2007 Red Hat, Inc.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General
+ * Public License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307, USA.
+ *
+ * Author: Alexander Larsson <alexl redhat com>
+ */
+
+#include <config.h>
+
+#include <glib.h>
+#include <locale.h>
+#include <stdlib.h>
+#include <glib/gi18n.h>
+#include <gio/gio.h>
+
+static char *attr_type = "string";
+static gboolean nofollow_symlinks = FALSE;
+
+static GOptionEntry entries[] =
+{
+	{ "type", 't', 0, G_OPTION_ARG_STRING, &attr_type, "attribute type [string, bytestring, boolean, uint32, int32, uint64, int64, stringv]", NULL },
+	{ "nofollow-symlinks", 'n', 0, G_OPTION_ARG_NONE, &nofollow_symlinks, "Don't follow symlinks", NULL },
+	{ NULL }
+};
+
+static char *
+hex_unescape (const char *str)
+{
+  int i;
+  char *unescaped_str, *p;
+  unsigned char c;
+  int len;
+
+  len = strlen (str);
+  unescaped_str = g_malloc (len + 1);
+
+  p = unescaped_str;
+  for (i = 0; i < len; i++)
+    {
+      if (str[i] == '\\' &&
+	  str[i+1] == 'x' &&
+	  len - i >= 4)
+	{
+	  c =
+	    (g_ascii_xdigit_value (str[i+2]) << 4) |
+	    g_ascii_xdigit_value (str[i+3]);
+	  *p++ = c;
+	  i += 3;
+	}
+      else
+	*p++ = str[i];
+    }
+  *p++ = 0;
+
+  return unescaped_str;
+}
+
+static GFileAttributeType
+attribute_type_from_string (const char *str)
+{
+  if (strcmp (str, "string") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_STRING;
+  if (strcmp (str, "stringv") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_STRINGV;
+  if (strcmp (str, "bytestring") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_BYTE_STRING;
+  if (strcmp (str, "boolean") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_BOOLEAN;
+  if (strcmp (str, "uint32") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_UINT32;
+  if (strcmp (str, "int32") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_INT32;
+  if (strcmp (str, "uint64") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_UINT64;
+  if (strcmp (str, "int64") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_INT64;
+  if (strcmp (str, "object") == 0)
+    return G_FILE_ATTRIBUTE_TYPE_OBJECT;
+  return G_FILE_ATTRIBUTE_TYPE_INVALID;
+}
+
+int
+main (int argc, char *argv[])
+{
+  GError *error;
+  GOptionContext *context;
+  GFile *file;
+  const char *attribute;
+  GFileAttributeType type;
+  gpointer value;
+  gboolean bool;
+  guint32 uint32;
+  gint32 int32;
+  guint64 uint64;
+  gint64 int64;
+
+  setlocale (LC_ALL, "");
+
+  g_type_init ();
+
+  error = NULL;
+  context = g_option_context_new (" <location> <attribute> <values> - set attribute");
+  g_option_context_add_main_entries (context, entries, GETTEXT_PACKAGE);
+  g_option_context_parse (context, &argc, &argv, &error);
+  g_option_context_free (context);
+
+  if (error != NULL)
+    {
+      g_printerr ("Error parsing commandline options: %s\n", error->message);
+      g_printerr ("\n");
+      g_printerr (_("Try \"%s --help\" for more information."),
+		  g_get_prgname ());
+      g_printerr ("\n");
+      g_error_free(error);
+      return 1;
+    }
+
+  if (argc < 1)
+    {
+      g_printerr (_("Location not specified\n"));
+      return 1;
+    }
+
+  file = g_file_new_for_commandline_arg (argv[1]);
+
+  if (argc < 2)
+    {
+      g_printerr (_("Attribute not specified\n"));
+      return 1;
+    }
+
+  attribute = argv[2];
+
+  type = attribute_type_from_string (attr_type);
+  switch (type)
+    {
+    case G_FILE_ATTRIBUTE_TYPE_STRING:
+      value = argv[3];
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_BYTE_STRING:
+      value = hex_unescape (argv[3]);
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_BOOLEAN:
+      bool = g_ascii_strcasecmp (argv[3], "true") == 0;
+      value = &bool;
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_UINT32:
+      uint32 = atol (argv[3]);
+      value = &uint32;
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_INT32:
+      int32 = atol (argv[3]);
+      value = &int32;
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_UINT64:
+      uint64 = g_ascii_strtoull (argv[3], NULL, 10);
+      value = &uint64;
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_INT64:
+      int64 = g_ascii_strtoll (argv[3], NULL, 10);
+      value = &int64;
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_STRINGV:
+      value = &argv[3];
+      break;
+    case G_FILE_ATTRIBUTE_TYPE_INVALID:
+    case G_FILE_ATTRIBUTE_TYPE_OBJECT:
+    default:
+      g_printerr (_("Invalid attribute type %s\n"), attr_type);
+      return 1;
+    }
+
+  if (!g_file_set_attribute (file,
+			     attribute,
+			     type,
+			     value,
+			     0, 0, &error))
+    {
+      g_printerr (_("Error setting attribute: %s\n"), error->message);
+      g_error_free (error);
+      return 1;
+    }
+
+  return 0;
+}