mirror of
https://github.com/SPLURT-Station/S.P.L.U.R.T-Station-13.git
synced 2025-12-10 18:02:57 +00:00
3b0a00d53c
This works around some vv-fu you can use to pass in a config_entry to a proc that reads the value var of some other datum. Byond is stupid enough to actually read it, so it must be uniquely named.
197 lines
5.9 KiB
Plaintext
197 lines
5.9 KiB
Plaintext
#undef CURRENT_RESIDENT_FILE
|
|
|
|
#define LIST_MODE_NUM 0
|
|
#define LIST_MODE_TEXT 1
|
|
#define LIST_MODE_FLAG 2
|
|
|
|
/datum/config_entry
|
|
var/name //read-only, this is determined by the last portion of the derived entry type
|
|
var/config_entry_value
|
|
var/default //read-only, just set value directly
|
|
|
|
var/resident_file //the file which this was loaded from, if any
|
|
var/modified = FALSE //set to TRUE if the default has been overridden by a config entry
|
|
|
|
var/protection = NONE
|
|
var/abstract_type = /datum/config_entry //do not instantiate if type matches this
|
|
|
|
var/dupes_allowed = FALSE
|
|
|
|
/datum/config_entry/New()
|
|
if(type == abstract_type)
|
|
CRASH("Abstract config entry [type] instatiated!")
|
|
name = lowertext(type2top(type))
|
|
if(islist(config_entry_value))
|
|
var/list/L = config_entry_value
|
|
default = L.Copy()
|
|
else
|
|
default = config_entry_value
|
|
|
|
/datum/config_entry/Destroy()
|
|
config.RemoveEntry(src)
|
|
return ..()
|
|
|
|
/datum/config_entry/can_vv_get(var_name)
|
|
. = ..()
|
|
if(var_name == "value" || var_name == "default")
|
|
. &= !(protection & CONFIG_ENTRY_HIDDEN)
|
|
|
|
/datum/config_entry/vv_edit_var(var_name, var_value)
|
|
var/static/list/banned_edits = list("name", "default", "resident_file", "protection", "abstract_type", "modified", "dupes_allowed")
|
|
if(var_name == "value")
|
|
if(protection & CONFIG_ENTRY_LOCKED)
|
|
return FALSE
|
|
. = ValidateAndSet("[var_value]")
|
|
if(.)
|
|
datum_flags |= DF_VAR_EDITED
|
|
return
|
|
if(var_name in banned_edits)
|
|
return FALSE
|
|
return ..()
|
|
|
|
/datum/config_entry/proc/VASProcCallGuard(str_val)
|
|
. = !(IsAdminAdvancedProcCall() && GLOB.LastAdminCalledProc == "ValidateAndSet" && GLOB.LastAdminCalledTargetRef == "[REF(src)]")
|
|
if(!.)
|
|
log_admin_private("Config set of [type] to [str_val] attempted by [key_name(usr)]")
|
|
|
|
/datum/config_entry/proc/ValidateAndSet(str_val)
|
|
VASProcCallGuard(str_val)
|
|
CRASH("Invalid config entry type!")
|
|
|
|
/datum/config_entry/proc/ValidateKeyedList(str_val, list_mode, splitter)
|
|
str_val = trim(str_val)
|
|
var/key_pos = findtext(str_val, splitter)
|
|
var/key_name = null
|
|
var/key_value = null
|
|
|
|
if(key_pos || list_mode == LIST_MODE_FLAG)
|
|
key_name = lowertext(copytext(str_val, 1, key_pos))
|
|
key_value = copytext(str_val, key_pos + 1)
|
|
var/temp
|
|
var/continue_check
|
|
switch(list_mode)
|
|
if(LIST_MODE_FLAG)
|
|
temp = TRUE
|
|
continue_check = TRUE
|
|
if(LIST_MODE_NUM)
|
|
temp = text2num(key_value)
|
|
continue_check = !isnull(temp)
|
|
if(LIST_MODE_TEXT)
|
|
temp = key_value
|
|
continue_check = temp
|
|
if(continue_check && ValidateListEntry(key_name, temp))
|
|
config_entry_value[key_name] = temp
|
|
return TRUE
|
|
return FALSE
|
|
|
|
/datum/config_entry/proc/ValidateListEntry(key_name, key_value)
|
|
return TRUE
|
|
|
|
/datum/config_entry/string
|
|
config_entry_value = ""
|
|
abstract_type = /datum/config_entry/string
|
|
var/auto_trim = TRUE
|
|
|
|
/datum/config_entry/string/vv_edit_var(var_name, var_value)
|
|
return var_name != "auto_trim" && ..()
|
|
|
|
/datum/config_entry/string/ValidateAndSet(str_val)
|
|
if(!VASProcCallGuard(str_val))
|
|
return FALSE
|
|
config_entry_value = auto_trim ? trim(str_val) : str_val
|
|
return TRUE
|
|
|
|
/datum/config_entry/number
|
|
config_entry_value = 0
|
|
abstract_type = /datum/config_entry/number
|
|
var/integer = TRUE
|
|
var/max_val = INFINITY
|
|
var/min_val = -INFINITY
|
|
|
|
/datum/config_entry/number/ValidateAndSet(str_val)
|
|
if(!VASProcCallGuard(str_val))
|
|
return FALSE
|
|
var/temp = text2num(trim(str_val))
|
|
if(!isnull(temp))
|
|
config_entry_value = CLAMP(integer ? round(temp) : temp, min_val, max_val)
|
|
if(config_entry_value != temp && !(datum_flags & DF_VAR_EDITED))
|
|
log_config("Changing [name] from [temp] to [config_entry_value]!")
|
|
return TRUE
|
|
return FALSE
|
|
|
|
/datum/config_entry/number/vv_edit_var(var_name, var_value)
|
|
var/static/list/banned_edits = list("max_val", "min_val", "integer")
|
|
return !(var_name in banned_edits) && ..()
|
|
|
|
/datum/config_entry/flag
|
|
config_entry_value = FALSE
|
|
abstract_type = /datum/config_entry/flag
|
|
|
|
/datum/config_entry/flag/ValidateAndSet(str_val)
|
|
if(!VASProcCallGuard(str_val))
|
|
return FALSE
|
|
config_entry_value = text2num(trim(str_val)) != 0
|
|
return TRUE
|
|
|
|
/datum/config_entry/number_list
|
|
abstract_type = /datum/config_entry/number_list
|
|
config_entry_value = list()
|
|
|
|
/datum/config_entry/number_list/ValidateAndSet(str_val)
|
|
if(!VASProcCallGuard(str_val))
|
|
return FALSE
|
|
str_val = trim(str_val)
|
|
var/list/new_list = list()
|
|
var/list/values = splittext(str_val," ")
|
|
for(var/I in values)
|
|
var/temp = text2num(I)
|
|
if(isnull(temp))
|
|
return FALSE
|
|
new_list += temp
|
|
if(!new_list.len)
|
|
return FALSE
|
|
config_entry_value = new_list
|
|
return TRUE
|
|
|
|
/datum/config_entry/keyed_flag_list
|
|
abstract_type = /datum/config_entry/keyed_flag_list
|
|
config_entry_value = list()
|
|
dupes_allowed = TRUE
|
|
|
|
/datum/config_entry/keyed_flag_list/ValidateAndSet(str_val)
|
|
if(!VASProcCallGuard(str_val))
|
|
return FALSE
|
|
return ValidateKeyedList(str_val, LIST_MODE_FLAG, " ")
|
|
|
|
/datum/config_entry/keyed_number_list
|
|
abstract_type = /datum/config_entry/keyed_number_list
|
|
config_entry_value = list()
|
|
dupes_allowed = TRUE
|
|
var/splitter = " "
|
|
|
|
/datum/config_entry/keyed_number_list/vv_edit_var(var_name, var_value)
|
|
return var_name != "splitter" && ..()
|
|
|
|
/datum/config_entry/keyed_number_list/ValidateAndSet(str_val)
|
|
if(!VASProcCallGuard(str_val))
|
|
return FALSE
|
|
return ValidateKeyedList(str_val, LIST_MODE_NUM, splitter)
|
|
|
|
/datum/config_entry/keyed_string_list
|
|
abstract_type = /datum/config_entry/keyed_string_list
|
|
config_entry_value = list()
|
|
dupes_allowed = TRUE
|
|
var/splitter = " "
|
|
|
|
/datum/config_entry/keyed_string_list/vv_edit_var(var_name, var_value)
|
|
return var_name != "splitter" && ..()
|
|
|
|
/datum/config_entry/keyed_string_list/ValidateAndSet(str_val)
|
|
if(!VASProcCallGuard(str_val))
|
|
return FALSE
|
|
return ValidateKeyedList(str_val, LIST_MODE_TEXT, splitter)
|
|
|
|
#undef LIST_MODE_NUM
|
|
#undef LIST_MODE_TEXT
|
|
#undef LIST_MODE_FLAG
|