b2a

Language: English
Programming Language: Unix Shell
Published by: kilgore [not registered]
Last Update: 5/15/2006
Views: 951

License: GNU General Public License

Description

Baudot to ASCII filter

Code

Display line numbers

1 #!/bin/sh 2 3 # baudot to ascii 4 5 awk ' 6 BEGIN { 7 letters["| o o . |"] = "A" 8 figures["| o o . |"] = "-" 9 letters["| o . o o |"] = "B" 10 figures["| o . o o |"] = "?" 11 letters["| o . o o |"] = "C" 12 figures["| o . o o |"] = ":" 13 letters["| o . o |"] = "D" 14 figures["| o . o |"] = "$" 15 letters["| o . |"] = "E" 16 figures["| o . |"] = "3" 17 letters["| o . o o |"] = "F" 18 figures["| o . o o |"] = "!" 19 letters["| o . o o |"] = "G" 20 figures["| o . o o |"] = "&" 21 letters["| . o o |"] = "H" 22 figures["| . o o |"] = "STOP" 23 letters["| o . o |"] = "I" 24 figures["| o . o |"] = "8" 25 letters["| o o . o |"] = "J" 26 figures["| o o . o |"] = "'\''" 27 letters["| o o . o o |"] = "K" 28 figures["| o o . o o |"] = "(" 29 letters["| o . o |"] = "L" 30 figures["| o . o |"] = ")" 31 letters["| . o o o |"] = "M" 32 figures["| . o o o |"] = "." 33 letters["| . o o |"] = "N" 34 figures["| . o o |"] = "," 35 letters["| . o o |"] = "O" 36 figures["| . o o |"] = "9" 37 letters["| o . o o |"] = "P" 38 figures["| o . o o |"] = "0" 39 letters["| o o . o o |"] = "Q" 40 figures["| o o . o o |"] = "1" 41 letters["| o . o |"] = "R" 42 figures["| o . o |"] = "4" 43 letters["| o . o |"] = "S" 44 figures["| o . o |"] = "BELL" 45 letters["| . o |"] = "T" 46 figures["| . o |"] = "5" 47 letters["| o o . o |"] = "U" 48 figures["| o o . o |"] = "7" 49 letters["| o . o o o |"] = "V" 50 figures["| o . o o o |"] = ";" 51 letters["| o o . o |"] = "W" 52 figures["| o o . o |"] = "2" 53 letters["| o . o o o |"] = "X" 54 figures["| o . o o o |"] = "/" 55 letters["| o . o o |"] = "Y" 56 figures["| o . o o |"] = "6" 57 letters["| o . o |"] = "Z" 58 figures["| o . o |"] = "\"" 59 letters["| . |"] = "" 60 figures["| . |"] = "" 61 letters["| . o |"] = "\r" 62 figures["| . o |"] = "\r" 63 letters["| o . |"] = "\n" 64 figures["| o . |"] = "\n" 65 letters["| . o |"] = " " 66 figures["| . o |"] = " " 67 letters["| o o . o o o |"] = "LTRS" 68 figures["| o o . o o o |"] = "LTRS" 69 letters["| o o . o o |"] = "FIGS" 70 figures["| o o . o o |"] = "FIGS" 71 end = "|-------------|" 72 73 figs = 0 74 } 75 76 #$0 == end { next } 77 78 figs != 0 && figures[$0] == "LTRS" { 79 figs = 0 80 next 81 } 82 83 figs == 0 && letters[$0] == "FIGS" { 84 figs = 1 85 next 86 } 87 88 { 89 if (figs) 90 { 91 if (figures[$0] == "BELL") 92 printf("%c", '\007') 93 else 94 printf("%s", figures[$0]) 95 } 96 else 97 printf("%s", letters[$0]) 98 99 } 100 ' | tr '[A-Z]' '[a-z]' 101

b2a

Description

Code

No comments avaiable

Add a comment