about summary refs log tree commit diff
path: root/Functions/TCP/zgprintf
diff options
context:
space:
mode:
authorPeter Stephenson <pws@users.sourceforge.net>2003-02-23 23:24:29 +0000
committerPeter Stephenson <pws@users.sourceforge.net>2003-02-23 23:24:29 +0000
commitb1ae269e555cb3997ebac0ceae936f563e3c67c1 (patch)
treed5b1334521eef1f69dcd68773c6c8a3f0f844d1e /Functions/TCP/zgprintf
parentfcc7489b7e8c2e572e94b1161ff37a6c0694d864 (diff)
downloadzsh-b1ae269e555cb3997ebac0ceae936f563e3c67c1.tar.gz
zsh-b1ae269e555cb3997ebac0ceae936f563e3c67c1.tar.xz
zsh-b1ae269e555cb3997ebac0ceae936f563e3c67c1.zip
18278: remove zgprintf, zformat already does this
Diffstat (limited to 'Functions/TCP/zgprintf')
-rw-r--r--Functions/TCP/zgprintf70
1 files changed, 0 insertions, 70 deletions
diff --git a/Functions/TCP/zgprintf b/Functions/TCP/zgprintf
deleted file mode 100644
index c448b35a2..000000000
--- a/Functions/TCP/zgprintf
+++ /dev/null
@@ -1,70 +0,0 @@
-# Generalised printf.
-# Arguments of the form -%X=... give the output to be used with
-# the directive %x.
-#
-# -P indicates that any unhandled directives are to be
-# passed to printf.  With this option, any %-escapes passed to printf
-# are assumed to consume exactly one argument from the command line.
-# Unused command line arguments are ignored.  This is only minimally
-# implemented.
-#
-# -R indicates the value is to be put into REPLY rather than printed.
-#
-# -r indicates that print formatting (backslash escapes etc.) should
-# not be replied to the result.  When using -R, no print formatting
-# is applied in any case.
-
-emulate -L zsh
-setopt extendedglob
-
-local opt printf fmt usereply match mbegin mend raw c
-typeset -A chars
-chars=(% %)
-
-while getopts "%:PrR" opt; do
-  case $opt in
-    (%) if [[ $OPTARG != ?=* ]]; then
-	  print -r "Bad % option: should be -%${OPTARG[1]}=..." >&2
-	  return 1
-	fi
-	chars[${OPTARG[1]}]=${OPTARG[3,-1]}
-	;;
-    (P) printf=1
-	;;
-    (r) raw=-r
-	;;
-    (R) usereply=1
-        ;;
-  esac
-done
-(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
-
-[[ -z $usereply ]] && local REPLY
-REPLY=
-
-if (( $# )); then
-  fmt=$1
-  shift
-fi
-
-while [[ $fmt = (#b)([^%]#)%([-0-9.*]#?)(*) ]]; do
-  REPLY+=$match[1]
-  c=$match[2]
-  fmt=$match[3]
-  if [[ -n ${chars[$c]} ]]; then
-    REPLY+=${chars[$c]}
-  elif [[ -n $P ]]; then
-    # hmmm, we need sprintf...
-    # TODO: %ld etc.
-    REPLY+=`printf "%$c" $1`
-    (( $? )) && return 1
-    shift
-  else
-    print -r "Format not handled: %$c" >&2
-    return 1
-  fi
-done
-
-REPLY+=$fmt
-[[ -z $usereply ]] && print -n $raw - $REPLY
-return 0