Optimize the ucd tables a bit.

Need to reconsider the boolean tables, which will be smaller and might be faster
as char sets.

diff --git a/src/etc/ucd-converter.scm b/src/etc/ucd-converter.scm
index f55b93c3099301bb945d33cee4a0bce686e475fc..074449eddbc7f1e7214f3d485a196a20021241d4 100644 (file)
--- a/src/etc/ucd-converter.scm
+++ b/src/etc/ucd-converter.scm
@@ -376,11 +376,9 @@ USA.
              "Upper"
              "WSpace"
              "gc"
-             "lc"
              "nt"
              "slc"
-             "suc"
-             "uc")))
+             "suc")))
 
 (define (generate-property-table prop-name)
   (let ((exprs (generate-property-table-code prop-name))
@@ -413,10 +411,13 @@ USA.
            (eq? 'comment (car expr))
           (pair? (cdr expr))
            (null? (cddr expr)))
-      (begin
-        (write-string ";;; " port)
-        (display (cadr expr) port))
+      (if output-comments?
+         (begin
+           (write-string ";;; " port)
+           (display (cadr expr) port)))
       (pp expr port)))
+
+(define output-comments? #f)
 \f
 (define (generate-property-table-code prop-name)
   (let ((prop-alist (read-prop-file prop-name))
@@ -472,7 +473,7 @@ USA.
                (map cdr prop-alist))
 
       (let loop
-          ((entries (expand-ranges (slice-prop-alist prop-alist '(5 8 4 4))))
+          ((entries (expand-ranges (slice-prop-alist prop-alist '(5 8 8))))
            (n-max 21))
        (hash-table/intern! table entries
          (lambda ()