cs.scm

;;; Gaucheの拡張文字クラス
(use util.match)

(pprint
 (let ()
   (define f
     (match-lambda
       ((name actual expected)
        (let ((b (equal? actual expected)))
          (and (not b) (list name b))))))
   (filter-map f
               `(
                 (alpha #[[:ALPHA:]] #[\p{L}])
                 (alnum #[[:ALNUM:]] #[\p{L}\p{Nd}])
                 (blank #[[:BLANK:]] #[\p{Zs}\u0009])
                 (cntrl #[[:CNTRL:]] #[\p{Cc}])
                 (digit #[[:DIGIT:]] #[\p{Nd}])
                 (graph #[[:GRAPH:]] #[\p{L}\p{N}\p{P}\p{S}])
                 (lower #[[:LOWER:]] #[\p{Ll}])
                 (print #[[:PRINT:]] #[\p{L}\p{N}\p{P}\p{S}\p{Z}\u0009-\u000d])
                 (punct #[[:PUNCT:]] #[\p{P}])
                 (space #[[:SPACE:]] #[\p{Z}\u0009-\u000d])
                 (upper #[[:UPPER:]] #[\p{Lu}])
                 (print~ #[[:PRINT:]] #[[:GRAPH:][:SPACE:]])
                 ))))