Terminal control/Unicode output: Difference between revisions

Line 8:

=={{header|Arturo}}==

<~~lang~~ rebol>canHandleUnicode?: function [][

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

any? @[

if key? env "LC_ALL" -> contains? lower get env "LC_ALL" "utf-8"

Line 19:

print "Terminal handle unicode and U+25B3 is: △"

else ->

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

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

Line 27:

=={{header|AutoHotkey}}==

<~~lang~~ autohotkey>DllCall("AllocConsole")

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

hConsole:=DllCall("GetConsoleWindow","UPtr")

Stdout:=FileOpen(DllCall("GetStdHandle", "int", -11, "ptr"), "h `n")

Line 81:

Pause() {

RunWait, %comspec% /c pause>NUL

}</~~lang~~>

}</syntaxhighlight>

=={{header|AWK}}==

<~~lang~~ awk>#!/usr/bin/awk -f

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

BEGIN {

unicodeterm=1 # Assume Unicode support

Line 109:

print "HW65001 This program requires a Unicode compatible terminal"|"cat 1>&2"

exit 252 # Incompatible hardware

}</~~lang~~>

}</syntaxhighlight>

=={{header|BaCon}}==

<code>LANG</code> environment test borrowed from C solution.

<~~lang~~ freebasic>' Determine if the terminal supports Unicode

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

' if so display delta, if not display error message

LET lc$ = GETENVIRON$("LANG")

Line 120:

ELSE

EPRINT "Sorry, terminal is not testing as unicode ready"

END IF</~~lang~~>

END IF</syntaxhighlight>

=={{header|BBC BASIC}}==

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

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

*FONT Arial Unicode MS,36

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

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

=={{header|C}}==

#include<stdlib.h>

#include<stdio.h>

Line 156:

return 0;

}

</syntaxhighlight>

</lang>

Output:

<pre>

Line 163:

=={{header|Clojure}}==

<~~lang~~ clojure>

(if-not (empty? (filter #(and (not (nil? %)) (.contains (.toUpperCase %) "UTF"))

(map #(System/getenv %) ["LANG" "LC_ALL" "LC_CTYPE"])))

"Unicode is supported on this terminal and U+25B3 is : \u25b3"

"Unicode is not supported on this terminal.")

</syntaxhighlight>

</lang>

Line 175:

=={{header|Common Lisp}}==

Each implementation has a different "getenv" function, to work with various implementations was created the "my-getenv" function.

<~~lang~~ lisp>

(defun my-getenv (name &optional default)

#+CMU

Line 195:

(format t "Unicode is not supported on this terminal.~&")

)

</syntaxhighlight>

</lang>

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

=={{header|Elixir}}==

<~~lang~~ elixir>

if ["LANG", "LC_CTYPE", "LC_ALL"]

|> Enum.map(&System.get_env/1)

Line 209:

raise "This terminal does not support Unicode."

end

</syntaxhighlight>

</lang>

=={{header|FreeBASIC}}==

<~~lang~~ freebasic>Print "Terminal handle unicode and U+25B3 is: "; WChr(&H25B3)</~~lang~~>

<syntaxhighlight lang="freebasic">Print "Terminal handle unicode and U+25B3 is: "; WChr(&H25B3)</syntaxhighlight>

=={{header|FunL}}==

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

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

println( '\u25b3' )

else

println( 'Unicode not supported' )</~~lang~~>

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

=={{header|Go}}==

<~~lang~~ go>package main

<syntaxhighlight lang="go">package main

import (

Line 237:

fmt.Println("This terminal does not support unicode")

}

}</~~lang~~>

}</syntaxhighlight>

Line 245:

=={{header|Haskell}}==

<~~lang~~ ~~Haskell~~>import System.Environment

<syntaxhighlight lang="haskell">import System.Environment

import Data.List

import Data.Char

Line 255:

then putStrLn "UTF supported: \x25b3"

else putStrLn "UTF not supported"

</syntaxhighlight>

</lang>

Output:

<pre>

Line 269:

"has_unicode_support" therefore cannot simply test whether one of the variables LC_ALL, LC_TYPE and LANG contains the string UTF.

<~~lang~~ jq>def has_unicode_support:

<syntaxhighlight lang="jq">def has_unicode_support:

def utf: if . == null then false else contains("UTF") or contains("utf") end;

env.LC_ALL

Line 283:

end ;

task</~~lang~~>

task</syntaxhighlight>

$ jq -M -r -n -f Terminal_control.jq

Line 294:

=={{header|Jsish}}==

Detection based on code from other entries, looking in LC_ALL, LC_CTYPE, LANG for hints of 'UTF'.

<~~lang~~ javascript>/* Terminal Control/Unicode, in Jsish */

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

var utf = false;

Line 311:

△

=!EXPECTEND!=

*/</~~lang~~>

*/</syntaxhighlight>

Line 319:

=={{header|Julia}}==

c = '\u25b3'

Line 327:

println("This output device does not support Unicode.")

end

</syntaxhighlight>

</lang>

Line 336:

=={{header|Kotlin}}==

<~~lang~~ scala>// version 1.1.2

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

fun main(args: Array<String>) {

Line 344:

else

println("This terminal does not support unicode")

}</~~lang~~>

}</syntaxhighlight>

