3 function dbg( text ) { print text >>"/dev/stderr"; }
5 function STRING( inp ) {
6 gsub(/\\/, "\\\\", inp);
7 gsub(/\n/, "\\n", inp);
8 gsub(/\r/, "\\r", inp);
9 gsub(/\t/, "\\t", inp);
10 gsub(/\+/, "\\+", inp);
12 return inp ? inp : "\\";
15 function UNSTRING( inp, out, tmp ) {
17 if ( inp ~ /^\\\\/) { out = out "\\"; sub(/^\\\\/, "", inp); }
18 else if ( inp ~ /^\\n/) { out = out "\n"; sub(/^\\n/, "", inp); }
19 else if ( inp ~ /^\\r/) { out = out "\r"; sub(/^\\r/, "", inp); }
20 else if ( inp ~ /^\\t/) { out = out "\t"; sub(/^\\t/, "", inp); }
21 else if ( inp ~ /^\\+/) { out = out "+"; sub(/^\\+/, "", inp); }
22 else if ( inp ~ /^\+/) { out = out " "; sub(/^\+/, "", inp); }
23 else if ( inp ~ /^\\/) { out = out ""; sub(/^\+/, "", inp); }
24 else { tmp = inp; sub(/[\\+].*$/, "", tmp); out = out tmp; sub(/^[^\\+]*/, "", inp); }
29 function rx( regex ) {
30 gsub(/[].*+?^${}()|\\[]/, "\\\\&", regex);
36 fn = n = uid = iban = tmp = "";
37 split("", uid_n); split("", uid_fn); split("", uid_iban);
38 split("", iban_uid); split("", ibans); split("", uids);
40 split("", sure); split("", unsure); split("", unknown);
44 /^BEGIN;:VCARD$/ { fn = n = id = iban = tmp = ""; }
46 /^UID;[^:]*:/ { uid = $0; sub(/^[^;]+;[^:]*:/, "", uid); }
47 /^FN;[^:]*:/ { fn = $0; sub(/^[^;]+;[^:]*:/, "", fn); }
48 /^N;[^:]*:/ { n = $0; sub(/^[^;]+;[^:]*:/, "", n); sub(/;.*$/, "", n); }
49 /^X-IBAN;[^:]*:/ { iban = $0; sub(/^[^;]+;[^:]*:/, "", iban); ibans[length(ibans)] = iban; }
52 uid_n[uid] = n; uid_fn[uid] = fn; uid_iban[uid] = iban;
53 for (iban in ibans) iban_uid[ibans[iban]] = iban_uid[ibans[iban]] ? iban_uid[ibans[iban]] " " uid : uid;
54 fn = n = uid = iban = tmp = ""; split("", ibans);
57 /^BEGIN:LEDGERS$/ { ledger = 1; }
59 ledger && strftime("%Y-%m-%d", $2, "UTC") == $1 {
61 sure[$3] = iban_uid[$3];
63 for (uid in uid_fn) if ( match(UNSTRING($5), rx(uid_fn[uid])) ) {
64 if (! match(unsure[$3], rx(uid))) unsure[$3] = unsure[$3] ? unsure[$3] " " uid : uid;
67 for (uid in uid_n) if ( uid_n[uid] && match(UNSTRING($4), rx(uid_n[uid])) ) {
68 if (! match(unsure[$3], rx(uid))) unsure[$3] = unsure[$3] ? unsure[$3] " " uid : uid;
72 if (!($3 in sure) && !($3 in unsure)) unknown[$3] = $0;
76 for (iban in unsure) {
77 line = "guess " iban " " STRING(unsure_rec[iban]);
78 split(unsure[iban], uids, / /);
79 for (k in uids) line = line " " STRING(uids[k] "/" uid_fn[uids[k]]);
82 for (iban in unknown) {
83 line = "unknown " iban " " unknown[iban];
88 split(sure[iban], uids, / /);
89 for (k in uids) line = line " " STRING(uids[k] "/" uid_fn[uids[k]]);