This file is indexed.

/usr/share/skk/SKK-JISYO.lisp is in skkdic-extra 20180127-1.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
;; -*- mode: fundamental; coding: euc-jp -*-
;; Lisp dictionary for SKK system
;; Copyright (C) 1988-1995, 1997, 1999-2010, 2014-2015
;;
;; Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp>
;; Hironobu Takahashi <takahasi@tiny.or.jp>,
;; Masahiro Doteguchi, Miki Inooka,
;; Yukiyoshi Kameyama <kameyama@kuis.kyoto-u.ac.jp>,
;; Akihiko Sasaki, Dai Ando, Junichi Okukawa,
;; Katsushi Sato and Nobuhiro Yamagishi
;; NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
;; MITA Yuusuke <clefs@mail.goo.ne.jp>
;; Tsuyoshi Kitamoto <tsuyoshi.kitamoto@gmail.com>
;; SASAKI Nobuyuki <nathancorvussolis@gmail.com>
;; SKK Development Team <skk@ring.gr.jp>
;;
;; Maintainer: SKK Development Team <skk@ring.gr.jp>
;; Version: $Id: SKK-JISYO.lisp,v 1.5 2016/10/06 12:02:21 skk-cvs Exp $
;; Keywords: japanese
;; Last Modified: $Date: 2016/10/06 12:02:21 $
;;
;; This dictionary 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 dictionary 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 Daredevil SKK, see the file COPYING.  If not, write to
;; the Free Software Foundation Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;
;;; Commentary:
;;
;; SKK-JISYO.L ¤«¤é concat ´Ø¿ô¤ò½ü¤¯ Lisp ¤Î´Ø¿ô¤Î¸õÊä¤òÈ´¤­½Ð¤·
;; skk-relative-date ´Ø¿ô¤òÄɲä·¤¿¼­½ñ¤Ç¤¹¡£
;;
;; concat ´Ø¿ô¤ò´Þ¤à¸õÊä¤Ï¡¢SKK ¼­½ñ·Á¼°¤Ë¤ª¤±¤ë¸õÊä¤Î¶èÀÚ¤ê¤Ç¤¢¤ë "/" ¤ä
;; ¸õÊä¤ÈÃí¼á¤Î¶èÀÚ¤ê¤Ç¤¢¤ë ";" ¤ò¥¨¥¹¥±¡¼¥×¤¹¤ëÌÜŪ¤Ç»ÈÍѤµ¤ì¤Æ¤¤¤ë¤È
;; ¹Í¤¨¤é¤ì¤ë°Ù SKK-JISYO.L ¤Ë»Ä¤·¤Æ¤¤¤Þ¤¹¡£
;;
;; ¥×¥í¥°¥é¥à¼Â¹ÔÊÑ´¹¤ÇÍѤ¤¤é¤ì¤ë Lisp ¤Î´Ø¿ô¤ò³ÈÄ¥¤¹¤ëºÝ¤Ï¤³¤Î¼­½ñ¤ò
;; ¹¹¿·¤·¤Æ¤¤¤Ã¤Æ失¤ì¤Ð¤È»×¤¤¤Þ¤¹¡£
;;
;; okuri-ari entries.
;; okuri-nasi entries.
#feet /(skk-gadget-units-conversion "feet" (string-to-number (car skk-num-list)) "cm")/
#inch /(skk-gadget-units-conversion "inch" (string-to-number (car skk-num-list)) "cm")/(skk-gadget-units-conversion "inch" (string-to-number (car skk-num-list)) "feet")/
#mile /(skk-gadget-units-conversion "mile" (string-to-number (car skk-num-list)) "km")/(skk-gadget-units-conversion "mile" (string-to-number (car skk-num-list)) "yard")/
#x# /(skk-times)/
#yard /(skk-gadget-units-conversion "yard" (string-to-number (car skk-num-list)) "cm")/(skk-gadget-units-conversion "yard" (string-to-number (car skk-num-list)) "feet")/
#¤«¤²¤Ä¤´ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 nil 0 0 0)) nil nil :mm #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 'gengo 0 0 0)) nil nil :mm #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 3 'gengo 0 0 0)) nil nil :mm #0)/
#¤«¤²¤Ä¤Þ¤¨ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 nil 0 0 0)) nil nil :mm -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 'gengo 0 0 0)) nil nil :mm -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 3 'gengo 0 0 0)) nil nil :mm -#0)/
#¤Ë¤Á¤´ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 nil 0 0 0)) nil nil :dd #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd #0)/
#¤Ë¤Á¤Þ¤¨ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 nil 0 0 0)) nil nil :dd -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -#0)/
#¤Í¤ó¤´ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)) nil nil :yy #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)) nil nil :yy #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)) nil nil :yy #0)/
#¤Í¤ó¤Þ¤¨ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)) nil nil :yy -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)) nil nil :yy -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)) nil nil :yy -#0)/
bar /(make-string (- fill-column 1) ?-)/
line /(make-string (- (window-width) 5) ?-)/(make-string (- (window-width) 5) (string-to-char comment-start))/
mail /(symbol-value 'user-mail-address)/
name /(symbol-value 'user-full-name)/
now /(current-time-string)/(substring (current-time-string) 11 16)/(substring (current-time-string) 11 19)/
pwd /(pwd)/
skk /(skk-version)/
time /(current-time-string)/
today /(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)))/(skk-current-date)/
tomorrow /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date nil nil nil :dd 1)/
version /(skk-version)/
yesterday /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date nil nil nil :dd -1)/
¤¢¤µ¤Ã¤Æ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 2)/(skk-relative-date nil nil nil :dd 2)/
¤¢¤·¤¿ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date nil nil nil :dd 1)/
¤¢¤¹ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date nil nil nil :dd 1)/
¤ª¤È¤Ä¤¤ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date nil nil nil :dd -2)/
¤ª¤È¤È¤¤ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date nil nil nil :dd -2)/
¤ª¤È¤È¤· /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)) nil nil :yy -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)) nil nil :yy -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)) nil nil :yy -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 1 'gengo 0 0 0)) nil nil :yy -2)/
¤­¤Î¤¦ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date nil nil nil :dd -1)/
¤­¤ç¤¦ /(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)))/(skk-current-date)/
¤­¤ç¤Í¤ó /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 1 'gengo 0 0 0)) nil nil :yy -1)/
¤³¤È¤· /(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 1 'gengo 0 0 0)))/
¤µ¤¯¤Í¤ó /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 1 'gengo 0 0 0)) nil nil :yy -1)/
¤µ¤é¤¤¤²¤Ä /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 nil 0 0 0)) nil nil :mm 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 'gengo 0 0 0)) nil nil :mm 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 3 'gengo 0 0 0)) nil nil :mm 2)/
¤µ¤é¤¤¤Í¤ó /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)) nil nil :yy 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)) nil nil :yy 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)) nil nil :yy 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 1 'gengo 0 0 0)) nil nil :yy 2)/
¤·¤ç¤¦¤ï#¤Í¤ó /(skk-gengo-to-ad "" "ǯ")/(skk-gengo-to-ad "À¾Îñ" "ǯ")/
¤»¤¤¤ì¤­#¤Í¤ó /(skk-ad-to-gengo 0 nil "ǯ")/(skk-ad-to-gengo 1 nil "ǯ")/
¤»¤ó¤²¤Ä /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 nil 0 0 0)) nil nil :mm -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 'gengo 0 0 0)) nil nil :mm -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 3 'gengo 0 0 0)) nil nil :mm -1)/
¤»¤ó¤»¤ó¤²¤Ä /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 nil 0 0 0)) nil nil :mm -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 'gengo 0 0 0)) nil nil :mm -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 3 'gengo 0 0 0)) nil nil :mm -2)/
¤¿¤¤¤·¤ç¤¦#¤Í¤ó /(skk-gengo-to-ad "" "ǯ")/(skk-gengo-to-ad "À¾Îñ" "ǯ")/
¤Ð¡¼¤¸¤ç¤ó /(skk-version)/
¤Ø¤¤¤»¤¤#¤Í¤ó /(skk-gengo-to-ad "" "ǯ")/(skk-gengo-to-ad "À¾Îñ" "ǯ")/
¤á¤¤¤¸#¤Í¤ó /(skk-gengo-to-ad "" "ǯ")/(skk-gengo-to-ad "À¾Îñ" "ǯ")/
¤é¤¤¤²¤Ä /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 nil 0 0 0)) nil nil :mm 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 0 'gengo 0 0 0)) nil nil :mm 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ%s·î" 3 'gengo 0 0 0)) nil nil :mm 1)/
¤é¤¤¤Í¤ó /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 nil 0 0 0)) nil nil :yy 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 0 'gengo 0 0 0)) nil nil :yy 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 3 'gengo 0 0 0)) nil nil :yy 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%sǯ" 1 'gengo 0 0 0)) nil nil :yy 1)/