Terminal control/Unicode output: Difference between revisions

Content added Content deleted
(Add Jsish)
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
Line 327: Line 327:
<pre>UTF supported △
<pre>UTF supported △
</pre>
</pre>

=={{header|M2000 Interpreter}}==
=={{header|M2000 Interpreter}}==
M2000 Environment has own console (with graphics support)
M2000 Environment has own console (with graphics support)
Line 342: Line 343:
Checkit
Checkit
</lang>
</lang>

=={{header|Mathematica}}==
=={{header|Mathematica}}==
<lang Mathematica>If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]
<lang Mathematica>If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]
Line 401: Line 403:


print "△ \n";</lang>
print "△ \n";</lang>
=={{header|Perl 6}}==
<lang perl6>die "Terminal can't handle UTF-8"
unless first(*.defined, %*ENV<LC_ALL LC_CTYPE LANG>) ~~ /:i 'utf-8'/;
say "△";</lang>
{{out}}
<pre>△</pre>


=={{header|Phix}}==
=={{header|Phix}}==
Line 487: Line 483:
"\u25b3" "No Unicode detected."))
"\u25b3" "No Unicode detected."))
</lang>
</lang>

=={{header|Raku}}==
(formerly Perl 6)
<lang perl6>die "Terminal can't handle UTF-8"
unless first(*.defined, %*ENV<LC_ALL LC_CTYPE LANG>) ~~ /:i 'utf-8'/;
say "△";</lang>
{{out}}
<pre>△</pre>


=={{header|Ruby}}==
=={{header|Ruby}}==