43BSD/contrib/apl/src/aplmap.h - view

File: [CSRG BSD Unix] / 43BSD / contrib / apl / src / aplmap.h
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 16:12:54 2018 UTC (8 years, 1 month ago) by root
Branches: MAIN, BSD
CVS tags: HEAD, BSD43

BSD 4.3

static char aplmap_h_Sccsid[] = "aplmap.h @(#)aplmap.h 1.2 10/1/82 Berkeley "; #ifdef PURDUE_EE /* * Mapping arrays * * The following arrays perform character mapping between the APL * character set (LSI modified by Peter Hallenbeck) and the ASCII * character set. * */ /* Map to the APL character set from ASCII */ char map_apl[] = { '!', /* does not map */ ' ', /* does not map */ '(', /* mapped pound sign (not equals) */ '$', /* dollar sign maps to itself (.le.) */ '=', /* mapped percent (division) */ '&', /* & becomes .ge. automatically */ 'K', /* mapped single quote mark */ '+', /* mapped opening parenthesis */ '`', /* mapped closing parenthesis */ 'P', /* mapped asterisk */ ':', /* mapped plus */ ',', /* , maps to itself */ '*', /* mapped minus */ '.', /* . maps to itself */ '/', /* / maps to itself */ '0','1','2','3','4','5','6','7','8','9', /* all digits ok */ '>', /* mapped colon */ '<', /* mapped semi-colon */ '#', /* mapped less-than */ '%', /* mapped equals */ '\'', /* mapped greater-than */ 'Q', /* mapped question-mark */ ' ', /* @ does not map */ 'A', /* capital a maps to itself (alpha) */ 'B', /* capital b equals decode */ 'C', /* capital c equals inverted U */ 'D', /* capital d equals floot */ 'E', /* capital e equals epsilon */ 'F', /* capital f maps to itself (underscore) */ 'G', /* capital g equals del */ 'H', /* capital h equals interted del */ 'I', /* capital i equals iota */ 'J', /* capital j equals circle */ ' ', /* capital k does not map */ 'L', /* capital l equals quad */ '-', /* mapped multiply */ 'N', /* capital n equals encode */ 'O', /* capital o equals big circle */ '=', /* mapped divide */ ')', /* mapped "or" */ 'R', /* capital r equals rho */ 'S', /* capital s equals ceiling */ ' ', /* capital t does not map */ 'U', /* capital u equals drop */ ')', /* mapped "or" */ 'W', /* capital w equals omega */ '-', /* capital x equals times sign */ 'Y', /* capital y equals take */ 'Z', /* capital z equals inverted subset symbol */ ';', /* mapped open brace */ '?', /* mapped backslash */ '@', /* mapped closing brace */ '{', /* mapped caret */ '\\', /* mapped underscore */ '"', /* raised minus */ 'a','b','c','d','e','f','g','h','i','j','k','l','m', 'n','o','p','q','r','s','t','u','v','w','x','y','z', '\\', /* mapped open brace */ 'M', /* mapped mod (abs) */ '|', /* mapped closing brace */ 'T', /* mapped "not" */ '\177' /* delete maps to itself */ }; /* Map to ASCII from the APL character set */ char map_ascii[] = { '!', '`', '<', '$', '=', '&', '>', '#', 'V', '-', '(', ',', 'X', '.', '/', '0','1','2','3','4','5','6','7','8','9', '+', '[', ';', '%', ':', '\\', ']', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', '\'', 'L', '|', 'N', 'O', '*', '?', 'R', 'S', '~', 'U', 'V', 'W', 'X', 'Y', 'Z', '$', '{', ']', '\10', '_', ')', 'a','b','c','d','e','f','g','h','i','j','k','l','m', 'n','o','p','q','r','s','t','u','v','w','x','y','z', '^', '}', '}', ' ', '\177', }; #else /* * Mapping arrays * * The following arrays perform character mapping between the APL * character set (Datamedia elite 1520) and the ASCII character * set. This is a typewriter-paired keyboard. */ /* Map to the APL character set from ASCII */ char map_apl[] = { '!', /* does not map */ ' ', /* does not map */ '*', /* mapped pound sign (not equals) */ '$', /* dollar sign maps to itself (.le.) */ '+', /* mapped percent (division) */ '^', /* & becomes .ge. */ 'K', /* mapped single quote mark */ ':', /* mapped opening parenthesis */ '"', /* mapped closing parenthesis */ 'P', /* mapped asterisk */ '-', /* mapped plus */ ',', /* , maps to itself */ '_', /* mapped minus */ '.', /* . maps to itself */ '/', /* / maps to itself */ '0','1','2','3','4','5','6','7','8','9', /* all digits ok */ '>', /* mapped colon */ '<', /* mapped semi-colon */ '#', /* mapped less-than */ '%', /* mapped equals */ '&', /* mapped greater-than */ 'Q', /* mapped question-mark */ ' ', /* @ does not map */ 'A', /* capital a maps to itself (alpha) */ 'B', /* capital b equals decode */ 'C', /* capital c equals inverted U */ 'D', /* capital d equals floot */ 'E', /* capital e equals epsilon */ 'F', /* capital f maps to itself (underscore) */ 'G', /* capital g equals del */ 'H', /* capital h equals interted del */ 'I', /* capital i equals iota */ 'J', /* capital j equals circle */ ' ', /* capital k does not map */ 'L', /* capital l equals quad */ '=', /* mapped multiply */ 'N', /* capital n equals encode */ 'O', /* capital o equals big circle */ '+', /* mapped divide */ '(', /* mapped "or" */ 'R', /* capital r equals rho */ 'S', /* capital s equals ceiling */ ' ', /* capital t does not map */ 'U', /* capital u equals drop */ '(', /* mapped "or" */ 'W', /* capital w equals omega */ '=', /* capital x equals times sign */ 'Y', /* capital y equals take */ 'Z', /* capital z equals inverted subset symbol */ ';', /* mapped open bracket */ '?', /* mapped backslash */ '\'', /* mapped closing bracket */ ')', /* mapped caret */ '[', /* mapped underscore */ '@', /* raised minus */ 'a','b','c','d','e','f','g','h','i','j','k','l','m', 'n','o','p','q','r','s','t','u','v','w','x','y','z', '[', /* mapped open brace */ 'M', /* mapped mod (abs) */ ']', /* mapped closing brace */ 'T', /* mapped "not" */ '\177' /* delete maps to itself */ }; /* Map to ASCII from the APL character set */ char map_ascii[] = { '!', ')', '<', '$', '=', '>', ']', 'V', '^', '#', '%', ',', '+', '.', '/', '0','1','2','3','4','5','6','7','8','9', '(', '[', ';', 'X', ':', '\\', '`', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', '\'', 'L', '|', 'N', 'O', '*', '?', 'R', 'S', '~', 'U', 'V', 'W', 'X', 'Y', 'Z', '{', '{', '}', '&', '-', 'J', 'a','b','c','d','e','f','g','h','i','j','k','l','m', 'n','o','p','q','r','s','t','u','v','w','x','y','z', '{', '}', '}', '$', '\177', }; #endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.