Just another update

Task/Introspection/D/introspection.d

@@ -25,7 +25,8 @@ void main() {
 
     int tot = 0;
     /*static*/ foreach (name; __traits(allMembers, mixin(__MODULE__)))
-        static if (is(int == Unqual!(typeof(mixin("." ~ name)))))
+        static if (name != "object" &&
+                   is(int == Unqual!(typeof(mixin("." ~ name)))))
             tot += mixin("." ~ name);
     writeln("Total of the module-level ints (could overflow): ", tot);
 }

Task/Introspection/Forth/introspection-2.fth

@@ -0,0 +1,11 @@
+[hex] 362 [decimal] 4TH# - [if] [abort] [then]
+
+-32 value bloop
+[defined] bloop [if]
+  [defined] abs [if]
+     bloop abs . cr
+  [then]
+[then]
+
+0 last cell+ first over over - .( User variables: ) .
+?do i @ + loop .( Sum: ) . cr

Task/Introspection/Julia/introspection.julia

@@ -0,0 +1,5 @@
+julia> VERSION
+v"0.3.2"
+
+julia> VERSION > v"0.3.1"
+true

Task/Introspection/UNIX-Shell/introspection-1.sh

@@ -0,0 +1,22 @@
+case ${.sh.version} in
+    *93[[:alpha:]]+*) :;; #this appears to be ksh93, we're OK
+    *)  echo "version appears to be too old"
+        exit              # otherwise, bail out
+        ;;
+esac
+
+if [[ -z ${bloop+bloop has a value} ]]; then
+    print "no bloop variable"
+elsif (( abs(1) )); then
+    print -- $(( abs(bloop) ))
+fi
+
+typeset -a int_vars
+set | while IFS='=' read -r var value; do
+    if [[ $value == +([[:digit:]]) ]]; then
+        int_vars[n++]=$var
+        let sum += $value
+    fi
+done
+print "${int_vars[*]}"
+print -- $sum

Task/Introspection/UNIX-Shell/introspection-2.sh

@@ -0,0 +1,26 @@
+if [[ $BASH_VERSION < "4.2" ]]; then
+    echo "version is too old"
+    exit
+fi
+
+if [[ ! -v bloop ]]; then
+    echo "no bloop variable"
+elif [[ $(type -t abs 2>/dev/null) != function ]]; then
+    echo "abs is not a shell function"
+else
+    echo $(abs $bloop)
+fi
+
+# need to populate the variables and use them within the same subshell in a pipeline.
+set | {
+    shopt -s extglob
+    int_vars=()
+    while IFS='=' read -r var value; do
+        if [[ $value == +([[:digit:]]) ]]; then
+            int_vars+=($var)
+            (( sum += value ))
+        fi
+    done
+    echo "${int_vars[*]}"
+    echo $sum
+}