Annotation of /lisp/new12.lAnnotation of /lisp/new12.l
Parent Directory
| 
Revision Log
Revision: 1.1 - (view) (download)
| 1 : | ktanaka | 1.1 | (setq new12 '( |
| 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 : | 塩の右 | ||
| 97 : | 於 | ||
| 98 : | ひとかしらてんてん | ||
| 99 : | 凹 | ||
| 100 : | 奥 | ||
| 101 : | 旺 | ||
| 102 : | 横 | ||
| 103 : | 黄 | ||
| 104 : | 欧 | ||
| 105 : | 区 | ||
| 106 : | 殴 | ||
| 107 : | 鴬 | ||
| 108 : | 鴎 | ||
| 109 : | 黄 | ||
| 110 : | 岡 | ||
| 111 : | 荻 | ||
| 112 : | 億 | ||
| 113 : | 屋 | ||
| 114 : | 憶 | ||
| 115 : | 臆 | ||
| 116 : | 桶 | ||
| 117 : | たて用 | ||
| 118 : | 牡 | ||
| 119 : | うしへん | ||
| 120 : | 乙 | ||
| 121 : | 俺 | ||
| 122 : | 恩 | ||
| 123 : | 温 | ||
| 124 : | 穏 | ||
| 125 : | 音 | ||
| 126 : | 日 | ||
| 127 : | 下 | ||
| 128 : | 化 | ||
| 129 : | 仮 | ||
| 130 : | 反 | ||
| 131 : | 何 | ||
| 132 : | 伽 | ||
| 133 : | 加 | ||
| 134 : | 価 | ||
| 135 : | 加 | ||
| 136 : | 可 | ||
| 137 : | 嘉 | ||
| 138 : | 家 | ||
| 139 : | 寡 | ||
| 140 : | 科 | ||
| 141 : | 歌 | ||
| 142 : | 河 | ||
| 143 : | 火 | ||
| 144 : | 珂 | ||
| 145 : | 箇 | ||
| 146 : | 固 | ||
| 147 : | 花 | ||
| 148 : | 苛 | ||
| 149 : | 茄 | ||
| 150 : | 荷 | ||
| 151 : | 菓 | ||
| 152 : | 貨 | ||
| 153 : | 迦 | ||
| 154 : | 峨 | ||
| 155 : | 我 | ||
| 156 : | 画 | ||
| 157 : | 芽 | ||
| 158 : | 牙もどき | ||
| 159 : | 蛾 | ||
| 160 : | 賀 | ||
| 161 : | 雅 | ||
| 162 : | 牙もどき | ||
| 163 : | 餓 | ||
| 164 : | 駕 | ||
| 165 : | 介 | ||
| 166 : | 会 | ||
| 167 : | 解 | ||
| 168 : | 回 | ||
| 169 : | 塊 | ||
| 170 : | 廻 | ||
| 171 : | 快 | ||
| 172 : | 怪 | ||
| 173 : | 灰 | ||
| 174 : | 界 | ||
| 175 : | 芥 | ||
| 176 : | 蟹 | ||
| 177 : | 咳 | ||
| 178 : | 害 | ||
| 179 : | 崖 | ||
| 180 : | 圭 | ||
| 181 : | 涯 | ||
| 182 : | 碍 | ||
| 183 : | 蓋 | ||
| 184 : | 街 | ||
| 185 : | 鎧 | ||
| 186 : | 豈 | ||
| 187 : | 垣 | ||
| 188 : | 亘 | ||
| 189 : | 柿 | ||
| 190 : | 市 | ||
| 191 : | 鈎 | ||
| 192 : | 勾 | ||
| 193 : | 劃 | ||
| 194 : | 嚇 | ||
| 195 : | 拡 | ||
| 196 : | 広 | ||
| 197 : | 撹 | ||
| 198 : | 確 | ||
| 199 : | 革 | ||
| 200 : | 額 | ||
| 201 : | 顎 | ||
| 202 : | 掛 | ||
| 203 : | 樫 | ||
| 204 : | 土 | ||
| 205 : | 梶 | ||
| 206 : | しかばねかんむり | ||
| 207 : | 潟 | ||
| 208 : | 潟の右 | ||
| 209 : | 喝 | ||
| 210 : | 匂 | ||
| 211 : | 渇 | ||
| 212 : | 葛 | ||
| 213 : | 褐 | ||
| 214 : | 轄 | ||
| 215 : | 鰹 | ||
| 216 : | 叶 | ||
| 217 : | 椛 | ||
| 218 : | 花 | ||
| 219 : | 鎌 | ||
| 220 : | 兼 | ||
| 221 : | 噛 | ||
| 222 : | 鴨 | ||
| 223 : | 鳥 | ||
| 224 : | 栢 | ||
| 225 : | 百 | ||
| 226 : | 茅 | ||
| 227 : | 萱 | ||
| 228 : | 宣 | ||
| 229 : | )) | ||
| 230 : | |||
| 231 : | (mapcar new12 #'(lambda (x) (putprop x 'black 'changed))) | ||
| 232 : | (defun kanjisym (sym) | ||
| 233 : | (= (logand 128 (sref sym 0)) 128)) | ||
| 234 : | (defun checkblack (val) | ||
| 235 : | (cond ((symbolp val) | ||
| 236 : | (cond ((get val 'changed)) | ||
| 237 : | ((not (and (kanjisym val)(boundp val))) 'white) | ||
| 238 : | (t (putprop sym (checkblack (eval val)) 'chnaged)))) | ||
| 239 : | (t | ||
| 240 : | (cond ((stringp val) 'whilte) | ||
| 241 : | ((not (consp val)) 'white) | ||
| 242 : | ((or (stringp (car val))(consp (car val)))'white) | ||
| 243 : | (t | ||
| 244 : | (do ((l (cdr val)(cdr l))) | ||
| 245 : | ((atom l)'white) | ||
| 246 : | (and (eq 'black (checkblack (car l))) | ||
| 247 : | (exit 'black)))))))) | ||
| 248 : | |||
| 249 : | (defun checkgray (from to) | ||
| 250 : | (do ((j from (1+ j))(ret)) | ||
| 251 : | ((> j to)(nreverse ret)) | ||
| 252 : | (do ((i #x21 (1+ i))(str (make-string 2)(make-string 2))(sym)) | ||
| 253 : | ((> i #x7e)) | ||
| 254 : | (sset str 0 (logor #x80 j)) | ||
| 255 : | (sset str 1 (logor #x80 i)) | ||
| 256 : | (setq sym (intern (symbol str))) | ||
| 257 : | (and (equal (checkblack sym) 'black)(push sym ret))))) | ||
| 258 : | |||
| 259 : |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |