Perl updates

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@707 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 39 insertions, 0 deletions

diff --git a/src/perl/core/Settings.xs b/src/perl/core/Settings.xs
new file mode 100644
index 00000000..6f5c0915
--- /dev/null
+++ b/src/perl/core/Settings.xs
@@ -0,0 +1,39 @@
+MODULE = Irssi  PACKAGE = Irssi
+
+char *
+settings_get_str(key)
+	char *key
+CODE:
+	RETVAL = (char *) settings_get_str(key);
+OUTPUT:
+	RETVAL
+
+int
+settings_get_int(key)
+	char *key
+
+int
+settings_get_bool(key)
+	char *key
+
+void
+settings_add_str(section, key, def)
+	char *section
+	char *key
+	char *def
+
+void
+settings_add_int(section, key, def)
+	char *section
+	char *key
+	int def
+
+void
+settings_add_bool(section, key, def)
+	char *section
+	char *key
+	int def
+
+void
+settings_remove(key)
+	char *key