;;; copyright.el --- Insert a Guix copyright.

;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>

;; This file is part of GNU Guix.

;; GNU Guix is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Guix is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This package provides skeleton to insert a copyright with `guix-copyright'.

;;; Code:

(define-skeleton guix-copyright
  "Insert a copyright by $USER notice at cursor."
  "FULL_NAME <MAIL_ADDRESS>: "
  comment-start
  ";; Copyright © " `(format-time-string "%Y") " "
  (or (format "%s <%s>" user-full-name user-mail-address) str)
  comment-end)

;;; copyright.el ends here
44461f97537364231ff213a84faadbfb5fe6'>refs</a><a class='active' href='/guix/log/gnu/build/dbus-service.scm'>log</a><a href='/guix/tree/gnu/build/dbus-service.scm?id=f09944461f97537364231ff213a84faadbfb5fe6'>tree</a><a href='/guix/commit/gnu/build/dbus-service.scm?id=f09944461f97537364231ff213a84faadbfb5fe6'>commit</a><a href='/guix/diff/gnu/build/dbus-service.scm?id=f09944461f97537364231ff213a84faadbfb5fe6'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/build/dbus-service.scm'>
<input type='hidden' name='id' value='f09944461f97537364231ff213a84faadbfb5fe6'/><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=f09944461f97537364231ff213a84faadbfb5fe6'>root</a>/<a href='/guix/log/gnu?id=f09944461f97537364231ff213a84faadbfb5fe6'>gnu</a>/<a href='/guix/log/gnu/build?id=f09944461f97537364231ff213a84faadbfb5fe6'>build</a>/<a href='/guix/log/gnu/build/dbus-service.scm?id=f09944461f97537364231ff213a84faadbfb5fe6'>dbus-service.scm</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/gnu/build/dbus-service.scm?id=f09944461f97537364231ff213a84faadbfb5fe6&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-05-06 17:12:45 +0200'>2023-05-06</span></td><td><a href='/guix/commit/gnu/build/dbus-service.scm?id=e88bf64e6fa61265dca81a799ce824f639a2875a'>services: dbus-service, secret-service: Do not cause (fibers) to be loaded.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/dbus-service.scm (sleep*): Pass #:ensure #f to 'resolve-module'.
* gnu/build/secret-service.scm (wait-for-readable-fd): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-10 23:52:33 -0400'>2022-06-10</span></td><td><a href='/guix/commit/gnu/build/dbus-service.scm?id=85b4dabd94d53f8179f31a42046cd83fc3a352fc'>services: jami: Modernize to adjust to Shepherd 0.9+ changes.</a><span class='msg-avail'>...<span class='msg-tooltip'>This partially fixes &lt;https://issues.guix.gnu.org/54786&gt;, allowing the 'jami'
and 'jami-provisioning' system tests to pass again.

In version 0.9.0, Shepherd constructors are now run concurrently, via
cooperative scheduling (Guile Fibers).  The Jami service previously relied on
blocking sleeps while polling for D-Bus services to become ready after forking
a process; this wouldn't work anymore since while blocking the service process
wouldn't be given the chance to finish starting.  The new reliance on Fibers
in Shepherd's fork+exec-command in the helper 'send-dbus' procedure also meant
that it wouldn't work outside of Shepherd anymore.  Finally, the
'start-service' Shepherd procedure used in the test suite would cause the Jami
daemon to be spawned multiple times (a bug introduced in Shepherd 0.9.0).

To fix/simplify these problems, this change does the following:

1. Use the Guile AC/D-Bus library for D-Bus communication, which simplify
things, such as avoiding the need to fork 'dbus-send' processes.

2. The non-blocking 'sleep' version of Fiber is used for the 'with-retries'
waiting syntax.

3. A 'dbus' package variant is used to adjust the session bus configuration,
tailoring it for the use case at hand.

4. Avoid start-service in the tests, preferring 'jami-service-available?' for
now.

* gnu/build/jami-service.scm (parse-dbus-reply, strip-quotes)
(deserialize-item, serialize-boolean, dbus-dict-&gt;alist)
(dbus-array-&gt;list, parse-account-ids, parse-account-details)
(parse-contacts): Delete procedures.
(%send-dbus-binary, %send-dbus-bus, %send-dbus-user, %send-dbus-group)
(%send-dbus-debug): Delete parameters.
(jami-service-running?): New procedure.
(send-dbus/configuration-manager): Rename to...
(call-configuration-manager-method): ... this.  Turn METHOD into a positional
argument.  Turn ARGUMENTS into an optional argument.  Invoke
`call-dbus-method' instead of `send-dbus', adjusting callers accordingly.
(get-account-ids, id-&gt;account-details, id-&gt;account-details)
(id-&gt;volatile-account-details, username-&gt;id, add-account remove-account)
(username-&gt;contacts, remove-contact, add-contact, set-account-details)
(set-all-moderators, username-&gt;all-moderators?, username-&gt;moderators)
(set-moderator): Adjust accordingly.
(with-retries, send-dbus, dbus-available-services)
(dbus-service-available?): Move to ...
* gnu/build/dbus-service.scm: ... this new module.
(send-dbus): Rewrite to use the Guile AC/D-Bus library.
(%dbus-query-timeout, sleep*): New variables.
(%current-dbus-connection): New parameter.
(initialize-dbus-connection!, argument-&gt;signature-type)
(call-dbus-method): New procedures.
(dbus-available-services): Adjust accordingly.
* gnu/local.mk (GNU_SYSTEM_MODULES): Register new module.
* gnu/packages/glib.scm (dbus-for-jami): New variable.
* gnu/services/telephony.scm: (jami-configuration)[dbus]: Default to
dbus-for-jami.
(jami-dbus-session-activation): Write a D-Bus daemon configuration file at
'/var/run/jami/session-local.conf'.
(jami-shepherd-services): Add the closure of guile-ac-d-bus and guile-fibers
as extensions.  Adjust imported modules.  Remove no longer used parameters.
&lt;jami-dbus-session&gt;: Use a PID file, avoiding the need for the manual
synchronization.
&lt;jami&gt;:  Set DBUS_SESSION_BUS_ADDRESS environment variable.  Poll using
'jami-service-available?' instead of 'dbus-service-available?'.
* gnu/tests/telephony.scm (run-jami-test): Add needed Guile extensions.  Set
DBUS_SESSION_BUS_ADDRESS environment variable.  Adjust all tests to use
'jami-service-available?' to determine if the service is started rather than
the now problematic Shepherd's 'start-service'.
</span></span></td><td>Maxim Cournoyer</td></tr>