/* aplchax.h APL2 V1.0.0 - Copyright 1993 Thomas Glen Smith ************ * Contains aplchax, an int array containing indices to aplchar. * * Accessing aplchar via the indices in aplchax gives you the APL * * character set in collated order. * ***********************************************************************/ #if !defined(APLCHAX_INCL) #define APLCHAX_INCL int aplchax[APLCHNO] = { 0, /* " " '\x2000' space - must be single character */ 1, /* "!" '\x2100' quote dot (binomial, factorial */ 2, /* "\"" '\x2200' cap null (comment */ 3, /* "#" '\x2300' left arrow (assignment */ 4, /* "$" '\x2400' right arrow (branch) */ 5, /* "%" '\x2500' divide (divide) */ 6, /* "&" '\x2600' and (and) */ 7, /* "'" '\x2700' quote (character constants) single characte*/ 8, /* "(" '\x2800' left paren (order of execution) */ 9, /* ")" '\x2900' right paren (order of execution) */ 10, /* "*" '\x2a00' star (exponential, power) */ 11, /* "+" '\x2b00' plus (plus, conjugate) */ 12, /* "," '\x2c00' comma (catenate, laminate, ravel) */ 13, /* "-" '\x2d00' overbar (negative numbers) */ 14, /* "." '\x2e00' dot (inner, outer product) m/b single char */ 15, /* "/" '\x2f00' slash (compress, reduction) */ 16, /* "0" '\x3000' digit 0 digits must be contiguous, and must*/ 17, /* "1" '\x3100' digit 1 be single characters. */ 18, /* "2" '\x3200' digit 2 */ 19, /* "3" '\x3300' digit 3 */ 20, /* "4" '\x3400' digit 4 */ 21, /* "5" '\x3500' digit 5 */ 22, /* "6" '\x3600' digit 6 */ 23, /* "7" '\x3700' digit 7 */ 24, /* "8" '\x3800' digit 8 */ 25, /* "9" '\x3900' digit 9 */ 26, /* ":" '\x3a00' colon (labels) */ 27, /* ";" '\x3b00' semicolon (function header, indexing) */ 28, /* "<" '\x3c00' less (less than) */ 29, /* "=" '\x3d00' equal (equal) */ 30, /* ">" '\x3e00' greater (greater than) */ 31, /* "?" '\x3f00' query (deal, roll) */ 32, /* "@" '\x4000' log (general and natural logarithm) */ 33, /* "A" '\x4100' delta stile (grade up) */ 34, /* "B" '\x4200' base (decode) */ 35, /* "C" '\x4300' base null (execute) */ 36, /* "D" '\x4400' downstile (floor, minimum) */ 37, /* "E" '\x4500' epsilon (membership) */ 38, /* "F" '\x4600' top null (format) */ 39, /* "G" '\x4700' del */ 40, /* "H" '\x4800' delta */ 41, /* "I" '\x4900' iota (index generator, index of) */ 42, /* "J" '\x4a00' null (inner product, outer product) */ 43, /* "K" '\x4b00' not greater (not greater) */ 44, /* "L" '\x4c00' quad (evaluated input) single charac*/ 45, /* "M" '\x4d00' domino (matrix divide and inverse) */ 46, /* "N" '\x4e00' top (encode) */ 47, /* "O" '\x4f00' circle (cirular, hyperbolic, pythagorus, pi*/ 48, /* "P" '\x5000' nand (nand) */ 49, /* "Q" '\x5100' quote-quad (character input) */ 50, /* "R" '\x5200' rho (reshape, shape) */ 51, /* "S" '\x5300' upstile (ceiling, maximum) */ 52, /* "T" '\x5400' circle slope (transpose) */ 53, /* "U" '\x5500' down arrow (drop) */ 54, /* "V" '\x5600' or (or) */ 55, /* "W" '\x5700' del stile (grade down) */ 56, /* "X" '\x5800' times (signum, times) */ 57, /* "Y" '\x5900' up arrow (take) */ 58, /* "Z" '\x5a00' not less (not less) */ 59, /* "[" '\x5b00' left bracket (axis, indexing) */ 60, /* "\\" '\x5c00' slope (expand, scan) */ 61, /* "]" '\x5d00' right bracket (axis, indexing) */ 62, /* "^=" '\x5e3d00' not equal (exclusize or) */ 63, /* "_" '\x5f00' bar (minus, negative) */ 64, /* "`/" '\x602f00' slash bar (compress, reduction) */ 65, /* "`1" '\x603100' dieresis */ 136, /* "`2" '\x603200' logamma */ 133, /* "`=" '\x603d00' equal underbar (depth) */ 66, /* "`A" '\x604100' alpha */ 67, /* "`C" '\x604300' cap */ 134, /* "`E" '\x604500' epsilon underbar (find) */ 68, /* "`G" '\x604700' del tilde */ 69, /* "`I" '\x604900' I-beam */ 70, /* "`O" '\x604f00' circle stile (reverse, rotate) */ 135, /* "`Q" '\x605100' squad (index) */ 71, /* "`R" '\x605200' circle bar (reverse) */ 72, /* "`U" '\x605500' cup */ 73, /* "`V" '\x605600' nor (nor) */ 74, /* "`W" '\x605700' omega */ 75, /* "`X" '\x605800' right shoe */ 76, /* "`Z" '\x605a00' left shoe */ 77, /* "`\\"'\x605c00' slope bar (expand, scan) */ 78, /* "`_" '\x605f00' underbar */ 79, /* "`a" '\x606100' Alphabetic A underscored */ 80, /* "`b" '\x606200' Alphabetic B underscored */ 81, /* "`c" '\x606300' Alphabetic C underscored */ 82, /* "`d" '\x606400' Alphabetic D underscored */ 83, /* "`e" '\x606500' Alphabetic E underscored */ 84, /* "`f" '\x606600' Alphabetic F underscored */ 85, /* "`g" '\x606700' Alphabetic G underscored */ 86, /* "`h" '\x606800' Alphabetic H underscored */ 87, /* "`i" '\x606900' Alphabetic I underscored */ 88, /* "`j" '\x606a00' Alphabetic J underscored */ 89, /* "`k" '\x606b00' Alphabetic K underscored */ 90, /* "`l" '\x606c00' Alphabetic L underscored */ 91, /* "`m" '\x606d00' Alphabetic M underscored */ 92, /* "`n" '\x606e00' Alphabetic N underscored */ 93, /* "`o" '\x606f00' Alphabetic O underscored */ 94, /* "`p" '\x607000' Alphabetic P underscored */ 95, /* "`q" '\x607100' Alphabetic Q underscored */ 96, /* "`r" '\x607200' Alphabetic R underscored */ 97, /* "`s" '\x607300' Alphabetic S underscored */ 98, /* "`t" '\x607400' Alphabetic T underscored */ 99, /* "`u" '\x607500' Alphabetic U underscored */ 100, /* "`v" '\x607600' Alphabetic V underscored */ 101, /* "`w" '\x607700' Alphabetic W underscored */ 102, /* "`x" '\x607800' Alphabetic X underscored */ 103, /* "`y" '\x607900' Alphabetic Y underscored */ 104, /* "`z" '\x607a00' Alphabetic Z underscored */ 105, /* "a" '\x6100' Alphabetic A single character */ 106, /* "b" '\x6200' Alphabetic B single character */ 107, /* "c" '\x6300' Alphabetic C single character */ 108, /* "d" '\x6400' Alphabetic D single character */ 109, /* "e" '\x6500' Alphabetic E single character */ 110, /* "f" '\x6600' Alphabetic F single character */ 111, /* "g" '\x6700' Alphabetic G single character */ 112, /* "h" '\x6800' Alphabetic H single character */ 113, /* "i" '\x6900' Alphabetic I single character */ 114, /* "j" '\x6a00' Alphabetic J single character */ 115, /* "k" '\x6b00' Alphabetic K single character */ 116, /* "l" '\x6c00' Alphabetic L single character */ 117, /* "m" '\x6d00' Alphabetic M single character */ 118, /* "n" '\x6e00' Alphabetic N single character */ 119, /* "o" '\x6f00' Alphabetic O single character */ 120, /* "p" '\x7000' Alphabetic P single character */ 121, /* "q" '\x7100' Alphabetic Q single character */ 122, /* "r" '\x7200' Alphabetic R single character */ 123, /* "s" '\x7300' Alphabetic S single character */ 124, /* "t" '\x7400' Alphabetic T single character */ 125, /* "u" '\x7500' Alphabetic U single character */ 126, /* "v" '\x7600' Alphabetic V single character */ 127, /* "w" '\x7700' Alphabetic W single character */ 128, /* "x" '\x7800' Alphabetic X single character */ 129, /* "y" '\x7900' Alphabetic Y single character */ 130, /* "z" '\x7a00' Alphabetic Z single character */ 131, /* "|" '\x7c00' stile (magnitude, residue) */ 132 /* "~" '\x7e00' tilde (not) */ }; #endif