(gnus-score-customize): Don't use `format' on `error' arguments.

[bpt/emacs.git] / lisp / language / thai-word.el

;;; thai-word.el -- find Thai word boundaries

;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021

;; Author: Kenichi HANDA <handa@etl.go.jp>

;; Keywords: thai, word break, emacs

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

;; The used Thai word list has been taken from IBM's ICU4J project
;; (file `thai6.ucs', version 1.4, converted to TIS encoding, with
;; removal of three incorrect entries) to which the following license
;; applies:
;;
;;   COPYRIGHT AND PERMISSION NOTICE
;;
;;
;;   Copyright (c) 1995-2001 International Business Machines
;;   Corporation and others
;;
;;   All rights reserved.
;;
;;
;;   Permission is hereby granted, free of charge, to any person
;;   obtaining a copy of this software and associated documentation
;;   files (the "Software"), to deal in the Software without
;;   restriction, including without limitation the rights to use,
;;   copy, modify, merge, publish, distribute, and/or sell copies of
;;   the Software, and to permit persons to whom the Software is
;;   furnished to do so, provided that the above copyright notice(s)
;;   and this permission notice appear in all copies of the Software
;;   and that both the above copyright notice(s) and this permission
;;   notice appear in supporting documentation.
;;
;;   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;;   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
;;   OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;;   NONINFRINGEMENT OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE
;;   COPYRIGHT HOLDER OR HOLDERS INCLUDED IN THIS NOTICE BE LIABLE
;;   FOR ANY CLAIM, OR ANY SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES,
;;   OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
;;   PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
;;   TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
;;   PERFORMANCE OF THIS SOFTWARE.
;;
;;   Except as contained in this notice, the name of a copyright
;;   holder shall not be used in advertising or otherwise to promote
;;   the sale, use or other dealings in this Software without prior
;;   written authorization of the copyright holder.


;; This file implements an algorithm to find Thai word breaks using a
;; dictionary.  It is based on the C program `cttex' written by
;; Vuthichai Ampornaramveth <vuthi@nii.ac.jp>.


;; Table of Thai words.  It is a nested alist (see `nested-alist-p'),
;; which means that you can easily index the list character by
;; character.

(defvar thai-word-table
  (let ((table (list 'thai-words)))
    (dolist (elt
      ;;; The following is indented as this to minimize this file size.