X-Authentication-Warning: delorie.com: mail set sender to geda-user-bounces using -f
X-Recipient: geda-user AT delorie DOT com
X-Mailer: exmh version 2.8.0 04/21/2012 with nmh-1.7+dev
X-Exmh-Isig-CompType: repl
X-Exmh-Isig-Folder: inbox
From: "karl AT aspodata DOT se [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com>
To: geda-user AT delorie DOT com
Mail-Followup-To: geda-user AT delorie DOT com
Subject: Re: [geda-user] system wide config
In-reply-to: <20210420143556.CC46580770AF@turkos.aspodata.se>
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>
Comments: In-reply-to "karl AT aspodata DOT se [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com>
   message dated "Tue, 20 Apr 2021 16:35:56 +0200."
Mime-Version: 1.0
Content-Type: text/plain
Message-Id: <20210420144634.1456180770AF@turkos.aspodata.se>
Date: Tue, 20 Apr 2021 16:46:34 +0200 (CEST)
X-Virus-Scanned: ClamAV using ClamSMTP
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

 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