5.3.2 対話方式でない編集環境の設定

一部の編集操作では編集コマンドを対話方式で入力するより，すべての編集コマンドをファイルに記憶し，ファイルからそれらのコマンドを読み取る方が便利なことがあります。また編集結果をスクリーンに表示せずに編集を実行したいこともあります。このような編集操作はバッチ・ジョブから実行することができ，また編集セッションの結果をスクリーンに表示したい場合には，このような編集操作を DCL コマンド・プロシージャから実行することもできます。実行中の編集操作がスクリーンに表示されない場合でも，コマンド・プロシージャが実行されている間，端末装置を自由に使用することはできません。

例 5-3 は下記の方法で DEC XTPU を起動するためのコマンド・ラインを含む DCL コマンド・プロシージャを示したものです。

コマンド・プロシージャのファイル名は invisible_tpu.COM です。

$ EDIT/XTPU/NOSECTION/COMMAND=gsr.TPU/NODISPLAY/NOKANJI_DICTIONARY 'p1' 

gsr.TPU というファイルは /COMMAND 修飾子に対するファイル仕様として使用されています。これは現在のバッファを探索し，文字列またはパターンを文字列と置き換えます。 例 5-4 は gsr.TPU というファイルを示したものです。

PROCEDURE global_search_replace (str_or_pat, str2) 
 
! This procedure performs a search through the current 
! buffer and replaces a string or a pattern with a new string 
 
LOCAL src_range, replacement_count; 
 
! Return to caller if string not found 
ON_ERROR 
   msg_text := FAO ('Completed !UL  replacement!%S', 
                                          replacement_count); 
   MESSAGE (msg_text); 
   RETURN; 
ENDON_ERROR; 
 
replacement_count := 0; 
 
LOOP 
   src_range := SEARCH (str_or_pat, FORWARD); 
                                 ! Search returns a range if found 
   ERASE (src_range);            ! Remove first string 
   POSITION (END_OF (src_range));! Move to right place 
   COPY_TEXT(str2);              ! Replace with second string 
   replacement_count := replacement_count + 1; 
ENDLOOP; 
ENDPROCEDURE                     ! global_search_replace 
 
! Executable statements 
input_file:=GET_INFO (COMMAND_LINE,'file_name'); 
main_buffer:=CREATE_BUFFER ('main', input_file); 
POSITION (BEGINNING_OF (main_buffer)); 
global_search_replace ('xyz$_', 'user$_'); 
pat1:= '' & LINE_BEGIN & 't'; 
POSITION (BEGINNING_OF (main_buffer)); 
global_search_replace (pat1, 'T'); 
WRITE_FILE (main_buffer, 'newfile.dat'); 
QUIT; 

注意 /NODISPLAY を EDIT/XTPU コマンド・ラインに指定した場合には，キーを定義することはできません。また編集操作を記憶しているファイルでウィンドウを作成したり操作することもできません。 /NOKANJI_DICTIONARY を EDIT/XTPU コマンド・ラインに指定しなかった時には，その編集操作に対して変換用個人辞書が割り当てられます。このため，バッチ・モードでかな漢字変換機能を使用しない時には， /NOKANJI_DICTIONARY を指定しておくことをお勧めします。

QUIT 組込みプロシージャまたは EXIT 組込みプロシージャを使用してエディタを終了する時には，変更したバッファを出力しなければなりません(この操作は 例 5-4 に示されています)。バッファの内容を変更したのにそのバッファを出力しないと，その変更された内容は失われてしまいます。

5.4 バッチ・ジョブからDEC XTPU を起動する場合

端末装置からではなく，バッチ・ジョブで編集操作を実行したい場合には，DCL の SUBMIT コマンドを使用してジョブをバッチ・キューに送ることができます。

たとえば，前の節と同じ編集をバッチ・モードで実行したい場合には，以下のコマンドを入力することができます。

$ SUBMIT invisible_tpu.COM/LOG=invisible_tpu.LOG/parameter=my_file.txt

このジョブはシステムの省略時のバッチ・キューに入力され，結果はバッチ・ジョブが作成する LOG ファイルに出力されます。

バッチのようなコマンド・プロシージャに適用される制約条件は，バッチ・ジョブにも適用されます。/NODISPLAY をコマンド・ラインで使用するときと，編集操作を含むファイルで EXIT 組込みプロシージャまたは QUIT 組込みプロシージャを使用するときの注意事項について，上記の節を参照してください。

5.5 DEC XTPU コマンド・ラインの修飾子

EDIT/XTPU コマンドに修飾子を指定することによって，DEC XTPU の属性を設定したり， DEC XTPU 上に構築されたアプリケーションの属性を設定したりすることができます。修飾子は次の2種類に分類できます。

• DEC XTPU によって使われる修飾子。ここに分類される修飾子は， DEC XTPU によって省略時の値が定義されています。

