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

   1 ;;; edict-japanese.el --- Japanese 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 ;; Japanese 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-japanese)
  52
  53 (require 'edict-morphology)
  54
  55 ;; Strip "\e$B$$$^$9\e(B"
  56 (define-edict-rule \e$B!V$$$^$9!W$r:o=|$9$k\e(B
  57   (concat "\\(" edict-category-c "\\|" edict-category-h
  58           "\\)\\([\e$B$$$-$.$7$A$K$S$_$j\e(B]\\)\\(\e$B$^\e(B\\(\e$B$9\e(B\\|\e$B$;$s\e(B\\)\\)$")
  59   "\e$B$^$;$k\e(B$"
  60   edict-subst-modified-affix
  61   edict-identity ()
  62   edict-modify-verb (1 2)
  63   edict-ignore ())
  64
  65 (define-edict-rule \e$B!V$^$9!W$r:o=|$9$k\e(B
  66   (concat "\\(" edict-category-c
  67           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$^\e(B\\(\e$B$9\e(B\\|\e$B$;$s\e(B\\)\\)$")
  68   "\e$B$^$;$k\e(B$"
  69   edict-subst-affix edict-identity "\e$B$k\e(B")
  70
  71 (define-edict-rule \e$B!VMh$^$9!W$NFCJL%k!<%k\e(B
  72   "\\(\e$BMh$^\e(B\\(\e$B$9\e(B\\|\e$B$;$s\e(B\\)\\)$"
  73   ()
  74   edict-subst-affix "\e$BMh$k\e(B")
  75
  76 (define-edict-rule \e$B!V$-$^$9!W$NFCJL%k!<%k\e(B
  77   "\\(^\\|\e$B$F\e(B\\|\e$B$s$G\e(B\\)\\(\e$B$-$^\e(B\\(\e$B$9\e(B\\|\e$B$;$s\e(B\\)\\)$"
  78   "\e$B$^$;$k\e(B$"
  79   edict-subst-modified-affix
  80   edict-identity ()
  81   edict-subst ("\e$B$/$k\e(B"))
  82
  83 (define-edict-rule \e$B!V$7$^$9!W$NFCJL%k!<%k\e(B
  84   "\\(\e$B$7$^\e(B\\(\e$B$9\e(B\\|\e$B$;$s\e(B\\)\\)$"
  85   ()
  86   edict-subst-affix "\e$B$9$k\e(B")
  87
  88 ;; The several cases of \e$B$F!?$C$F\e(B.
  89 ;;  Note either pattern may generate multiple possibilities.
  90 ;; Also, \e$B$?\e(B.
  91 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$&!W$^$GJQ49$9$k\e(B
  92   "\\(\e$B$C\e(B\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)\\)$"
  93   ()
  94   edict-subst-affix "\e$B$&\e(B")
  95
  96 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$D!W$^$GJQ49$9$k\e(B
  97   "\\(\e$B$C\e(B\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)\\)$"
  98   ()
  99   edict-subst-affix "\e$B$D\e(B")
 100
 101 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$k!W$^$GJQ49$9$k\e(B
 102   "\\(\e$B$C\e(B\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)\\)$"
 103   ()
 104   edict-subst-affix "\e$B$k\e(B")
 105
 106 (define-edict-rule \e$B0lCJ$N!V$F!?$?!W$+$i!V$k!W$^$GJQ49$9$k\e(B
 107   (concat "\\(" edict-category-c
 108           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)\\)$")
 109   ()
 110   edict-subst-affix edict-identity "\e$B$k\e(B")
 111
 112 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$9!W$^$GJQ49$9$k\e(B
 113   "\\(\e$B$7\e(B\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)\\)$"
 114   ()
 115   edict-subst-affix "\e$B$9\e(B")
 116
 117 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$/!W$^$GJQ49$9$k\e(B
 118   "\\(\e$B$$\e(B\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)\\)$"
 119   ()
 120   edict-subst-affix "\e$B$/\e(B")
 121
 122 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$0!W$^$GJQ49$9$k\e(B
 123   "\\(\e$B$$\e(B[\e$B$G$@\e(B]\\)$"
 124   ()
 125   edict-subst-affix "\e$B$0\e(B")
 126
 127 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$V!W$^$GJQ49$9$k\e(B
 128   "\\(\e$B$s\e(B\\(\e$B$G\e(B\\|\e$B$@\e(B[\e$B$i\e(B]?\\)\\)$"
 129   ()
 130   edict-subst-affix "\e$B$V\e(B")
 131
 132 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$`!W$^$GJQ49$9$k\e(B
 133   "\\(\e$B$s\e(B\\(\e$B$G\e(B\\|\e$B$@\e(B[\e$B$i\e(B]?\\)\\)$"
 134   ()
 135   edict-subst-affix "\e$B$`\e(B")
 136
 137 (define-edict-rule \e$B!V$F!?$?!W$+$i!V$L!W$^$GJQ49$9$k\e(B
 138   "\\(\e$B$s\e(B\\(\e$B$G\e(B\\|\e$B$@\e(B[\e$B$i\e(B]?\\)\\)$"
 139   ()
 140   edict-subst-affix "\e$B$L\e(B")
 141
 142 ;; \e$B9T$/\e(B is an irregular verb.
 143 (define-edict-rule \e$B9T$/$NFCJL%k!<%k\e(B
 144   "\e$B9T\e(B\\(\e$B$C\e(B\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)\\)$"
 145   ()
 146   edict-subst-affix "\e$B$/\e(B")
 147
 148 (define-edict-rule \e$B!VMh$F!W$NFCJL%k!<%k\e(B
 149   "\e$BMh\e(B\\(\e$B$F\e(B\\|\e$B$?\e(B[\e$B$i\e(B]?\\)$"
 150   ()
 151   edict-subst-affix "\e$BMh$k\e(B")
 152
 153 (define-edict-rule \e$B!V$-$F!W$NFCJL%k!<%k\e(B
 154   "\\(\e$B$-$F\e(B\\|\e$B$-$?\e(B[\e$B$i\e(B]?\\)$"
 155   ()
 156   edict-subst-affix "\e$B$/$k\e(B")
 157
 158 (define-edict-rule \e$B!V$7$F!W$NFCJL%k!<%k\e(B
 159   "\\(\e$B$7$F\e(B\\|\e$B$7$?\e(B[\e$B$i\e(B]?\\)$"
 160   ()
 161   edict-subst-affix "\e$B$9$k\e(B")
 162
 163 ;; Potential form.
 164 ;; The filters here are due to \e$B!V0lCJ$N!V$F!?$?!W$+$i!V$k!W$^$GJQ49$9$k!W\e(B
 165 (define-edict-rule \e$B$l$k\e(B
 166   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$l$k\e(B\\)$")
 167   "\e$B$l$F\e(B$"
 168   edict-subst-affix edict-identity "\e$B$k\e(B")
 169
 170 (define-edict-rule \e$B$1$k\e(B
 171   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$1$k\e(B\\)$")
 172   "\e$B$1$F\e(B$"
 173   edict-subst-affix edict-identity "\e$B$/\e(B")
 174
 175 (define-edict-rule \e$B$;$k\e(B
 176   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$;$k\e(B\\)$")
 177   "\e$B$;$F\e(B$"
 178   edict-subst-affix edict-identity "\e$B$9\e(B")
 179
 180 (define-edict-rule \e$B$F$k\e(B
 181   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$F$k\e(B\\)$")
 182   "\\(\e$B$F\e(B\\|\e$B$F$i$l$k\e(B\\)$"
 183   edict-subst-affix edict-identity "\e$B$D\e(B")
 184
 185 (define-edict-rule \e$B$M$k\e(B
 186   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$M$k\e(B\\)$")
 187   "\e$B$M$F\e(B"
 188   edict-subst-affix edict-identity "\e$B$L\e(B")
 189
 190 (define-edict-rule \e$B$a$k\e(B
 191   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$a$k\e(B\\)$")
 192   "\e$B$a$F\e(B"
 193   edict-subst-affix edict-identity "\e$B$`\e(B")
 194
 195 (define-edict-rule \e$B$(\e(B
 196   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$($k\e(B\\)$")
 197   "\e$B$($F\e(B"
 198   edict-subst-affix edict-identity "\e$B$&\e(B")
 199
 200 (define-edict-rule \e$B$2$k\e(B
 201   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$2$k\e(B\\)$")
 202   "\e$B$1$F\e(B"
 203   edict-subst-affix edict-identity "\e$B$0\e(B")
 204
 205 (define-edict-rule \e$B$Y$k\e(B
 206   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$Y$k\e(B\\)$")
 207   "\e$B$Y$F\e(B"
 208   edict-subst-affix edict-identity "\e$B$V\e(B")
 209
 210 ;; \e$B0lCJF0;l!#\e(B Also serves for the passive.
 211 (define-edict-rule \e$B$i$l$k\e(B
 212   (concat "\\(" edict-category-c
 213           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$i$l$k\e(B\\)$")
 214   ()
 215   edict-subst-affix edict-identity "\e$B$k\e(B")
 216
 217 ;; Passive
 218 (define-edict-rule \e$B8^CJF0;l$N!V$"$l$k!W$rJQ49$9$k\e(B
 219   "\\([\e$B$o$+$,$5$?$J$^$P$i\e(B]\\)\\(\e$B$l$k\e(B\\)$"
 220   ()
 221   edict-subst-modified-affix
 222   edict-modify-verb (0 2)
 223   edict-ignore ())
 224
 225 (define-edict-rule \e$BMh$i$l$k$N%k!<%k\e(B
 226   "\e$BMh\e(B\\(\e$B$i$l$k\e(B\\)$"
 227   ()
 228   edict-subst-affix "\e$B$k\e(B")
 229
 230 (define-edict-rule \e$B$5$l$k$N%k!<%k\e(B
 231   "\\(\e$B$5$l$k\e(B\\)$"
 232   ()
 233   edict-subst-affix "\e$B$9$k\e(B")
 234
 235 ;; Causative
 236 (define-edict-rule \e$B8^CJF0;l$N!V$"$;$k!W$rJQ49$9$k\e(B
 237   "\\([\e$B$o$+$,$5$?$J$^$P$i\e(B]\\)\\(\e$B$;$k\e(B\\)$"
 238   ()
 239   edict-subst-modified-affix
 240   edict-modify-verb (0 2)
 241   edict-ignore ())
 242
 243 (define-edict-rule \e$B0lCJF0;l$N!V$"$;$k!W$rJQ49$9$k\e(B
 244   (concat "\\(" edict-category-c
 245           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$5$;$k\e(B\\)$")
 246   ()
 247   edict-subst-affix edict-identity "\e$B$k\e(B")
 248
 249 (define-edict-rule \e$B$5$;$k$N%k!<%k\e(B
 250   "\\(\e$B$5$;$k\e(B\\)$"
 251   ()
 252   edict-subst-affix "\e$B$9$k\e(B")
 253
 254 ;; eba conditional form.
 255 (define-edict-rule \e$B!V$($P!W$rJQ49$9$k\e(B "\\([\e$B$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$P\e(B\\)$"
 256   ()
 257   edict-subst-modified-affix
 258   edict-modify-verb (3 2)
 259   edict-ignore ())
 260
 261 ;; tara conditional form is handled as part of the \e$B$F!?$?!?$?$i\e(B rules.
 262
 263 ;; The informal negative form.
 264 (define-edict-rule \e$B!V$J$$!W$rJQ49$9$k\e(B "\\([\e$B$o$+$,$5$?$J$^$P$i\e(B]\\)\\(\e$B$J$$\e(B\\|\e$B$:\e(B\\)$"
 265   ()
 266   edict-subst-modified-affix
 267   edict-modify-verb (0 2)
 268   edict-ignore ())
 269
 270 (define-edict-rule \e$B0lCJ$N!V$J$$!W$rJQ49$9$k\e(B
 271   (concat "\\(" edict-category-c
 272           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$J$$\e(B\\|\e$B$:\e(B\\)$")
 273   ()
 274   edict-subst-affix edict-identity "\e$B$k\e(B")
 275
 276 (define-edict-rule \e$B!V$7$J$$!W$NFCJL%k!<%k\e(B
 277   "\\(\e$B$7$J$$\e(B\\|\e$B$;$:\e(B\\)$"
 278   ()
 279   edict-subst-affix "\e$B$9$k\e(B")
 280
 281 (define-edict-rule \e$B!V$J$$!W$NFCJL%k!<%k\e(B
 282   "^\\(\e$B$J$$\e(B\\)$"
 283   ()
 284   edict-subst-affix "\e$B$"$k\e(B")
 285
 286 ;; Conjunctive form
 287
 288 (define-edict-rule \e$B0lCJ$N\e(Bconjunctive
 289   (concat "\\(" edict-category-c "\\|" edict-category-h
 290           "\\)[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\(\\)$")
 291   "\e$B$/\e(B$\\|\e$B$+$C$?\e(B$\\|\e$B$/$k\e(B$\\|\e$B$/$l$k\e(B$\\|\e$B$/$@$5$$\e(B$\\|\e$B$"$2$k\e(B$\\|\e$B>e$2$k\e(B$\\|\e$B$7$^$&\e(B$\\|\e$B$/$F\e(B$\\|\e$B$/$J$$\e(B$\\|\e$B$1$l$P\e(B$\\|\e$B$$$k\e(B$\\|\e$B$+$i$:\e(B$\\|\e$B$$$^$9\e(B$\\|\e$B$"$k\e(B$\\|\e$B$_$k\e(B$\\|\e$B2<$5$$\e(B$\\|\e$B$J$5$$\e(B$\\|\e$B$d$k\e(B$\\|\e$B$b$i$&\e(B$"
 292   edict-subst-modified-affix
 293   edict-identity ()
 294   edict-subst ("\e$B$k\e(B"))
 295
 296 (define-edict-rule \e$B8^CJ$N\e(Bconjunctive
 297   (concat "\\(" edict-category-c "\\|" edict-category-h
 298           "\\)\\([\e$B$$$-$.$7$A$K$S$_$j\e(B]\\)$")
 299   "\e$B$/\e(B$\\|\e$B$+$C$?\e(B$\\|\e$B$/$k\e(B$\\|\e$B$/$l$k\e(B$\\|\e$B$/$@$5$$\e(B$\\|\e$B$"$2$k\e(B$\\|\e$B>e$2$k\e(B$\\|\e$B$7$^$&\e(B$\\|\e$B$/$F\e(B$\\|\e$B$/$J$$\e(B$\\|\e$B$1$l$P\e(B$\\|\e$B$$$k\e(B$\\|\e$B$+$i$:\e(B$\\|\e$B$$$^$9\e(B$\\|\e$B$"$k\e(B$\\|\e$B$_$k\e(B$\\|\e$B2<$5$$\e(B$\\|\e$B$J$5$$\e(B$\\|\e$B$d$k\e(B$\\|\e$B$b$i$&\e(B$"
 300   edict-subst-modified-affix
 301   edict-identity ()
 302   edict-modify-verb (1 2))
 303
 304 (define-edict-rule \e$B!V$9$k!W$NFCJL\e(Bconjunctive
 305   (concat "\\(" edict-category-Japanese-word-constituent "\\)\\(\e$B$7\e(B\\)$")
 306   "\e$B$9\e(B$"
 307   edict-subst-affix edict-identity "\e$B$9$k\e(B")
 308
 309 (define-edict-rule \e$B!V$8$k!W$NFCJL\e(Bconjunctive
 310   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$8\e(B\\)$")
 311   ()
 312   edict-subst-affix edict-identity "\e$B$8$k\e(B")
 313
 314 (define-edict-rule \e$B!V$:$k!W$NFCJL\e(Bconjunctive
 315   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$8\e(B\\)$")
 316   ()
 317   edict-subst-affix edict-identity "\e$B$:$k\e(B")
 318
 319 ;; The informal imperative form, \e$B8^CJF0;l\e(B
 320 (define-edict-rule \e$B!V$l!W$N8^CJF0;l$rJQ49$9$k\e(B
 321   (concat "\\(" edict-category-c "\\|" edict-category-h
 322           "\\)\\([\e$B$($1$2$;$F$M$Y$a$l\e(B]\\)$")
 323   ()
 324   edict-subst-modified-affix
 325   edict-identity ()
 326   edict-modify-verb (3 2))
 327
 328 ;; The informal imperative form, \e$B0lCJF0;l\e(B
 329 (define-edict-rule \e$B!V$m!W$N0lCJF0;l$rJQ49$9$k\e(B
 330   (concat "\\(" edict-category-c
 331           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$m\e(B\\)$")
 332   ()
 333   edict-subst-affix edict-identity "\e$B$k\e(B")
 334
 335 ;; Irregulars
 336 (define-edict-rule \e$B!VMh$$!W$NFCJL%k!<%k\e(B
 337   "^\\(\e$BMh$$\e(B\\)$"
 338   ()
 339   edict-subst-affix "\e$BMh$k\e(B")
 340
 341 (define-edict-rule \e$B!V$3$$!W$NFCJL%k!<%k\e(B
 342   "^\\(\e$B$3$$\e(B\\)$"
 343   "\e$B$/\e(B$"
 344   edict-subst-affix "\e$B$/$k\e(B")
 345
 346 (define-edict-rule \e$B!V$7$m!W$NFCJL%k!<%k\e(B
 347   "^\\(\e$B$7$m\e(B\\)$"
 348   ()
 349   edict-subst-affix "\e$B$9$k\e(B")
 350
 351 ;; The plain desiderative
 352 (define-edict-rule \e$B!V$?$$!W$r:o=|$9$k\e(B
 353   (concat "\\(" edict-category-c "\\|" edict-category-h
 354           "\\)\\([\e$B$$$-$.$7$A$K$S$_$j\e(B]\\)\\(\e$B$?$$\e(B\\|\e$B$?$,$k\e(B\\)$")
 355   ()
 356   edict-subst-modified-affix
 357   edict-identity ()
 358   edict-modify-verb (1 2)
 359   edict-ignore ())
 360
 361 (define-edict-rule \e$B0lCJ$N!V$?$$!W$r:o=|$9$k\e(B
 362   (concat "\\(" edict-category-c
 363           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$?$$\e(B\\|\e$B$?$,$k\e(B\\)$")
 364   ()
 365   edict-subst-affix edict-identity "\e$B$k\e(B")
 366
 367 (define-edict-rule \e$B!V$7$?$$!W$NFCJL%k!<%k\e(B
 368   "^\\(\e$B$7$?$$\e(B\\|\e$B$7$?$,$k\e(B\\)$"
 369   ()
 370   edict-subst-affix "\e$B$9$k\e(B")
 371
 372 (define-edict-rule \e$B!VMh$?$$!W$NFCJL%k!<%k\e(B
 373   "^\\(\e$BMh$?$$\e(B\\|\e$BMh$?$,$k\e(B\\)$"
 374   ()
 375   edict-subst-affix "\e$BMh$k\e(B")
 376
 377 (define-edict-rule \e$B!V$-$?$$!W$NFCJL%k!<%k\e(B
 378   "^\\(\e$B$-$?$$\e(B\\|\e$B$-$?$,$k\e(B\\)$"
 379   ()
 380   edict-subst-affix "\e$B$/$k\e(B")
 381
 382 ;; Flush auxiliary verbs after te form.
 383 (define-edict-rule \e$B=uF0;l!<#1\e(B
 384   (concat "\\(" edict-category-c "\\|" edict-category-h
 385           "\\)\\(\e$B$/\e(B\\|\e$B$F\e(B\\|\e$B$s$G\e(B\\)\\(\e$B$$$k\e(B\\|\e$B$*$k\e(B\\|\e$B$$$^$9\e(B\\|\e$B$"$k\e(B\\|\e$B$*$/\e(B\\|\e$B$_$k\e(B\\)$")
 386   ()
 387   edict-subst-modified-affix
 388   edict-identity ()
 389   edict-identity ()
 390   edict-ignore ())
 391
 392 (define-edict-rule \e$B=uF0;l!<#1#a\e(B
 393   (concat "\\(" edict-category-c "\\|" edict-category-h
 394           "\\)\\(\e$B$F\e(B\\|\e$B$s$G\e(B\\)\\(\e$B$k\e(B\\)$")
 395   ()
 396   edict-subst-modified-affix
 397   edict-identity ()
 398   edict-identity ()
 399   edict-ignore ())
 400
 401 (define-edict-rule \e$B=uF0;l!<#2\e(B
 402   (concat "\\(" edict-category-c "\\|" edict-category-h
 403           "\\)\\(\e$B$/\e(B\\|\e$B$F\e(B\\|\e$B$s$G\e(B\\)\\(\e$B2<$5$$\e(B\\|\e$B$/$@$5$$\e(B\\|\e$B$J$5$$\e(B\\|\e$B$$$/\e(B\\|\e$B9T$/\e(B\\|\e$B$/$k\e(B\\|\e$BMh$k\e(B\\)$")
 404   ()
 405   edict-subst-modified-affix
 406   edict-identity ()
 407   edict-identity ()
 408   edict-ignore ())
 409
 410 (define-edict-rule \e$B=uF0;l!<#3\e(B
 411   (concat "\\(" edict-category-c "\\|" edict-category-h
 412           "\\)\\(\e$B$/\e(B\\|\e$B$F\e(B\\|\e$B$s$G\e(B\\)\\(\\([\e$B$5:9\e(B]\e$B$7\e(B\\)?[\e$B$">e\e(B]\e$B$2$k\e(B\\|\e$B$d$k\e(B\\|\e$B$b$i$&\e(B\\|\e$B$$$?$@$/\e(B\\|\e$BD:$/\e(B\\|\e$B$/$l$k\e(B\\|\e$B$/$@$5$k\e(B\\)$")
 413   ()
 414   edict-subst-modified-affix
 415   edict-identity ()
 416   edict-identity ()
 417   edict-ignore ())
 418
 419 (define-edict-rule \e$B=uF0;l!<#4\e(B
 420   (concat "\\(" edict-category-c "\\|" edict-category-h
 421           "\\)\\(\e$B$/\e(B\\|\e$B$F\e(B\\|\e$B$s$G\e(B\\)\\(\e$B$9$k\e(B\\|\e$B@.$k\e(B\\|\e$B$J$k\e(B\\|\e$B$7$^$&\e(B\\)$")
 422   ()
 423   edict-subst-modified-affix
 424   edict-identity ()
 425   edict-identity ()
 426   edict-ignore ())
 427
 428 (define-edict-rule modifiers
 429   (concat "\\(" edict-category-c "\\|" edict-category-h
 430           "\\)[\e$B$$$?$&$/$0$9$D$L$V$`$k\e(B]\\(\e$B$i$7$$\e(B\\|\e$B$=$&\e(B\\|\e$B$h$&\e(B\\)$")
 431   ()
 432   edict-subst-affix edict-identity "")
 433
 434 (define-edict-rule humble
 435   (concat "\\(\e$B$*\e(B\\)\\(" edict-category-c  "\\|" edict-category-h
 436           "\\)+\\([\e$B$$$-$.$7$A$K$S$_$j\e(B]\\)\\(\e$B$K@.$k\e(B\\|\e$B$K$J$k\e(B\\|\e$B$9$k\e(B\\|\e$B$$$?$9\e(B\\|\e$B?=$7>e$2$k\e(B\\|\e$B$b$&$7$"$2$k\e(B\\)$")
 437   ()
 438   edict-subst-modified-affix
 439   edict-ignore ()
 440   edict-identity ()
 441   edict-modify-verb (1 2)
 442   edict-ignore ())
 443
 444 ;; Volitional
 445 (define-edict-rule \e$B8^CJ$N!V$*$&!W\e(B
 446   (concat "\\(" edict-category-c "\\|" edict-category-h
 447           "\\)\\([\e$B$*$3$4$=$H$N$\$b$m\e(B]\\)\\(\e$B$&\e(B\\)$")
 448   ()
 449   edict-subst-modified-affix
 450   edict-identity ()
 451   edict-modify-verb (4 2)
 452   edict-ignore ())
 453
 454 (define-edict-rule \e$B0lCJ$N!V$h$&!W\e(B
 455   (concat "\\(" edict-category-c
 456           "\\|[\e$B$$$-$.$7$A$K$S$_$j$($1$2$;$F$M$Y$a$l\e(B]\\)\\(\e$B$h$&\e(B\\)$")
 457   ()
 458   edict-subst-affix edict-identity "\e$B$k\e(B")
 459
 460 (define-edict-rule \e$B!VMh$h$&!W$NFCJL%k!<%k\e(B
 461   "\\(\e$BMh$h$&\e(B\\)$"
 462   ()
 463   edict-subst-affix "\e$BMh$k\e(B")
 464
 465 (define-edict-rule \e$B!V$3$h$&!W$NFCJL%k!<%k\e(B
 466   "\\(\e$B$3$h$&\e(B\\)$"
 467   ()
 468   edict-subst-affix "\e$B$/$k\e(B")
 469
 470 (define-edict-rule \e$B!V$7$h$&!W$NFCJL%k!<%k\e(B
 471   "\\(\e$B$7$h$&\e(B\\)$"
 472   ()
 473   edict-subst-affix "\e$B$9$k\e(B")
 474
 475 (define-edict-rule \e$B$F$7$^$&\e(B
 476   "[^\e$B$s\e(B]\\(\e$B$A$c$&\e(B\\)$"
 477   ()
 478   edict-subst-affix "\e$B$F$7$^$&\e(B")
 479
 480 (define-edict-rule \e$B$G$7$^$&\e(B
 481   "\e$B$s\e(B\\(\e$B$A$c$&\e(B\\)$"
 482   ()
 483   edict-subst-affix "\e$B$G$7$^$&\e(B")
 484
 485 ;; Honorific prefixes
 486 (define-edict-rule \e$B7I8l$N@\F,<-\e(B
 487   "^\\(\e$B$*\e(B\\|\e$B8f\e(B\\|\e$B$4\e(B\\)"
 488   ()
 489   edict-subst-affix "")
 490
 491 ;; Various forms of adjectives.
 492 (define-edict-rule \e$B7AMF;l!<$/\e(B
 493   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$/\e(B\\)$")
 494   "\\(\e$B$+\e(B\\(\e$B$l$k\e(B\\|\e$B$;$k\e(B\\|\e$B$J$$\e(B\\|\e$B$:\e(B\\)\\|\e$B$-\e(B\\(\e$B$^$9\e(B\\|\e$B$^$;$s\e(B\\|\e$B$?$$\e(B\\|\e$B$J$+$i\e(B\\|\e$B$D$D\e(B\\|\e$B$d$5$$\e(B\\|\e$B$K$/$$\e(B\\|\e$B$=$&$J\e(B\\)\\|\e$B$1\e(B\\(\e$B$P\e(B\\|\\|\e$B$k\e(B\\)\\|\e$B$3$&\e(B\\|\e$B$$\e(B\\(\e$B$?\e(B\\|\e$B$?$i\e(B\\|\e$B$?$j\e(B\\|\e$B$?$m$&\e(B\\|\e$B$F\e(B\\|\e$B$F$$$k\e(B\\)\\)$"
 495   edict-subst-affix edict-identity "\e$B$$\e(B")
 496
 497 (define-edict-rule \e$B7AMF;l!<$/$F\e(B
 498   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$/$F\e(B\\)$")
 499   ()
 500   edict-subst-affix edict-identity "\e$B$$\e(B")
 501
 502 (define-edict-rule \e$B7AMF;l!<$/$J$$\e(B
 503   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$/$J$$\e(B\\)$")
 504   ()
 505   edict-subst-affix edict-identity "\e$B$$\e(B")
 506
 507 (define-edict-rule \e$B7AMF;l!<$+$i$:\e(B
 508   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$+$i$:\e(B\\)$")
 509   ()
 510   edict-subst-affix edict-identity "\e$B$$\e(B")
 511
 512 (define-edict-rule \e$B7AMF;l!<$+$C$?\e(B
 513   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$+$C$?\e(B\\)$")
 514   ()
 515   edict-subst-affix edict-identity "\e$B$$\e(B")
 516
 517 (define-edict-rule \e$B7AMF;l!<$J$$\e(B
 518   (concat "\\(" edict-category-c "\\|" edict-category-h
 519           "\\)\\(\\(\e$B$8$c\e(B\\|\e$B$G$O\e(B\\)\\(\e$B$J$$\e(B\\|\e$B$"$j$^$;$s\e(B\\)\\)$")
 520   ()
 521   edict-subst-affix edict-identity "")
 522
 523 (define-edict-rule \e$B7AMF;l!<$1$l$P\e(B
 524   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$1$l$P\e(B\\)$")
 525   ()
 526   edict-subst-affix edict-identity "\e$B$$\e(B")
 527
 528 ;; Other affixes
 529
 530 (define-edict-rule other-suffixes
 531   (concat "\\(" edict-category-c "\\|" edict-category-h
 532           "\\)\\(\e$BE*\e(B\\|\e$B$F$-\e(B\\|\e$B$b$N\e(B\\|\e$BJ*\e(B\\|\e$B<T\e(B\\|\e$B<0\e(B\\|\e$BCf\e(B\\|\e$B0w\e(B\\|\e$B$9$k\e(B\\|\e$B$5$s\e(B\\|\e$B@h@8\e(B\\|\e$BMM\e(B\\|\e$B$5$^\e(B\\|\e$B$A$c$s\e(B\\|\e$B7/\e(B\\|\e$B$/$s\e(B\\|\e$B20\e(B\\)$")
 533   ()
 534   edict-subst-affix edict-identity "")
 535
 536 (define-edict-rule other-prefixes
 537   (concat "^\\(\e$B:r\e(B\\|\e$BMh\e(B\\|\e$BA4\e(B\\|\e$BH>\e(B\\|\e$BKh\e(B\\)" edict-category-c)
 538   ()
 539   edict-subst-affix "")
 540
 541 ;; Canonicalize number expressions
 542 (define-edict-rule numbers
 543   (concat "^\\([0-9\e$B#0\e(B-\e$B#90lFs;0;M8^O;<7H,6e==I4@iK|2/\e(B]+\\)\\("
 544           edict-category-c "\\|" edict-category-h "\\)")
 545   ()
 546   edict-subst-affix "\e$B0l\e(B" edict-identity )
 547
 548 (define-edict-rule \e$B?t$J$7\e(B
 549   (concat "^\\([0-9\e$B#0\e(B-\e$B#90lFs;0;M8^O;<7H,6e==I4@iK|2/\e(B]+\\)\\("
 550           edict-category-c "\\|" edict-category-h "\\)")
 551   ()
 552   edict-subst-affix edict-ignore edict-identity )
 553
 554 (define-edict-rule \e$B$@\e(B
 555   "\\(\e$B$8$c$J$$\e(B\\|\e$B$G$O$J$$\e(B\\|\e$B$@$C$?\e(B\\|\e$B$@$m$&\e(B\\)$"
 556   ()
 557   edict-subst-affix "\e$B$@\e(B")
 558
 559 (define-edict-rule \e$B$G$9\e(B
 560   "\\(\e$B$8$c$"$j$^$;$s\e(B\\|\e$B$G$O$"$j$^$;$s\e(B\\|\e$B$G$7$g$&\e(B\\)$"
 561   ()
 562   edict-subst-affix "\e$B$G$9\e(B")
 563
 564 (define-edict-rule \e$B$G$9\e(B/\e$B$@\e(B
 565   "\\(\e$B$G$9\e(B\\)$"
 566   ()
 567   edict-subst-affix "\e$B$@\e(B")
 568
 569 (define-edict-rule copula
 570   (concat "\\(" edict-category-c "\\|" edict-category-h "\\)\\(\e$B$@\e(B\\|\e$B$G$9\e(B\\)$")
 571   ()
 572   edict-subst-affix edict-identity edict-ignore)
 573
 574 ;;; edict-japanese.el ends here