1 /*************************************************
2 * Exim - an Internet mail transport agent *
3 *************************************************/
5 /* Copyright (c) Jeremy Harris 2015 */
6 /* See the file NOTICE for conditions of use and distribution. */
11 #ifdef EXPERIMENTAL_INTERNATIONAL
15 #include <stringprep.h>
18 string_is_utf8(const uschar * s)
21 while ((c = *s++)) if (c & 0x80) return TRUE;
25 /**************************************************/
26 /* Domain conversions */
27 /* the *err string pointer should be null before the call */
30 string_domain_utf8_to_alabel(const uschar * utf8, uschar ** err)
36 s = US stringprep_utf8_nfkc_normalize(CCS utf8, -1);
37 if ( (rc = idna_to_ascii_8z(CCS s, CSS &s1, IDNA_ALLOW_UNASSIGNED))
41 if (err) *err = US idna_strerror(rc);
53 string_domain_alabel_to_utf8(const uschar * alabel, uschar ** err)
59 if ( (rc = idna_to_unicode_8z8z(CCS alabel, CSS &s1, IDNA_USE_STD3_ASCII_RULES))
62 if (err) *err = US idna_strerror(rc);
70 /**************************************************/
71 /* localpart conversions */
72 /* the *err string pointer should be null before the call */
76 string_localpart_utf8_to_alabel(const uschar * utf8, uschar ** err)
79 punycode_uint * p = (punycode_uint *) stringprep_utf8_to_ucs4(CCS utf8, -1, &ucs4_len);
80 size_t p_len = ucs4_len*4; /* this multiplier is pure guesswork */
81 uschar * res = store_get(p_len+5);
84 res[0] = 'x'; res[1] = 'n'; res[2] = res[3] = '-';
86 if ((rc = punycode_encode(ucs4_len, p, NULL, &p_len, res+4)) != PUNYCODE_SUCCESS)
88 DEBUG(D_expand) debug_printf("l_u2a: bad '%s'\n", punycode_strerror(rc));
90 if (err) *err = US punycode_strerror(rc);
101 string_localpart_alabel_to_utf8(const uschar * alabel, uschar ** err)
103 size_t p_len = strlen(alabel);
109 if (alabel[0] != 'x' || alabel[1] != 'n' || alabel[2] != '-' || alabel[3] != '-')
111 if (err) *err = US"bad alabel prefix";
116 p = (punycode_uint *) store_get((p_len+1) * sizeof(*p));
118 if ((rc = punycode_decode(p_len, CCS alabel+4, &p_len, p, NULL)) != PUNYCODE_SUCCESS)
120 if (err) *err = US punycode_strerror(rc);
124 s = stringprep_ucs4_to_utf8(p, p_len, NULL, &p_len);
125 res = string_copyn(s, p_len);
131 /**************************************************/
132 /* whole address conversion */
133 /* the *err string pointer should be null before the call */
136 string_address_utf8_to_alabel(const uschar * utf8, uschar ** err)
142 for (s = utf8; *s; s++)
145 l = string_copyn(utf8, s - utf8);
146 return (l = string_localpart_utf8_to_alabel(l, err), err && *err)
147 || (d = string_domain_utf8_to_alabel(++s, err), err && *err)
149 : string_sprintf("%s@%s", l, d);
151 return string_localpart_utf8_to_alabel(utf8, err);
156 /*************************************************
157 * Report the library versions. *
158 *************************************************/
160 /* See a description in tls-openssl.c for an explanation of why this exists.
162 Arguments: a FILE* to print the results to
167 utf8_version_report(FILE *f)
169 fprintf(f, "Library version: IDN: Compile: %s\n"
172 stringprep_check_version(NULL));
175 #endif /* whole file */