From: John Darrington <jmd@gnu.org>
To: guix-devel@gnu.org
Cc: John Darrington <jmd@gnu.org>
Subject: [PATCH] gnu: Patch libxt's default search path.
Date: Fri, 2 Dec 2016 17:25:34 +0100 [thread overview]
Message-ID: <1480695934-679-1-git-send-email-jmd@gnu.org> (raw)
In-Reply-To: <87mvginesm.fsf@gnu.org>
* gnu/packages/patches/libxt-guix-search-paths.patch: New file.
* gnu/packages/xorg.scm (libxt) [source]: Add patch.
---
gnu/packages/patches/libxt-guix-search-paths.patch | 123 +++++++++++++++++++++
gnu/packages/xorg.scm | 3 +-
2 files changed, 125 insertions(+), 1 deletion(-)
create mode 100644 gnu/packages/patches/libxt-guix-search-paths.patch
diff --git a/gnu/packages/patches/libxt-guix-search-paths.patch b/gnu/packages/patches/libxt-guix-search-paths.patch
new file mode 100644
index 0000000..dfeea8a
--- /dev/null
+++ b/gnu/packages/patches/libxt-guix-search-paths.patch
@@ -0,0 +1,123 @@
+--- libXt-1.1.5/src/Intrinsic.c 2015-05-01 07:36:20.000000000 +0200
++++ Intrinsic.c 2016-12-02 13:30:22.642776165 +0100
+@@ -1303,21 +1303,98 @@
+ } else (void) strcpy(*rest, string);
+ }
+
+-/*
+- * default path used if environment variable XFILESEARCHPATH
+- * is not defined. Also substitued for %D.
+- * The exact value should be documented in the implementation
+- * notes for any Xt implementation.
++
++
++/*
++ Return the default search path for the function
++ XtResolvePathname to use if XFILESEARCHPATH is
++ not defined.
++
++ It returns the combination the set of values which are the 6 "stems" below,
++ prepended with "/run/current-system/profile", and $GUIX_PROFILE and
++ "$HOME/.guix-profile"
+ */
+-static const char *implementation_default_path(void)
++static const char *guix_default_path(void)
+ {
+-#if defined(WIN32)
+- static char xfilesearchpath[] = "";
+-
+- return xfilesearchpath;
+-#else
+- return XFILESEARCHPATHDEFAULT;
+-#endif
++ static const char *search_path_default_stem[6] = {
++ "/lib/X11/%L/%T/%N%C%S",
++ "/lib/X11/%l/%T/%N%C%S",
++ "/lib/X11/%T/%N%C%S",
++ "/lib/X11/%L/%T/%N%S",
++ "/lib/X11/%l/%T/%N%S",
++ "/lib/X11/%T/%N%S"
++ };
++
++#define SIZEOF_STEMS (strlen (search_path_default_stem[0]) \
++ + strlen (search_path_default_stem[1]) \
++ + strlen (search_path_default_stem[2]) \
++ + strlen (search_path_default_stem[3]) \
++ + strlen (search_path_default_stem[4]) \
++ + strlen (search_path_default_stem[5]))
++
++
++ int i;
++ const char *current_profile = "/run/current-system/profile";
++ char *home = getenv ("HOME");
++ char *guix_profile = getenv ("GUIX_PROFILE");
++
++ size_t bytesAllocd = SIZEOF_STEMS + 1;
++
++ /* This function is evaluated multiple times and the calling
++ code assumes that it is idempotent. So we must not allow
++ (say) a changed environment variable to cause it to return
++ something different. */
++ static char *path = NULL;
++ if (path)
++ return path;
++
++ bytesAllocd += 6 * (1 + strlen (current_profile));
++
++ if (guix_profile != NULL)
++ {
++ bytesAllocd += SIZEOF_STEMS;
++ bytesAllocd += 6 * (1 + strlen (guix_profile));
++ }
++
++ if (home != NULL)
++ {
++ bytesAllocd += SIZEOF_STEMS;
++ bytesAllocd += 6 * (1 + strlen(home) + strlen ("/.guix-profile"));
++ }
++
++ path = XtMalloc(bytesAllocd);
++ if (path == NULL) _XtAllocError(NULL);
++
++ memset (path, 0, bytesAllocd);
++
++ for (i = 0 ; i < 6 ; ++i)
++ {
++ strcat (path, current_profile);
++ strcat (path, search_path_default_stem[i]);
++ strcat (path, ":");
++ }
++
++ if (guix_profile != NULL)
++ for (i = 0 ; i < 6 ; ++i)
++ {
++ strcat (path, guix_profile);
++ strcat (path, search_path_default_stem[i]);
++ strcat (path, ":");
++ }
++
++ if (home != NULL)
++ for (i = 0 ; i < 6 ; ++i)
++ {
++ strcat (path, home);
++ strcat (path, "/.guix-profile");
++ strcat (path, search_path_default_stem[i]);
++ strcat (path, ":");
++ }
++
++ /* Remove final : */
++ path[strlen(path) - 1] = '\0';
++
++ return path;
+ }
+
+
+@@ -1345,7 +1422,7 @@
+ {
+ XtPerDisplay pd;
+ static const char *defaultPath = NULL;
+- const char *impl_default = implementation_default_path();
++ const char *impl_default = guix_default_path();
+ int idef_len = strlen(impl_default);
+ char *massagedPath;
+ int bytesAllocd, bytesLeft;
diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index 18271b5..71f3b2a 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -5302,7 +5302,8 @@ draggable titlebars and borders.")
".tar.bz2"))
(sha256
(base32
- "06lz6i7rbrp19kgikpaz4c97fw7n31k2h2aiikczs482g2zbdvj6"))))
+ "06lz6i7rbrp19kgikpaz4c97fw7n31k2h2aiikczs482g2zbdvj6"))
+ (patches (search-patches "libxt-guix-search-paths.patch"))))
(build-system gnu-build-system)
(outputs '("out"
"doc")) ;2 MiB of man pages + XML
--
2.1.4
next prev parent reply other threads:[~2016-12-02 16:25 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-11-25 19:08 [PATCH 1/4] gnu: Add XFILESEARCH path to profiles' environment John Darrington
2016-11-25 19:08 ` [PATCH 2/4] gnu: Add editres John Darrington
2016-11-27 21:22 ` Ludovic Courtès
2016-11-25 19:08 ` [PATCH 3/4] gnu: Remove wrappers from xfd and xfontsel John Darrington
2016-11-25 19:08 ` [PATCH 4/4] gnu: Xfig: Set XAPPLOADDIR John Darrington
2016-11-27 21:22 ` [PATCH 1/4] gnu: Add XFILESEARCH path to profiles' environment Ludovic Courtès
2016-11-28 13:19 ` John Darrington
2016-11-29 14:34 ` Ludovic Courtès
2016-11-29 18:16 ` John Darrington
2016-11-29 21:42 ` Ludovic Courtès
2016-11-30 5:36 ` John Darrington
2016-12-02 16:25 ` John Darrington [this message]
2016-12-04 21:19 ` [PATCH] gnu: Patch libxt's default search path Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1480695934-679-1-git-send-email-jmd@gnu.org \
--to=jmd@gnu.org \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.