mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 09:14:08 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
210 lines
4.1 KiB
Mathematica
210 lines
4.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2000, 2004 The University of Melbourne.
|
|
% Copyright (C) 2018 The Mercury team.
|
|
% This file is distributed under the terms specified in COPYING.LIB.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Main author: conway@cs.mu.oz.au.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
:- module unicode.
|
|
|
|
:- interface.
|
|
|
|
:- type unicode == int.
|
|
|
|
:- func ('!') = unicode.
|
|
:- func ('"') = unicode.
|
|
:- func ('#') = unicode.
|
|
:- func ('$') = unicode.
|
|
:- func ('%') = unicode.
|
|
:- func ('&') = unicode.
|
|
:- func ('''') = unicode.
|
|
:- func ('(') = unicode.
|
|
:- func (')') = unicode.
|
|
:- func ('*') = unicode.
|
|
:- func ('+') = unicode.
|
|
:- func (',') = unicode.
|
|
:- func ('-') = unicode.
|
|
:- func ('.') = unicode.
|
|
:- func ('/') = unicode.
|
|
:- func ('0') = unicode.
|
|
:- func ('1') = unicode.
|
|
:- func ('2') = unicode.
|
|
:- func ('3') = unicode.
|
|
:- func ('4') = unicode.
|
|
:- func ('5') = unicode.
|
|
:- func ('6') = unicode.
|
|
:- func ('7') = unicode.
|
|
:- func ('8') = unicode.
|
|
:- func ('9') = unicode.
|
|
:- func (':') = unicode.
|
|
:- func (';') = unicode.
|
|
:- func ('<') = unicode.
|
|
:- func ('=') = unicode.
|
|
:- func ('>') = unicode.
|
|
:- func ('?') = unicode.
|
|
:- func ('@') = unicode.
|
|
:- func ('A') = unicode.
|
|
:- func ('B') = unicode.
|
|
:- func ('C') = unicode.
|
|
:- func ('D') = unicode.
|
|
:- func ('E') = unicode.
|
|
:- func ('F') = unicode.
|
|
:- func ('G') = unicode.
|
|
:- func ('H') = unicode.
|
|
:- func ('I') = unicode.
|
|
:- func ('J') = unicode.
|
|
:- func ('K') = unicode.
|
|
:- func ('L') = unicode.
|
|
:- func ('M') = unicode.
|
|
:- func ('N') = unicode.
|
|
:- func ('O') = unicode.
|
|
:- func ('P') = unicode.
|
|
:- func ('Q') = unicode.
|
|
:- func ('R') = unicode.
|
|
:- func ('S') = unicode.
|
|
:- func ('T') = unicode.
|
|
:- func ('U') = unicode.
|
|
:- func ('V') = unicode.
|
|
:- func ('W') = unicode.
|
|
:- func ('X') = unicode.
|
|
:- func ('Y') = unicode.
|
|
:- func ('Z') = unicode.
|
|
:- func ('[') = unicode.
|
|
:- func ('\\') = unicode.
|
|
:- func (']') = unicode.
|
|
:- func ('^') = unicode.
|
|
:- func ('_') = unicode.
|
|
:- func ('`') = unicode.
|
|
:- func ('a') = unicode.
|
|
:- func ('b') = unicode.
|
|
:- func ('c') = unicode.
|
|
:- func ('d') = unicode.
|
|
:- func ('e') = unicode.
|
|
:- func ('f') = unicode.
|
|
:- func ('g') = unicode.
|
|
:- func ('h') = unicode.
|
|
:- func ('i') = unicode.
|
|
:- func ('j') = unicode.
|
|
:- func ('k') = unicode.
|
|
:- func ('l') = unicode.
|
|
:- func ('m') = unicode.
|
|
:- func ('n') = unicode.
|
|
:- func ('o') = unicode.
|
|
:- func ('p') = unicode.
|
|
:- func ('q') = unicode.
|
|
:- func ('r') = unicode.
|
|
:- func ('s') = unicode.
|
|
:- func ('t') = unicode.
|
|
:- func ('u') = unicode.
|
|
:- func ('v') = unicode.
|
|
:- func ('w') = unicode.
|
|
:- func ('x') = unicode.
|
|
:- func ('y') = unicode.
|
|
:- func ('z') = unicode.
|
|
:- func ('{') = unicode.
|
|
:- func ('|') = unicode.
|
|
:- func ('}') = unicode.
|
|
:- func ('~') = unicode.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module char, require, string.
|
|
|
|
('!') = 0x21.
|
|
('"') = 0x22.
|
|
('#') = 0x23.
|
|
('$') = 0x24.
|
|
('%') = 0x25.
|
|
('&') = 0x26.
|
|
('''') = 0x27.
|
|
('(') = 0x28.
|
|
(')') = 0x29.
|
|
('*') = 0x2A.
|
|
('+') = 0x2B.
|
|
(',') = 0x2C.
|
|
('-') = 0x2D.
|
|
('.') = 0x2E.
|
|
('/') = 0x2F.
|
|
('0') = 0x30.
|
|
('1') = 0x31.
|
|
('2') = 0x32.
|
|
('3') = 0x33.
|
|
('4') = 0x34.
|
|
('5') = 0x35.
|
|
('6') = 0x36.
|
|
('7') = 0x37.
|
|
('8') = 0x38.
|
|
('9') = 0x39.
|
|
(':') = 0x3A.
|
|
(';') = 0x3B.
|
|
('<') = 0x3C.
|
|
('=') = 0x3D.
|
|
('>') = 0x3E.
|
|
('?') = 0x3F.
|
|
('@') = 0x40.
|
|
('A') = 0x41.
|
|
('B') = 0x42.
|
|
('C') = 0x43.
|
|
('D') = 0x44.
|
|
('E') = 0x45.
|
|
('F') = 0x46.
|
|
('G') = 0x47.
|
|
('H') = 0x48.
|
|
('I') = 0x49.
|
|
('J') = 0x4A.
|
|
('K') = 0x4B.
|
|
('L') = 0x4C.
|
|
('M') = 0x4D.
|
|
('N') = 0x4E.
|
|
('O') = 0x4F.
|
|
('P') = 0x50.
|
|
('Q') = 0x51.
|
|
('R') = 0x52.
|
|
('S') = 0x53.
|
|
('T') = 0x54.
|
|
('U') = 0x55.
|
|
('V') = 0x56.
|
|
('W') = 0x57.
|
|
('X') = 0x58.
|
|
('Y') = 0x59.
|
|
('Z') = 0x5A.
|
|
('[') = 0x5B.
|
|
('\\') = 0x5C.
|
|
(']') = 0x5D.
|
|
('^') = 0x5E.
|
|
('_') = 0x5F.
|
|
('`') = 0x60.
|
|
('a') = 0x61.
|
|
('b') = 0x62.
|
|
('c') = 0x63.
|
|
('d') = 0x64.
|
|
('e') = 0x65.
|
|
('f') = 0x66.
|
|
('g') = 0x67.
|
|
('h') = 0x68.
|
|
('i') = 0x69.
|
|
('j') = 0x6A.
|
|
('k') = 0x6B.
|
|
('l') = 0x6C.
|
|
('m') = 0x6D.
|
|
('n') = 0x6E.
|
|
('o') = 0x6F.
|
|
('p') = 0x70.
|
|
('q') = 0x71.
|
|
('r') = 0x72.
|
|
('s') = 0x73.
|
|
('t') = 0x74.
|
|
('u') = 0x75.
|
|
('v') = 0x76.
|
|
('w') = 0x77.
|
|
('x') = 0x78.
|
|
('y') = 0x79.
|
|
('z') = 0x7A.
|
|
('{') = 0x7B.
|
|
('|') = 0x7C.
|
|
('}') = 0x7D.
|
|
('~') = 0x7E.
|
|
|