+ sort -u "$catfile" \
+ | sed -r '/^[\t ]*$/d'
+}
+
+listcards_order(){
+ while read file; do
+ case "${_GET[order]}" in
+ firstname)
+ printf '%s\t%s\n' "$(sed -rn 's:^N(;.+)*\:([^;]*;){1} *([^;]*).*$:\3:p' "$file")" "$file"
+ ;;
+ lastname)
+ printf '%s\t%s\n' "$(sed -rn 's:^N(;.+)*\:([^;]*;){0} *([^;]*).*$:\3:p' "$file")" "$file"
+ ;;
+ bdate)
+ printf '%s\t%s\n' "$(sed -rn 's:^BDAY(;.+)*\:(.*)$:\2:p' "$file")" "$file"
+ ;;
+ *) printf 'x\t%s\n' "$file"
+ ;;
+ esac
+ done \
+ | sort -u |sed -r 's;^.*\t;;'
+}
+
+listcards_filter(){
+ filterex='s;^([^\n]+)\n.*$;\1;p'
+ printf '%s\n' "${_GET[filter]}" |tr '^' '\n' \
+ | sed -r 's;[]\/\(\)\\\^\$\?\.\+\*\;\[\{\}];\\\\&;g' \
+ | while read each; do
+ case $each in
+ name:*) expr='(FN|NICKNAME|N)(\;[^\n]+)*:[^\n]*'"(${each#*:})";;
+ street:*) expr='ADR(\;[^\n]+)*:([^\;]*;){2}[^\;\n]*'"(${each#*:})";;
+ zip:*) expr='ADR(\;[^\n]+)*:([^\;]*;){5}[^\;\n]*'"(${each#*:})";;
+ any:*|:*) expr="[^\n]*"'(\;[^\n]+)*:[^\n]*'"(${each#*:})";;
+ *:*) expr="${each%%:*}"'(\;[^\n]+)*:[^\n]*'"(${each#*:})";;
+ *) expr="(${each})";;
+ esac
+ filterex='/(^|\n)'"${expr}"'/I{'"${filterex}"'}'
+ done
+
+ while read n; do
+ { printf '%s\n' "$n"; cat "$n"; } \
+ | sed -En ':X;N;$!bX; {'"$filterex"'}'
+ done
+