Ficelle l'ebcdicOfHex (le hexbyte de char) {
Corde EBCDIC = nulle ;
commuter (hexbyte) {
cas 0x00 : EBCDIC = "" ; coupure ;
cas 0x01 : EBCDIC = "" ; coupure ;
cas 0x02 : EBCDIC = "" ; coupure ;
cas 0x03 : EBCDIC = "" ; coupure ;
cas 0x04 : EBCDIC = "" ; coupure ;
cas 0x05 : EBCDIC = "" ; coupure ;
cas 0x06 : EBCDIC = "" ; coupure ;
cas 0x07 : EBCDIC = "" ; coupure ;
cas 0x08 : EBCDIC = "" ; coupure ;
cas 0x09 : EBCDIC = "" ; coupure ;
cas 0x0A : EBCDIC = "" ; coupure ;
cas 0x0B : EBCDIC = "" ; coupure ;
cas 0x0C : EBCDIC = "" ; coupure ;
cas 0x0D : EBCDIC = « \ r » ; coupure ;
cas 0x0E : EBCDIC = "" ; coupure ;
cas 0x0F : EBCDIC = "" ; coupure ;
cas 0x10 : EBCDIC = "" ; coupure ;
cas 0x11 : EBCDIC = "" ; coupure ;
cas 0x12 : EBCDIC = "" ; coupure ;
cas 0x13 : EBCDIC = "" ; coupure ;
cas 0x14 : EBCDIC = "" ; coupure ;
cas 0x15 : EBCDIC = « \ n » ; coupure ;
cas 0x16 : EBCDIC = "" ; coupure ;
cas 0x17 : EBCDIC = "" ; coupure ;
cas 0x18 : EBCDIC = "" ; coupure ;
cas 0x19 : EBCDIC = "" ; coupure ;
cas 0x1A : EBCDIC = "" ; coupure ;
cas 0x1B : EBCDIC = "" ; coupure ;
cas 0x1C : EBCDIC = "" ; coupure ;
cas 0x1D : EBCDIC = "" ; coupure ;
cas 0x1E : EBCDIC = "" ; coupure ;
cas 0x1F : EBCDIC = "" ; coupure ;
cas 0x20 : EBCDIC = "" ; coupure ;
cas 0x21 : EBCDIC = "" ; coupure ;
cas 0x22 : EBCDIC = "" ; coupure ;
cas 0x23 : EBCDIC = "" ; coupure ;
cas 0x24 : EBCDIC = "" ; coupure ;
cas 0x25 : EBCDIC = "" ; coupure ;
cas 0x26 : EBCDIC = "" ; coupure ;
cas 0x27 : EBCDIC = "" ; coupure ;
cas 0x28 : EBCDIC = "" ; coupure ;
cas 0x29 : EBCDIC = "" ; coupure ;
cas 0x2A : EBCDIC = "" ; coupure ;
cas 0x2B : EBCDIC = "" ; coupure ;
cas 0x2C : EBCDIC = "" ; coupure ;
cas 0x2D : EBCDIC = "" ; coupure ;
cas 0x2E : EBCDIC = "" ; coupure ;
cas 0x2F : EBCDIC = "" ; coupure ;
cas 0x30 : coupure ;
cas 0x31 : coupure ;
cas 0x32 : EBCDIC = "" ; coupure ;
cas 0x33 : EBCDIC = "" ; coupure ;
cas 0x34 : EBCDIC = "" ; coupure ;
cas 0x35 : EBCDIC = "" ; coupure ;
cas 0x36 : EBCDIC = "" ; coupure ;
cas 0x37 : EBCDIC = "" ; coupure ;
cas 0x38 : EBCDIC = "" ; coupure ;
cas 0x39 : EBCDIC = "" ; coupure ;
cas 0x3A : EBCDIC = "" ; coupure ;
cas 0x3B : EBCDIC = "" ; coupure ;
cas 0x3C : EBCDIC = "" ; coupure ;
cas 0x3D : EBCDIC = "" ; coupure ;
cas 0x3E : coupure ;
cas 0x3F : EBCDIC = "" ; coupure ;
cas 0x40 : EBCDIC = « « ; coupure ;
cas 0x41 : EBCDIC = "" ; coupure ;
cas 0x42 : coupure ;
cas 0x43 : coupure ;
cas 0x44 : coupure ;
cas 0x45 : coupure ;
cas 0x46 : coupure ;
cas 0x47 : coupure ;
cas 0x48 : coupure ;
cas 0x49 : coupure ;
cas 0x4A : EBCDIC = « [ » ; coupure ;
cas 0x4B : EBCDIC = « . » ; coupure ;
cas 0x4C : EBCDIC = ""<> ; coupure ;
cas 0x6F : EBCDIC = « ? » ; coupure ;
cas 0x70 : coupure ;
cas 0x71 : coupure ;
cas 0x72 : coupure ;
cas 0x73 : coupure ;
cas 0x74 : coupure ;
cas 0x75 : coupure ;
cas 0x76 : coupure ;
cas 0x77 : coupure ;
cas 0x78 : coupure ;
cas 0x79 : EBCDIC = « ` » ; coupure ;
cas 0x7A : EBCDIC = « : » ; coupure ;
cas 0x7B : EBCDIC = « # » ; coupure ;
cas 0x7C : EBCDIC = « @ » ; coupure ;
cas 0x7D : EBCDIC = « \ "" ; coupure ;
cas 0x7E : EBCDIC = « = » ; coupure ;
cas 0x7F : EBCDIC = « \ "" ; coupure ;
cas 0x80 : coupure ;
cas 0x81 : EBCDIC = « a » ; coupure ;
cas 0x82 : EBCDIC = « b » ; coupure ;
cas 0x83 : EBCDIC = « c » ; coupure ;
cas 0x84 : EBCDIC = « d » ; coupure ;
cas 0x85 : EBCDIC = « e » ; coupure ;
cas 0x86 : EBCDIC = « f » ; coupure ;
cas 0x87 : EBCDIC = « g » ; coupure ;
cas 0x88 : EBCDIC = « h » ; coupure ;
cas 0x89 : EBCDIC = « je » ; coupure ;
cas 0x8A : coupure ;
cas 0x8B : EBCDIC = « { » ; coupure ;
cas 0x8C : coupure ;
cas 0x8D : coupure ;
cas 0x8E : coupure ;
cas 0x8F : EBCDIC = « + » ; coupure ;
cas 0x90 : coupure ;
cas 0x91 : EBCDIC = « j » ; coupure ;
cas 0x92 : EBCDIC = « k » ; coupure ;
cas 0x93 : EBCDIC = « l » ; coupure ;
cas 0x94 : EBCDIC = « m » ; coupure ;
cas 0x95 : EBCDIC = « n » ; coupure ;
cas 0x96 : EBCDIC = « o » ; coupure ;
cas 0x97 : EBCDIC = « p » ; coupure ;
cas 0x98 : EBCDIC = « q » ; coupure ;
cas 0x99 : EBCDIC = « r » ; coupure ;
cas 0x9A : coupure ;
cas 0x9B : EBCDIC = « } » ; coupure ;
cas 0x9C : coupure ;
cas 0x9D : coupure ;
cas 0x9E : coupure ;
cas 0x9F : coupure ;
cas 0xA0 : coupure ;
cas 0xA1 : EBCDIC = « ~ » ; coupure ;
cas 0xA2 : EBCDIC = « s » ; coupure ;
cas 0xA3 : EBCDIC = « t » ; coupure ;
cas 0xA4 : EBCDIC = « u » ; coupure ;
cas 0xA5 : EBCDIC = « v » ; coupure ;
cas 0xA6 : EBCDIC = « W » ; coupure ;
cas 0xA7 : EBCDIC = « x » ; coupure ;
cas 0xA8 : EBCDIC = « y » ; coupure ;
cas 0xA9 : EBCDIC = « z » ; coupure ;
cas 0xAA : coupure ;
cas 0xAB : coupure ;
cas 0xAC : coupure ;
cas 0xAD : EBCDIC = « [ » ; coupure ;
cas 0xAE : coupure ;
cas 0xAF : coupure ;
cas 0xB0 : coupure ;
cas 0xB1 : coupure ;
cas 0xB2 : coupure ;
cas 0xB3 : coupure ;
cas 0xB4 : coupure ;
cas 0xB5 : coupure ;
cas 0xB6 : coupure ;
cas 0xB7 : coupure ;
cas 0xB8 : coupure ;
cas 0xB9 : coupure ;
cas 0xBA : coupure ;
cas 0xBB : coupure ;
cas 0xBC : coupure ;
cas 0xBD : coupure ;
cas 0xBE : coupure ;
cas 0xBF : coupure ;
cas 0xC0 : EBCDIC = « { » ; coupure ;
cas 0xC1 : EBCDIC = « A » ; coupure ;
cas 0xC2 : EBCDIC = « B » ; coupure ;
cas 0xC3 : EBCDIC = « C » ; coupure ;
cas 0xC4 : EBCDIC = « D » ; coupure ;
cas 0xC5 : EBCDIC = « E » ; coupure ;
cas 0xC6 : EBCDIC = « F » ; coupure ;
cas 0xC7 : EBCDIC = « G » ; coupure ;
cas 0xC8 : EBCDIC = « H » ; coupure ;
cas 0xC9 : EBCDIC = « je » ; coupure ;
cas 0xCA : coupure ;
cas 0xCB : coupure ;
cas 0xCC : coupure ;
cas 0xCD : coupure ;
cas 0xCE : coupure ;
cas 0xCF : coupure ;
cas 0xD0 : EBCDIC = « } » ; coupure ;
cas 0xD1 : EBCDIC = « J » ; coupure ;
cas 0xD2 : EBCDIC = « K » ; coupure ;
cas 0xD3 : EBCDIC = « L » ; coupure ;
cas 0xD4 : EBCDIC = « M » ; coupure ;
cas 0xD5 : EBCDIC = « N » ; coupure ;
cas 0xD6 : EBCDIC = « O » ; coupure ;
cas 0xD7 : EBCDIC = « P » ; coupure ;
cas 0xD8 : EBCDIC = « Q » ; coupure ;
cas 0xD9 : EBCDIC = « R » ; coupure ;
cas 0xDA : coupure ;
cas 0xDB : coupure ;
cas 0xDC : coupure ;
cas 0xDD : coupure ;
cas 0xDE : coupure ;
cas 0xDF : coupure ;
cas 0xE0 : EBCDIC = « \ \ » ; coupure ;
cas 0xE1 : coupure ;
cas 0xE2 : EBCDIC = « S » ; coupure ;
cas 0xE3 : EBCDIC = « T » ; coupure ;
cas 0xE4 : EBCDIC = « U » ; coupure ;
cas 0xE5 : EBCDIC = « V » ; coupure ;
cas 0xE6 : EBCDIC = « W » ; coupure ;
cas 0xE7 : EBCDIC = « X » ; coupure ;
cas 0xE8 : EBCDIC = « Y » ; coupure ;
cas 0xE9 : EBCDIC = « Z » ; coupure ;
cas 0xEA : coupure ;
cas 0xEB : coupure ;
cas 0xEC : coupure ;
cas 0xED : coupure ;
cas 0xEE : coupure ;
cas 0xEF : coupure ;
cas 0xF0 : EBCDIC = « 0 » ; coupure ;
cas 0xF1 : EBCDIC = « 1 » ; coupure ;
cas 0xF2 : EBCDIC = « 2 » ; coupure ;
cas 0xF3 : EBCDIC = « 3 » ; coupure ;
cas 0xF4 : EBCDIC = « 4 » ; coupure ;
cas 0xF5 : EBCDIC = « 5 » ; coupure ;
cas 0xF6 : EBCDIC = « 6 » ; coupure ;
cas 0xF7 : EBCDIC = « 7 » ; coupure ;
cas 0xF8 : EBCDIC = « 8 » ; coupure ;
cas 0xF9 : EBCDIC = « 9 » ; coupure ;
cas 0xFA : coupure ;
cas 0xFB : coupure ;
cas 0xFC : coupure ;
cas 0xFD : coupure ;
cas 0xFE : coupure ;
cas 0xFF : coupure ;
défaut : EBCDIC = « <>> » ; coupure ;
}
EBCDIC de retour ;
}
|