Follow-up to 299b01d813352fdcb8e54d1618c2c919e8180f99

Refactor of config enums.
Fixing Perl bindings.
This commit is contained in:
Vojtech Bubnik 2023-02-01 16:32:44 +01:00 committed by YuSanka
parent d58c8b1bbd
commit 7e7fe7c37f

View File

@ -190,20 +190,20 @@ print_config_def()
} }
// enum_values // enum_values
if (!optdef->enum_values.empty()) { if (optdef->enum_def && !optdef->enum_def->values().empty()) {
AV* av = newAV(); AV* av = newAV();
av_fill(av, optdef->enum_values.size()-1); av_fill(av, optdef->enum_def->values().size()-1);
for (std::vector<std::string>::iterator it = optdef->enum_values.begin(); it != optdef->enum_values.end(); ++it) for (std::vector<std::string>::const_iterator it = optdef->enum_def->values().begin(); it != optdef->enum_def->values().end(); ++it)
av_store(av, it - optdef->enum_values.begin(), newSVpvn(it->c_str(), it->length())); av_store(av, it - optdef->enum_def->values().begin(), newSVpvn(it->c_str(), it->length()));
(void)hv_stores( hv, "values", newRV_noinc((SV*)av) ); (void)hv_stores( hv, "values", newRV_noinc((SV*)av) );
} }
// enum_labels // enum_labels
if (!optdef->enum_labels.empty()) { if (optdef->enum_def && !optdef->enum_def->labels().empty()) {
AV* av = newAV(); AV* av = newAV();
av_fill(av, optdef->enum_labels.size()-1); av_fill(av, optdef->enum_def->labels().size()-1);
for (std::vector<std::string>::iterator it = optdef->enum_labels.begin(); it != optdef->enum_labels.end(); ++it) for (std::vector<std::string>::const_iterator it = optdef->enum_def->labels().begin(); it != optdef->enum_def->labels().end(); ++it)
av_store(av, it - optdef->enum_labels.begin(), newSVpvn_utf8(it->c_str(), it->length(), true)); av_store(av, it - optdef->enum_def->labels().begin(), newSVpvn_utf8(it->c_str(), it->length(), true));
(void)hv_stores( hv, "labels", newRV_noinc((SV*)av) ); (void)hv_stores( hv, "labels", newRV_noinc((SV*)av) );
} }