notwa/rc
1
0
Fork 0
mirror of https://github.com/notwa/rc synced 2024-11-05 07:29:04 -08:00
Code Issues Releases Wiki Activity

rewrite short-flag parsing in permit

Browse source
This commit is contained in:
Connor Olding 2024-07-16 10:59:54 -07:00
parent e8623a568a
commit 8904f22242
1 changed files with 13 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
sh/permit
View file

@ -53,22 +53,20 @@ permit() { ### @- conditionally set executable permissions on each of its argume
done
break;;
(-*)
(-?*)
shift
case "${__permit_f#-}" in
(a) __permit_a=1;; # automatic (on)
(A) __permit_a=0;; # automatic (off)
(e) __permit_m=e;; # everything
(f) __permit_m=f;; # files only
(d) __permit_m=d;; # directories only
(?|-*)
printf >&2 'permit: %s\n' "unknown flag: $__permit_f"
return 64;;
(*)
set -- "${__permit_f%"${__permit_f#-?}"}" "-${__permit_f#-?}" "$@"
: $((__permit_n+=2))
continue;;
esac;;
while __permit_f="${__permit_f#?}"; [ -n "$__permit_f" ]; do
case "${__permit_f}" in
(a*) __permit_a=1;; # automatic (on)
(A*) __permit_a=0;; # automatic (off)
(e*) __permit_m=e;; # everything
(f*) __permit_m=f;; # files only
(d*) __permit_m=d;; # directories only
(*)
printf >&2 'permit: unknown flag: -%.1s\n' "$__permit_f"
return 64;;
esac
done;;
(*)
shift