2.3.3 コマンド・ファイルの作成 |
 |
コマンド・ファイルは，DEC XTPU プロシージャと実行可能なステートメントを格納したソース・プログラムです。DEC XTPU プロシージャは関連する DEC XTPU ステートメントの集まりであり，プロシージャ名を起動したときに実行されます。ステートメントとプロシージャは，キーを押したときやコマンドを入力したときに，どのような操作が実行されるかを定義します。
日本語 EVE コマンドを使用すると，実際にはコンパイルした DEC XTPU プロシージャが起動されます。たとえば，日本語 EVE の
SET KEYPAD EDT コマンドは，日本語 OpenVMS が提供する日本語 EVE セクション・ファイルの EVE_SET_KEYPAD_EDT プロシージャを起動します。
日本語 EVE は，セクション・ファイルを実行した後，コマンド・ファイルを実行します。この理由から，コマンド・ファイルに定義したキー定義やプロシージャは，セクション・ファイルの定義より優先します。
コマンド・ファイルは 2 種類の方法で使用できます。まず，コマンド・ファイルはセクション・ファイルから独立した編集環境を作成でき，また，新しいセクション・ファイルを作成するためにコマンド・ファイルを使用することも可能です。
省略時の編集環境を設定する場合には，必ずコマンド・ファイルを使用します。これは，スタートアップ時に日本語 EVE がコマンド・ファイル (またはイニシャライゼーション・ファイル) のステートメントを実行し，新しい省略時の設定を有効にするからです。編集環境を設定するコマンドのリストについては， 第 2.3.2 項 を参照してください。たとえば，1 つのコマンド・ファイルを使用して，メモのマージンとタブを設定し，別のコマンド・ファイルを使用して，財務報告書を作成するのに適したタブを設定できます。
コマンド・ファイルを作成するには，日本語 EVE を起動し，ファイル・タイプが .TPU であるファイル名 (たとえば，MY_COMMAND.TPU など) を指定します。エディタを起動した後，DEC XTPU ステートメントとプロシージャを入力してください。
例 2-1 は，日本語 EVE を EDT エディタに類似した機能となるように変更するコマンド・ファイルを示しています。このファイルは， MY_SECTION.XTPU$SECTION という名前の個人用セクション・ファイルを作成するために使用します。
コマンド・ファイルを使用してセクション・ファイルを作成する場合には，ファイルの最後に SAVE ステートメントと QUIT ステートメントを登録し， 例 2-1 に示したように，セクション・ファイルのファイルを指定します。コマンド・ファイルをセクション・ファイルに変換するには， /COMMAND 修飾子を使用して，日本語 EVE を起動します。次の例を参照してください。
$ EDIT/XTPU/COMMAND=MY_COMMANDS
|
日本語 EVE は，ファイルに登録されたコマンドを実行し，SAVE ステートメントに指定したセクション・ファイルに，コンパイルしたプロシージャとキー定義を保存します。QUIT ステートメントはエディタを終了し，制御を DCL に戻します。これで新しいセクション・ファイルが作成されました。このセクション・ファイルを論理名 XTPU$SECTION に定義すると，日本語 EVE の起動時に自動的に読み込まれます。
コマンド・ファイルからセクション・ファイルを作成する場合の利点は，コマンド・ファイルを簡単に変更できるという点です。これは特に， DEC XTPU プロシージャを追加したり，非常に多くのキー定義を追加するときなどに重要です。
編集環境の属性を設定し，標準的な日本語 EVE エディタに機能を追加するためにコマンド・ファイルを使用する場合には，やはり /COMMAND 修飾子を使用して，日本語 EVE を起動します。次の例を参照してください。
$ EDIT/XTPU/COMMAND=DATA_SETUP
|
この場合も，日本語 EVE はコマンド・ファイルのステートメントを実行しますが， SAVE ステートメントは登録されていないため，コンパイルされたプロシージャとキー定義は保存されません。
コマンド修飾子を指定しなかった場合には，日本語 EVE は，XTPU$COMMAND という論理名によって指定されるファイルを検索します。このファイルを検索できない場合には，DEC XTPU が現在のディレクトリから XTPU$COMMAND.TPU という名前のファイルを検索します。
!*********************************************************
!Command file making EVE more like EDT and implementing
!personal customizations
!*********************************************************
!Procedure to delete a line and close the gap left by the deletion (1)
Procedure eve_zapline; (2)
eve_end_of_line; (3)
eve_erase_start_of_line; (4)
eve_delete;
endprocedure; (5)
!Procedure to move the cursor to the beginning of the next paragraph:
procedure eve_next_paragraph (6)
local patl,
the_range;
patl := LINE_BEGIN + LINE_BEGIN + arb (1);
the_range := search_quietly (patl，FORWARD，EXACT);
if the_range <> 0
then
position (end_of (the_range));
return (TRUE); (7)
else
return (FALSE);
endif;
endprocedure;
!Procedure to make EVE behave more like EDT
procedure eve_mimic_edit
eve_set_keypad_edt;
eve_set_cursor_bound;
eve_set_left_margin (10); (8)
endprocedure;
!Procedure to transpose two characters
procedure eve_transpose
local whack;
whack := erase_character (1);
move_horizontal (1);
copy_text (whack);
return (TRUE);
endprocedure;
!Procedure to make both the screen width and the right margin narrow
procedure eve_narrow_screen
eve_set_width (80);
eve_set_right_margin (79);
endprocedure;
!Procedure to make both the screen width and the right margin wide
procedure eve_wide_screen
eve_set_width (132);
eve_set_right_margin (131);
endprocedure;
!Procedure to toggle screen width and right margin from the current setting
!to the other setting，i.e. change to wide if narrow，change to narrow if wide
procedure eve_change_width (9)
if get_info (SCREEN，"width") <> 80
then
eve_narrow_screen;
else
eve_wide_screen;
endif;
endprocedure;
procedure tpu$local_init (10)
eve_mimic_edt; (11)
eve$define_key ("eve_next_paragraph"，CTRL_P_KEY，"Next_Para",
eve$x_user_keys); (12)
eve$define_key ("eve_zapline"，key_name ("o"，shift_key)，"Zap Line",
eve$x_user_keys); (13)
eve$define_key ("eve_two_windows"，F17，"Two Windows"，eve$x_user_keys); (14)
eve$define_key ("eve_other_window"，CTRL_G_KEY，"Other Window",
eve$x_user_keys); (15)
eve$define_key ("eve_get_file ('')，key_name (KP6，SHIFT_KEY)，"Get File",
eve$x_user_keys); (16)
eve$define_key ("eve_transpose"，key_name (F20，SHIFT_KEY)，"Transpose",
eve$x_user_keys); (17)
endprocedure;
tpu$local_init; (18)
save ("WORK:[LINCOLN]MY_SECTION.XTPU$SECTION"); (19)
quit; (20)
|
例 2-1 では，コマンド・ファイルの作成に関して，次のことを示しています。
