From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Marius Bakke Newsgroups: gmane.lisp.guile.devel Subject: [PATCH] getopt-long permits numbers for short options. Date: Tue, 5 Sep 2023 14:04:54 +0800 Message-ID: <20230905060454.16247-1-marius@gnu.org> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="37605"; mail-complaints-to="usenet@ciao.gmane.io" To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Tue Sep 05 08:05:29 2023 Return-path: Envelope-to: guile-devel@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 1qdPBp-0009b4-4q for guile-devel@m.gmane-mx.org; Tue, 05 Sep 2023 08:05:29 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qdPBR-0001AN-TJ; Tue, 05 Sep 2023 02:05:05 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qdPBQ-0001AD-1F for guile-devel@gnu.org; Tue, 05 Sep 2023 02:05:04 -0400 Original-Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qdPBP-00044P-Mp for guile-devel@gnu.org; Tue, 05 Sep 2023 02:05:03 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:Subject:To:From:in-reply-to: references; bh=PNcj/L9za37rEn0DzCQ+vt27oLdgO0OYY2eQZdaJAiQ=; b=ESXAH+mF8JG+7Z DH2pveevyYsapPlrAr7QvwpnPTCfhq6fTcgfu8no7BfTudseeV53Eg6yl6ew67Hx5RR3L1cpdiAxX 07LLyVpYeeTP0puPU1YbUnjPdcVTGDmF5RG5mJiSBJYQEINV5V77RSi24BACrDo98rgVGmnA5HPZR lZj+1p2EbYUKBD6Yfc/7VkCjBY7BZ2VVGa1MHm9qZGyB8q3JBgHc28UBr1WOOSKHHdrHs2eo8ySTk L8xJMvqwet1iuFkAglAMY8cp4MIJ/8JyINBefZv4aadOyr3xJueTMcFetjjrvK+vj1UkfJyE0IRhG iwSYswJkG6GDG7fjND3A==; X-Mailer: git-send-email 2.41.0 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.lisp.guile.devel:21939 Archived-At: * module/ice-9/getopt-long.scm (short-opt-rx): Add 0-9. --- module/ice-9/getopt-long.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/ice-9/getopt-long.scm b/module/ice-9/getopt-long.scm index 18b235390..0077183da 100644 --- a/module/ice-9/getopt-long.scm +++ b/module/ice-9/getopt-long.scm @@ -221,7 +221,7 @@ ((string=? "--" (car no)) (cons (reverse yes) (cdr no))) (else (loop (cons (car no) yes) (cdr no)))))) -(define short-opt-rx (make-regexp "^-([a-zA-Z]+)(.*)")) +(define short-opt-rx (make-regexp "^-([a-zA-Z0-9]+)(.*)")) (define long-opt-no-value-rx (make-regexp "^--([^=]+)$")) (define long-opt-with-value-rx (make-regexp "^--([^=]+)=(.*)")) -- 2.41.0