; Change -x option on VWX for VZ
; by hangyo@kanazawa-bidai.ac.jp 1997-10-14 (Tus)
; VWX の-x オプションを変更します。-x オプションは、
; -x0 同一視しない
; -x1 全角半角を同一視する
; -x2 ひらがなカタカナを同一視する
; -x3 全角半角ひらがなカタカナを同一視する
;
; *p を使ってますので、マクロファイルに組込む際は、最後の*m も
; 書いて置くこと。
; re.def（y.mikomeさん作、vwx.doc参照）に組込もうかと思いましたが、
; （シフト押しながら起動で、この動作をする、とか）
; [F06] で正規表現を使わない
; \[F06 で正規表現を使う、みたいに使分けてるので、
; やめました。

* m
90 ^\ "ch vwx"
	?.
	nn=0,
	!12
	(r > = 0)?{ (r)> ? { >D >C >B >A} 
:A nn++, :B nn++, :C nn++, 
:D	&s
	#E "c:\vz\vwx.com -x" &?("%d",nn) #m#[
	&d .
*p
12 "vwx同一視",,4
  "0 しない" 
  "1 全半角"
  "2 平片仮名"
  "3 全半平片"
*m