Run scripts, add example folder, better handling of fatal errors

Added the ability to run scripts, not only modules from the library.
Now fatal errors when handling expressions will exit.

This commit also fixes Txt_add, which had a bug when adding (concat
to end) to a string that already exists.

README.md

@@ -11,7 +11,12 @@ _coral_ is meant to solve the script portability problem the hard way: by writin
 
 There is no compilation or build step. Once you download it, you're good to go.
 
-# Testing
+```sh
+$ ./coral example/hello_name.sh "World"
+Hello, World!
+```
+
+## Testing
 
 Run all tests locally against the default shell:
 
@@ -22,7 +27,7 @@ Run all tests locally against the default shell:
 Run a single test. For example, the pseudoarray implementation:
 
 ```sh
-sh coral tap 'test/_idiom/005-Arr.sh'
+./coral tap 'test/_idiom/005-Arr.sh'
 ```
 
 Run all tests inside an ephemeral docker container against all shells:

example/hello_name.sh

@@ -0,0 +1,9 @@
+# When loading scripts, the main function is the same
+# as the script file name.
+
+hello_name () {
+	# You must declare all variables as local
+	local name=$1
+
+	_print "Hello, $name!\n"
+}

idiom/data.sh

@@ -35,7 +35,7 @@ exp () {
 				_e="${1:-}${1:+ }$_R"
 				shift
 				;;
-			_[TLSA]*)
+			_[TLSA][0-9]*)
 				_e="${_e:-}${_e:+ }$_t"
 				;;
 			[A-Z][a-z]*)
@@ -44,13 +44,14 @@ exp () {
 					eval "_e=\"\${_e:-}\${_e:+ }\$$_t\""
 				;;
 			*)
-				ERROR $_t
+				_write "bad expression: '$_t'"
+				exit 1
 				;;
 		esac
 	done
 	case $_e in
-		_[TLSA]*) _R=$_e ;;
-		       *) eval $_e ;;
+		_[TLSA][0-9]*) _R=$_e ;;
+		            *) eval $_e ;;
 	esac
 }
 
@@ -69,7 +70,7 @@ dump () {
     local dump= item= len=0 count=0
     case $1 in
         _T*) eval dump=\"\'\$$1\'\" ;;
-		_[LS]*)
+		_[LS][0-9]*)
 			eval "REPLY=\"\$$1\""
 			case $1 in
 				_L*) dump="[ Lst " ;;
@@ -82,7 +83,7 @@ dump () {
 			done
 			dump="$dump]"
 			;;
-		_A*)
+		_A[0-9]*)
 			eval "len=\"\$(($1))\""
 			dump="[ Arr "
 			while test $count -lt $len
@@ -93,6 +94,10 @@ dump () {
 			done
 			dump="$dump]"
 			;;
+		*)
+			_write "bad data: '$1'"
+			exit 1
+			;;
     esac
     REPLY="$dump"
 }
@@ -111,7 +116,7 @@ toenv () {
 			done
 			eval "dump=\"\${dump}$1='\$$1'\"\${__EOL__}"
 			;;
-		_A*)
+		_A[0-9]*)
 			eval dump=\"$1=\'\$$1\'\${__EOL__}\"
 			eval "len=\"\$(($1))\""
 			while test $count -lt $len
@@ -122,6 +127,10 @@ toenv () {
 				count=$((count + 1))
 			done
 			;;
+		*)
+			_write "bad data: '$1'"
+			exit 1
+			;;
     esac
     REPLY="$dump"
 }
@@ -134,7 +143,9 @@ Txt () {
 }
 
 Txt_add () {
-	eval "$_R=\${*:-}"
+	_R=$1
+	shift
+	eval "$_R=\"\${$_R}\${*:-}\""
 }
 
 # The Lst pseudotype constructor

idiom/wrapper.sh

@@ -16,7 +16,16 @@ then
 	REPLY=
 fi
 
-test $# = 0 || require "$1"
-shift
+if test $# -gt 0
+then
+	if ! test -f "$1"
+	then require "$1" # Main argument not a script, try to load a module
+	else
+		. "$1"
+		REPLY=${1#*\/}
+		REPLY=${REPLY%\.*}
+	fi
+	shift
+fi
 unset -f require
 "${REPLY:-}" "${@:-}"

test/_idiom/002-Txt.sh

@@ -4,17 +4,33 @@
 test_Txt_noargs () {
 	Txt
 	eval deref=\$$_R
-	tap_assert "$deref" ""
+	tap_assert "" "$deref"
 }
 
 test_Txt_unary_zerolength () {
 	Txt ""
 	eval deref=\$$_R
-	tap_assert "$deref" ""
+	tap_assert "" "$deref"
 }
 
 test_Txt_simple () {
 	Txt "Some text"
 	eval deref=\$$_R
-	tap_assert "$deref" "Some text"
+	tap_assert "Some text" "$deref"
+}
+
+test_Txt_add () {
+	Txt "Some text"
+	eval deref=\$$_R
+	Txt_add $_R " and some more"
+	eval deref=\$$_R
+	tap_assert "Some text and some more" "$deref"
+}
+
+test_Txt_add_to_empty_string () {
+	Txt
+	eval deref=\$$_R
+	Txt_add $_R "Hi"
+	eval deref=\$$_R
+	tap_assert "Hi" "$deref"
 }