Commits

Anonymous committed fc3b781

various fixes <87r8e8l2mh.fsf@tleepslib.sk.tsukuba.ac.jp>

  • Participants
  • Parent commits d75b644

Comments (0)

Files changed (5)

+2002-10-30  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* latin-unity-utils.el: Add progress messages for hardcoded charsets.
+
+	* Makefile: Implement latin-unity-tables as generated.
+	(REQUIRES): Add dired.
+	(check): Exhort testers to run tests by hand.
+	(AUTHOR_VERSION): Set to $(VERSION), this is the headwaters.
+
+2002-10-30  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* ChangeLog: Fix my bogus email.
+
+	* latin-unity.el (latin-unity-maybe-remap): Eliminate redundant
+	call to find-coding-system in latin-unity-base-name.  Canonicalize
+	CODESYS to base-name on entry.
+
+2002-10-29  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* latin-unity.texi: Fix style (usage of @samp).
+	(Usage): Update recommended usage of variables.
+	(Frequently Asked Questions): Two new FAQs.  Thanks, Didier!
+
 2002-10-29  Rendhalver [Peter Brown]  <rendhalver@xemacs.org>
 
 	* Makefile: (VERSION): XEmacs package 1.06 released.
 
-2002-10-28  Stephen J. Turnbull  <steve@tleepslib.sk.tsukuba.ac.jp>
+2002-10-28  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* latin-unity.texi (Theory of Operation): Fix bad Previous link.
 
-2002-10-25  Stephen J. Turnbull  <steve@tleepslib.sk.tsukuba.ac.jp>
+2002-10-25  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* (latin-unity-tables.el): Regenerate with Latin-7,8,10.
 
-2002-10-24  Stephen J. Turnbull  <steve@tleepslib.sk.tsukuba.ac.jp>
+2002-10-24  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* latin-unity-utils.el (latin-unity-dump-tables): Put creation
 	date information in a couple of useful places.
 	(Charsets and Coding Systems): Document	Latin 7, 8, and 10
 	support, Unicode support in 21.5, and importance of escape-quoted.
 
-2002-10-22  Stephen J. Turnbull  <steve@tleepslib.sk.tsukuba.ac.jp>
+2002-10-22  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* BLURB: Update for Latin-7 support.
 
 	(latin-unity-maybe-set-coding-system): New function using it.
 	(latin-unity-sanity-check): Use it.
 
