Character codes: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,377: | Line 2,377: | ||
A |
A |
||
65</pre> |
65</pre> |
||
=={{header|SparForte}}== |
|||
As a structured script. |
|||
<syntaxhighlight lang="ada">#!/usr/local/bin/spar |
|||
pragma annotate( summary, "charcode" ) |
|||
@( description, "Given a character value in your language, print its code (could be" ) |
|||
@( description, "ASCII code, Unicode code, or whatever your language uses). For example," ) |
|||
@( description, "the character 'a' (lowercase letter A) has a code of 97 in ASCII (as" ) |
|||
@( description, "well as Unicode, as ASCII forms the beginning of Unicode). Conversely," ) |
|||
@( description, "given a code, print out the corresponding character. " ) |
|||
@( category, "tutorials" ) |
|||
@( see_also, "http://rosettacode.org/wiki/Character_codes" ) |
|||
@( author, "Ken O. Burtch"); |
|||
pragma license( unrestricted ); |
|||
pragma restriction( no_external_commands ); |
|||
procedure charcode is |
|||
code : constant natural := 97; |
|||
ch : constant character := 'a'; |
|||
begin |
|||
put_line( "character code" & strings.image( code ) & " = character " & strings.val( code ) ); |
|||
put_line( "character " & ch & " = character code" & strings.image( numerics.pos( ch ) ) ); |
|||
end charcode;</syntaxhighlight> |
|||
=={{header|SPL}}== |
=={{header|SPL}}== |
||
In SPL all characters are used in UTF-16LE encoding. |
In SPL all characters are used in UTF-16LE encoding. |