View of /lisp/test/check.l

Parent Directory

Revision Log

change to CVS wadalab font project

(defun getcadr (filename)
  (let ((err:end-of-file (function (lambda (x (y))(throw 'eof(nreverse ret)))))
	(s (inopen (stream filename)))
	(ret nil))
    (catch 'eof
      (loop (push (cadr (read s)) ret)))))
(defun getcaddr (filename)
  (let ((err:end-of-file (function (lambda (x (y))(throw 'eof(nreverse ret)))))
	(s (inopen (stream filename)))
	(ret nil))
    (catch 'eof
      (loop (push (caddr (read s)) ret)))))
;
(defun sortprim (primlist)
  (sort primlist (function (lambda (p1 p2)
			     (lessp (length (cadr (applykanji p1)))
				    (length (cadr (applykanji p2))))))))
;
(setq primitive '(一 右上 ののじ ぼう てん たすき にんにょう 右だれ てんてん 
                  りのじ 直がまえ 二へん めのじ にすい ひのじ がんだれ 
                  なべぶた りっとう 乙 一たすき んのじ 幻の右 ののじ一 なのじ 
                  盾だれ こうがまえ 介の下 人へん 司かまえ 七へん ７のじ 
                  父の下 はのじ そのじ ひとかしら にんべん 卜 二 丁 人 十 七 
                  三 才 工 小 丈 上 寸 土 川 千 刀 八 入 又 于 几 卩 了 
                  つちへん てへん りっしんべん 亡 くさかんむり 士 卑の下 大 下 
                  力 むのじ 九へん 比の左 北の左 奉の下 おのじ 予の下 工へん 
                  きゅうにょう しのじ 仰の中 みつあし このじ 后だれ 代の右 
                  ゆのじ ののじてんののじ 九 干 けものへん さんずい まだれ 
                  ぎょうにんべん わかんむり さんづくり はこがまえ にじゅうあし 
                  竹の左 竹の右 一ののじぼう 又へん つのじ しきがまえ 叫の右 
                  しょうへん そのじ一 かんがまえ まきがまえ ふしづくり 宅の下 
                  つつみがまえ ふうがまえ まのじ ほこ したごころ 卯の左 
                  かたはね 干干 ほこづくり 号の下 子へん しきがまえ一 四点 
                  止へん 舛の右 ほのじ ふみへん うしへん くにがまえ おおざと 
                  しかばねかんむり こざとへん のぶん ひへん れんが きへん 
                  やまがまえ すいにょうにょう 丸 久 斤 巾 午 元 犬 父へん 井 
                  火 向がまえ 考のつくり よのじ横 かんがまえののじ さんぼう 
                  まきがまえぼう 土ののじ 元にょう ぱい 害の中へん 一小 印の左 
                  一むのじ 逆よのじ 少だれ 図の中 訊の右 看だれ おっとへん 
                  斉の下 ののじつのじ 韋の上 令の下 そのじはのじ 矛の下 
                  三ののじ 発の下 牛 升 ののじ土 木 口 女 よのじ 害の中 心 
                  すいにょう 共の上 王 己 天 おんなへん うかんむり おうへん 夭 
                  くちへん やまへん 万 夕 也 尤 毛 巳 廿 文 夫 不 斗 爪 太 壬 
                  刃 少 叉 山 子 手 止 氏 主 失 尺 支 水 斥 生 正 中 丹 必 匹 
                  内 屯 之 乃 半 巴 未 勿 匁 与 矢 末 本 方 戊 片 平 にちへん 
                  片へん 云へん 示へん 气 夬 尹 乍 示 三人 声の下 甘 立 
                  月つくり 日 ののじ木 畏の下 是の下 半へん まきがまえ人 
                  衣の下 余の下 いとがしら 正へん 尹たれ 十わかんむり 
                  虚の中へん 元へん 危たれ むにょう 虚の中 一巾 土にんにょう 
                  ののじ止 刀はのじ 口一 益の上 汚の右 生へん 生へん 夜の右下 
                  このじ十 一少 共の上ののじ 寮の中 然の左上 
                  わかんむりにんにょう とのじわかんむり 栴の右下 上小 
                  ほのじてん 幸の下 実の下 県がまえ 禾 牙 円 云 丑 以 鹿の中上 
                  余へんの下 亥の下 月 欠 乎 五 玉 丘 鬼の下 郷の左 しんにゅう 
                  のぎへん にくづき しめすへん やまいだれ かたへん 拝の右 
                  内がまえ 又てんてん 段の左 したみず 那の左 十まきがまえ 
                  立へん 業かんむり 棄の中 なべぶたむのじ 矢へん えんにょう 
                  のほこ 耽の右 ののじ一小 いちた 夾の略字 
                  なおがしらわかんむり そのじ天 そうにょう 才ほこ 氏一 
                  みみへん ほこほこ ひつじがしら 金の下 つのじ一八 疋へん 
                  其の上 服の右 派の右 辰のつくり ころもへん よん あなかんむり 
                  こめへん いしへん たけかんむり 侖の下 及 瓦 巨 弓 互 光 古 
                  兄 口十 瓜 央 なおがしらまきがまえ 衆の下 めのじよんてん 
                  庚の中 且へん ひがのぼるの下 とのじ夕 みみがまえ 猟の右下 
                  暇の中 そのじ一亡 聯の右下 すきへん 晋の上 ののじ一巾 尭の下 
                  局がまえ 貴の上 関の中 むのじ大 立ののじ まきがまえむのじ 
                  二十二 二人二 旅の右 妻の上 まがりがわ 母の略字 共かんむり 
                  夾の略字へん 田 米 電の下 奄の下 巻の上 はつがしら 且 甲 朱 
                  匆 戉 羊 用 予 丙 亦 由 目 白 年 疋 氷 兆 占 先 石 走 世 州 
                  申 四 史 皿 冊 耳 而 死 寿 坐 再 舟 出 成 西 辛 早 赤 舌 虫 
                  弔 百 皮 釆 当 民 包 母 来 吏 亙 豕 朿 かわへん 書の上 
                  むしへん 自 てん田 にし のぎへんそのじ ひかるへん 鬲の下 
                  霊の下 制の左 寒の中 雀のつくり 丞の上 くのじよのじ 口小 
                  華の下 画の上 官の下 卸の左 岡の中 僕の右下 一十口 兄へん 我 
                  臼 永 曳 検の右下 衣 血 求 曲 缶 豹の左 とらかんむり 田十 
                  うまがまえ 口土 別の左 典の上 立わかんむり 
                  ひつじがしらののじ 朔の左 艮へん 恵の上 舟へん 津の右 師の左 
                  麦にょう 十目 夏の上 みへん 無の上 良へん 束へん 烏がまえ 
                  曹の上 挿の右 そのじ田 展のつくり 逓のつくり ののじ虫 豆へん 
                  弓ぼうののじ あしへん かねへん ごんべん 見 言 凹 漢の右下 
                  敷の左上 喚の右上 難の左下 日小 僅の右下 僅の右下へん 
                  幣の左上 長へん 弓んのじ 呉の上 盈の上 敢の左 十よん 業の下 
                  基の上 ほねかんむり 咼がまえ 祭がしら ひつじがしら八 垂へん 
                  さとへん 函の中 隹 貞の上 亜 酉 いとへん 両 里 甫 歩 並 凸 
                  非 弗 長 吊 争 束 多 足 身 臣 垂 色 肖 更 艮 克 車 糸 乗 兎 
                  卓 表 東 良 卵 呂 あめかんむり 虎にょう 犀の中 龍の右 率の中 
                  くのじ田 康の中 白小 捷の右 角 果 雨 夷 串 朝の左 剥の左 
                  一中わかんむり 韮の下 寅の下 くのじ目 倉の下 善の上 曾の上 
                  鼠の下 逮のつくり 申又 とりがまえ 焔の右 くちごろも そのじ豕 
                  緑の右 揺の右 重へん そのじ酉 是にょう 壷の下 しょくへん 革 
                  里にんにょう 嬢の右下 衰の下 寡の中 慶だれ よのじ豕 楽の上 
                  婁の上 四人十 憂の上 様の右 庸のつくり 免にょう もんがまえ 
                  免 面 門 阜 承 重 甚 事 首 飛 畢 衷 爽 泉 禹 禺 満の右 
                  なおがしら貝 溝の右 兼 淵の右 鶴の左 竃の下 観の左 為 
                  鬼にょう 兜の上 極の右 粛 裏の下 薦の右下 おとほこ 亀 象 爾 
                  喪 鼎 輿の上 興の上))
(defun make-hira ()
  (do ((i 33 (1+ i))
       (ret))
    ((> i 114)(nreverse ret))
    (sset str 0 (logor 36 128))
    (sset str 1 (logor i 128))
    (princ str)(princ " ")))