X-Authentication-Warning: delorie.com: mail set sender to geda-user-bounces using -f X-Recipient: geda-user AT delorie DOT com X-Original-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:date:to:subject:message-id:mail-followup-to:references :mime-version:content-disposition:in-reply-to; bh=yt8BidPCq0UO2238Gp7m8QMK57hD3ZwUzfmdaFU/wfk=; b=s7KVPX/gxiLGlGzlj9fYfOr/WDP1lrXAMdShSq1M9B6lDW6GN5ihFqEmfCEXuMqjXE 7KPecl0ssbKDv9S3v5w8zD6sYYR85jYE4JKnorvuphetlbHp8J0L93wz+M56G2taEio7 Evhnv7LE1KmRsc8j2F+/Wh9gcJa3k27keAdIJ/Gy9TodBSG4f+UjKPNuLNM8ccmB9KWv su4Lq893paNkCTOC8rzD+EyVTv0cERLNzWvprquT39ctyOKcVFx20DrratT7jFhyjEGH loI+u49FF/AcMD3Op+LxPmHsGzjZ5kE1HAW+dSNWlKLQVl/hTowmRnQfrdBXdIuDJ4uP +AAA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:date:to:subject:message-id:mail-followup-to :references:mime-version:content-disposition:in-reply-to; bh=yt8BidPCq0UO2238Gp7m8QMK57hD3ZwUzfmdaFU/wfk=; b=O7T5NEj30H0upfoEywN7eVCWMVpte4kYqPSNBNDkk+CHrngXTFVaBp2Xx6xUzpOqtX 4uVUDUAMzQNqI8wIBS0I0GOz4NwgolrEr00ck26tH0LYp9BHaYBWVpHsUzL1zgHoMYjM ZgdNq3avjwviXeriN+fsLF1EUpHqCXWMCvwttIqb5M3oO+q+4Uv7Zr2rmPaOfVng3JN2 IXMSUJr18p8CmQc0s8jsjim5CFz7kyo5astNaa4Kb3ldHkY9Lt5utNAP6m5edKNe8buV QvVY2IqJWULyommzrWNz1qNsA5zDjq0ZPDWYBa5PqmnzZu3e8wHyY8xBsfwIMrZguCN2 cjTw== X-Gm-Message-State: AOAM531XPFHgLu5LV/SsUZLMdlvT0hyu68XwfsMPmbx4TkyOhsTgZeyI +MlvtwFA4urYBzEKxYznUq75ntkszmUrKg== X-Google-Smtp-Source: ABdhPJxPZkUA0X8dD7g+kzIdR6xSCP+ed5/NAf199DFuaSJXB8UnecKFlPLKoESoGMgMDtD9esqf7g== X-Received: by 2002:a2e:b4d0:: with SMTP id r16mr4393525ljm.114.1625333753605; Sat, 03 Jul 2021 10:35:53 -0700 (PDT) From: "Vladimir Zhbanov (vzhbanov AT gmail DOT com) [via geda-user AT delorie DOT com]" X-Google-Original-From: Vladimir Zhbanov Date: Sat, 3 Jul 2021 20:35:51 +0300 To: geda-user AT delorie DOT com Subject: Re: [geda-user] source-library-search Message-ID: Mail-Followup-To: geda-user AT delorie DOT com References: <20210703144758 DOT 4EA6983DA2A5 AT turkos DOT aspodata DOT se> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="BUUQjddS3rNZYnRQ" Content-Disposition: inline In-Reply-To: <20210703144758.4EA6983DA2A5@turkos.aspodata.se> Reply-To: geda-user AT delorie DOT com Errors-To: nobody AT delorie DOT com X-Mailing-List: geda-user AT delorie DOT com X-Unsubscribes-To: listserv AT delorie DOT com Precedence: bulk --BUUQjddS3rNZYnRQ Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Karl, On Sat, Jul 03, 2021 at 04:47:58PM +0200, karl AT aspodata DOT se [via geda-user AT delorie DOT com] wrote: > source-library-search duplicates the last element in its argument. > > /// > > If I have (in gafrc): > (define home (getenv "HOME")) > (source-library-search (build-path home "git/openhw/share/gschem")) > > I get (at startup, e.g. lepton-cli export): > ** (export:8307): CRITICAL **: 16:20:23.520: Invalid path "/home/karl/git/openhw/share/gschem/gschem/_connector" or source not readable. > > and similar lines, why the gschem/gschem duplicate ? > component-library-search and source-library works lika > a charm, why not source-library-search ? > > If I use "git/openhw/share", it duplicates "share". > If I use "git/openhw", it duplicates "openhw". > If I use "git/openhw/share/_sub_page", I get: > > Backtrace: > In ice-9/boot-9.scm: > 160: 7 [catch #t # ...] > In unknown file: > ?: 6 [apply-smob/1 #] > In ice-9/boot-9.scm: > 160: 5 [catch #t # ...] > In unknown file: > ?: 4 [apply-smob/1 #] > In /usr/local/share/lepton-eda/scheme/lepton/library.scm: > 135: 3 [source-library-search "/home/karl/git/openhw/share/_sub_page"] > 117: 2 [get-tree #f] > In ice-9/boot-9.scm: > 105: 1 [# match-error ...] > In unknown file: > ?: 0 [apply-smob/1 # match-error ...] > > ERROR: In procedure apply-smob/1: > ERROR: In procedure match: no matching pattern > > ** Message: 16:42:49.836: ERROR: Failed to load RC file [/home/karl/.config/lepton-eda/gafrc]: ERROR: no matching pattern > > ERROR: Failed to load RC file [/home/karl/.config/lepton-eda/gafrc]: ERROR: no matching pattern > > /// One more bug, thanks for reporting it! Attached is a patch to fix the issue (hopefully). Please let me know if it works on your system. > liblepton/scheme/lepton/library.scm > mentions set-library-contents as a replacement, but cannot find it. > Where is it ? It is "set-library-contents!" (with an exclamation mark), a would-be replacement for the function. For now, it is not exported so is not yet available for external code. (I cannot remember why :-)) -- Vladimir --BUUQjddS3rNZYnRQ Content-Type: text/x-diff; charset=utf-8 Content-Disposition: attachment; filename="0001-lepton-Fix-source-library-search.patch" From a4238993ca6cf16e20bd803b794b6098f3c445ba Mon Sep 17 00:00:00 2001 From: Vladimir Zhbanov Date: Sat, 3 Jul 2021 18:42:30 +0300 Subject: [PATCH] lepton: Fix source-library-search(). --- liblepton/scheme/lepton/library.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/liblepton/scheme/lepton/library.scm b/liblepton/scheme/lepton/library.scm index 5f6ff339f..6d5f642cd 100644 --- a/liblepton/scheme/lepton/library.scm +++ b/liblepton/scheme/lepton/library.scm @@ -131,7 +131,7 @@ set-library-contents! instead." source library. This procedure is legacy and should be avoided in new code. Use set-library-contents! instead." (map (lambda (x) (source-library - (string-append path file-name-separator-string x))) + (string-append (dirname path) file-name-separator-string x))) (get-tree (file-system-tree path)))) -- 2.30.2 --BUUQjddS3rNZYnRQ--