estrlist: add new verbs: firstupper, tolower

bin/tools_estrlist

@@ -63,6 +63,20 @@ last()
         echo "$*" | xargs -n1 echo 2>/dev/null | tail -n1
 }
 
+firstupper()
+{
+    # FIXME: works with GNU sed only
+    list "$*" | sed 's/.*/\u&/'
+}
+
+tolower()
+{
+    # tr is broken in busybox (checked with OpenWrt)
+    #echo "$*" | tr "[:upper:]" "[:lower:]"
+    list "$*" | awk '{print tolower($0)}'
+}
+
+
 has_space()
 {
         # not for dash:
@@ -292,6 +306,8 @@ help()
         echo "  contains <word> [word list]       - check if word list contains the word"
         echo "  first <word list>                 - print first word"
         echo "  last <word list>                  - print last word"
+        echo "  firstupper <word list>            - print the words with first letter of each in upper case"
+        echo "  tolower <word list>               - print the words in lower case"
         echo
         echo "Examples:"
 #        example reg_remove "1." "11 12 21 22"
@@ -311,6 +327,8 @@ help()
         example_res match "M[0-9]+" "MI"
         example_res first "1 2 3"
         example_res last "1 2 3"
+        example_res firstupper "world camp"
+        example_res tolower "World Camp"
 }
 
 COMMAND="$1"