From 6a553f24439fe64fd3a2f0b5902f00590ca4241f Mon Sep 17 00:00:00 2001
From: Philip McGrath <philip@philipmcgrath.com>
Date: Thu, 4 Mar 2021 04:11:50 -0500
Subject: [PATCH] rktio: patch rktio_process for "/bin/sh" on Guix

Racket provides the functions `system` and `process`,
which execute shell commands using `sh` (or `cmd` on Windows).
Racket assumes that `sh` can be found at "/bin/sh",
which is not necessarily true on Guix.

This patch adds a special case for "/bin/sh" to `rktio_process`,
the C function that implements the core of `system`, `process`,
and related Racket functions.

If:

    1. The nonstandard but ubiquitous macro `_PATH_BSHELL` from
       <paths.h> is defined; and

    2. `rktio_process` is called with the exact path "/bin/sh"; and

    3. The file specified by `_PATH_BSHELL` exists;

then `rktio_process` will execute the file specified by `_PATH_BSHELL`
instead of "/bin/sh".

Checking that the path specified by `_PATH_B</td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=87d725ef715dcf1c54ee1c011f69257daf4ffe88'>refs</a><a class='active' href='/guix/log/.mailmap'>log</a><a href='/guix/tree/.mailmap?id=87d725ef715dcf1c54ee1c011f69257daf4ffe88'>tree</a><a href='/guix/commit/.mailmap?id=87d725ef715dcf1c54ee1c011f69257daf4ffe88'>commit</a><a href='/guix/diff/.mailmap?id=87d725ef715dcf1c54ee1c011f69257daf4ffe88'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/.mailmap'>
<input type='hidden' name='id' value='87d725ef715dcf1c54ee1c011f69257daf4ffe88'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=87d725ef715dcf1c54ee1c011f69257daf4ffe88'>root</a>/<a href='/guix/log/.mailmap?id=87d725ef715dcf1c54ee1c011f69257daf4ffe88'>.mailmap</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/.mailmap?id=87d725ef715dcf1c54ee1c011f69257daf4ffe88&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
              int flags)
 {
+  const char *command; /* PATCHED for Guix */
   rktio_process_result_t *result;
   intptr_t to_subprocess[2], from_subprocess[2], err_subprocess[2];
   int pid;
@@ -1333,6 +1336,18 @@ rktio_process_result_t *rktio_process(rktio_t *rktio,
   int i;
 #endif
 
+/* BEGIN PATCH for Guix */
+#if defined(_PATH_BSHELL)
+  command =
+      ((0 == strcmp(_guix_orig_command, "/bin/sh"))
+       && rktio_file_exists(rktio, _PATH_BSHELL))
+      ? _PATH_BSHELL
+      : _guix_orig_command;
+#else
+  command = _guix_orig_command;
+#endif
+/* END PATCH for Guix */
+
   /* avoid compiler warnings: */
   to_subprocess[0] = -1;
   to_subprocess[1] = -1;

base-commit: 9d228d16fb99c274c964e5bef93e97333888769f
-- 
2.32.0