UTF-8 encode and decode: Difference between revisions
Content added Content deleted
(Added Ada.) |
(Add Seed7 example.) |
||
Line 1,363: | Line 1,363: | ||
} |
} |
||
</lang> |
</lang> |
||
=={{header|Seed7}}== |
|||
<lang seed7>$ include "seed7_05.s7i"; |
|||
include "unicode.s7i"; |
|||
include "console.s7i"; |
|||
include "bytedata.s7i"; |
|||
const proc: main is func |
|||
local |
|||
var char: ch is ' '; |
|||
var string: utf8 is ""; |
|||
begin |
|||
OUT := STD_CONSOLE; |
|||
writeln("Character Unicode UTF-8 encoding (hex) Decoded"); |
|||
writeln("-------------------------------------------------"); |
|||
for ch range "AöЖ€𝄞" do |
|||
utf8 := striToUtf8(str(ch)); |
|||
writeln(ch rpad 11 <& "U+" <& ord(ch) radix 16 lpad0 4 rpad 7 <& |
|||
hex(utf8) rpad 22 <& utf8ToStri(utf8)); |
|||
end for; |
|||
end func;</lang> |
|||
{{out}} |
|||
<pre> |
|||
Character Unicode UTF-8 encoding (hex) Decoded |
|||
------------------------------------------------- |
|||
A U+0041 41 A |
|||
ö U+00f6 c3b6 ö |
|||
Ж U+0416 d096 Ж |
|||
€ U+20ac e282ac € |
|||
𝄞 U+1d11e f09d849e 𝄞 |
|||
</pre> |
|||
=={{header|Sidef}}== |
=={{header|Sidef}}== |