Terminal control/Unicode output: Difference between revisions

<langsyntaxhighlight lang="rebol">canHandleUnicode?: function [][

print "Unicode is not supported on this terminal"</langsyntaxhighlight>

<langsyntaxhighlight lang="autohotkey">DllCall("AllocConsole")

}</langsyntaxhighlight>

<langsyntaxhighlight lang="awk">#!/usr/bin/awk -f

}</langsyntaxhighlight>

<langsyntaxhighlight lang="freebasic">' Determine if the terminal supports Unicode

END IF</langsyntaxhighlight>

<langsyntaxhighlight lang="bbcbasic"> VDU 23,22,640;512;8,16,16,128+8 : REM Enable UTF-8 mode

PRINT CHR$(&E2)+CHR$(&96)+CHR$(&B3)</langsyntaxhighlight>

<langsyntaxhighlight lang="clojure">

<langsyntaxhighlight lang="lisp">

<langsyntaxhighlight lang="elixir">

<langsyntaxhighlight lang="funl">if map( v -> System.getenv(v), ["LC_ALL", "LC_CTYPE", "LANG"]).filter( (!= null) ).exists( ('UTF' in) )

println( 'Unicode not supported' )</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

<langsyntaxhighlight Haskelllang="haskell">import System.Environment

<langsyntaxhighlight lang="jq">def has_unicode_support:

task</langsyntaxhighlight>

<langsyntaxhighlight lang="javascript">/* Terminal Control/Unicode, in Jsish */

*/</langsyntaxhighlight>

<langsyntaxhighlight lang="scala">// version 1.1.2

}</langsyntaxhighlight>

<langsyntaxhighlight Lassolang="lasso">local(env_vars = sys_environ -> join('###'))

}</langsyntaxhighlight>

=={{header|Mathematica}}/{{header|Wolfram Language}}==

<langsyntaxhighlight Mathematicalang="mathematica">If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]

->田</langsyntaxhighlight>

<langsyntaxhighlight lang="mercury">:- module unicode_output.

).</langsyntaxhighlight>

<langsyntaxhighlight Nemerlelang="nemerle">using System.Console;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="nim">import os, strutils

echo "Unicode is not supported on this terminal."</langsyntaxhighlight>

<langsyntaxhighlight lang="perl">die "Terminal can't handle UTF-8"

print "△ \n";</langsyntaxhighlight>

<langsyntaxhighlight PicoLisplang="picolisp">(if (sub? "UTF-8" (or (sys "LC_ALL") (sys "LC_CTYPE") (sys "LANG")))

(quit "UTF-8 capable terminal required") )</langsyntaxhighlight>

<langsyntaxhighlight Pythonlang="python">import sys

raise Exception("Terminal can't handle UTF-8")</langsyntaxhighlight>

<langsyntaxhighlight lang="racket">

<syntaxhighlight lang="raku" perl6line>die "Terminal can't handle UTF-8"

say "△";</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">#encoding: UTF-8 # superfluous in Ruby >1.9.3

{{libheader|Scala}}<langsyntaxhighlight Scalalang="scala">scala> println(s"Unicode is supported on this terminal and U+25B3 is : \u25b3")

Unicode is supported on this terminal and U+25B3 is : △</langsyntaxhighlight>

<langsyntaxhighlight lang="seed7">$ include "seed7_05.s7i";

end func;</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">if (/\bUTF-?8/i ~~ [ENV{"LC_ALL","LC_CTYPE","LANG"}]) {

}</langsyntaxhighlight>

Tcl configures the standard output channel to use the system encoding by default. The system encoding is formally the encoding for use when communicating with the OS (e.g., for filenames) but is virtually always correlated with the default terminal encoding.<langsyntaxhighlight lang="tcl"># Check if we're using one of the UTF or "unicode" encodings

}</langsyntaxhighlight>Note that idiomatic Tcl code would not perform such a check; it would just produce the output which would be translated as best as possible (possibly into the target encoding's placeholder character).

<langsyntaxhighlight lang="bash">unicode_tty() {

fi</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">if(System.isUnix and T("LC_CTYPE","LC_LANG","LANG").apply(System.getenv)

else println("I have doubts about UTF-8 on this terminal.");</langsyntaxhighlight>

<langsyntaxhighlight lang="zxbasic">10 REM There is no Unicode delta in ROM