Add function to check if value is word (\w+)

src/include/pretty.sh

@@ -346,3 +346,15 @@ __echo_vars() {
         esac
     done
 }
+
+
+__is_word() {
+    #
+    # Check if $1 contains only alphanumeric chars or _
+    #
+    local tainted="$1"
+    local clean=$(tr -c -d '_[:alnum:]' <<< "$tainted")
+    debug "tainted='$tainted'"
+    debug "clean='$clean'"
+    test "$tainted" = "$clean"
+}

test/tests/ffoo_api/oracle/functions.stdout

@@ -52,6 +52,7 @@ pretty.__echo_trace
 pretty.__echo_usage
 pretty.__echo_vars
 pretty.__ffoo_pretty__init
+pretty.__is_clean
 pretty.debug
 pretty.debug_pipe
 pretty.die