Changeset 21960 in project


Ignore:
Timestamp:
12/13/10 16:30:59 (10 years ago)
Author:
Alan Post
Message:

genturfa'i: Add [:jbole'u:] character class, matching the Lojban alphabet.

Location:
release/4/genturfahi/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • release/4/genturfahi/trunk/bootstrap.scm

    r21950 r21960  
    484484            (morji-nunjavni-valsi "[:graph:]"))
    485485          (morji-nunjavni-samselpla
     486            samselpla-jbolehu
     487            (morji-nunjavni-valsi "[:jbole'u:]"))
     488          (morji-nunjavni-samselpla
    486489            samselpla-lower
    487490            (morji-nunjavni-valsi "[:lower:]"))

  • release/4/genturfahi/trunk/chicken-ext-peg.scm

    r21959 r21960  
    6868   samselpla-digit
    6969   samselpla-graph
     70   samselpla-jbolehu
    7071   samselpla-lower
    7172   samselpla-odigit

  • release/4/genturfahi/trunk/genturfahi.peg

    r21950 r21960  
    209209                 / "[:digit:]"   -> samselpla-digit
    210210                 / "[:graph:]"   -> samselpla-graph
     211                 / "[:jbole'u:]" -> samselpla-jbolehu
    211212                 / "[:lower:]"   -> samselpla-lower
    212213                 / "[:odigit:]"  -> samselpla-odigit

  • release/4/genturfahi/trunk/samselpla.scm

    r21950 r21960  
    306306  'char-set:graphic)
    307307
     308(define (samselpla-jbolehu)
     309  `(char-set-union
     310     (char-set-xor char-set:letter+digit (char-set #\q #\w))
     311     (char-set #\')))
     312
    308313(define (samselpla-lower)
    309314  'char-set:lower-case)
Note: See TracChangeset for help on using the changeset viewer.