"Fossies" - the Fresh Open Source Software Archive

Member "mule-packages/lisp/edict/edict-english.el" (31 Jan 2002, 2099 Bytes) of archive /linux/misc/xemacs-mule-sumo-2010-07-27.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Lisp source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    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