Line 352:

=={{header|Lasso}}==

<~~lang~~ ~~Lasso~~>local(env_vars = sys_environ -> join('###'))

<syntaxhighlight lang="lasso">local(env_vars = sys_environ -> join('###'))

if(#env_vars >> regexp(`(LANG|LC_ALL|LC_CTYPE).*?UTF.*?###`)) => {

stdout('UTF supported \u25b3')

else

stdout('This terminal does not support UTF')

}</~~lang~~>

}</syntaxhighlight>

<pre>UTF supported △

</pre>

Line 363:

=={{header|M2000 Interpreter}}==

M2000 Environment has own console (with graphics support)

Module CheckIt {

If IsWine then Font "DejaVu Sans"

Line 375:

}

Checkit

</syntaxhighlight>

</lang>

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

<~~lang~~ ~~Mathematica~~>If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]

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

->田</~~lang~~>

->田</syntaxhighlight>

=={{header|Mercury}}==

<~~lang~~ mercury>:- module unicode_output.

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

:- interface.

Line 405:

else

io.write_string("Unicode is not supported on this terminal.\n", !IO)

).</~~lang~~>

).</syntaxhighlight>

Output:

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

Line 411:

=={{header|Nemerle}}==

Typically, on a windows system, the output encoding is '''not''' UTF-8, so in an actual application it would make more sense to set <tt>Console.OutputEncoding</tt> than to merely check it.

<~~lang~~ ~~Nemerle~~>using System.Console;

<syntaxhighlight lang="nemerle">using System.Console;

module UnicodeOut

Line 420:

else Write("Console encoding may not support Unicode characters.");

}

}</~~lang~~>

}</syntaxhighlight>

=={{header|Nim}}==

<~~lang~~ nim>import os, strutils

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

if "utf" in getEnv("LANG").toLower:

echo "Unicode is supported on this terminal and U+25B3 is: △"

else:

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

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

=={{header|Perl}}==

Much like Raku...

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

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

unless $ENV{LC_ALL} =~ /utf-8/i or $ENV{LC_CTYPE} =~ /utf-8/i or $ENV{LANG} =~ /utf-8/i;

print "△ \n";</~~lang~~>

print "△ \n";</syntaxhighlight>

=={{header|Phix}}==

Line 441:

The following (grubby low-level details are hidden away in) builtins/unicode_console.e which is now included in the standard distribution:

with javascript_semantics

include builtins\cffi.e

Line 484:

return res

end function

Which can be used like this:

with javascript_semantics

include builtins\unicode_console.e

Line 498:

puts(1,"unicode is not supported\n")

end if

Note that delta does not work on Windows (see talk page) but the others do, and all five work on linux and under pwa/p2js.

=={{header|PicoLisp}}==

<~~lang~~ ~~PicoLisp~~>(if (sub? "UTF-8" (or (sys "LC_ALL") (sys "LC_CTYPE") (sys "LANG")))

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

(prinl (char (hex "25b3")))

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

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

=={{header|Python}}==

<~~lang~~ ~~Python~~>import sys

<syntaxhighlight lang="python">import sys

if "UTF-8" in sys.stdout.encoding:

print("△")

else:

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

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

=={{header|R}}==

<~~lang~~ R>if (any(grepl("UTF", toupper(Sys.getenv(c("LANG", "LC_ALL", "LC_CTYPE")))))) {

<syntaxhighlight lang="r">if (any(grepl("UTF", toupper(Sys.getenv(c("LANG", "LC_ALL", "LC_CTYPE")))))) {

cat("Unicode is supported on this terminal and U+25B3 is : \u25b3\n")

} else {

cat("Unicode is not supported on this terminal.")

}</~~lang~~>

}</syntaxhighlight>

Line 525:

=={{header|Racket}}==

<~~lang~~ racket>

#lang racket

(displayln

Line 531:

(or (getenv "LC_ALL") (getenv "LC_CTYPE") (getenv "LANG")))

"\u25b3" "No Unicode detected."))

