ref: 7c035644f5abc9ecb91f50e88f98ec7340f506cd
parent: 3317916d17a84f6bc3a5c926fc196d445e64978d
author: sl <sl@x1yg3>
date: Sun Jul 6 18:00:55 EDT 2025
add b2a
--- a/INDEX
+++ b/INDEX
@@ -5,6 +5,7 @@
alac2flac - Convert ALAC to FLAC using ffmpeg, then delete the ALAC files.
alac2mp3 - Convert ALAC to MP3 using mplayer and lame, then delete the ALAC files.
ape2flac - Convert APE to FLAC using ffmpeg, bchunk, and flac,
+b2a - baudout to ascii
backup - Use mkfs or fcp to copy files from one place to another.
bg - save image under http://bg.stanleylieber.com/img/bg/
catv - rcpu to or rimport from cat-v.org
--- /dev/null
+++ b/b2a
@@ -1,0 +1,101 @@
+#!/bin/rc
+
+# baudot to ascii
+# from boyd roberts' sh version, /n/sources/contrib/boyd/sys/src/cmd/b2a.html
+
+awk '
+BEGIN {+ letters["| o o . |"] = "A"
+ figures["| o o . |"] = "-"
+ letters["| o . o o |"] = "B"
+ figures["| o . o o |"] = "?"
+ letters["| o . o o |"] = "C"
+ figures["| o . o o |"] = ":"
+ letters["| o . o |"] = "D"
+ figures["| o . o |"] = "$"
+ letters["| o . |"] = "E"
+ figures["| o . |"] = "3"
+ letters["| o . o o |"] = "F"
+ figures["| o . o o |"] = "!"
+ letters["| o . o o |"] = "G"
+ figures["| o . o o |"] = "&"
+ letters["| . o o |"] = "H"
+ figures["| . o o |"] = "STOP"
+ letters["| o . o |"] = "I"
+ figures["| o . o |"] = "8"
+ letters["| o o . o |"] = "J"
+ figures["| o o . o |"] = "\''"
+ letters["| o o . o o |"] = "K"
+ figures["| o o . o o |"] = "("+ letters["| o . o |"] = "L"
+ figures["| o . o |"] = ")"
+ letters["| . o o o |"] = "M"
+ figures["| . o o o |"] = "."
+ letters["| . o o |"] = "N"
+ figures["| . o o |"] = ","
+ letters["| . o o |"] = "O"
+ figures["| . o o |"] = "9"
+ letters["| o . o o |"] = "P"
+ figures["| o . o o |"] = "0"
+ letters["| o o . o o |"] = "Q"
+ figures["| o o . o o |"] = "1"
+ letters["| o . o |"] = "R"
+ figures["| o . o |"] = "4"
+ letters["| o . o |"] = "S"
+ figures["| o . o |"] = "BELL"
+ letters["| . o |"] = "T"
+ figures["| . o |"] = "5"
+ letters["| o o . o |"] = "U"
+ figures["| o o . o |"] = "7"
+ letters["| o . o o o |"] = "V"
+ figures["| o . o o o |"] = ";"
+ letters["| o o . o |"] = "W"
+ figures["| o o . o |"] = "2"
+ letters["| o . o o o |"] = "X"
+ figures["| o . o o o |"] = "/"
+ letters["| o . o o |"] = "Y"
+ figures["| o . o o |"] = "6"
+ letters["| o . o |"] = "Z"
+ figures["| o . o |"] = "\""
+ letters["| . |"] = ""
+ figures["| . |"] = ""
+ letters["| . o |"] = "\r"
+ figures["| . o |"] = "\r"
+ letters["| o . |"] = "\n"
+ figures["| o . |"] = "\n"
+ letters["| . o |"] = " "
+ figures["| . o |"] = " "
+ letters["| o o . o o o |"] = "LTRS"
+ figures["| o o . o o o |"] = "LTRS"
+ letters["| o o . o o |"] = "FIGS"
+ figures["| o o . o o |"] = "FIGS"
+ end = "|-------------|"
+
+ figs = 0
+}
+
+#$0 == end { next }+
+figs != 0 && figures[$0] == "LTRS" {+ figs = 0
+ next
+}
+
+figs == 0 && letters[$0] == "FIGS" {+ figs = 1
+ next
+}
+
+{+ if (figs)
+ {+ if (figures[$0] == "BELL")
+ printf("%c", "\007")+ else
+ printf("%s", figures[$0])+ }
+ else
+ printf("%s", letters[$0])+
+}
+' | tr '[A-Z]' '[a-z]'
--
⑨