; emacs で s*.text を修正するためのコマンドファイル ; 目的: (C++ の) JIS 原案中の日本語の表現を,規格票らしく修正する。 ; 使い方: emacs で M-x load-file のあとにこのファイル名(refine4.el)。 ; 構文規則内の英数字のローマン指定の直後を詰める V5.1 2002-07-24 K.Nishimura ; 構文規則内の英数字のローマン指定の直後を詰める 2002-07-04 (2002-07-24) (beginning-of-buffer) (query-replace-regexp "\\\\rm \\([0-9]\\)" "\\\\rm\\1" nil) (beginning-of-buffer) (query-replace-regexp "{\\\\rm *\\([a-zA-Z]+\\)}" "{\\\\rm{\\1}}" nil) (beginning-of-buffer) (query-replace-regexp "\\\\rm \\([a-zA-Z]+\\)\\([あ-んア-ン亜-鯲]+\\)}" "\\\\rm{\\1}}\\2" nil) ; (少数の改良あり)……日付で検索せよ V5.03 2002-06-18 K.Nishimura ; (少数の改良あり)……日付で検索せよ V5.02 2002-06-17 K.Nishimura ; (少数の改良あり)……日付で検索せよ V5.01 2002-04-17 K.Nishimura ; 追加部分 refine2+.el を追い出した V5.0 2002-04-17 K.Nishimura ; (少数の追加あり)……日付で検索せよ V4.94 2002-04-09 K.Nishimura ; (少数の追加あり)……日付で検索せよ V4.91 2002-04-08 K.Nishimura ; (多数の追加あり)……日付で検索せよ V4.9 2002-04-07 K.Nishimura ; 投げる → 送出する V4.8 2002-04-04 K.Nishimura ; 言い換えると → すなわち V4.8 2002-04-04 K.Nishimura ; 外し → はずし を追加 ★でも逆か? V4.8 2002-04-04 K.Nishimura ; 方 → ほう を追加 V4.7 2002-04-02 K.Nishimura ; 振舞う → 振る舞う などを追加 V4.6 2002-04-01 K.Nishimura ; 持つ → もつ などを追加 V4.5 2002-03-30 K.Nishimura ; 及び/又は の間を空けない考慮をした V4.3 2002-03-12 K.Nishimura ; 及び 並びに 又は 若しくは の左右を空ける V4.2 2002-03-06 K.Nishimura ; ■■■■■■■■■■■ 単純置換 ■■■■■■■■■■■$$$ ; 全角の数字 pre-step.el から複写した。 2002-04-09 (beginning-of-buffer) (query-replace-regexp "[0-9]" "\\&" nil) ; 句読点の修正 2002-03-31 ; 句読点 “、”→“,” / “.”→“。” 2002-03-31 (beginning-of-buffer) (query-replace "、" "," nil) (beginning-of-buffer) (query-replace "." "。" nil) ; -------------------------------------------- 追加 2002-02-21, 修正 2002-03-06 ; 又, → また, 2002-04-08 (beginning-of-buffer) (query-replace "又," "また," nil) ; 追加 2002-04-01 ; あるいは → 又は (beginning-of-buffer) (query-replace "あるいは" "又は" nil) ; 或いは → 又は (beginning-of-buffer) (query-replace "或いは" "又は" nil) ; 追加 2002-04-08 ; または → 又は (beginning-of-buffer) (query-replace "または" "又は" nil) ; もしくは → 若しくは (beginning-of-buffer) (query-replace "もしくは" "若しくは" nil) ; および → 及び (beginning-of-buffer) (query-replace "および" "及び" nil) ; ならびに → 並びに 2002-04-08 (beginning-of-buffer) (query-replace "ならびに" "並びに" nil) ; もつとき及びそのときに限り → もつときかつそのときに限り 2002-04-07 (beginning-of-buffer) (query-replace-regexp "もつとき *及び *そのとき" "もつときかつそのとき" nil) ; “及び”“並びに”“又は”“若しくは”の左右を空ける (beginning-of-buffer) (query-replace-regexp "\\([^ ,()[]/~]\\)\\([又及][はび]\\)\\([^ /]\\)" "\\1 \\2 \\3" nil) (beginning-of-buffer) (query-replace-regexp "\\([^ ,()[]/~]\\)\\([及又若][びはし][くは]*\\)" "\\1 \\2" nil) ; 以降に [数] を追加 2002-06-17 (beginning-of-buffer) (query-replace-regexp "\\([^ ,子数()[]~]\\)\\(並びに\\)" "\\1 \\2" nil) (beginning-of-buffer) (query-replace-regexp "\\([子数]\\)\\(並びに\\)" "\\1 \\2" nil) (beginning-of-buffer) (query-replace-regexp "\\([^ ,子数()[]~]\\)\\(並びに\\)" "\\1 \\2" nil) (beginning-of-buffer) (query-replace-regexp "\\([子数]\\)\\(並びに\\)" "\\1 \\2" nil) (beginning-of-buffer) (query-replace-regexp "\\([及又][びは]\\)\\([^ /]\\)" "\\1 \\2" nil) (beginning-of-buffer) (query-replace-regexp "\\([並若][びし][にく]は*\\)\\([^ は]\\)" "\\1 \\2" nil) (beginning-of-buffer) (query-replace-regexp "^\\([及並又若][びはし][にくは]*\\)" " \\1" nil) ; ======================= pre.el からコピーした(重複する) 2002-02-27 ; 13.17 注意すべき表現 ; ・ “疑似”は“擬似”とする. (beginning-of-buffer) (query-replace-regexp "疑似" "擬似" nil) ; ・ zeroはゼロとする. ; ・“隠蔽”は,“隠ぺい”とする. (beginning-of-buffer) (query-replace-regexp "隠蔽" "隠ぺい" nil) ; ・“予め”は,“あらかじめ”とする. (beginning-of-buffer) (query-replace-regexp "予め" "あらかじめ" nil) ; ・“曖昧”は,“あいまい”とする. (beginning-of-buffer) (query-replace-regexp "曖昧" "あいまい" nil) ;X ・“違う”は使わない.“異なる”とする. ;X ・“ように”は避ける. ;X ・“言い方”は,“書き方”とする. ;X ・“言う”は,“いう”としなければならない場合が多い. ; ・“持つ”は,“もつ”としなければならない場合が多い. (beginning-of-buffer) (query-replace-regexp "持\\([た-と]\\)" "も\\1" nil) ;X ・“良い”は,“よい”としなければならない場合が多い. ; ・“... により”は,“... によって”とする. ; 追加 2002-04-01 (beginning-of-buffer) (query-replace "により" "によって" nil) ;;;; 改良 2002-04-09 ;;;(beginning-of-buffer) ;;; (query-replace-regexp "より\\([^も大小多少高低遅速広狭効率緩急厳]\\)" "よって\\1" nil) ; 改良 2002-06-17 (beginning-of-buffer) (query-replace-regexp "より\\([^も大小多少高低遅速広狭効率緩急厳前後特良悪]\\)" "よって\\1" nil) ; ・限定を表わす“のみ”は“だけ”とする. (beginning-of-buffer) (query-replace-regexp "のみ" "だけ" nil) ; ・場合を表わす“時”は“とき”とする. 追加 2002-02-27 (beginning-of-buffer) (query-replace-regexp "\\([あ-ん]\\)時\\([^亜-鯲]\\)" "\\1とき\\2" nil) ; ・“拘らず”は,“かかわらず”とする. 追加 2002-02-27 (beginning-of-buffer) (query-replace-regexp "[拘係]\\([わら-ろ]\\)" "かかわ\\1" nil) ;X ・“要求分の”とは書かない.“要求しただけの”とする. ;X ・“called”などは,“と呼ぶ”という表現を用いる.“という”とはしない. ;X ・“A is in scope at P”という表現は,“AはP(の位置)で有効である”と訳す. ;X ・プログラムリストのコメントに現れる“exposition only”は,“説明のためだけ”と訳す. ; ======================= ここまで ; -------------------------------------------- ; “全く”+肯定形 の修正 (beginning-of-buffer) (query-replace "まったく" "完全に" nil) ; (beginning-of-buffer) (query-replace "全く" "完全に" nil) ; 追加 2002-03-30 ; “各々”→“それぞれ” (beginning-of-buffer) (query-replace "各々" "それぞれ" nil) ; “ふるま”→“振る舞” ; “振舞”→“振る舞” (beginning-of-buffer) (query-replace "ふるま" "振る舞" nil) (beginning-of-buffer) (query-replace "振舞" "振る舞" nil) ; “方”→“ほう” 2002-04-02 (beginning-of-buffer) (query-replace-regexp "\\([あ-ん]\\)方\\([あ-ん]\\)" "\\1ほう\\2" nil) ; 外し → はずし 2002-04-04 (beginning-of-buffer) (query-replace-regexp "外\\([さ-そ]\\)" "はず\\1" nil) ; 言い換えると → すなわち 2002-04-04 (beginning-of-buffer) (query-replace "言い換えると" "すなわち" nil) ; いいかえると → すなわち 2002-06-17 (beginning-of-buffer) (query-replace "いいかえると" "すなわち" nil) ; 言い換えれば → すなわち 2002-06-18 (beginning-of-buffer) (query-replace "言い換えれば" "すなわち" nil) ; いいかえれば → すなわち 2002-06-18 (beginning-of-buffer) (query-replace "いいかえれば" "すなわち" nil) ; 投げる → 送出する 2002-04-04 (beginning-of-buffer) (query-replace "投げられ" "送出され" nil) (beginning-of-buffer) (query-replace "投げ" "送出す" nil) ; ありえる → ありうる 2002-04-04 (beginning-of-buffer) (query-replace "ありえる" "ありうる" nil) ; みつ[かる/ける] → 見つ 2002-04-07 (beginning-of-buffer) (query-replace "みつ" "見つ" nil) ; 若し, → もし, → 他の表現にすべき 2002-04-07 (beginning-of-buffer) (query-replace-regexp "若し\\([^く]\\)" "もし\\1" nil) ; 名詞の 呼び出し → 呼出し 2002-04-07 (beginning-of-buffer) (query-replace-regexp "呼び出し\\([^たて,]\\)" "呼出し\\1" nil) ; いけない → ならない 2002-04-07 (beginning-of-buffer) (query-replace "いけない" "ならない" nil) ; たとえば → 例えば 2002-04-07 (beginning-of-buffer) (query-replace "たとえば" "例えば" nil) ; ならば……{そうで|さも}なければ → のとき……それ以外のとき 2002-04-07 (beginning-of-buffer) (query-replace-regexp "なら[ば]*\\(.+\\)[そさ][うも]で*なければ" "のとき\\1それ以外のとき" nil) ; ならば……{そうで|さも}なければ → とき……それ以外のとき 2002-06-18 (beginning-of-buffer) (query-replace-regexp "なら[ば]*\\(.+\\)[そさ][うも]で*なければ" "とき\\1それ以外のとき" nil) ; ; ならば → のとき 2002-04-07, 2002-04-09 ;;;(beginning-of-buffer) ;;; (query-replace-regexp "なら[ば]*" "のとき" nil) ; 追加 2002-04-17 (beginning-of-buffer) (query-replace-regexp "るなら[ば]*" "るとき" nil) ;;;; 改良 2002-04-09 ;;;(beginning-of-buffer) ;;; (query-replace-regexp "\\([^能要]\\)なら[ば]*," "\\1のとき," nil) ;;;; 改良 2002-04-17 (beginning-of-buffer) (query-replace-regexp "\\([^能要]\\)なら[ば]*\\([^なず]\\)" "\\1のとき\\2" nil) ; 追加 2002-06-18 (beginning-of-buffer) (query-replace-regexp "\\([^能要]\\)なら[ば]*\\([^なず]\\)" "\\1とき\\2" nil) ; 等 → など 2002-04-07 (beginning-of-buffer) (query-replace-regexp "\\([^同]\\)等\\([あ-さす-ん,、]\\)" "\\1など\\2" nil) ; 毎 → ごと 2002-04-07 (beginning-of-buffer) (query-replace "毎" "ごと" nil) ; ように → とおりに 2002-04-07 (beginning-of-buffer) (query-replace "ように定" "とおりに定" nil) ; である。 → とする。 2002-04-07 (beginning-of-buffer) (query-replace "である。" "とする。" nil) ; することなしに → しないで 2002-04-08 (beginning-of-buffer) (query-replace "することなしに" "しないで" nil) ; 終り → 終わり 2002-04-08 (beginning-of-buffer) (query-replace "終り" "終わり" nil) ;;; 規定しない → 未規定とする 2002-04-09 ;;;(beginning-of-buffer) ;;; (query-replace "規定しない" "未規定とする" nil) ;;;; ■追加部分である refine2+ を実行する。 ;;; (load-file "~/HP/cpp/refine2+.el") ; ■■■■ 忘れ物(変換できなかった記号) ■■■■ (beginning-of-buffer) (query-replace-regexp "[★●]+" "\\&" nil) (beginning-of-buffer) (query-replace-regexp "[<>∨∧Λ▼▲▽△「」『』{}〔〕【】]" "\\&" nil) ; ================================================= ; 文字コードを JIS にし、と改行コードを UNIX ファイルのものにする ;;;(set-buffer-file-coding-system (quote iso-2022-jp-unix) nil) ; 全角空白→    ←