Summary

include file install w/ CHICKEN_INSTALL_PREFIX causes duplicated install prefix in final pathname

Metadata

• Id: 00c317f19956c8a1700d2d0d1f9ae12b2be56768
• Trac id: 1721
• Type: defect
• Reporter: kon
• Owner:
• Cc:
• Status: closed
• Component: core tools
• Estimated difficulty:
• Resolution: fixed
• Priority: major
• Milestone: someday
• Version: 5.2.0
• Changetime: 2023-11-06 23:27:16 UTC
• Created: 2020-09-11 21:59:50 UTC
• Keywords:

Description

The "After" below fixes my little problem but is not a suggested solution.

-- levenshtein.egg relevant extract:

   (scheme-include levenshtein-cost
     (files "levenshtein-cost-interface.types.scm"
             "levenshtein-cost-interface.scm"
             "levenshtein-cost-number.scm"
             "levenshtein-cost-fixnum.scm"
             "levenshtein-cost-flonum.scm"))
   (scheme-include levenshtein-sequence
     (files "levenshtein-sequence-interface.types.scm"
             "levenshtein-sequence-interface.scm"
             "levenshtein-sequence-vector.scm"
             "levenshtein-sequence-string.scm"
             "levenshtein-sequence-utf8.scm"))

-- Before & After

#495 $ find /usr/local -name 'levenshtein*.scm' /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-sequence-interface.types.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-cost-flonum.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-cost-fixnum.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-sequence-vector.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-sequence-string.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-sequence-interface.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-sequence-utf8.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-cost-number.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-cost-interface.scm /usr/local/chicken/5/usr/local/chicken/5/share/levenshtein-cost-interface.types.scm

#499 $ srcdiff egg-compile.scm 56,65c56 < ;returns s2 w/o any, one, leading s1 < (define (string-prefix-strip s1 s2) < (let loop ((ls1 (string->list s1)) (ls2 (string->list s2))) < (cond ((null? ls1) (list->string ls2)) < ((null? ls2) s2) < ((char=? (car ls1) (car ls2)) (loop (cdr ls1) (cdr ls2))) < (else s2)) ) ) < < (define strip-install-prefix) < (define override-prefix)

---

> (define override-prefix 67,68d57 < (set! strip-install-prefix (lambda (pn) (string-prefix-strip prefix pn))) < (set! override-prefix 152c141,142 < (strip-install-prefix dest*))))))

---

> dest*))))) >

#495 $ find /usr/local -name 'levenshtein*.scm' /usr/local/chicken/5/share/levenshtein-sequence-interface.types.scm /usr/local/chicken/5/share/levenshtein-cost-flonum.scm /usr/local/chicken/5/share/levenshtein-cost-fixnum.scm /usr/local/chicken/5/share/levenshtein-sequence-vector.scm /usr/local/chicken/5/share/levenshtein-sequence-string.scm /usr/local/chicken/5/share/levenshtein-sequence-interface.scm /usr/local/chicken/5/share/levenshtein-sequence-utf8.scm /usr/local/chicken/5/share/levenshtein-cost-number.scm /usr/local/chicken/5/share/levenshtein-cost-interface.scm /usr/local/chicken/5/share/levenshtein-cost-interface.types.scm

Changes and comments

[2021-09-09 01:50:07 UTC] kon wrote:

(oops - may not be a prefix) #483 $ srcdiff ../multi-install-prefix/egg-compile.scm egg-compile.scm 56,65c56 < ;returns s2 w/o any, one, leading s1 < (define (string-prefix-strip s1 s2) < (let loop ((ls1 (string->list s1)) (ls2 (string->list s2))) < (cond ((null? ls1) (list->string ls2)) < ((null? ls2) s2) < ((char=? (car ls1) (car ls2)) (loop (cdr ls1) (cdr ls2))) < (else s2)) ) ) < < (define strip-install-prefix) < (define override-prefix)

---

> (define override-prefix 67,72d57 < (set! strip-install-prefix < (lambda (pn) < (if prefix < (string-prefix-strip prefix pn) < pn))) < (set! override-prefix 156c141,142 < (strip-install-prefix dest*))))))

---

> dest*))))) >

[2023-11-06 23:27:16 UTC] felix changed status from new to closed

[2023-11-06 23:27:16 UTC] felix set resolution to fixed

[2023-11-06 23:27:16 UTC] felix wrote:

I've seen this, but it seems to be fixed in the current dev version