วิธีการตรวจสอบว่าตัวละครปัจจุบันเป็นตัวอักษร

ฉันจะทราบได้อย่างไรว่าตัวละครปัจจุบันเป็นตัวอักษร (ตัวอักษรตัวอักษร) (เช่นเป็นของคลาสไวยากรณ์[:alpha:]ในความคิด regexp) ฉันต้องการเขียนฟังก์ชั่นง่าย ๆ ดังต่อไปนี้:

(defun test-letter () (interactive)
(if char-after-is-a-letter
    (message "This is a letter")
    (message "This is not a letter")
    )
)

อัปเดต น่าเสียดายที่สมมติฐานของฉันเกี่ยวกับความเท่าเทียมกันของคลาสของตัวอักษรและคลาสไวยากรณ์[:alpha:]ดูเหมือนจะเป็นเท็จ

ใช้คุณสมบัติถ่าน Unicode

สิ่งนี้ควรใช้งานได้:

(memq (get-char-code-property (char-after) 'general-category)
      '(Ll Lu Lo Lt Lm Mn Mc Me Nl))

looking-atเป็นโบนัสก็ควรจะเร็วกว่า

Emacs จะเก็บคุณสมบัติของอักขระทั้งหมดที่ระบุโดยมาตรฐาน Unicode get-char-code-propertyพวกเขาจะสามารถเข้าถึงได้ด้วย โดยเฉพาะgeneral-categoryสถานที่ให้บริการระบุตัวอักษรที่เป็นตัวอักษร ( Llเป็นตัวพิมพ์เล็กLuเป็นตัวพิมพ์ใหญ่และไม่ถามฉันว่าคนอื่น ๆ )

แก้ไข:คำตอบนี้ควรจะสมบูรณ์ใน 25.5 (ที่ข้อผิดพลาดได้รับการแก้ไข) สำหรับรุ่นเก่าใช้ตัวเลือกอื่น ๆ

สิ่งนี้ควรบอกคุณว่าถ่านปัจจุบันเป็นตัวอักษรและควรทำงานในภาษาใดก็ได้

 (looking-at-p "[[:alpha:]]")

ฉันคิดว่าคุณสามารถไปกับสิ่งนี้:

(defun test-letter ()
  (interactive)
  (let ((char (char-after)))
    (if (and (eq (char-syntax char) ?w)
             (or (> char ?9)
                 (< char ?1)))
        (message "This is a letter")
      (message "This is not a letter"))))

ปรับปรุง

สิ่งนี้มีประสิทธิภาพน้อยกว่า แต่ใกล้เคียงกับที่คุณต้องการ:

(defun test-letter ()
  (interactive)
  (if (looking-at "[a-z-A-Z]")
      (message "This is a letter")
    (message "This is not a letter")))

ในกรณีที่คุณมีความกังวลมากเกี่ยวกับตัวละครแห่งชาติและการรักษาที่แม่นยำของ Unicode ชั้นเรียนตัวอักษรแล้วทางออกเดียวที่ฉันสามารถที่จะหาเพื่อให้ห่างไกลเป็นงูหลามห้องสมุดregex ทั้งสองgrepและPerl(ฉันประหลาดใจที่สุด!) ทำงานไม่ถูกต้อง

\p{L}ดังนั้นการแสดงออกปกติคุณหลังจากเป็นหนึ่งในนี้: นี้เป็นที่รู้จักในฐานะรุ่นคุณสมบัติ Unicode ชวเลขเวอร์ชันเต็มหรือแม้กระทั่ง \p{Letter} ตัวเองเป็นชั้นคอมโพสิต แต่ฉันจะไม่ไปลงรายละเอียดอ้างอิงที่ดีที่สุดที่ฉันสามารถหาในเรื่องที่เป็นที่นี่p\{General_Category=Letter}Letter

Python library ไม่ได้มีอยู่แล้วในภาษา (เป็นอีกทางเลือกหนึ่งของreLibrary ในตัว) ดังนั้นคุณจะต้องติดตั้งตัวอย่างเช่น:

# pip install regex

จากนั้นคุณสามารถใช้มันได้เช่น:

import regex
>>> regex.match(ur'\p{L}+', u'۱۲۳۴۵۶۷۸۹۰')
>>> regex.match(ur'\p{L}+', u'абвгд')
<regex.Match object; span=(0, 5), match=u'\u0430\u0431\u0432\u0433\u0434'>
>>> regex.match(ur'\p{L}+', u'123')
>>> regex.match(ur'\p{L}+', u'abcd')
<regex.Match object; span=(0, 4), match=u'abcd'>
>>> 

คุณสามารถวางสคริปต์นี้ไว้ที่ไหนก็ได้ที่คุณสามารถเข้าถึงได้:

#!/usr/bin/env python
import regex
import sys

if __name__ == "__main__":
    for match in regex.finditer(ur'\p{L}+', sys.argv[1].decode('utf-8')):
        print match.string

และเรียกมันจาก Emacs อย่างนั้น (สมมติว่าคุณบันทึกสคริปต์นี้ไว้~/bin):

(defun unicode-character-p ()
  (interactive)
  (let* ((current (char-after (point)))
         (result (shell-command-to-string
                  (format "~/bin/is-character.py '%c'" current))))
    (message
     (if (string= result "") "Character %c isn't a letter"
        "Character %c is a letter")
     current)))