summary refs log tree commit diff
path: root/Functions
diff options
context:
space:
mode:
authorPeter Stephenson <pws@users.sourceforge.net>2001-07-27 22:23:15 +0000
committerPeter Stephenson <pws@users.sourceforge.net>2001-07-27 22:23:15 +0000
commit1619df1c5d797c3b25fc3224e49cac358c7450f6 (patch)
treedd3a04e8eebb63b7f5990f3bd2513e506836c00b /Functions
parent4da5c1b2e0ae1dce9c75c8c883c4eb0ae8528c53 (diff)
downloadzsh-1619df1c5d797c3b25fc3224e49cac358c7450f6.tar.gz
zsh-1619df1c5d797c3b25fc3224e49cac358c7450f6.tar.xz
zsh-1619df1c5d797c3b25fc3224e49cac358c7450f6.zip
15511: zcalc tweaks
Diffstat (limited to 'Functions')
-rw-r--r--Functions/Misc/zcalc8
1 files changed, 6 insertions, 2 deletions
diff --git a/Functions/Misc/zcalc b/Functions/Misc/zcalc
index 80a031a8b..503bcb94b 100644
--- a/Functions/Misc/zcalc
+++ b/Functions/Misc/zcalc
@@ -84,11 +84,13 @@
 emulate -L zsh
 setopt extendedglob
 
-local line latest base defbase match mbegin mend
+local line latest base defbase match mbegin mend psvar
 integer num
 
 zmodload -i zsh/mathfunc 2>/dev/null
 
+: ${ZCALCPROMPT="%1v> "}
+
 # Supply some constants.
 float PI E
 (( PI = 4 * atan(1), E = exp(1) ))
@@ -101,7 +103,8 @@ for (( num = 1; num <= $#; num++ )); do
   print "$num> $argv[$num]"
 done
 
-while vared -chp "$num> " line; do
+psvar[1]=$num
+while vared -cehp "${(%)ZCALCPROMPT}" line; do
   [[ -z $line ]] && break
   # special cases
   # Set default base if `[#16]' or `[##16]' etc. on its own.
@@ -134,6 +137,7 @@ while vared -chp "$num> " line; do
     # arrays always store scalars anyway.
     eval "latest=\$(( $base $line ))"
     argv[num++]=$latest
+    psvar[1]=$num
     print -- $latest
   fi
   line=