Terminal control/Unicode output: Difference between revisions
Content added Content deleted
m (→{{header|Tcl}}: note on what's happening) |
(Added PicoLisp) |
||
| Line 31: | Line 31: | ||
exit 252 # Incompatible hardware |
exit 252 # Incompatible hardware |
||
}</lang> |
}</lang> |
||
=={{header|PicoLisp}}== |
|||
<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> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||