</syntaxhighlight>

</lang>

=={{header|Raku}}==

(formerly Perl 6)

<lang ~~perl6~~>die "Terminal can't handle UTF-8"

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

unless first(*.defined, %*ENV<LC_ALL LC_CTYPE LANG>) ~~ /:i 'utf-8'/;

say "△";</~~lang~~>

say "△";</syntaxhighlight>

=={{header|Ruby}}==

<~~lang~~ ruby>#encoding: UTF-8 # superfluous in Ruby >1.9.3

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

if ENV.values_at("LC_ALL","LC_CTYPE","LANG").compact.first.include?("UTF-8")

Line 549:

raise "Terminal can't handle UTF-8"

end

</syntaxhighlight>

</lang>

=={{header|Scala}}==

Ad hoc in the REPL:

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

{{libheader|Scala}}<syntaxhighlight lang="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 : △</~~lang~~>

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

=={{header|Seed7}}==

Line 562:

output file). STD_CONSOLE supports Unicode under Linux and Windows.

<~~lang~~ seed7>$ include "seed7_05.s7i";

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

include "environment.s7i";

include "console.s7i";

Line 575:

writeln("Unicode is not supported on this terminal.");

end if;

end func;</~~lang~~>

end func;</syntaxhighlight>

=={{header|Sidef}}==

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

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

say "△"

} else {

die "Terminal can't handle UTF-8.\n";

}</~~lang~~>

}</syntaxhighlight>

=={{header|Tcl}}==

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.<~~lang~~ tcl># Check if we're using one of the UTF or "unicode" encodings

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.<syntaxhighlight lang="tcl"># Check if we're using one of the UTF or "unicode" encodings

if {[string match utf-* [encoding system]] || [string match *unicode* [encoding system]]} {

puts "\u25b3"

} else {

error "terminal does not support unicode (probably)"

}</~~lang~~>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).

}</syntaxhighlight>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).

=={{header|UNIX Shell}}==

Line 599:

<~~lang~~ bash>unicode_tty() {

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

# LC_ALL supersedes LC_CTYPE, which supersedes LANG.

# Set $1 to environment value.

Line 622:

echo "HW65001 This program requires a Unicode compatible terminal" >&2

exit 252 # Incompatible hardware

fi</~~lang~~>

fi</syntaxhighlight>

The terminal might support UTF-8, but its fonts might not have every Unicode character. Unless they have U+25B3, the output will not look correct. Greek letters like U+25B3 tend to be common, but some fonts might not have Chinese characters (for example), and almost no fonts have dead scripts such as Cuneiform.

Line 629:

As there is currently no way to obtain this information via Wren CLI, we instead embed a Wren script in a C application and ask the host program to get it for us.

<~~lang~~ ecmascript>/* terminal_control_unicode_output.wren */

<syntaxhighlight lang="ecmascript">/* terminal_control_unicode_output.wren */

class C {

Line 639:

} else {

System.print("Unicode is not supported on this terminal.")

}</~~lang~~>

}</syntaxhighlight>

We now embed this Wren script in the following C program, compile and run it.

<~~lang~~ c>#include <stdlib.h>

<syntaxhighlight lang="c">#include <stdlib.h>

#include <stdio.h>

#include <string.h>

Line 731:

free(script);

return 0;

}</~~lang~~>

}</syntaxhighlight>

Line 740:

=={{header|zkl}}==

This code works for Unix/Linux, Windows XP cmd terminals don't support UTF-8.

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

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

.filter().filter("holds","UTF"))

println("This terminal supports UTF-8 (\U25B3;)");

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

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

<pre>

Line 751:

=={{header|ZX Spectrum Basic}}==

<~~lang~~ zxbasic>10 REM There is no Unicode delta in ROM

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

20 REM So we first define a custom character

30 FOR l=0 TO 7

Line 761:

9500 REM data for our custom delta

9510 DATA 0,0,8,20,34,65,127,0

</syntaxhighlight>

</lang>

⚫