UPU_S10/GS1: properly expose iso3166_alpha2(); add UPU_S10 to tcl

This commit is contained in:
gitlost 2022-12-09 15:56:13 +00:00
parent 53769c6ed1
commit ab7da62a3a
5 changed files with 12 additions and 4 deletions

View file

@ -1428,4 +1428,9 @@ INTERNAL char gs1_check_digit(const unsigned char source[], const int length) {
return itoc((10 - (count % 10)) % 10);
}
/* Helper to expose `iso3166_alpha2()` */
INTERNAL int gs1_iso3166_alpha2(const unsigned char *cc) {
return iso3166_alpha2((const char *) cc);
}
/* vim: set ts=4 sw=4 et : */