From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Olivier Dion via General Guile related discussions Newsgroups: gmane.lisp.guile.user Subject: exit-hook never executed Date: Thu, 22 Sep 2022 12:25:45 -0400 Message-ID: <87r103v0ja.fsf@laura> Reply-To: Olivier Dion Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="37642"; mail-complaints-to="usenet@ciao.gmane.io" To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Thu Sep 22 19:05:02 2022 Return-path: Envelope-to: guile-user@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1obPdG-0009bf-1W for guile-user@m.gmane-mx.org; Thu, 22 Sep 2022 19:05:02 +0200 Original-Received: from localhost ([::1]:51202 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1obPdE-0007Oz-3M for guile-user@m.gmane-mx.org; Thu, 22 Sep 2022 13:05:00 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:53098) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1obP1U-000851-77 for guile-user@gnu.org; Thu, 22 Sep 2022 12:26:00 -0400 Original-Received: from smtp.polymtl.ca ([132.207.4.11]:44521) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1obP1R-00057i-HR for guile-user@gnu.org; Thu, 22 Sep 2022 12:25:59 -0400 Original-Received: from localhost (modemcable094.169-200-24.mc.videotron.ca [24.200.169.94]) by smtp.polymtl.ca (8.14.7/8.14.7) with ESMTP id 28MGPjuF021744 for ; Thu, 22 Sep 2022 12:25:50 -0400 DKIM-Filter: OpenDKIM Filter v2.11.0 smtp.polymtl.ca 28MGPjuF021744 X-Poly-FromMTA: (modemcable094.169-200-24.mc.videotron.ca [24.200.169.94]) at Thu, 22 Sep 2022 16:25:45 +0000 Received-SPF: pass client-ip=132.207.4.11; envelope-from=olivier.dion@polymtl.ca; helo=smtp.polymtl.ca X-Spam_score_int: -41 X-Spam_score: -4.2 X-Spam_bar: ---- X-Spam_report: (-4.2 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.io gmane.lisp.guile.user:18602 Archived-At: Hi, `exit-hook' seems to only be executed when in a REPL. Is there a way for it to be executed at the end of a none interactive program? My intend here is that I have a module that load a foreign extension and initialize its runtime so that other modules of that extension can be used. I then add a hook for finalizing the extension, which is important to save data. Here's the snippet: --8<---------------cut here---------------start------------->8--- (define-module (jami) #:use-module (system foreing-library)) (let* ((libjami (load-foreign-library "libguile-jami")) (init (foreign-library-function libjami "init")) (fini (foreign-library-function libjami "fini"))) (init) (add-hook! exit-hook fini)) --8<---------------cut here---------------end--------------->8--- So I guess the trivial solution would be to ask the user to manually call the `init' and `fini' procedure before using any procedures of the extension. Something like this: --8<---------------cut here---------------start------------->8--- (define-syntax-rule (with-jami body body* ...) (dynamic-wind init (lambda () body body* ...) fini)) --8<---------------cut here---------------end--------------->8--- But it would be nice to a have a hook for finalization like `exit-hook' that is hidden from the user. Though? -- Olivier Dion oldiob.dev