;  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 "[０-９]" "\\&" 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)

; 全角空白→　　　　←