From 76d140650a42419f212f8e6520e3a63639916054 Mon Sep 17 00:00:00 2001
From: Ailin Nemui <ailin@localhost.localdomain>
Date: Mon, 7 Feb 2022 16:44:14 +0100
Subject: [PATCH] add settings*choice functions to perl

---
 src/perl/common/Settings.xs | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/perl/common/Settings.xs b/src/perl/common/Settings.xs
index 2da23400..0f172411 100644
--- a/src/perl/common/Settings.xs
+++ b/src/perl/common/Settings.xs
@@ -104,6 +104,10 @@ int
 settings_get_size(key)
        char *key
 
+int
+settings_get_choice(key)
+	char *key
+
 void
 settings_set_str(key, value)
 	char *key
@@ -134,6 +138,11 @@ settings_set_size(key, value)
 	char *key
 	char *value
 
+int
+settings_set_choice(key, value)
+	char *key
+	char *value
+
 void
 settings_add_str(section, key, def)
 	char *section
@@ -188,6 +197,16 @@ CODE:
         perl_settings_add(key);
 	settings_add_size_module(MODULE_NAME"/scripts", section, key, def);
 
+void
+settings_add_choice(section, key, def, choices)
+	char *section
+	char *key
+	int def
+	char *choices
+CODE:
+	perl_settings_add(key);
+	settings_add_choice_module(MODULE_NAME "/scripts", section, key, def, choices);
+
 void
 settings_remove(key)
 	char *key