• DEC XTPU で書かれたアプリケーションによって使われる修飾子。省略時の値が，DEC XTPU によって定義されているもの，アプリケーションによって定義されるもの，両方によって決まるものがあります。

表 5-1 は EDIT/XTPU コマンドの修飾子と，それらの省略時の値を定義する部分，それらの修飾子を解釈する部分を示しています。

以降の節では，修飾子について詳しく説明します。以降の例の中では，修飾子は EDIT/XTPU コマンドのすぐ後，入力ファイル仕様の前に指定されていますが，修飾子は EDIT/XTPU コマンドの後なら，コマンド・ラインのどこに指定してもかまいません。以降の節は，インタフェースとして日本語 EVE 使用されていることを想定して書かれています。したがって，アプリケーションが扱いを指定できる修飾子も日本語 EVE をもとにして書かれています。日本語 EVE をベースにしないアプリケーションは，それらの修飾子を違った方法で使用できます。

5.5.1 /CODESET

/CODESET=keyword /CODESET=ISO_LATIN1 ( 省略時設定 )

DEC XTPU の起動時のシステム・コードセットを指定します。システム・コードセットは新しくバッファを作る時に使用されますので，組込みプロシージャでシステム・コードセットを変更しなければ，作成されるバッファのコードセットおよび出力コードセットの初期値は /CODESET 修飾子で指定した値になります。

/CODESET 修飾子のパラメータに指定できるキーワードは以下の通りです。

表 5-2 /CODESET 修飾子のパラメータ

キーワード	コードセット
DECKANJI	DEC 漢字コードセット
SDECKANJI	Super DEC 漢字コードセット
ISO_LATIN1	ISO Latin1 コードセット
DEC_MCS	DEC MCSコードセット
ASCII_JISKANA	ASCII (JIS ローマ字) + JIS カタカナコードセット
SJIS	シフトJISコードセット
DECKANJI2000	DEC 漢字 2000 コードセット
ISO2022JP	ISO-2022-JP コードセット
UCS2	UCS-2 コードセット
UTF8	UTF-8コードセット

/CODESET 修飾子を指定しなかった場合には，以下のような順序でシステム・コードセットが決められます。

1. 論理名 LANG の定義
   論理名 LANG に定義できるものは以下の通りです。大文字小文字の区別はありません。論理名 LANG はプロセスのコードセットの定義を行う場合に使用します。システム全体のコードセットの定義を行う時には論理名 XPG$DEFAULT_LANG を使用してください。

   表 5-3 論理名 LANG の定義

   値	コードセット
   ja_JP.deckanji	DEC 漢字コードセット
   ja_JP.sdeckanji	Super DEC 漢字コードセット
   en_US.ISO8859-1	ISO Latin1 コードセット
   ja_JP.sjis	シフトJISコードセット
   ja_JP.deckanji2000	DEC 漢字 2000 コードセット
   ja_JP.UTF-8	UTF-8 コードセット

2. 論理名 XPG$DEFAULT_LANG の定義
   論理名 XPG$DEFAULT_LANG に定義できるものは以下の通りです。大文字小文字の区別はありません。論理名XPG$DEFAULT_LANG はシステム全体のコードセットの定義を行う場合に使用します。プロセスごとにコードセットを定義するときには論理名 LANG を使用してください。

   表 5-4 論理名 XPG$DEFAULT_LANG の定義

   値	コードセット
   ja_JP.deckanji	DEC 漢字コードセット
   ja_JP.sdeckanji	Super DEC 漢字コードセット
   en_US.ISO8859-1	ISO Latin1 コードセット
   ja_JP.sjis	シフトJISコードセット
   ja_JP.deckanji2000	DEC 漢字 2000 コードセット
   ja_JP.UTF-8	UTF-8 コードセット

3. 省略値の使用
   上記の論理名が定義されていない時にはコードセットの省略値が使用されます。省略値は論理名 XTPU$TEXT_LANGUAGE の値によってきまります。XTPU$TEXT_LANGUAGE が "JAPANESE" と定義されているときは DEC 漢字コードセットがシステム・コードセットになります。それ以外のときには ISO Latin1 コードセットがシステム・コードセットになります。

日本語 OpenVMS では以下のようにシステム論理名が定義されていますので， /CODESET 修飾子を指定しなかった場合には通常 DEC 漢字コードセットがシステム・コードセットになります。

• XTPU$TEXT_LANGUAGE = "JAPANESE"

コマンド・ラインで指定されたコードセットの名前を知るには以下のようにしてください。変数 X にはコードセットを示すキーワードが戻ります。

x := GET_INFO (COMMAND_LINE, "codeset");

次のコマンドを実行すると，DEC XTPU は起動時にシステム・コードセットを Super DEC 漢字コードセットに設定し，編集セッションのための入力ファイルとして letter.txt を使用します。

$ EDIT/XTPU/CODESET=sdeckanji letter.txt

---

目次

索引