[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2075411 3/3: Fix regexp snags in org
From: |
Mattias Engdegård |
Subject: |
master 2075411 3/3: Fix regexp snags in org |
Date: |
Thu, 30 Sep 2021 11:16:54 -0400 (EDT) |
branch: master
commit 2075411edbad954c0fdf2aa141757d834a6708b7
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
Fix regexp snags in org
* lisp/org/org-element.el (org-element-citation-key-re):
* lisp/org/ox-org.el (org-org-identity):
Remove repeated chars in alternatives.
* lisp/org/ob-java.el (org-babel-execute:java):
Remove superfluous backslash.
* lisp/org/ob-java.el (org-babel-java--main-re)
(org-babel-java--any-method-re): Remove (0+ space) expressions
subsumed by adjacent expressions.
---
lisp/org/ob-java.el | 44 +++++++++++++++++++++++---------------------
lisp/org/org-element.el | 2 +-
lisp/org/ox-org.el | 2 +-
3 files changed, 25 insertions(+), 23 deletions(-)
diff --git a/lisp/org/ob-java.el b/lisp/org/ob-java.el
index 60ef33b..dd35387 100644
--- a/lisp/org/ob-java.el
+++ b/lisp/org/ob-java.el
@@ -96,27 +96,29 @@ like javac -verbose."
(group (1+ (in alnum ?_))) ; capture the
class name
(0+ space) ?{)
"Regexp for the class declaration.")
-(defconst org-babel-java--main-re (rx line-start (0+ space) "public"
- (1+ space) "static"
- (1+ space) "void"
- (1+ space) "main"
- (0+ space) ?\(
- (0+ space) "String"
- (0+ space) (1+ (in alnum ?_ ?\[ ?\]
space)) ; "[] args" or "args[]"
- (0+ space) ?\)
- (0+ space) (opt "throws" (1+ (in alnum ?_
?, ?. space)))
- ?{)
+(defconst org-babel-java--main-re
+ (rx line-start (0+ space) "public"
+ (1+ space) "static"
+ (1+ space) "void"
+ (1+ space) "main"
+ (0+ space) ?\(
+ (0+ space) "String"
+ (1+ (in alnum ?_ ?\[ ?\] space)) ; "[] args" or "args[]"
+ ?\)
+ (0+ space) (opt "throws" (1+ (in alnum ?_ ?, ?. space)))
+ ?{)
"Regexp for the main method declaration.")
-(defconst org-babel-java--any-method-re (rx line-start
- (0+ space) (opt (seq (1+ alnum) (1+
space))) ; visibility
- (opt (seq "static" (1+ space)))
; binding
- (1+ (in alnum ?_ ?\[ ?\]))
; return type
- (1+ space) (1+ (in alnum ?_))
; method name
- (0+ space) ?\(
- (0+ space) (0+ (in alnum ?_ ?\[ ?\]
?, space)) ; params
- (0+ space) ?\)
- (0+ space) (opt "throws" (1+ (in
alnum ?_ ?, ?. space)))
- ?{)
+(defconst org-babel-java--any-method-re
+ (rx line-start
+ (0+ space) (opt (seq (1+ alnum) (1+ space))) ; visibility
+ (opt (seq "static" (1+ space))) ; binding
+ (1+ (in alnum ?_ ?\[ ?\])) ; return type
+ (1+ space) (1+ (in alnum ?_)) ; method name
+ (0+ space) ?\(
+ (0+ (in alnum ?_ ?\[ ?\] ?, space)) ; params
+ ?\)
+ (0+ space) (opt "throws" (1+ (in alnum ?_ ?, ?. space)))
+ ?{)
"Regexp for any method.")
(defconst org-babel-java--result-wrapper "\n public static String
__toString(Object val) {
if (val instanceof String) {
@@ -192,7 +194,7 @@ replaced in this string.")
;; the dir to write the source file
(packagedir (if (and (not run-from-temp) packagename)
(file-name-as-directory
- (concat basedir (replace-regexp-in-string "\\\." "/"
packagename)))
+ (concat basedir (replace-regexp-in-string "\\." "/"
packagename)))
basedir))
;; the filename of the source file
(src-file (concat packagedir classname ".java"))
diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el
index ed684df..f8334cc 100644
--- a/lisp/org/org-element.el
+++ b/lisp/org/org-element.el
@@ -118,7 +118,7 @@
;; to current setup.
(defconst org-element-citation-key-re
- (rx "@" (group (one-or-more (any word "-.:?!`'/*@+|(){}<>&_^$#%&~"))))
+ (rx "@" (group (one-or-more (any word "-.:?!`'/*@+|(){}<>&_^$#%~"))))
"Regexp matching a citation key.
Key is located in match group 1.")
diff --git a/lisp/org/ox-org.el b/lisp/org/ox-org.el
index 11d9c09..fcf8768 100644
--- a/lisp/org/ox-org.el
+++ b/lisp/org/ox-org.el
@@ -141,7 +141,7 @@ CONTENTS and INFO are ignored."
CONTENTS is its contents, as a string or nil. INFO is ignored."
(let ((case-fold-search t))
(replace-regexp-in-string
- "^[ \t]*#\\+attr_[-_a-za-z0-9]+:\\(?: .*\\)?\n" ""
+ "^[ \t]*#\\+attr_[-_a-z0-9]+:\\(?: .*\\)?\n" ""
(org-export-expand blob contents t))))
(defun org-org-headline (headline contents info)