1 files changed, 60 insertions, 0 deletions

@@ -0,0 +1,60 @@
+#!/usr/bin/env bash
+# THESAURACLES -- synonym oracle
+# Copyright (C) Case Duckworth <acdw@acdw.net>
+# with thanks to Will Sinatra
+
+### Commentary:
+
+### Code:
+
+dict_server="dict.org"
+dict_database="moby-thesaurus"
+thesaurus_header_lines=3
+
+wf=/tmp/thesauracles
+
+hops=3
+
+query() {
+        response="$(mktemp /tmp/thesauracles.XXXXXX)"
+        trap "rm -f $response" KILL
+        curl "dict://$dict_server/d:$1:$dict_database" >"$response" 2>/dev/null
+        if grep -q 552 "$response"; then
+                return 1
+        fi
+        sed -n '/^151/,/^.$/p' "$response" |
+                tail -n+$thesaurus_header_lines |
+                awk 'BEGIN{RS=","}{sub(/^[ \n\t\r]+/,"");print}' >"$wf"
+}
+
+random_word() {
+        n="$(wc -l <"$wf")"
+        ln="$((RANDOM % n + 1))"
+        sed -n ${ln}p "$wf"
+}
+
+main() {
+        word="$1"
+        words=()
+        hopn=0
+        while [ "$hopn" -lt "$hops" ]; do
+                if query "$word"; then
+                        echo "$word..."
+                        words+=("$word")
+                        word="$(random_word)"
+                        : $((hopn++))
+                elif [ "$hopn" -eq 0 ]; then
+                        echo "Oops, don't know \"$word!\"" >&2
+                        exit 1
+                else
+                        echo "hmm."
+                        : $((hopn--))
+                        word="${words[-1]}"
+                fi
+        done
+        echo "$word"
+}
+
+if [[ "$BASH_SOURCE" = "$0" ]]; then
+        main "$@"
+fi