]> Savannah Git Hosting - gnulib.git/commitdiff
uniname/uniname: Modernize gen-uninames.lisp.
authorBruno Haible <bruno@clisp.org>
Tue, 2 Jul 2024 11:20:19 +0000 (13:20 +0200)
committerBruno Haible <bruno@clisp.org>
Tue, 2 Jul 2024 11:20:19 +0000 (13:20 +0200)
Reported by Simon Josefsson in
<https://lists.gnu.org/archive/html/bug-gnulib/2024-07/msg00011.html>.

* lib/uniname/gen-uninames.lisp: Swap second and third parameter. Look
up clisp in $PATH.
* lib/gen-uni-tables.c: Update invocation.

ChangeLog
lib/gen-uni-tables.c
lib/uniname/gen-uninames.lisp

index abdba4716baccd23cdbf67163342a2b4db50034e..ac83778598abfbf91a678ca3a942d6ce35ae9ea1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2024-07-02  Bruno Haible  <bruno@clisp.org>
+
+       uniname/uniname: Modernize gen-uninames.lisp.
+       Reported by Simon Josefsson in
+       <https://lists.gnu.org/archive/html/bug-gnulib/2024-07/msg00011.html>.
+       * lib/uniname/gen-uninames.lisp: Swap second and third parameter. Look
+       up clisp in $PATH.
+       * lib/gen-uni-tables.c: Update invocation.
+
 2024-07-01  Bruno Haible  <bruno@clisp.org>
 
        Avoid some possibly wrong configure test results.
index 3ebcd833ffca3ba50868a527db3cd51140bd66ef..b4f16da5607ab0ad0067068109b58635963b1f9b 100644 (file)
@@ -12075,8 +12075,8 @@ main (int argc, char * argv[])
  *   && diff uniwbrk/wbrkprop_org.txt uniwbrk/wbrkprop.txt              \\
  *   && clisp -C uniname/gen-uninames.lisp                              \\
  *            /media/nas/bruno/www-archive/software/i18n/unicode/ftp.unicode.org/ArchiveVersions/15.1.0/ucd/UnicodeData.txt \\
- *            uniname/uninames.h                                        \\
  *            /media/nas/bruno/www-archive/software/i18n/unicode/ftp.unicode.org/ArchiveVersions/15.1.0/ucd/NameAliases.txt \\
+ *            uniname/uninames.h                                        \\
  *   && { sed -e 's/^/# /' -e 's/ $//' < /media/nas/bruno/www-archive/software/i18n/unicode/ftp.unicode.org/ArchiveVersions/license.txt; \\
  *        echo; \\
  *        cat /media/nas/bruno/www-archive/software/i18n/unicode/ftp.unicode.org/ArchiveVersions/15.1.0/ucd/NameAliases.txt; } \\
index 1b0c60cf049983621d519d13602e1fe23646a967..30191f2e8ea5ae7d0ab55d8d0d07c8c64b94a964 100755 (executable)
@@ -1,6 +1,7 @@
-#!/usr/local/bin/clisp -C
+#!/usr/bin/env -S clisp -C
 
-;;; Creation of gnulib's uninames.h from the UnicodeData.txt table.
+;;; Creation of gnulib's uninames.h from the UnicodeData.txt and NameAliases.txt
+;;; tables.
 
 ;;; Copyright (C) 2000-2024 Free Software Foundation, Inc.
 ;;; Written by Bruno Haible <bruno@clisp.org>, 2000-12-28.
@@ -48,8 +49,8 @@
   length                        ; number of words
 )
 
-(defun main (inputfile outputfile aliasfile)
-  (declare (type string inputfile outputfile aliasfile))
+(defun main (inputfile aliasfile outputfile)
+  (declare (type string inputfile aliasfile outputfile))
   #+UNICODE (setq *default-file-encoding* charset:utf-8)
   (let ((all-chars '())
         (all-chars-hashed (make-hash-table :test #'equal))