Zsh Mailing List Archive
Messages sorted by:
Reverse Date,
Date,
Thread,
Author
PATCH: replace a for-loop by a K flag in _telnet
- X-seq: zsh-workers 9475
- From: Tanaka Akira <akr@xxxxxxxxxxx>
- To: zsh-workers@xxxxxxxxxxxxxx
- Subject: PATCH: replace a for-loop by a K flag in _telnet
- Date: 30 Jan 2000 13:12:56 +0900
- Mailing-list: contact zsh-workers-help@xxxxxxxxxxxxxx; run by ezmlm
This replaces a for-loop by a K flag in _telnet.
Index: Completion/User/_telnet
===================================================================
RCS file: /projects/zsh/zsh/Completion/User/_telnet,v
retrieving revision 1.1.1.12
diff -u -r1.1.1.12 _telnet
--- Completion/User/_telnet 1999/11/23 15:44:13 1.1.1.12
+++ Completion/User/_telnet 2000/01/30 03:46:33
@@ -9,38 +9,34 @@
typeset -A opt_args
if (( ! $+_telnet_args )); then
- local k help="$(telnet -\? < /dev/null 2>&1)"
+ local help="$(telnet -\? < /dev/null 2>&1)"
local -A optionmap
- optionmap=( "[-8]" '-8[allow 8-Bit data]' \
- "[-E]" '-E[disable an escape character]' \
- "[-K]" '-K[no automatic login]' \
- "[-L]" '-L[allow 8-Bit data on output]' \
- "[-N]" '-N[supress reverse lookup]' \
- "[-S tos]" '-S+:IP type-of-service:' \
- "[-X atype]" '-X+:authentication type to disable:' \
- "[-a]" '-a[attempt automatic login]' \
- "[-c]" '-c[disable .telnetrc]' \
- "[-d]" '-d[debug mode]' \
- "[-e char]" '-e+[specify escape character]:escape character:' \
- "[-f/" '-f' \
- "/-F]" '-F' \
- "[-k realm]" '-k+:realm:' \
- "[-l user]" '-l+[specify user]:user:->users' \
- "[-n tracefile]" '-n+[specify tracefile]:tracefile:_files' \
- "[-r]" '-r[rlogin like user interface]' \
- "[-s src_addr]" '-s+[set source IP address]:src_addr:' \
- "[-x]" '-x' \
- "[-t transcom]" '-t+:transcom:' \
- "[-noasynch]" '-noasynch' \
- "[-noasyncnet]" '-noasyncnet' \
- "[-noasynctty]" '-noasynctty' )
-
- _telnet_args=()
- for k in ${(k)optionmap}
- do
- [[ "$help" = *"$k"* ]] &&
- _telnet_args=( "$_telnet_args[@]" "$optionmap[$k]" )
- done
+ optionmap=(
+ '*\[-8\]*' '-8[allow 8-Bit data]'
+ '*\[-E\]*' '-E[disable an escape character]'
+ '*\[-K\]*' '-K[no automatic login]'
+ '*\[-L\]*' '-L[allow 8-Bit data on output]'
+ '*\[-N\]*' '-N[supress reverse lookup]'
+ '*\[-S tos\]*' '-S+:IP type-of-service:'
+ '*\[-X atype\]*' '-X+:authentication type to disable:'
+ '*\[-a\]*' '-a[attempt automatic login]'
+ '*\[-c\]*' '-c[disable .telnetrc]'
+ '*\[-d\]*' '-d[debug mode]'
+ '*\[-e char\]*' '-e+[specify escape character]:escape character:'
+ '*\[-f/*' '-f'
+ '*/-F\]*' '-F'
+ '*\[-k realm\]*' '-k+:realm:'
+ '*\[-l user\]*' '-l+[specify user]:user:->users'
+ '*\[-n tracefile\]*' '-n+[specify tracefile]:tracefile:_files'
+ '*\[-r\]*' '-r[rlogin like user interface]'
+ '*\[-s src_addr\]*' '-s+[set source IP address]:src_addr:'
+ '*\[-x\]*' '-x'
+ '*\[-t transcom\]*' '-t+:transcom:'
+ '*\[-noasynch\]*' '-noasynch'
+ '*\[-noasyncnet\]*' '-noasyncnet'
+ '*\[-noasynctty\]*' '-noasynctty'
+ )
+ _telnet_args=($optionmap[(K)"$help"])
fi
_arguments -C -s \
--
Tanaka Akira
Messages sorted by:
Reverse Date,
Date,
Thread,
Author