a2b

Sprache: English
Programmiersprache: Unix Shell
Veröffentlicht von: kilgore [nicht registriert]
Letzte Änderung: 15.05.2006
Aufrufe: 1070

Lizenz: GNU General Public License

Beschreibung

ASCII to Baudot filter

Code

Zeilennummern anzeigen

1 #!/bin/sh 2 3 # ascii to baudot 4 5 # must turn bel into ~ for awk 6 7 tr -d '~' | tr '\007[a-z]' '~[A-Z]' | awk ' 8 BEGIN { 9 baudot["A"] = "| o o . |" 10 baudot["-"] = "| o o . |" 11 baudot["B"] = "| o . o o |" 12 baudot["?"] = "| o . o o |" 13 baudot["C"] = "| o . o o |" 14 baudot[":"] = "| o . o o |" 15 baudot["D"] = "| o . o |" 16 baudot["$"] = "| o . o |" 17 baudot["E"] = "| o . |" 18 baudot["3"] = "| o . |" 19 baudot["F"] = "| o . o o |" 20 baudot["!"] = "| o . o o |" 21 baudot["G"] = "| o . o o |" 22 baudot["&"] = "| o . o o |" 23 baudot["H"] = "| . o o |" 24 baudot["STOP"] = "| . o o |" 25 baudot["I"] = "| o . o |" 26 baudot["8"] = "| o . o |" 27 baudot["J"] = "| o o . o |" 28 baudot["'\''"] = "| o o . o |" 29 baudot["K"] = "| o o . o o |" 30 baudot["("] = "| o o . o o |" 31 baudot["L"] = "| o . o |" 32 baudot[")"] = "| o . o |" 33 baudot["M"] = "| . o o o |" 34 baudot["."] = "| . o o o |" 35 baudot["N"] = "| . o o |" 36 baudot[","] = "| . o o |" 37 baudot["O"] = "| . o o |" 38 baudot["9"] = "| . o o |" 39 baudot["P"] = "| o . o o |" 40 baudot["0"] = "| o . o o |" 41 baudot["Q"] = "| o o . o o |" 42 baudot["1"] = "| o o . o o |" 43 baudot["R"] = "| o . o |" 44 baudot["4"] = "| o . o |" 45 baudot["S"] = "| o . o |" 46 baudot["BELL"] = "| o . o |" 47 baudot["T"] = "| . o |" 48 baudot["5"] = "| . o |" 49 baudot["U"] = "| o o . o |" 50 baudot["7"] = "| o o . o |" 51 baudot["V"] = "| o . o o o |" 52 baudot[";"] = "| o . o o o |" 53 baudot["W"] = "| o o . o |" 54 baudot["2"] = "| o o . o |" 55 baudot["X"] = "| o . o o o |" 56 baudot["/"] = "| o . o o o |" 57 baudot["Y"] = "| o . o o |" 58 baudot["6"] = "| o . o o |" 59 baudot["Z"] = "| o . o |" 60 baudot["\""] = "| o . o |" 61 baudot[""] = "| . |" 62 baudot[""] = "| . |" 63 baudot["\r"] = "| . o |" 64 baudot["\n"] = "| o . |" 65 baudot[" "] = "| . o |" 66 baudot["LTRS"] = "| o o . o o o |" 67 baudot["FIGS"] = "| o o . o o |" 68 end = "|-------------|" 69 70 figchars = "-?:$3!&8'\''().,901457;2/6\"\r\n " 71 bell = "~" 72 figs = 0 73 print end 74 } 75 76 { 77 for (i = 1; i <= length($0); i++) 78 { 79 c = substr($0, i, 1) 80 81 if (c ~ /[A-Z]/) 82 { 83 if (figs) 84 { 85 print baudot["LTRS"] 86 figs = 0 87 } 88 } 89 else if (index(figchars, c) > 0 || c == bell) 90 { 91 if (c == bell) 92 c = "BELL"; 93 94 if (!figs) 95 { 96 print baudot["FIGS"] 97 figs = 1 98 } 99 } 100 else if (c == "\t") 101 c = " " 102 else 103 continue 104 105 print baudot[c] 106 } 107 108 print baudot["\n"] 109 } 110 111 END { 112 print end 113 } 114 ' 115 116 exit 117 118 | x x . x x x | 119 120 hole == mark == 1 121 !hole == space == 0 122 BITS LTRS FIGS HEX 123 ----- ---- ---- --- 124 125 00011 A - 03 126 11001 B ? 19 127 01110 C : 0E 128 01001 D $ 09 129 00001 E 3 01 130 01101 F ! 0D 131 11010 G & 1A 132 10100 H STOP 14 133 00110 I 8 06 134 01011 J ' 0B 135 01111 K ( 0F 136 10010 L ) 12 137 11100 M . 1C 138 01100 N , 0C 139 11000 O 9 18 140 10110 P 0 16 141 10111 Q 1 17 142 01010 R 4 0A 143 00101 S BELL 05 144 10000 T 5 10 145 00111 U 7 07 146 11110 V ; 1E 147 10011 W 2 13 148 11101 X / 1D 149 10101 Y 6 15 150 10001 Z " 11 151 00000 n/a n/a 00 152 01000 CR CR 08 153 00010 LF LF 02 154 00100 SP SP 04 155 11111 LTRS LTRS 1F 156 11011 FIGS FIGS 1B 157 158

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *