Re: irregex match objects

[felix . winkelmann]

> Under these assumptions I concluded that it should be possible to
> detect what has been matched by checking whether the indices of the
> assoc. list are valid in the current match object, stopping after the
> first successful test.
>
> (import  (chicken irregex))
> ;;; swapping fred and wilma
> (irregex-replace/all '(: bow
>                          (or (=> "f" (w/nocase "fred"))
>                              (=> "w" (w/nocase "wilma")))
>                          eow)
>                      "fred dino wilma barney"
>                      (lambda (match-obj)
>                        (assert match-obj)
>                        (letrec ((iter (lambda (alist)
>                                         (unless (null? alist)
>                                           (let ((pair (car alist)))
>                                             (assert (pair? pair))
>                                             (if
> (irregex-match-valid-index? match-obj (cdr pair))
>                                                 (let ((name (car pair)))
>                                                   (assert (string? name))
>                                                   (cond
>                                                    ((string=? name "f") 
> "Wilma")
>                                                    ((string=? name "w") 
> "Fred")
>                                                    (else (error
> "unknown named match" name))))
>                                                 (iter (cdr alist))))))))
>                          (iter (irregex-match-names match-obj)))))
>
> To my suprise the result is "Fred dino Fred barney" instead of "Wilma
> dino Fred barney". What did I miss?

I haven't looked very deep into this, but it seems the replacement
lambda is called with the same match object for every substitution.
You don't seem to distinguish between the different matches in any
way - the result of the lambda will always be the same.


felix