Lev Walkin | f15320b | 2004-06-03 03:38:44 +0000 | [diff] [blame] | 1 | /*- |
Lev Walkin | 4902f05 | 2006-10-16 12:18:10 +0000 | [diff] [blame] | 2 | * Copyright (c) 2003, 2006 Lev Walkin <vlm@lionet.info>. All rights reserved. |
Lev Walkin | f15320b | 2004-06-03 03:38:44 +0000 | [diff] [blame] | 3 | * Redistribution and modifications are permitted subject to BSD license. |
| 4 | */ |
Lev Walkin | a9cc46e | 2004-09-22 16:06:28 +0000 | [diff] [blame] | 5 | #include <asn_internal.h> |
Lev Walkin | f15320b | 2004-06-03 03:38:44 +0000 | [diff] [blame] | 6 | #include <TeletexString.h> |
| 7 | |
| 8 | /* |
| 9 | * TeletexString basic type description. |
| 10 | */ |
Wim Lewis | 18c2ec9 | 2014-07-29 11:30:10 -0700 | [diff] [blame] | 11 | static const ber_tlv_tag_t asn_DEF_TeletexString_tags[] = { |
Lev Walkin | 188ed2c | 2004-09-13 08:31:01 +0000 | [diff] [blame] | 12 | (ASN_TAG_CLASS_UNIVERSAL | (20 << 2)), /* [UNIVERSAL 20] IMPLICIT ...*/ |
| 13 | (ASN_TAG_CLASS_UNIVERSAL | (4 << 2)), /* ... OCTET STRING */ |
Lev Walkin | f15320b | 2004-06-03 03:38:44 +0000 | [diff] [blame] | 14 | }; |
Bi-Ruei, Chiu | 1f87ac0 | 2017-08-20 01:25:45 +0800 | [diff] [blame] | 15 | asn_TYPE_operation_t asn_OP_TeletexString = { |
Lev Walkin | a9cc46e | 2004-09-22 16:06:28 +0000 | [diff] [blame] | 16 | OCTET_STRING_free, |
| 17 | OCTET_STRING_print, /* non-ascii string */ |
Lev Walkin | cd2f48e | 2017-08-10 02:14:59 -0700 | [diff] [blame] | 18 | OCTET_STRING_compare, |
Lev Walkin | f15320b | 2004-06-03 03:38:44 +0000 | [diff] [blame] | 19 | OCTET_STRING_decode_ber, /* Implemented in terms of OCTET STRING */ |
Lev Walkin | dc06f6b | 2004-10-20 15:50:55 +0000 | [diff] [blame] | 20 | OCTET_STRING_encode_der, |
| 21 | OCTET_STRING_decode_xer_hex, |
| 22 | OCTET_STRING_encode_xer, |
Lev Walkin | cc15947 | 2017-07-06 08:26:36 -0700 | [diff] [blame] | 23 | #ifdef ASN_DISABLE_OER_SUPPORT |
| 24 | 0, |
| 25 | 0, |
| 26 | #else |
Lev Walkin | 1d76f3c | 2017-07-25 07:58:05 -0700 | [diff] [blame] | 27 | OCTET_STRING_decode_oer, |
| 28 | OCTET_STRING_encode_oer, |
Lev Walkin | cc15947 | 2017-07-06 08:26:36 -0700 | [diff] [blame] | 29 | #endif /* ASN_DISABLE_OER_SUPPORT */ |
Lev Walkin | b33425f | 2017-07-14 14:59:52 +0400 | [diff] [blame] | 30 | #ifdef ASN_DISABLE_PER_SUPPORT |
| 31 | 0, |
| 32 | 0, |
| 33 | #else |
| 34 | OCTET_STRING_decode_uper, |
| 35 | OCTET_STRING_encode_uper, |
| 36 | #endif /* ASN_DISABLE_PER_SUPPORT */ |
Bi-Ruei, Chiu | 1f87ac0 | 2017-08-20 01:25:45 +0800 | [diff] [blame] | 37 | 0 /* Use generic outmost tag fetcher */ |
| 38 | }; |
| 39 | asn_TYPE_descriptor_t asn_DEF_TeletexString = { |
| 40 | "TeletexString", |
| 41 | "TeletexString", |
| 42 | &asn_OP_TeletexString, |
| 43 | asn_generic_unknown_constraint, |
Lev Walkin | 5e03376 | 2004-09-29 13:26:15 +0000 | [diff] [blame] | 44 | asn_DEF_TeletexString_tags, |
| 45 | sizeof(asn_DEF_TeletexString_tags) |
| 46 | / sizeof(asn_DEF_TeletexString_tags[0]) - 1, |
| 47 | asn_DEF_TeletexString_tags, |
| 48 | sizeof(asn_DEF_TeletexString_tags) |
| 49 | / sizeof(asn_DEF_TeletexString_tags[0]), |
Lev Walkin | 7678076 | 2017-07-07 10:07:30 -0700 | [diff] [blame] | 50 | 0, /* No OER visible constraints */ |
Lev Walkin | 59b176e | 2005-11-26 11:25:14 +0000 | [diff] [blame] | 51 | 0, /* No PER visible constraints */ |
Lev Walkin | 449f832 | 2004-08-20 13:23:42 +0000 | [diff] [blame] | 52 | 0, 0, /* No members */ |
Lev Walkin | d9bd775 | 2004-06-05 08:17:50 +0000 | [diff] [blame] | 53 | 0 /* No specifics */ |
Lev Walkin | f15320b | 2004-06-03 03:38:44 +0000 | [diff] [blame] | 54 | }; |
| 55 | |
Lev Walkin | 4902f05 | 2006-10-16 12:18:10 +0000 | [diff] [blame] | 56 | /* |
| 57 | * Here is a formal attempt at creating a mapping from TeletexString |
| 58 | * (T61String) of the latest ASN.1 standard (X.680:2002) into the Unicode |
| 59 | * character set. -- Lev Walkin <vlm@lionet.info> |
| 60 | * |
| 61 | * The first thing to keep in mind is that TeletexString (T61String) |
| 62 | * is defined in ASN.1, and is not really a T.61 string. |
| 63 | * The T.61 standard is withdrawn by ITU-T and is no longer an authoritative |
| 64 | * reference. See http://www.itu.int/rec/T-REC-T.61 |
| 65 | * |
| 66 | * The X.680 specifies TeletexString (T61String) as a combination of the |
| 67 | * character sets specified by the registration numbers listed in |
| 68 | * ISO International Register of Coded Character Sets to be used with |
| 69 | * Escape Sequences (ISO-2375): |
| 70 | * 6, 87, 102, 103, 106, 107, 126, 144, 150, 153, 156, 164, 165, 168, |
| 71 | * plus SPACE and DELETE characters. |
| 72 | * In addition to that, the X.680 Table 6 NOTE 2 allows using register entries |
| 73 | * 6 and 156 instead of 102 and 103. |
| 74 | * |
| 75 | * The ISO Register itself is available at http://www.itscj.ipsj.or.jp/ISO-IR/ |
| 76 | * |
| 77 | * #6 is ASCII. http://www.itscj.ipsj.or.jp/ISO-IR/006.pdf |
| 78 | * Escapes into: |
| 79 | * G0: ESC 2/8 4/2 ("(B") |
| 80 | * G1: ESC 2/9 4/2 (")B") |
| 81 | * The range is [0x21 .. 0x7e]. Conversion into Unicode |
| 82 | * is simple, because it has one-to-one correspondence. |
| 83 | * #87 is a "Japanese Graphic Character Set for Information Interchange". |
| 84 | * Is a multiple-byte set of 6877 characters. |
| 85 | * The character set is JIS X 0208-1983 (originally JIS C 6226-1983). |
| 86 | * Escapes into: |
| 87 | * G0: ESC 2/4 4/2 ("$B") |
| 88 | * G1: ESC 2/4 2/9 4/2 ("$)B") |
| 89 | * G2: ESC 2/4 2/10 4/2 ("$*B") |
| 90 | * G3: ESC 2/4 2/11 4/2 ("$+B") |
| 91 | * #102 is "Teletex Primary Set of Graphic Characters" and is almost ASCII. |
| 92 | * Escapes into: |
| 93 | * G0: ESC 2/8 7/5 ("(u") |
| 94 | * G1: ESC 2/9 7/5 (")u") |
| 95 | * G2: ESC 2/10 7/5 ("*u") |
| 96 | * G3: ESC 2/11 7/5 ("+u") |
| 97 | * It is almost identical to ASCII, except for ASCII position for '$' |
| 98 | * (DOLLAR SIGN) is filled with 'ยค' (CURRENCY SIGN), which is U+00A4. |
| 99 | * Also, ASCII positions for '`', '\', '^', '{', '}', '~' are marked |
| 100 | * as "should not be used". |
| 101 | * #103 is a supplementary set of characters used in combination with #102. |
| 102 | * Escapes into: |
| 103 | * G0: ESC 2/8 7/6 ("(v") |
| 104 | * G1: ESC 2/9 7/6 (")v") |
| 105 | * G2: ESC 2/10 7/6 ("*v") |
| 106 | * G3: ESC 2/11 7/6 ("+v") |
| 107 | * Some characters in that character set are combining characters, |
| 108 | * which can only be restrictively used with certain basic Latin letters. |
| 109 | * It can be thought of as a subset of #156 with the exception of 4/12 |
| 110 | * which is UNDERLINE in #103 and absent in #156. |
| 111 | * #106 is a primary set of control functions, used in combination with #107. |
| 112 | * Escapes into: |
| 113 | * C0: ESC 2/1 4/5 ("!E") |
| 114 | * This set is so short I can list it here: |
| 115 | * 0x08 BS BACKSPACE -- same as Unicode |
| 116 | * 0x0a LF LINE FEED -- same as Unicode |
| 117 | * 0x0c FF FORM FEED -- same as Unicode |
| 118 | * 0x0d CR CARRIAGE RETURN -- same as Unicode |
| 119 | * 0x0e LS1 LOCKING SHIFT ONE |
| 120 | * 0x0f LS0 LOCKING SHIFT ZERO |
| 121 | * 0x19 SS2 SINGLE SHIFT TWO |
| 122 | * 0x1a SUB SUBSTITUTE CHARACTER |
| 123 | * 0x1b ESC ESCAPE -- same as Unicode |
| 124 | * 0x1d SS3 SINGLE SHIFT THREE |
| 125 | * The LS1 and LS0 are two magical functions which, respectively, invoke |
| 126 | * the currently designated G1 or G0 set into positions 2/1 to 7/14 |
| 127 | * The SS2 and SS3, respectively, invoke one character of the |
| 128 | * currently designated set G2 and G3. |
| 129 | * The SUB is wholly equivalent to U+001a (SUBSTITUTE) |
| 130 | * #107 is a supplementary set of control functions, used with #106. |
| 131 | * Escapes into: |
| 132 | * C1: ESC 2/2 4/8 ('"H') |
| 133 | * This set contains three special control codes: |
| 134 | * 0x8b PLD PARTIAL LINE DOWN -- similar to <SUB> |
| 135 | * 0x8c PLU PARTIAL LINE UP -- sumilar to <SUP> |
| 136 | * 0x9b CSI CONTROL SEQUENCE INTRODUCER |
| 137 | * This set is so out of world we can probably safely ignore it. |
| 138 | * #126 is a "Right-hand Part of the Latin/Greek Alphabet". |
| 139 | * Comprises of 90 characters, including accented letters. |
| 140 | * Escapes into: |
| 141 | * G1: ESC 2/13 4/6 ("-F") |
| 142 | * G2: ESC 2/14 4/6 (".F") |
| 143 | * G3: ESC 2/15 4/6 ("/F") |
| 144 | * Note: This Registration is a subset of ISO-IR 227. |
| 145 | * #144 is a "Cyrillic part of the Latin/Cyrillic Alphabet". |
| 146 | * Comprises of 95 characters. |
| 147 | * Escapes into: |
| 148 | * G1: ESC 2/13 4/12 ("-L") |
| 149 | * G2: ESC 2/14 4/12 (".L") |
| 150 | * G3: ESC 2/15 4/12 ("/L") |
| 151 | * #150 is a "Greek Primary Set of Graphic Characters". |
| 152 | * Comprises of 94 characters. |
| 153 | * Escapes into: |
| 154 | * G0: ESC 2/8 2/1 4/0 ("(!@") |
| 155 | * G1: ESC 2/9 2/1 4/0 (")!@") |
| 156 | * G2: ESC 2/10 2/1 4/0 ("*!@") |
| 157 | * G3: ESC 2/11 2/1 4/0 ("+!@") |
| 158 | * #153 is a "Basic Cyrillic Character Set for 8-bit codes". |
| 159 | * Comprises of 68 characters. |
| 160 | * Escapes into: |
| 161 | * G1: ESC 2/13 4/15 ("-O") |
| 162 | * G2: ESC 2/14 4/15 (".O") |
| 163 | * G3: ESC 2/15 4/15 ("/O") |
| 164 | * #156 is a "Supplementary Set of ISO/IEC 6937:1992" for use with #6 |
| 165 | * Comprises of 87 characters. |
| 166 | * Escapes into: |
| 167 | * G1: ESC 2/13 5/2 ("-R") |
| 168 | * G2: ESC 2/14 5/2 (".R") |
| 169 | * G3: ESC 2/15 5/2 ("/R") |
| 170 | * #164 is a "Hebrew Supplementary Set of Graphic Characters" |
| 171 | * Comprises of 27 characters. |
| 172 | * Escapes into: |
| 173 | * G1: ESC 2/13 5/3 ("-S") |
| 174 | * G2: ESC 2/14 5/3 (".S") |
| 175 | * G3: ESC 2/15 5/3 ("/S") |
| 176 | * #165 is a set of "Codes of the Chinese graphic character set" |
| 177 | * Is a multiple-byte set of 8446 characters. |
| 178 | * Escapes into: |
| 179 | * G0: ESC 2/4 2/8 4/5 ("$(E") |
| 180 | * G1: ESC 2/4 2/9 4/5 ("$)E") |
| 181 | * G2: ESC 2/4 2/10 4/5 ("$*E") |
| 182 | * G3: ESC 2/4 2/11 4/5 ("$+E") |
| 183 | * #168 is a "Japanese Graphic Character Set for Information Interchange" |
| 184 | * A multiple-byte set of 6879 characters updated from #87. |
| 185 | * Escapes into: |
| 186 | * G0: ESC 2/6 4/0 ESC 2/4 4/2 ("&@" "$B") |
| 187 | * G1: ESC 2/6 4/0 ESC 2/4 2/9 4/2 ("&@" "$)B") |
| 188 | * G2: ESC 2/6 4/0 ESC 2/4 2/10 4/2 ("&@" "$*B") |
| 189 | * G3: ESC 2/6 4/0 ESC 2/4 2/11 4/2 ("&@" "$+B") |
| 190 | */ |
| 191 | |