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=r9xG+brj7KJ8UMqwrWZ91gZMMzVo/sL7ziBdDycuZZk=;
        b=njRsoXDViEifsfdH0upkrUDHe3Q5PIH9JZK4cxZRc41SIIw2YMd3eK5WjEryYPcJin
         1+ZaM16Lzwi4mhNwZ+6oj0H3Ys0tphjaGpPO6Xjo1WHRtZZDqPVZq27o2YAmTa5gpZo3
         jt/7+NypxIKpn76E4P7rWIn1HPim1Vm8939KTa3aclny1c45//A1KlZRkdgGXvUkC0B4
         gPkxfkjBYlRuC9altc7TX+wmM7tAX3Cg2Qr3gRST2msk66BurCsWHPISLI0gMu7VOSGF
         crtbx0LQnxJcqVAMPoVlAClPi7k7OU0r3EcqCXpyoKo9XPYidCk2eQ4+4gp9OrnBFvcV
         a6Cw==
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=r9xG+brj7KJ8UMqwrWZ91gZMMzVo/sL7ziBdDycuZZk=;
        b=M7N3B0oHKv6IAdWuIcmjnFTkTmAmTl7VBuRyVMiQUZghTU5AVdY5f+gv7/hraY/i+m
         P5k5qD7Uf141kLQ4SBQyLzKM4EXbrMFJHQrFSHGF4ena50ezKgnFZF063k2i1WehQBa8
         +cvN2Ho4bx4JNiRSDla85mRN+sFLhr/W7NT+0/JPwVK6kSydlcSk2MBkCEfCh+sdOZWA
         7n6WymvSb9jwS9riPbuYYRyGax3MUCGteh/Vv4iaKO+FVZD64Kst8BSeW5xz/1vsYuP8
         TLzC83zFO2W2vnfBhw9AZ7U+UdJSbJzJbwSWgOH/G7ClKWz48zlfb8zBi8l9/AxCUvsu
         3Ulw==
X-Gm-Message-State: AOAM5339HxvM3S5HvCnWKRvr0bHcoxK9JGGHC06mr6ZU8i96yFT6fhNB
	jFfGbCXeo2FQfn/0JL4lGqolYykVCjE=
X-Google-Smtp-Source: ABdhPJyRKvZww1YsZFhObvcU+D48wNy5QeP/JrTX1excrDGrwv6sZ1LSk/rWRZxZykj6WgiOIOdLsA==
X-Received: by 2002:a2e:7d02:: with SMTP id y2mr1824205ljc.393.1619085384965;
        Thu, 22 Apr 2021 02:56:24 -0700 (PDT)
From: "Vladimir Zhbanov (vzhbanov AT gmail DOT com) [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com>
X-Google-Original-From: Vladimir Zhbanov <vzh AT lepton>
Date: Thu, 22 Apr 2021 12:56:22 +0300
To: geda-user AT delorie DOT com
Subject: Re: [geda-user] system wide config
Message-ID: <YIFIRh9ENXpQgVmB@lepton>
Mail-Followup-To: geda-user AT delorie DOT com
References: <20210417120805 DOT 37DAA824EAA0 AT turkos DOT aspodata DOT se>
 <YHrjzpKEMOvXREuY AT lepton>
 <20210417144426 DOT E4238824EAA0 AT turkos DOT aspodata DOT se>
 <YH4IPPe+k4MZJJkm AT lepton>
 <20210420004032 DOT 30A6980770A6 AT turkos DOT aspodata DOT se>
 <YH6T5zzhba9AqGX9 AT lepton>
 <20210420143556 DOT CC46580770AF AT turkos DOT aspodata DOT se>
 <20210420144634 DOT 1456180770AF AT turkos DOT aspodata DOT se>
 <20210422091632 DOT 7178ff90 AT demon>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Disposition: inline
In-Reply-To: <20210422091632.7178ff90@demon>
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

On Thu, Apr 22, 2021 at 09:16:32AM +0300, dmn (graahnul DOT grom AT gmail DOT com) [via geda-user AT delorie DOT com] wrote:
> On Tue, 20 Apr 2021 16:46:34 +0200 (CEST)
> "karl AT aspodata DOT se [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com>
> wrote:
> 
> >  I think the following will suit me fine in the future.
> > 
> > (use-modules (ice-9 popen))
> > (use-modules (ice-9 rdelim))
> > 
> > (define (readlink file)
> >   (let*
> >    (
> >     (port (open-input-pipe (string-append "readlink -f " file)))
> >     (str  (read-line port))
> >     (close-pipe port)
> >    )
> >    str
> >   )
> > )
> > 
> > (define MK (readlink "Makefile"))
> > (define INC (dirname MK))
> > (define TOP (dirname INC))
> > ;(display MK)  (newline)
> > ;(display INC) (newline)
> > ;(display TOP) (newline)
> > 
> >  Thanks for the ideas and help.
> > 
> > Regards,
> > /Karl Hammar
> > 
> 
> Karl, first of all, I'd like to thank you for not using the "dog's
> breakfast coding style" (TM)! :-)
> Being not an expert in the bloody lisp programming language, I wonder
> does the call "(close-pipe port)" inside the "let" clause get executed?
> (It looks like a variable definition).

It's easy to check, use REPL and something like

(format #t "Closed? ~A\n" (port-closed? port))

before resulting 'str'.