| #! /bin/false |
| # vim: set autoindent shiftwidth=4 tabstop=4: |
| # $Id: ISO_2033_1983.pm,v 1.1 2011-10-12 23:51:41 pertusus Exp $ |
| |
| # Conversion routines for ISO_2033-1983. |
| # Copyright (C) 2002-2009 Guido Flohr <guido@imperia.net>, all |
| # rights reserved. |
| # This file is generated, do not edit! |
| |
| # This program is free software; you can redistribute it and/or modify it |
| # under the terms of the GNU Library General Public License as published |
| # by the Free Software Foundation; either version 2, or (at your option) |
| # any later version. |
| |
| # This program is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| # Library General Public License for more details. |
| |
| # You should have received a copy of the GNU Library General Public |
| # License along with this program; if not, write to the Free Software |
| # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, |
| # USA. |
| |
| package Locale::RecodeData::ISO_2033_1983; |
| |
| use strict; |
| |
| require Locale::RecodeData; |
| use base qw(Locale::RecodeData); |
| |
| my @to_ucs4 = ( |
| 0x0000, |
| 0x0001, |
| 0x0002, |
| 0x0003, |
| 0x0004, |
| 0x0005, |
| 0x0006, |
| 0x0007, |
| 0x0008, |
| 0x0009, |
| 0x000a, |
| 0x000b, |
| 0x000c, |
| 0x000d, |
| 0x000e, |
| 0x000f, |
| 0x0010, |
| 0x0011, |
| 0x0012, |
| 0x0013, |
| 0x0014, |
| 0x0015, |
| 0x0016, |
| 0x0017, |
| 0x0018, |
| 0x0019, |
| 0x001a, |
| 0x001b, |
| 0x001c, |
| 0x001d, |
| 0x001e, |
| 0x001f, |
| 0x0020, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0x0030, |
| 0x0031, |
| 0x0032, |
| 0x0033, |
| 0x0034, |
| 0x0035, |
| 0x0036, |
| 0x0037, |
| 0x0038, |
| 0x0039, |
| 0x2446, |
| 0x2447, |
| 0x2448, |
| 0x2449, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0x007f, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| 0xfffd, |
| ); |
| |
| my @to_utf8 = ( |
| "\x00", |
| "\x01", |
| "\x02", |
| "\x03", |
| "\x04", |
| "\x05", |
| "\x06", |
| "\x07", |
| "\x08", |
| "\x09", |
| "\x0a", |
| "\x0b", |
| "\x0c", |
| "\x0d", |
| "\x0e", |
| "\x0f", |
| "\x10", |
| "\x11", |
| "\x12", |
| "\x13", |
| "\x14", |
| "\x15", |
| "\x16", |
| "\x17", |
| "\x18", |
| "\x19", |
| "\x1a", |
| "\x1b", |
| "\x1c", |
| "\x1d", |
| "\x1e", |
| "\x1f", |
| "\x20", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\x30", |
| "\x31", |
| "\x32", |
| "\x33", |
| "\x34", |
| "\x35", |
| "\x36", |
| "\x37", |
| "\x38", |
| "\x39", |
| "\xe2\x91\x86", |
| "\xe2\x91\x87", |
| "\xe2\x91\x88", |
| "\xe2\x91\x89", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\x7f", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| "\xef\xbf\xbd", |
| ); |
| |
| my %from_ucs4 = ( |
| 0x00000000 => "\x00", |
| 0x00000001 => "\x01", |
| 0x00000002 => "\x02", |
| 0x00000003 => "\x03", |
| 0x00000004 => "\x04", |
| 0x00000005 => "\x05", |
| 0x00000006 => "\x06", |
| 0x00000007 => "\x07", |
| 0x00000008 => "\x08", |
| 0x00000009 => "\x09", |
| 0x0000000a => "\x0a", |
| 0x0000000b => "\x0b", |
| 0x0000000c => "\x0c", |
| 0x0000000d => "\x0d", |
| 0x0000000e => "\x0e", |
| 0x0000000f => "\x0f", |
| 0x00000010 => "\x10", |
| 0x00000011 => "\x11", |
| 0x00000012 => "\x12", |
| 0x00000013 => "\x13", |
| 0x00000014 => "\x14", |
| 0x00000015 => "\x15", |
| 0x00000016 => "\x16", |
| 0x00000017 => "\x17", |
| 0x00000018 => "\x18", |
| 0x00000019 => "\x19", |
| 0x0000001a => "\x1a", |
| 0x0000001b => "\x1b", |
| 0x0000001c => "\x1c", |
| 0x0000001d => "\x1d", |
| 0x0000001e => "\x1e", |
| 0x0000001f => "\x1f", |
| 0x00000020 => "\x20", |
| 0x00000030 => "\x30", |
| 0x00000031 => "\x31", |
| 0x00000032 => "\x32", |
| 0x00000033 => "\x33", |
| 0x00000034 => "\x34", |
| 0x00000035 => "\x35", |
| 0x00000036 => "\x36", |
| 0x00000037 => "\x37", |
| 0x00000038 => "\x38", |
| 0x00000039 => "\x39", |
| 0x0000007f => "\x7f", |
| 0x00002446 => "\x3a", |
| 0x00002447 => "\x3b", |
| 0x00002448 => "\x3c", |
| 0x00002449 => "\x3d", |
| ); |
| |
| sub _recode |
| { |
| if ($_[0]->{_from} eq 'INTERNAL') { |
| $_[1] = join '', |
| map $from_ucs4{$_} |
| || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"), |
| @{$_[1]}; |
| } elsif ($_[0]->{_to} eq 'UTF-8',) { |
| $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1]; |
| } else { |
| $_[1] = [ map |
| $to_ucs4[$_], |
| unpack 'C*', $_[1] |
| ]; |
| } |
| |
| return 1; |
| } |
| |
| 1; |
| |
| __END__ |
| |
| =head1 NAME |
| |
| Locale::RecodeData::ISO_2033_1983 - Conversion routines for ISO_2033_1983 |
| |
| =head1 SYNOPSIS |
| |
| This module is internal to libintl. Do not use directly! |
| |
| =head1 DESCRIPTION |
| |
| This module is generated and contains the conversion tables and |
| routines for ISO_2033-1983. |
| |
| =head1 COMMENTS |
| |
| The following comments have been extracted from the original charmap: |
| |
| version: 1.0 |
| repertoiremap: mnemonic,ds |
| source: ECMA registry |
| alias ISO-IR-98 |
| alias E13B |
| |
| Please note that aliases listed above are not necessarily valid! |
| |
| =head1 CHARACTER TABLE |
| |
| The following table is sorted in the same order as the original charmap. |
| All character codes are in hexadecimal. Please read 'ISO-10646' as |
| 'ISO-10646-UCS4'. |
| |
| Local | ISO-10646 | Description |
| -------+-----------+------------------------------------------------- |
| 00 | 00000000 | NULL (NUL) |
| 01 | 00000001 | START OF HEADING (SOH) |
| 02 | 00000002 | START OF TEXT (STX) |
| 03 | 00000003 | END OF TEXT (ETX) |
| 04 | 00000004 | END OF TRANSMISSION (EOT) |
| 05 | 00000005 | ENQUIRY (ENQ) |
| 06 | 00000006 | ACKNOWLEDGE (ACK) |
| 07 | 00000007 | BELL (BEL) |
| 08 | 00000008 | BACKSPACE (BS) |
| 09 | 00000009 | CHARACTER TABULATION (HT) |
| 0A | 0000000A | LINE FEED (LF) |
| 0B | 0000000B | LINE TABULATION (VT) |
| 0C | 0000000C | FORM FEED (FF) |
| 0D | 0000000D | CARRIAGE RETURN (CR) |
| 0E | 0000000E | SHIFT OUT (SO) |
| 0F | 0000000F | SHIFT IN (SI) |
| 10 | 00000010 | DATALINK ESCAPE (DLE) |
| 11 | 00000011 | DEVICE CONTROL ONE (DC1) |
| 12 | 00000012 | DEVICE CONTROL TWO (DC2) |
| 13 | 00000013 | DEVICE CONTROL THREE (DC3) |
| 14 | 00000014 | DEVICE CONTROL FOUR (DC4) |
| 15 | 00000015 | NEGATIVE ACKNOWLEDGE (NAK) |
| 16 | 00000016 | SYNCHRONOUS IDLE (SYN) |
| 17 | 00000017 | END OF TRANSMISSION BLOCK (ETB) |
| 18 | 00000018 | CANCEL (CAN) |
| 19 | 00000019 | END OF MEDIUM (EM) |
| 1A | 0000001A | SUBSTITUTE (SUB) |
| 1B | 0000001B | ESCAPE (ESC) |
| 1C | 0000001C | FILE SEPARATOR (IS4) |
| 1D | 0000001D | GROUP SEPARATOR (IS3) |
| 1E | 0000001E | RECORD SEPARATOR (IS2) |
| 1F | 0000001F | UNIT SEPARATOR (IS1) |
| 20 | 00000020 | SPACE |
| 30 | 00000030 | DIGIT ZERO |
| 31 | 00000031 | DIGIT ONE |
| 32 | 00000032 | DIGIT TWO |
| 33 | 00000033 | DIGIT THREE |
| 34 | 00000034 | DIGIT FOUR |
| 35 | 00000035 | DIGIT FIVE |
| 36 | 00000036 | DIGIT SIX |
| 37 | 00000037 | DIGIT SEVEN |
| 38 | 00000038 | DIGIT EIGHT |
| 39 | 00000039 | DIGIT NINE |
| 3A | 00002446 | OCR BRANCH BANK IDENTIFICATION |
| 3B | 00002447 | OCR AMOUNT OF CHECK |
| 3C | 00002448 | OCR DASH |
| 3D | 00002449 | OCR CUSTOMER ACCOUNT NUMBER |
| 7F | 0000007F | DELETE (DEL) |
| |
| |
| =head1 AUTHOR |
| |
| Copyright (C) 2002-2009, Guido Flohr E<lt>guido@imperia.netE<gt>, all |
| rights reserved. See the source code for details. |
| |
| This software is contributed to the Perl community by Imperia |
| (L<http://www.imperia.net/>). |
| |
| =head1 SEE ALSO |
| |
| Locale::RecodeData(3), Locale::Recode(3), perl(1) |
| |
| =cut |
| Local Variables: |
| mode: perl |
| perl-indent-level: 4 |
| perl-continued-statement-offset: 4 |
| perl-continued-brace-offset: 0 |
| perl-brace-offset: -4 |
| perl-brace-imaginary-offset: 0 |
| perl-label-offset: -4 |
| cperl-indent-level: 4 |
| cperl-continued-statement-offset: 2 |
| tab-width: 4 |
| End: |
| =cut |