cgit.sxemacs.org Git - packages/blob - mule-packages/edict/edict-english.el

   1 ;;; edict-english.el --- English morphology rules for edict.el
   2
   3 ;; Copyright (C) 1991, 1992 Per Hammarlund (perham@nada.kth.se)
   4 ;; Copyright (C) 1998 Free Software Foundation, Inc.
   5
   6 ;; Author:      Per Hammarlund <perham@nada.kth.se>
   7 ;; Keywords:    mule, edict, dictionary
   8 ;; Version:     0.9.9
   9 ;; Adapted-by:  Stephen J. Turnbull <stephen@xemacs.org> for XEmacs
  10 ;; Maintainer:  Stephen J. Turnbull <stephen@xemacs.org>
  11
  12 ;;   This file is part of XEmacs.
  13
  14 ;;   XEmacs is free software; you can redistribute it and/or modify it
  15 ;;   under the terms of the GNU General Public License as published by
  16 ;;   the Free Software Foundation; either version 2, or (at your
  17 ;;   option) any later version.
  18
  19 ;;   XEmacs is distributed in the hope that it will be useful, but
  20 ;;   WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ;;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  22 ;;   General Public License for more details.
  23 ;;
  24 ;;   You should have received a copy of the GNU General Public License
  25 ;;   along with XEmacs; if not, write to the Free Software Foundation,
  26 ;;   Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  27
  28 ;;; Commentary:
  29
  30 ;; Some code that looks for translations of english and japanese using the
  31 ;; EDICTJ Public Domain japanese/english dictionary.
  32
  33 ;; Written by Per Hammarlund <perham@nada.kth.se>
  34 ;; Morphology and private dictionary handling/editing by Bob Kerns
  35 ;; <rwk@crl.dec.com>
  36 ;; Helpful remarks from Ken-Ichi Handa <handa@etl.go.jp>.
  37 ;; The EDICTJ PD dictionary is maintained by Jim Breen
  38 ;; <jwb@monu6.cc.monash.edu.au>
  39
  40 ;; English morphological rules
  41
  42 ;;; To do:
  43
  44 ;;; Changelog:
  45
  46 ;; 1998-03-27  Stephen Turnbull  <stephen@xemacs.org>
  47 ;;        (created):  broken out from monolithic edict.el
  48
  49 ;;; Code:
  50
  51 (provide 'edict-english)
  52
  53 (require 'edict-morphology)
  54
  55 (define-edict-rule english-plural
  56   "\\([^i][^e]\\|i[^e]\\|[^i]e\\)\\(s\\)$"
  57   (english english-noun)
  58   edict-subst-affix edict-identity edict-ignore)
  59
  60 (define-edict-rule english-plural-ies
  61   "\\(ies\\)$"
  62   (english english-noun)
  63   edict-subst-affix "y")
  64
  65 ;;; edict-english.el ends here