From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Michael Albinus Newsgroups: gmane.emacs.devel Subject: Re: Return value of finished threads Date: Sat, 21 Jul 2018 11:28:31 +0200 Message-ID: <871sbxj5ts.fsf@gmx.de> References: <87h8kuq7kf.fsf@gmx.de> <83tvotzud3.fsf@gnu.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1532165198 9295 195.159.176.226 (21 Jul 2018 09:26:38 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 21 Jul 2018 09:26:38 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) Cc: Noam Postavsky , emacs-devel@gnu.org To: Eli Zaretskii Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Jul 21 11:26:34 2018 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fgo9q-0002LA-DL for ged-emacs-devel@m.gmane.org; Sat, 21 Jul 2018 11:26:34 +0200 Original-Received: from localhost ([::1]:51268 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fgoBx-0000ln-AT for ged-emacs-devel@m.gmane.org; Sat, 21 Jul 2018 05:28:45 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58989) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fgoBr-0000lR-2Y for emacs-devel@gnu.org; Sat, 21 Jul 2018 05:28:40 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fgoBn-0004LU-V0 for emacs-devel@gnu.org; Sat, 21 Jul 2018 05:28:39 -0400 Original-Received: from mout.gmx.net ([212.227.17.21]:47137) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fgoBn-0004LO-Kc; Sat, 21 Jul 2018 05:28:35 -0400 Original-Received: from detlef.gmx.de ([178.20.95.32]) by mail.gmx.com (mrgmx102 [212.227.17.168]) with ESMTPSA (Nemesis) id 0MBIAz-1fqwg11jhF-00AGkx; Sat, 21 Jul 2018 11:28:32 +0200 In-Reply-To: <83tvotzud3.fsf@gnu.org> (Eli Zaretskii's message of "Fri, 20 Jul 2018 20:31:52 +0300") X-Provags-ID: V03:K1:4ISkqv5hcwIiG87+g9Un5uFIgyGrj0/dbbOdz6H568nzOTOMapX lKcdE8iDAW5ZbV+6KgXGVl209esNn7+GebNJy6kDJ5h5l6EHsR+bYMyABoNWlLdxZxVEU2X 83FJOi9wsVyq8bCHjsM5u0E4+IGCNmN2UyRbiW54n0mg/IKGcfbr15MqCxgi8GWYfQDs+Ev j2sS1/wB1+NaGO9Dfn4iw== X-UI-Out-Filterresults: notjunk:1;V01:K0:G4gcrZxCzbk=:4amcp+G4WPvFeDL42yIN8+ 0HcCJH1tOixVKv9Mh3aWHNFYDanRCm8Na0PDSqoIF5afvoY1t6EYqiPcUCckB4oXpfe9tSLB3 pJX4BhhrNygNLBVWpMm+id3T6XNEfkc4iTeknJxiDQyz1DJaSQ/7OHLqm5fylvfCEaPTW9IoR ouHiuZyJtvZ+FQXVW4oGsziY4ANBXmlXU8f+iOQjYp8pYaSUUXp/wYcMOP9asVGbKhiZa4iKG XLfpH6W3uKIBAc0uccT3muT0VE4O0tlD174xCAtUOBH82yJFjSXdT9d214AukAciqaLTOOLlx qAik8S8PjUqaXkF39gPGirkDvjsczmlhI5M405YCGFjmW/8jeC+3qUzCnrbsmUdjC+xNL4m8b mS823peT6/gh4bBVpzGIt2cfop2G19sg22Uh//UvgUnq2FayqxvX9uR3LS7kOTZf9wy38wnCX NChuRPSFg70SZQ2B1XbkqCJJYSgtewEVbBm87/BDFuEeXGsjfToogu7Ek9vX18iu7+m9tooav JjP+FNMluuOobforgnFeeOmVE3Yj1zkUjB4OiLqGS0Xw+/G2LHoUelZrAfq7b8KYbFXcjY81R qCFWAJ6XxqLdH0syEAuEbIZBJ3IEg28cXT5smOeUE0ZIZI52daHUIJNDETwPgI2nZpckZ/sSY ustYElIXlghFlgV1tcZJhQ22eZg+CbaKYhHIL49RibZubzr9Dnv5pUOSSSfYyWZaldA7cx0Ld 5RINj10D5VxAaNm7ShX210vluaNvpTZGOUtM0leNtjKtpGAeX5RJaFvADUefZsxsZYvDanSM X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 212.227.17.21 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 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" Xref: news.gmane.org gmane.emacs.devel:227604 Archived-At: Eli Zaretskii writes: >> (require 'thunk) >> (defmacro thunk-delay-in-thread (&rest body) >> (declare (debug body)) >> (let ((result-var (make-symbol "result"))) >> `(let* ((,result-var nil) >> (thread (make-thread >> (lambda () >> (setq ,result-var ,(macroexp-progn body)))))) >> (thunk-delay (progn (thread-join thread) ,result-var))))) >> >> (let ((thunks >> (mapcar >> (lambda (x) (thunk-delay-in-thread >> (message "computing square of %d" x) (* x x))) >> (number-sequence 1 10)))) >> ;; Run this thread first, just to make things more interesting. >> (thunk-force (nth 5 thunks)) >> ;; Get all the values. >> (mapcar #'thunk-force thunks)) > > This sounds gross to me, FWIW. Yes. See my other mail for an implementation in threads.c. Best regards, Michael.