mksh/dumpargs

   1 #!/bin/mksh
   2 # $MirOS: contrib/hosted/tg/dumpargs,v 1.2 2013/05/18 15:34:34 tg Exp $
   3 #-
   4 # Copyright © 2013
   5 #       Thorsten Glaser <tg@mirbsd.org>
   6 #
   7 # Provided that these terms and disclaimer and all copyright notices
   8 # are retained or reproduced in an accompanying document, permission
   9 # is granted to deal in this work without restriction, including un‐
  10 # limited rights to use, publicly perform, distribute, sell, modify,
  11 # merge, give away, or sublicence.
  12 #
  13 # This work is provided “AS IS” and WITHOUT WARRANTY of any kind, to
  14 # the utmost extent permitted by applicable law, neither express nor
  15 # implied; without malicious intent or gross negligence. In no event
  16 # may a licensor, author or contributor be held liable for indirect,
  17 # direct, other damage, loss, or other issues arising in any way out
  18 # of dealing in the work, even if advised of the possibility of such
  19 # damage or existence of a defect, except proven that it results out
  20 # of said person’s immediate fault when using the work as intended.
  21 #-
  22 # Dump process environment to syslog.
  23
  24 {
  25         {
  26                 typeset -p
  27                 print -n "args($#)"
  28                 i=-1
  29                 for x in "$0" "$@"; do
  30                         print -nr -- " $((++i)):${x@Q}"
  31                 done
  32                 print
  33         } | /usr/bin/tee /dev/stderr | \
  34             /usr/bin/logger -p user.debug -t "dumpargs[$$]"
  35 } 2>&1 | {
  36         print "=== dumpargs[$$] ==="
  37         cat
  38 }