From patchwork Mon Oct 14 17:30:22 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: "ashish.is--- via Guix-patches\" via" X-Patchwork-Id: 15737 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 6BA1D175A0; Mon, 14 Oct 2019 18:37:36 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, T_DKIM_INVALID,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.0 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTP id 274D417594 for ; Mon, 14 Oct 2019 18:37:36 +0100 (BST) Received: from localhost ([::1]:54716 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iK4Hn-0005hg-AE for patchwork@mira.cbaines.net; Mon, 14 Oct 2019 13:37:35 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:48979) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iK4BT-0005jp-Qf for guix-patches@gnu.org; Mon, 14 Oct 2019 13:31:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iK4BS-00020C-9W for guix-patches@gnu.org; Mon, 14 Oct 2019 13:31:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:32816) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1iK4BS-000207-5i for guix-patches@gnu.org; Mon, 14 Oct 2019 13:31:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1iK4BS-0003Sv-0U for guix-patches@gnu.org; Mon, 14 Oct 2019 13:31:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#37750] inputattach: Add baud rate option Resent-From: Tim Gesthuizen Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Mon, 14 Oct 2019 17:31:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 37750 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: To: 37750@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.157107424113285 (code B ref -1); Mon, 14 Oct 2019 17:31:01 +0000 Received: (at submit) by debbugs.gnu.org; 14 Oct 2019 17:30:41 +0000 Received: from localhost ([127.0.0.1]:41637 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iK4B6-0003SD-SI for submit@debbugs.gnu.org; Mon, 14 Oct 2019 13:30:41 -0400 Received: from lists.gnu.org ([209.51.188.17]:36025) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iK4B2-0003S1-1f for submit@debbugs.gnu.org; Mon, 14 Oct 2019 13:30:39 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:48942) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iK4Ax-0005G2-UW for guix-patches@gnu.org; Mon, 14 Oct 2019 13:30:35 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iK4Aw-0001ps-Mp for guix-patches@gnu.org; Mon, 14 Oct 2019 13:30:31 -0400 Received: from sonic302-21.consmr.mail.ir2.yahoo.com ([87.248.110.84]:41082) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1iK4Aw-0001oL-AE for guix-patches@gnu.org; Mon, 14 Oct 2019 13:30:30 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.de; s=s2048; t=1571074227; bh=4KRBj3owTALJwbu/i9GXLgpm036QBLI9CcTFpLGL6rU=; h=From:To:Subject:Date:From:Subject; b=Pq51aqZi37UZhZN8jIgkivGdNla0cF4OTJlNYPkg1M8L+X5DJ5SF2H4FWhx1SoDqQbwXojpLFr5bbrG08wPKQVpQWU3ttW3zIjRQWIydZu8ukAUhHX5mT+0LTtLl6CHe0MXgVpIdnFxUMp0zMbvwtU9h5JBGyXF9STJiAbJ6cLownvM4qP6gAYgpaC2NCPU7Zd75FGcUSR1pPaLL2vuaXOJ3GU1lNoYnqsEXZ0AnxAqRaK0n9k/VEZ85U8PDTOhgkZRNBrg2AA3NHUT2cx9XAx4NL+xSFroKaRsdqmUS1No3fHSKR9/OgmEGU0N+9P+3kLfC+ybwMaXK5Ovx9iqRiA== X-YMail-OSG: Vl4t3jcVM1n3cz9QnTtACcuCErpxoXHzok.PoT40lVGJFlXLGnL2b0vVtze3.tG ZQMQRIdBgeFqDkfs2DrJSi09noOIH8btcLBdrUhvJK0zib_0iTt.70fBwDalY0Q9vkluJhkUX_QF fg4_W5KgjLgnD63ugw8BIUp8iCM9qMnyK8nJ_dUINPr7Q5phwGoMGJbmbF2RIxADAT_MUozb5SFA Ehd.qSaJa1J4NzRiodQzQW4tHapMXl1ZYSXx1HtAF44R74jUbZyOuPPFwXSAB6W.rHEwfJS8fZsd r0.oQ38grH3P9ADAa3MU51GedT1aHs1sGoUYW3ZlscGhDKyBAmu6N13ZKEHgeFXF0LUF83kH24aN IFcdtbansPp_EocbPv95fkYK8bCA48slrug6vp_F1RU6hEv3llmQrlWLV5KdAKXy.fqlbbuy62Vh _5zTyI1lBO0GJrH_PdZeqNt26iYBDT_y0dk2XjR7HHdXDL1e3ANRDn6KqGkWEcMTW34IgW1ejLX_ dCKRQW0Tbjfh4WVH3eKwdeWit1bAqbbsQAVq2f.v1wsIhCMbVXi1Fh8rDUmpBc4CevvK9X9O8yCK _3r3zVWoR4Xqu8QXB7ap9.mSHJn8xXO9dfYKvVGnrIc656FbOCfZod62bg4xH7R709oP_5lE_GUz R4yqyS463LJgGwQ1rEUNW6c8uZTWccVC5u2iUV7BeISIVm57kXY6Qys3VVLoowVtYrV2PN_7SJy. jjhUWgfuZIAgE_HWz.6zjWd7OPXDUqscZqroe7hGUcyck6jvQaZq6.voc5BolKs7rwR5xksMjxa1 W_JaZugP9Glv9CuJfI5ZH69KwkjIn.mL1Hn6sDgq4vx7l3ZR8Lh0r5xtbTdBKkGFdzqkzV3cfrXK hKsKnGH_3Ze33Q01AZods8JvSZHQev2fVEzpwFfMot6eARSjFe.eX0DpZMYxtjb12NI_SSbTXRIR YK9C4yS.CAXSv0Tn1XTxyVYWUhJ5upqa_bcpMYNS_yHyQP06sa8HmXfeezdzhM_YoxxqmwWE7PJ7 m7PZ9TA7Go277DJoz6HrC3O76t3TG0qF33qi4TKPhHMiT50TKCpr2UGREh95NhrNH9g_3sBGqBXT A6RwqtzCgOmacoyjt0RpxCjm_PPX8lFyHolYzxEi0Hiyc.IlkYhFjfgKZ8jhBFplqojRO4nuRbRb aHbtq8.MyMbrYXWbFv6V0BDNTIMJp_lFRIpEc98V3ErGtvFst00zL14BS8lIVneAnU4LIKQC7j23 _.V7M7c1lHeN0LNVhQGPfmN5EQK_gndgbo4_.rrJqxAveFcZPbaeQvBI- Received: from sonic.gate.mail.ne1.yahoo.com by sonic302.consmr.mail.ir2.yahoo.com with HTTP; Mon, 14 Oct 2019 17:30:27 +0000 Received: by smtp416.mail.ir2.yahoo.com (Oath Hermes SMTP Server) with ESMTPA ID 419398f357d79d643817649e4361e83f; Mon, 14 Oct 2019 17:30:23 +0000 (UTC) User-agent: mu4e 1.2.0; emacs 26.3 Date: Mon, 14 Oct 2019 19:30:22 +0200 Message-ID: <87d0ezb5g1.fsf@yahoo.de> MIME-Version: 1.0 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [fuzzy] X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" Reply-to: Tim Gesthuizen via Guix-patches X-Patchwork-Original-From: Tim Gesthuizen via Guix-patches via From: "ashish.is--- via Guix-patches\" via" X-getmail-retrieved-from-mailbox: Patches Hi Guix, The attached patch adds a baud-rate option to the inputattach-service which is needed for some devices. It would be nice if someone could review and commit if the patch is fine. Tim. From 29bf34ead05c47a1d045dd60185c803dd6af204a Mon Sep 17 00:00:00 2001 From: Tim Gesthuizen Date: Thu, 10 Oct 2019 18:38:36 +0200 Subject: [PATCH] gnu: Add baud-rate parameter to inputattach-service * gnu/services/desktop.scm (inputattach-configuration): Add baud-rate field. (inputattach-shepherd-service): Add baud-rate to parameters when specified. --- gnu/services/desktop.scm | 32 ++++++++++++++++++++------------ 1 file changed, 20 insertions(+), 12 deletions(-) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index a32756e040..35320bdde2 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -1021,23 +1021,31 @@ as expected."))) (default "wacom")) (device inputattach-configuration-device (default "/dev/ttyS0")) + (baud-rate inputattach-configuration-baud-rate + (default #f)) (log-file inputattach-configuration-log-file (default #f))) (define inputattach-shepherd-service (match-lambda - (($ type device log-file) - (list (shepherd-service - (provision '(inputattach)) - (requirement '(udev)) - (documentation "inputattach daemon") - (start #~(make-forkexec-constructor - (list (string-append #$inputattach - "/bin/inputattach") - (string-append "--" #$type) - #$device) - #:log-file #$log-file)) - (stop #~(make-kill-destructor))))))) + (($ type device baud-rate log-file) + (let ((args (append (if baud-rate + (if (number? baud-rate) + (list "--baud-rate" (number->string baud-rate)) + (error "Expected baud-rate to be a number or #f" baud-rate)) + '()) + (list (string-append "--" type) + device)))) + (list (shepherd-service + (provision '(inputattach)) + (requirement '(udev)) + (documentation "inputattach daemon") + (start #~(make-forkexec-constructor + (cons (string-append #$inputattach + "/bin/inputattach") + (quote #$args)) + #:log-file #$log-file)) + (stop #~(make-kill-destructor)))))))) (define inputattach-service-type (service-type -- 2.23.0