-2002-10-15  Ville Skytt,Ad(B  <scop@xemacs.org>
+2002-10-15  Ville Skytt  <scop@xemacs.org>
 
 	* Makefile (srckit): Remove.
 
 
 # The XEmacs CVS version is canonical.  Keep versions n'sync.
 VERSION = 1.06
-AUTHOR_VERSION = 1.05
+AUTHOR_VERSION = $(VERSION)
 MAINTAINER = Stephen J. Turnbull <stephen@xemacs.org>
 PACKAGE = latin-unity
 PKG_TYPE = regular
 # The Mule-UCS, leim, and fsf-compat requires will go away at some point
-REQUIRES = mule-base mule-ucs leim fsf-compat
+REQUIRES = mule-base mule-ucs leim fsf-compat dired
 CATEGORY = mule
 
 ELCS = latin-unity.elc latin-unity-vars.elc latin-euro-input.elc \
        latin-unity-latin7.elc latin-latin7-input.elc latin-unity-latin9.elc \
        latin-unity-latin8.elc latin-unity-latin10.elc \
-       latin-unity-tables.elc latin-unity-utils.elc
+       latin-unity-utils.elc
 
 EXTRA_SOURCES = latin-unity-tests.el
 
 
 include ../../XEmacs.rules
 
-GENERATED += custom-load.elc
+GENERATED += $(AUTOLOAD_PATH)/custom-load.elc latin-unity-tables.elc
 
 ifeq ($(BUILD_WITHOUT_MULE),)
 
-all:: auto-autoloads.elc $(ELCS) custom-load.elc $(INFO_FILES)
+all:: $(GENERATED) $(ELCS) $(INFO_FILES)
 
 # Experimental rule to build latin-unity-tables.el.
-# Note: `make latin-unity-tables.elc' Just Works
-# Add latin-unity-tables.elc to GENERATED when it's well-tested.
 latin-unity-tables.el: latin-unity-vars.elc latin-unity-utils.elc
+	@echo "*** Warnings about ISO 8859/3 are OK; it doesn't use all code points. ***"
 	$(XEMACS) -batch -no-autoloads -l dired \
 		-eval '(setq load-path (cons (default-directory) load-path))' \
 		-l latin-unity-utils -f latin-unity-dump-tables
 
+clean:: tableclean
+
+tableclean:
+	rm -f latin-unity-tables.elc
+
+distclean:: tabledistclean
+
+tabledistclean:
+	rm -f latin-unity-tables.el
+
 # We'd like this to be utf-8, but then pre-21.5.6 would have to depend on
 # Mule-UCS
 # #### This is broken by latin-unity-tests.el.
 check: all
 	@echo "make check is currently broken :-/"
+	@echo "If you have an XEmacs core source tree, load tests/automated/test-harness"
+	@echo "and run M-x test-emacs-test-file RET latin-unity-tests RET by hand."
 #	xemacs -no-autoloads -batch \
 #		-eval "(setq load-path (cons \"`pwd`/\" load-path))" \
 #		-l latin-unity-vars -l latin-unity \

latin-unity-tables.el

 ;;; latin-unity-tables.el --- initialize latin-unity-equivalences
 ;; Do not edit --- automatically generated.
-;; Created: 2002 October 25
+;; Created: 2002 October 30
 (provide 'latin-unity-tables)
 (defconst latin-unity-equivalences
   (let ((table (make-char-table 'generic)))
     (put-char-table (make-char 'latin-iso8859-16 127) (vector #x1D1 (make-char 'latin-iso8859-1 127) nil nil nil (make-char 'latin-iso8859-9 127) nil (make-char 'latin-iso8859-14 127) (make-char 'latin-iso8859-15 127) (make-char 'latin-iso8859-16 127) nil nil nil) table)
     table)
   "Map a (Latin) Mule character to the set of character sets containing it.
-Created: 2002 October 25")
-(put 'latin-unity-equivalences 'creation-date-string "2002 October 25")
+Created: 2002 October 30")
+(put 'latin-unity-equivalences 'creation-date-string "2002 October 30")
 ;;; end of latin-unity-tables.el

latin-unity-utils.el

   ;; correctly (maybe because they're not built in?)
   ;; Latin-7 (ISO 8859/13)
   (when (find-coding-system 'iso-8859-13)
+    (message "Processing charset %s ..." 'iso-8859-13)
     (mapc (lambda (pair)
 	    (let ((ucs (cdr pair))
 		  (ch (make-char 'latin-iso8859-13 (car pair))))
 	    (#xF8 . #x0173) (#xF9 . #x0142) (#xFA . #x015B) (#xFB . #x016B)
 	    (#xFC . #x00FC) (#xFD . #x017C) (#xFE . #x017E) (#xFF . #x2019))))
   (when (find-coding-system 'iso-8859-14)
+    (message "Processing charset %s ..." 'iso-8859-14)
     (mapc (lambda (pair)
 	    (let ((ucs (cdr pair))
 		  (ch (make-char 'latin-iso8859-14 (car pair))))
 	    (#xF8 . #x00F8) (#xF9 . #x00F9) (#xFA . #x00FA) (#xFB . #x00FB)
 	    (#xFC . #x00FC) (#xFD . #x00FD) (#xFE . #x0177) (#xFF . #x00FF))))
   (when (find-coding-system 'iso-8859-15)
+    (message "Processing charset %s ..." 'iso-8859-15)
     (loop for i from #x20 to #x7F do
       (let* ((ch (make-char 'latin-iso8859-15 i)) ; multibyte dirty
 	     (ucs (+ i #x80)))
 				&optional present no-error)
   "Try to remap from BEGIN to END to CODESYS.  Return nil on failure.
 
-Return CODESYS on success.  CODESYS is a coding system or nil.
+Return CODESYS on success.  CODESYS is a real coding system or nil.
 FEASIBLE is a cons of bitvectors indicating the set of character sets which
 can represent all non-ASCII characters and ASCII characters, respectively,
 in the current buffer.
 Pass NO-ERROR to `latin-unity-remap-region'."
 
   ;; may God bless and keep the Mule ... far away from us!
+  ;; #### We can canonicalize here with impunity.  Transformations of the
+  ;; characters in the buffer will not change the representation of newline.
+  ;; It's the return value to -sanity-check that possibly needs EOL.
+  (when codesys (setq codesys (latin-unity-base-name codesys)))
   (when (memq codesys latin-unity-iso-8859-1-aliases)
     (setq codesys 'iso-8859-1))
 
     (when latin-unity-debug (message (format "%s" (list codesys gr))))
     (cond
      ((null codesys) nil)
-     ;; #### this (csn (csb (fcs cs))) brain-damage should be replaced by
-     ;; (latin-unity-ucs-p cs), etc!!
-     ((memq (latin-unity-base-name (find-coding-system codesys))
-	    latin-unity-ucs-list)
-      codesys)
+     ;; #### this should be replaced by (latin-unity-ucs-p cs), etc!!
+     ((memq codesys latin-unity-ucs-list) codesys)
      ;; this is just an optimization, as the next arm should catch it
      ;; note we can assume ASCII here, as if GL is JIS X 0201 Roman,
      ;; GR will be JIS X 0201 Katakana