From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Maxime Devos Newsgroups: gmane.lisp.guile.devel Subject: [PATCH v2 07/14] Define AT_REMOVEDIR and others when available. Date: Tue, 16 Nov 2021 11:06:30 +0000 Message-ID: <20211116110637.125579-8-maximedevos@telenet.be> References: <175c3a6572e832d84927937b309a3095cadf5702.camel@telenet.be> <20211116110637.125579-1-maximedevos@telenet.be> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="38176"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Maxime Devos To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Tue Nov 16 12:18:12 2021 Return-path: Envelope-to: guile-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1mmwTb-0009ff-PD for guile-devel@m.gmane-mx.org; Tue, 16 Nov 2021 12:18:11 +0100 Original-Received: from localhost ([::1]:53266 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mmwTa-0002XM-TK for guile-devel@m.gmane-mx.org; Tue, 16 Nov 2021 06:18:10 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:34244) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mmwRI-0006rS-V9 for guile-devel@gnu.org; Tue, 16 Nov 2021 06:15:48 -0500 Original-Received: from [2a02:1800:110:4::f00:d] (port=51824 helo=leibniz.telenet-ops.be) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mmwRH-0006W4-Dk for guile-devel@gnu.org; Tue, 16 Nov 2021 06:15:48 -0500 Original-Received: from baptiste.telenet-ops.be (baptiste.telenet-ops.be [IPv6:2a02:1800:120:4::f00:13]) by leibniz.telenet-ops.be (Postfix) with ESMTPS id 4Htjtg5QCmzMrHtS for ; Tue, 16 Nov 2021 12:06:51 +0100 (CET) Original-Received: from localhost.localdomain ([IPv6:2a02:1811:8c09:9d00:3c5f:2eff:feb0:ba5a]) by baptiste.telenet-ops.be with bizsmtp id Jz6j2600Q4UW6Th01z6qJ7; Tue, 16 Nov 2021 12:06:50 +0100 X-Mailer: git-send-email 2.30.2 In-Reply-To: <20211116110637.125579-1-maximedevos@telenet.be> DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=telenet.be; s=r21; t=1637060810; bh=CB9Txpq2K2nwdPgyHuYAkeCBxiMiXf+uE1ZwoR9peDo=; h=From:To:Cc:Subject:Date:In-Reply-To:References; b=NWOn7aSIV2KFilisaxGSuFBAPQ9Dh7Vrq/wlxgiwYvcJBVBBJzjYFJPN254CMy0uz 6oqRuMWYoAxyM5UCjdnIQ9Xf57uIll6Ju7sIiJStuvqwe2+6k+1BThi+Utt0Zj68Ob xvITcT7RA0Ek/cKdd8Z/9ibqv2gv3RNeSFkSb4sTIe1XXr6QKNtq8Sp3OdE4+VK3d1 Tl0MCZ1rWtrQ7nKubH/hlJ/KRDFwyvMvBqf4o2y7Qb2OmVO50RoHbaTLs1S2dPt3J8 4/QGOj5u0ypx2F1N5yxUdn5/QHsBm6Oq+Cm8ETNiUVK8Eq/ETZ9mnxd1u56NVhKPFf Rt8i0UEzwRjnA== X-Host-Lookup-Failed: Reverse DNS lookup failed for 2a02:1800:110:4::f00:d (failed) Received-SPF: pass client-ip=2a02:1800:110:4::f00:d; envelope-from=maximedevos@telenet.be; helo=leibniz.telenet-ops.be X-Spam_score_int: -12 X-Spam_score: -1.3 X-Spam_bar: - X-Spam_report: (-1.3 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:20948 Archived-At: * libguile/posix.c (scm_init_posix): Define (in Scheme) AT_REMOVEDIR and AT_EACCESS when defined (in C). --- libguile/posix.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/libguile/posix.c b/libguile/posix.c index bd7f40ca8..a6f7c9a0d 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -2503,6 +2503,12 @@ scm_init_posix () #ifdef AT_EMPTY_PATH scm_c_define ("AT_EMPTY_PATH", scm_from_int (AT_EMPTY_PATH)); #endif +#ifdef AT_REMOVEDIR + scm_c_define ("AT_REMOVEDIR", scm_from_int (AT_REMOVEDIR)); +#endif +#ifdef AT_EACCESS + scm_c_define ("AT_EACCESS", scm_from_int (AT_EACCESS)); +#endif #include "cpp-SIG.c" #include "posix.x" -- 2.30.2