From 0daba6101a5413ec79b9feaf55b14413662dd41c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 9 Feb 2017 00:10:50 -0800 Subject: [PATCH] Optimize the ucd tables a bit. Need to reconsider the boolean tables, which will be smaller and might be faster as char sets. --- src/etc/ucd-converter.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/etc/ucd-converter.scm b/src/etc/ucd-converter.scm index f55b93c30..074449edd 100644 --- 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) (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 () -- 2.25.1