From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?UTF-8?B?Q8OpZHJpYyBDaMOpcGllZA==?= Newsgroups: gmane.emacs.devel Subject: Re: emacs: send break on serial port Date: Tue, 10 Jun 2014 13:13:43 +0200 Message-ID: <5396e869.cb4bb40a.408d.ffffbf19@mx.google.com> References: <5396acc9.06bdb40a.4966.45be@mx.google.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1402398860 1375 80.91.229.3 (10 Jun 2014 11:14:20 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 10 Jun 2014 11:14:20 +0000 (UTC) Cc: emacs-devel@gnu.org To: Andreas Schwab Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Jun 10 13:14:13 2014 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WuK0I-0007Nr-Bz for ged-emacs-devel@m.gmane.org; Tue, 10 Jun 2014 13:14:10 +0200 Original-Received: from localhost ([::1]:38367 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WuK0H-0001vm-OL for ged-emacs-devel@m.gmane.org; Tue, 10 Jun 2014 07:14:09 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41976) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WuK06-0001vL-4N for emacs-devel@gnu.org; Tue, 10 Jun 2014 07:14:07 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WuJzv-0000Fe-7F for emacs-devel@gnu.org; Tue, 10 Jun 2014 07:13:58 -0400 Original-Received: from mail-wi0-x230.google.com ([2a00:1450:400c:c05::230]:56660) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WuJzu-0000FR-Vq for emacs-devel@gnu.org; Tue, 10 Jun 2014 07:13:47 -0400 Original-Received: by mail-wi0-f176.google.com with SMTP id n3so3233214wiv.15 for ; Tue, 10 Jun 2014 04:13:45 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=message-id:date:from:to:cc:subject:in-reply-to:references :user-agent:mime-version:content-type:content-transfer-encoding; bh=uZkMeBYA18ucR8ET0z50nHXlVan9aphEJg06QvddvjM=; b=sjQ4ZtX1S5ugftDs+dT7nyJ2o+bTUdevkXUtthtYtN/KAOOJSN/VyFl972BpDxMJYy q+IJXF5bxHNrw/khJ9aQgUSCFHFaM25q473XpDNYjGNbxEBGnOKP+SFrl90zYtF9NkRU NVgvPL30x3oipqW7xKRKK/aURjWV9A5r15/GBviSJAixn2lD2qNqSOg9fOVmd9GGFwFk pVvAn/w9mZ/hCTB4lbUvaMDFmnnUhPlZN0X2bdU7+a5Ga8VyLK9EuY3jqDF5UhaF6xsT 61k+NFEgM/CRIf/6GRiRI52Exyh6AVhnagCbCyZp5Na1iVsztawI4/46cJfrf3/NF6Aw u8ew== X-Received: by 10.180.84.41 with SMTP id v9mr28810680wiy.1.1402398825891; Tue, 10 Jun 2014 04:13:45 -0700 (PDT) Original-Received: from Zorglub.gmail.com ([83.145.91.46]) by mx.google.com with ESMTPSA id e11sm20177494wiw.19.2014.06.10.04.13.44 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Tue, 10 Jun 2014 04:13:45 -0700 (PDT) In-Reply-To: User-Agent: Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (=?UTF-8?B?R29qxY0=?=) APEL/10.8 Emacs/24.3 (x86_64-unknown-linux-gnu) MULE/6.0 (HANACHIRUSATO) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2a00:1450:400c:c05::230 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:172436 Archived-At: At Tue, 10 Jun 2014 11:05:02 +0200, Andreas Schwab wrote: > process-send-break would be a better name. bf9d1518e58f8ffb2f009ad958a6e30f2037cd3f HEAD master Author: Cédric Chépied Date: Tue Jun 10 09:17:31 2014 +0200 Add a function to send a break via serial process This is useful to use sysrq keys 1 file changed, 19 insertions(+) src/process.c | 19 +++++++++++++++++++ Modified src/process.c diff --git a/src/process.c b/src/process.c index b8b8eaa..e1eea88 100644 --- a/src/process.c +++ b/src/process.c @@ -844,6 +844,24 @@ record_deleted_pid (pid_t pid, Lisp_Object filename) } +DEFUN ("process-send-break", Fprocess_send_break, Sprocess_send_break, 1, 1, 0, + doc: /* Send a break to the serial process PROCESS. +PROCESS may be a process, a buffer, the name of a process or buffer, or +nil, indicating the current buffer's process. */) + (register Lisp_Object process) +{ + register struct Lisp_Process *p; + + process = get_process (process); + p = XPROCESS (process); + + if (SERIALCONN1_P (p) && p->outfd >= 0) + ioctl(p->outfd, TCSBRK, 0); + + return Qnil; +} + + DEFUN ("delete-process", Fdelete_process, Sdelete_process, 1, 1, 0, doc: /* Delete PROCESS: kill it and forget about it immediately. PROCESS may be a process, a buffer, the name of a process or buffer, or @@ -7320,6 +7338,7 @@ The variable takes effect when `start-process' is called. */); defsubr (&Sprocessp); defsubr (&Sget_process); + defsubr (&Sprocess_send_break); defsubr (&Sdelete_process); defsubr (&Sprocess_status); defsubr (&Sprocess_exit_status); Regards, -- Cédric Chépied