nuweb: Added base libraries.

Signed-off-by: Tony Tkacik <tonydamage@gmail.com>

inc/nuweb/router.inc.sh

@@ -0,0 +1,115 @@
+
+
+##
+## #Path specification format
+##
+## Path specification is written as standard path:
+##      *path_spec*[?*query_spec*]
+## Where:
+##    *path_spec* is standard HTTP path separated with */* and following special
+##    characters:
+##       **@**  - Required path component, it is captured as positional argument
+##       **@+** - Required path component, capture current and all subsequent
+##            components as path. Path is positional argument.
+##    *query_spec* is optional and allows for matching values of query arguments
+##    or transforming query arguments into positional arguments. It is written
+##    in form "?arg1=valueDef&arg2=valueDef"
+##    Following special characters are supported:
+##       **@**  - Required argument, capture value as positional argument.
+##       **?@** - Optional argument, capture value as positional argument.
+##
+##
+nuweb.router.tryexec.concrete() {
+  full_spec=$1;
+  path_spec=${full_spec%%\?*}
+  query_spec=${full_spec#$path_spec}
+  query_spec=${query_spec#\?}
+
+  func=$2;
+  shift; shift;
+  echo "Checking Path Spec: '$path_spec', Query Spec: '$query_spec' Function:$func Additional Args:$@" >&2
+
+  IFS='/' read -ra spec_components <<< "$path_spec"
+  i=0
+  path_args=""
+  path_c="";
+  for path in "${PATH_COMPONENTS[@]}" ; do
+    spec=${spec_components[$i]}
+    if [ "$spec" == "@+" ]; then
+      consume="consume"
+    fi
+    if [ -n "$consume" ]; then
+      path_c="$path_c/$path"
+    elif [ "$spec" == "@" ]; then
+      path_args="$path_args $path";
+    elif [ "$spec" != "$path" ] ; then
+      return -1
+    fi
+    let i=$i+1
+  done
+  if [ $i -lt "${#spec_components[@]}" ] ; then
+    return -1;
+  fi
+  if [ -n "$query_spec" ]; then
+  IFS='&' read -ra query_components <<< "$query_spec"
+  for varDef in "${query_components[@]}" ; do
+    IFS='=' read -r var valueDef <<< "$varDef"
+    value=$(nuweb.http.query.var $var)
+    #echo $var $valueDef $value >&2;
+    if [ "$valueDef" == "?@" ]; then
+      query_args="$query_args $value"
+    else
+      if [ -z "$value" ]; then
+        #echo "$def $value is empty." >&2;
+        return -1;
+      elif [ "$valueDef" == "@" ]; then
+        query_args="$query_args $value"
+      elif [ "$value" != "$valueDef" ]; then
+        #echo "$def $value != $valueDef" >&2;
+        return -1;
+      fi
+    fi
+  done
+  fi
+  $func $@ $path_args $path_c $query_args
+  exit 0
+
+}
+
+
+nuweb.get() {
+  nuweb.router.tryexec.concrete $@;
+}
+
+
+##
+## nuweb.router.exec:: <definition> [path]
+##  Parses *path* and executes functions as defined in *definition*.
+##  *definition* is name of *function* which contains specific route patterns.
+##  *path* is HTTP path, for which router should parse arguments. If path is
+##  not specified, *PATH_INFO* will be used instead.
+##
+nuweb.router.exec() {
+  local definition="$1";
+  local path="$2";
+
+  if [ -z "$path" ] ; then
+    path="$PATH_INFO"
+  fi
+  if [ -z "$path" ] ; then
+    path="/"
+  fi
+  
+  IFS='/' read -ra PATH_COMPONENTS <<< "$path"
+
+  $definition
+
+  nuweb.status 404 NOT FOUND
+  nuweb.content_type text/plain
+  echo """
+
+    Status:404
+    Path $PATH_INFO Not found.
+
+  """
+}