5 DEC XTPUの呼び出し

5.1 概要

$ EDIT/XTPU

• DEC XTPUが回復不可能なエラーを起こさないために， 第5.2節

• DCLコマンド・プロシージャからDEC XTPUを呼び出す場合， 第5.3節

• バッチ・ジョブからDEC XTPUを呼び出す場合， 第5.4節

• DEC XTPUコマンド・ラインの修飾子， 第5.5節

• DEC XTPUで解釈されない修飾子が日本語EVEによってどのように扱われているか， 第5.5節

• EDIT/XTPUコマンドのパラメータ指定， 第5.6節

5.2 仮想アドレス空間に関するエラーを避ける方法

ワーク・ファイルがいっぱいになるとXTPU$_GETMEMまたはXTPU$_NOCACHEという エラー・メッセージが出力されます。不要なバッファを消去することでメモリを 開放することもできますが，このようなエラーが発生したときには， 処理を中断することが望まれます。再起動した後，必要なバッファのみを 使用して処理を続けてください。ワーク・ファイルを十分な容量のあるディスクに 置くことも可能です。ワーク・ファイルを置くディレクトリは，論理名 XTPU$WORKで指定してください。

プロセスに割り当てられる仮想アドレス空間を拡げることで，この回復不可能な 内部エラーを避けることもできます。仮想アドレス空間は， 以下の二つの要素によって決まります。

• SYSGENパラメータのVIRTUALPAGECNT

• 使用しているアカウントのページ・ファイル・クォータ

ページ・ファイル・クォータは，プロセスに割り当てられる システム・ページ・ファイルの数を制御します。 ページ・ファイル・クォータに関する詳しい説明は， 『OpenVMSシステム管理ユーティリティ・リファレンス・マニュアル』の /PGFLQUOTA修飾子を参照してください。

仮想アドレス空間を拡げるためには，VIRTUALPAGECNTと ページ・ファイル・クォータの両方を変える必要があるかもしれません。

5.3 DCLコマンド・プロシージャからDEC XTPUを呼び出す場合

• 対話方式の編集のための特殊な環境を設定するため

• 対話方式でない，DEC XTPUを使ったアプリケーションを実行するため

5.3.1 特殊な編集環境の設定

$ DEFINE/USER SYS$INPUT SYS$COMMAND

例 5-1 DCLコマンド・プロシージャfilename.COM

   $ IF P1 .NES. "" THEN last_file_edited == P1
   $ WRITE SYS$OUTPUT "*** ''last_file_edited' ***"
   $ DEFINE/USER SYS$INPUT SYS$COMMAND
   $ EDIT/XTPU/COMMAND=DISK$:[USER]XTPUINI.TPU 'last_file_edited

例 5-2 DCLコマンド・プロシージャfortran_ts.COM

   $ IF P1 .EQS. " THEN GOTO REGULAR_INVOKE
   $ last_file_edited == P1
   $ FTN_TEST = F$FILE_ATTRIBUTES (last_file_edited,"RAT")
   $ IF FTN_TEST .NES. "FTN" THEN GOTO REGULAR_INVOKE
   $ FTN_INVOKE:
   $     DEFINE/USER SYS$INPUT SYS$COMMAND
   $     EDIT/XTPU/COMMAND=FTNTABS.TPU 'last_file_edited
   $ GOTO TPU_DONE
   $ REGULAR_INVOKE:
   $     DEFINE/USER SYS$INPUT SYS$COMMAND
   $     EDIT/XTPU 'last_file_edited
   $ TPU_DONE:

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

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

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

例 5-3 DCLプロシージャinvisible_tpu.COM

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

/NOSECTION	セクション・ファイルは使用しません (エディタを初期化するためにバイナリ・セクション・ファイルの プロシージャやキー定義は使用されません)。
/COMMAND=gsr.TPU	実行したい編集操作はコマンド・ファイルに含まれています。
/NODISPLAY	スクリーン管理機能(ウィンドウ，カーソルなど)は認識されません。
/NOKANJI_DICTIONARY	かな漢字変換辞書を使用しません。

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

例 5-4 DEC XTPUコマンド・ファイル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を呼び出す場合

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

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

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

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

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

表 5-1 EDIT/XTPU コマンドの修飾子

修飾子	省略時の値の定義	修飾子の扱い
/[NO]CODESET[= keyword]	DEC XTPU	DEC XTPU
/[NO]COMMAND[= filespec ]	DEC XTPU	DEC XTPU
/[NO]CREATE	両方	アプリケーション
/[NO]DEBUG[= filespec]	DEC XTPU	DEC XTPU
/[NO]DISPLAY[= keyword ]	DEC XTPU	DEC XTPU
/[NO]INITIALIZATION[= filespec ]	両方	アプリケーション
/[NO]JOURNAL[= filespec ]	両方	アプリケーション
/[NO]KANJI_DICTIONARY[= filespec ]	DEC XTPU	DEC XTPU
/[NO]MODIFY	アプリケーション	アプリケーション
/[NO]OUTPUT[= filespec ]	両方	アプリケーション
/[NO]READ_ONLY	両方	アプリケーション
/[NO]RECOVER	DEC XTPU	DEC XTPU
/[NO]SECTION[= filespec]	DEC XTPU	DEC XTPU
/START_POSITION[=( line,column )]	DECXTPU	アプリケーション
/[NO]WRITE	両方	アプリケーション

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

5.5.1 /CODESET

/CODESET[= keyword ]

/CODESET=ISO_LATIN1 ( 省略時設定 )

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

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

パラメータ	コードセット
DECKANJI	DEC漢字コードセット
SDECKANJI	Super DEC漢字コードセット
ISO_LATIN1	ISO Latin1文字セット
DEC_MCS	DECマルチナショナル文字セット
ASCII_JISKANA	ASCII (JISローマ字) + JISカタカナコードセット
SJIS	シフトJISコードセット

/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コードセット

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コードセット

3. 省略値の使用

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

• XPG$DEFAULT_LANG = "ja_JP.deckanji"

• XTPU$TEXT_LANGUAGE = "JAPANESE"

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

   $ EDIT/XTPU/CODESET=sdeckanji letter.txt

5.5.2 /COMMAND

   /COMMAND[= filespec ]
   /NOCOMMAND
   /COMMAND=XTPU$COMMAND ( 省略時設定 )

ユーザがDCLコマンド・ラインで/COMMANDを指定したかどうかは， アプリケーションの中で以下のようにして知ることができます。

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

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

   $ EDIT/XTPU/COMMAND=sys$login:my_tpu$command.TPU letter.rno

   $ JEVE == "EDIT/XTPU/NOCOMMAND"

指定したコマンド・ファイルが存在しないときには，編集を継続せずに DCLに戻ります。

5.5.3 /CREATE

   /CREATE ( 省略時設定 )
   /NOCREATE

DEC XTPUの上にレイヤ構造となっているインターフェイスが，この修飾子を 処理します。インターフェイスは以下に示すGET_INFO組込みプロシージャを 使用することによって，DEC XTPUが呼び出されたときに， 修飾子が指定されていたかどうかを知ることができます。

   x := GET_INFO (COMMAND_LINE, "create")

日本語EVEは，省略時には入力ファイルが存在しないときにファイルを作成します。 /NOCREATEを指定して，入力ファイルに存在しないファイルを指定すると， 編集を中断して，DCLコマンド・レベルに戻ります。

たとえば，現在のデバイスとディレクトリがDISK$:[USER]のときに NEWFILE.DATという存在しない入力ファイルを指定したときには， DEC XTPUインターフェイスはエラー・メッセージをプリントし，下記のように DCLコマンド・レベルに戻ります。

   $ EDIT/XTPU/NOCREATE newfile.dat
   入力ファイルがありません: NEWFILE.DAT
   $

5.5.4 /KANJI_DICTIONARY

   /KANJI_DICTIONARY[=  kanji_dictionary_filename  ]
   /NOKANJI_DICTIONARY
   /KANJI_DICTIONARY=SYS$LOGIN:JSYKOJIN.JISHO (    省略時設定 )

/KANJI_DICTIONARY= filespec 修飾子に対する値を指定すれば， 個人辞書として使用されるファイルの名前を指定することができます。 この結果，省略時の個人辞書であるSYS$LOGIN:JSYKOJIN.JISHOは無効になります。

下記のコマンドを実行すると，DEC XTPUはpersonal.jishoというファイルを 個人辞書として使用します。

   $ EDIT/XTPU/KANJI_DICTIONARY=personal.jisho

/NOKANJI_DICTIONARYを指定したときには，DEC XTPUは個人辞書を使用しません。 したがってCONVERT_KANA，ENTER_TANGO，DELETE_TANGOなどの組込みプロシージャを 実行することはできません。これらの組込みプロシージャを 実行するには個人辞書が必要で，エラー・メッセージが表示されます。

DEC XTPUをバッチ・モードで使用するときのように，かな漢字変換を 必要としないときには/NOKANJI_DICTIONARY修飾子を指定すると良いでしょう。

$ EDIT/XTPU/NODISPLAY/NOKANJI_DICTIONARY/NOSECTION/COMMAND=format.tpu

1. JSY$KOJIN_MODE="0" (個人辞書共有モード)

   個人辞書を用いて変換を行います。個人辞書への学習を行い， 単語の登録および削除もできます。辞書を共有することができます。

2. JSY$KOJIN_MODE="1" (個人辞書学習モード)

   個人辞書を用いて変換を行います。個人辞書への学習を行い， 単語の登録および削除もできます。辞書を共有することはできません。

3. JSY$KOJIN_MODE="2" (個人辞書参照モード)

   個人辞書を用いて変換を行います。ただし，個人辞書への学習は行われずに， 単語の登録および削除もできません。個人辞書参照モードどうしなら， 個人辞書を共有することができます。

4. JSY$KOJIN_MODE="3"

   個人辞書は使用されません。

5.5.5 /DISPLAY

   /DISPLAY=CHARACTER_CELL ( 省略時設定 )
   /DISPLAY=DECWINDOWS
   /NODISPLAY

/DISPLAY=DECWINDOWSを指定し，DECwindowsの環境を使うことができるときには， DEC XTPUはDECwindows用のスクリーン・マネージャを使用して， DEC XTPUのためにDECwindowsのウィンドウを作成します。 /DISPLAY=DECWINDOWSを指定したときに，DECwindowsの環境を使うことができない 場合には，DEC XTPUはキャラクタセル端末用のスクリーン・マネージャを使用します。

/NODISPLAY修飾子を使用すると，DEC XTPUは端末装置のスクリーン表示機能 やキーボード機能を使用せずに動作します。次の場合には， /NODISPLAY修飾子を使用しなければなりません。

• バッチ・ジョブでDEC XTPUプロシージャを実行する場合

• サポートされない端末装置でDEC XTPUを使用する場合

以下のコマンドを実行すると，DEC XTPUは端末装置を使用せずに my_batch_file.rnoというファイルを編集します。

   $ EDIT/XTPU/NODISPLAY my_batch_file.rno

5.5.6 /INITIALIZATION

   /INITIALIZATION[= filespec ] ( 省略時設定 )
   /NOINITIALIZATION

アプリケーションは，次のようにしてユーザがDCLコマンド・ラインで /INITIALIZATIONを指定したかどうかを調べます。

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

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

DCLコマンド・ラインで/[NO]INITIALIZATIONを指定しなかったときには， DEC XTPUは/INITIALIZATIONが指定されていたものとして処理を行います。 ただし，省略時のファイル名はありません。省略時のファイル名は， アプリケーションによって指定されます。ユーザがアプリケーションを書くときには， 次のようなフォーマットのファイルを省略時のファイルとすることをお勧めします。

   facility$init.facility

日本語EVEにおいてデバイスやディレクトリを指定しなかったときには， 日本語 EVEはまず最初に現在のディレクトリを捜します。指定された (またはデフォルトの)イニシャライゼーション・ファイルがそこにないときには， 日本語EVEはSYS$LOGINを捜します。イニシャライゼーション・ファイルが見つかれば， 日本語EVEはそのファイル中のコマンドを実行します。

日本語EVEでのイニシャライゼーション・ファイルの使い方について， 詳しくは，の第2.3節"日本語EVEのカスタマイズ" を参照してください。

5.5.7 /JOURNAL

/JOURNAL= input_file .TJL
/NOJOURNAL ( 省略時設定 )

• キー・ジャーナリング-どのバッファを使用しているかに関わらず， 1つのジャーナル・ファイルにキー入力を保存します。

• バッファ・ジャーナリング-バッファの内容の変化をバッファごとの ジャーナル・ファイルに保存します。

アプリケーションは，次のようにしてユーザがDCLコマンド・ラインで /JOURNALを指定したかどうかを調べます。

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

あるバッファにたいしてバッファ・ジャーナリングが起動されているかどうかを 知るためには次のようにします。

   status := GET_INFO (buffer_name, "journaling");

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

日本語EVEでは，/JOURNAL修飾子を指定しないか，ジャーナル・ファイル名を 付けずに/JOURNALを指定したときには，バッファ・ジャーナリングが使用されます。 バッファ・ジャーナリングの，ジャーナル・ファイルの省略時の ファイル・タイプは.XTPU$JOURNALです。

/JOURNAL= filespec というようにジャーナル・ファイル名を指定すると， キー・ジャーナリングも同時に使用されます。キー・ジャーナリングの， ジャーナル・ファイルの省略時のファイル・タイプは.TJLです。

日本語EVEで，キー・ジャーナリング，バッファ・ジャーナリングの両方を 使わないときには，修飾子に/NOJOURNALを指定してください。たとえば， 以下のコマンドは日本語EVEに対してジャーナリングをしないで MEMO.TXTをいうファイルを編集することを指示します。

   $ EDIT/XTPU/NOJOURNAL memo.txt

/NOJOURNALを指定してバッファ・ジャーナリングを起動させていないときでも， SET (JOURNALING)組込みプロシージャを使用して起動できます。 SET (JOURNALING)はジャーナリングの頻度を設定する際にも使用されます。 JOURNAL_OPENおよびSET (JOURNALING)について詳しくは 『Guide to the DEC Text Processing Utility』を参照してください。

キー・ジャーナリングでジャーナル・ファイルを作成した後， DEC XTPU がジャーナル・ファイルに含まれるコマンドを処理するようにするには， /RECOVER修飾子を使用します。下記のコマンドを実行すると，DEC XTPUは MEMO.TXTという名前の入力ファイルを編集した編集セッションをジャーナル・ファイル MEMO.TJLを使用して回復します。キー・ジャーナリングのジャーナル・ファイルを 用いて回復を行う場合には，コマンド行に， /JOURNAL=filespec と/RECOVER修飾子の両方を指定しなければなりません。

   $ EDIT/XTPU/RECOVER/JOURNAL=memo.tjl memo.txt

中断された日本語EVEセッションを回復する方法について詳しくは 『日本語EVE ユーザーズ・ガイド』 第7.4節"システム割り込みからの回復" を参照してください。

5.5.8 /MODIFY

   /MODIFY ( 省略時設定 )
   /NOMODIFY

/MODIFY修飾子がどのように使用されたかを知るためには次のようにします。

   x := GET_INFO (COMMAND_LINE, "modify")
   x := GET_INFO (COMMAND_LINE, "nomodify")

日本語EVEを使うときに，/MODIFY，/NOMODIFY，/READ_ONLY， /NOWRITEのいづれも指定しなければ，日本語EVEは編集セッションのすべての バッファを変更可能にします。/NOMODIFYを指定すれば， すべてのユーザ・バッファは変更できなくなります。

日本語EVEで，/MODIFYも/NOMODIFYも指定しなかったときには， /READ_ONLYあるいは，/WRITE修飾子が指定されていたかどうかが調べられます。 /READ_ONLYと/MODIFY，あるいは/NOWRITEと/MODIFYを同時に指定するとバッファは 変更可能になります。同様に，/WRITEと/NOMODIFY，あるいは /NOREAD_ONLYと /NOMODIFYを同時に指定するとバッファは変更不可能になります。

5.5.9 /OUTPUT

   /OUTPUT= input_file.type ( 省略時設定 )
   /NOOUTPUT

   x := GET_INFO (COMMAND_LINE, "output")

インターフェイスとして日本語EVEを使用しているときに以下のコマンドを 実行すると，DEC XTPUを終了するときに，DEC XTPUはメイン・バッファの内容を newlet.rnoというファイルに出力します。

   $ EDIT/XTPU/OUTPUT=newlet.rno letter.rno

/NOOUTPUT修飾子は，DEC XTPU上に，ファイルに出力を書き込まないような インターフェイスを作成するときに使用することができます。たとえば， コマンド・ラインに/NOOUTPUTを指定すると，DEC XTPUがメイン・バッファに対して NO_WRITE属性を設定し，そのバッファに対する出力ファイルは 作成しないというようなアプリケーションを作ることができます。

5.5.10 /READ_ONLY

   /READ_ONLY
   /NOREAD_ONLY ( 省略時設定 )

/READ_ONLY修飾子の処理は，/WRITE修飾子と関係があります。/READ_ONLYは /NOWRITEを同じです。また/NOREAD_ONLYは，/WRITEと同じです。 DCLコマンドで次のように修飾子が組み合せられたときには，DEC XTPUは， エラーを出して終了します。

• /READ_ONLYと/WRITE

• /NOREAD_ONLYと/NOWRITE

DCLコマンド・ラインで/READ_ONLYあるいは/NOWRITEが指定されたことを知るには， 次の呼び出しを使用します。

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

DCLコマンド・ラインで/NOREAD_ONLYあるいは/WRITEが指定されたことを知るには， 次の呼び出しを使用します。

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

日本語EVEでは，/READ_ONLY修飾子は，/NOMODIFY修飾子，および/NOOUTPUT修飾子の すべてを使用した場合と同じ結果になります。/READ_ONLYを指定すると， DEC XTPUはすべてのユーザ・バッファに対してNO_WRITE属性とNO_MODIFY属性を セットします。バッファがNO_WRITEにセットされている場合には， DEC XTPUを終了するときに，バッファの内容がファイルに書き込まれません。 EXIT組込みプロシージャとQUIT組込みプロシージャはどちらも，メイン・バッファの 内容から新しいファイルを作成せずに編集セッションを終了します。

たとえば，次のコマンドを実行すると， DEC XTPUはエディタを終了するときに新しいファイルを作成しません。

   $ EDIT/XTPU/READ_ONLY meeting.mem

5.5.11 /RECOVER

   /RECOVER
   /NORECOVER ( 省略時設定 )

   $ EDIT/XTPU/RECOVER notes.txt

   x := GET_INFO (COMMAND_LINE, "recover")

JOURNAL_OPEN組込みプロシージャが実行されると，通常は，DEC XTPUは出力のために ジャーナル・ファイルをオープンします。/RECOVERを指定し， JOURNAL_OPEN組込みプロシージャを実行すると，ジャーナル・ファイルは 入力と出力のためにオープンされます。DEC XTPUは，入力ファイルに含まれる すべてのコマンドを復元するために入力ファイルをオープンします。その後， DEC XTPUは編集セッションの残りの部分に関して，またはJOURNAL_CLOSE が実行されるまで，キーストロークをジャーナル・ファイルに保存します。 DEC XTPUの上にレイヤ構造となっているインターフェイスは， JOURNAL_OPEN 組込みプロシージャが実行されるかどうかを制御しなければなりません。

セッションを回復する場合，個人辞書の内容を含むファイルはすべて， 回復する編集セッションを開始したときと同じ状態でなければなりません。 また端末装置特性はすべて，回復する編集セッションを開始したときと同じ 状態でなければなりません。端末装置の幅や1ページの長さを変更した場合には， 回復する編集セッションを開始したときの値に戻しておかなければりません。 特に次の値には注意してください。

• Device_Type

• Edit_mode

• Eightbit

• Page

• Width

   $ EDIT/XTPU/RECOVER/JOURNAL=save.dat letter.dat

5.5.12 /SECTION

   /SECTION[= filespec ]
   /NOSECTION
   /SECTION=XTPU$SECTION ( 省略時設定 )

省略時のセクション・ファイルはXTPU$SECTIONです。セクション・ファイルを 検索するときには省略時のディレクトリにSYS$SHARE， 省略時のファイル・タイプにXTPU$SECTIONを使用します。XTPU$SECTIONという 論理名には，デフォルトでJEVE$SECTION_V3が定義されているので，省略時には SYS$SHARE:JEVE$SECTION_V3.XTPU$SECTIONを読み込みます。これは 日本語EVEインターフェイスです。初期化のために別のファイルを指定することも できます。このときには，省略時のファイル以外のセクション・ファイル を指定するために，XTPU$SECTIONという論理名を再定義してください。 また/SECTION修飾子にセクション・ファイルの完全なファイル仕様を指定する こともできます。

次のコマンドを実行すると， DEC XTPUはvt282ini.XTPU$SECTIONというセクション・ファイルを読み取ります。

   $ EDIT/XTPU/SECTION=disk$user:[smith]vt282ini

DCLコマンド・ラインで/SECTIONが指定されたかどうかを知るには， アプリケーションの中で以下のようにします。

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

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

/NOSECTIONを指定した場合には，DEC XTPUはセクション・ファイルを読み取りません。 /COMMAND修飾子も使用しなかった場合には，DEC XTPUはユーザ・インターフェイスを 持たず，どのキーも定義されない状態となります。この状態では， [Ctrl/Y]を押さなければDEC XTPUを終了することはできません。/NOSECTIONは， 日本語EVEをベースにしないで独自のDEC XTPUアプリケーションを作るときに 使用されます。

5.5.13 /START_POSITION

   /START_POSITION=( line,column )
   /START_POSITION=(1,1) ( 省略時設定 )

DEC XTPU上のアプリケーションが，この修飾子を使用してカーソル位置を 設定する処理を行います。

次のようにするとDCLコマンド・ラインで/START_POSITION修飾子で指定された値を 知ることができます。

   start_line := GET_INFO (COMMAND_LINE, "start_record");
   start_line := GET_INFO (COMMAND_LINE, "start_character");

日本語EVEではこの修飾子を使用して，メイン・バッファのどの位置に最初に カーソルが置かれるかを指定します。省略時の最初の位置は，1行目の 1カラム目です。

5.5.14 /WRITE

   /WRITE ( 省略時設定 )
   /NOWRITE

/WRITE修飾子がどのように処理されるかは，/READ_ONLY修飾子にも関係しています。 /WRITEは/NOREAD_ONLYと同じです。また/NOWRITEは/READ_ONLYと同じです。

次のような組み合せがDCLコマンド・ラインで使用されたときには， DEC XTPU はエラーを通知してDCLに戻ります。

• /READ_ONLYと/WRITE

• /NOREAD_ONLYと/NOWRITE

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

次のようにすれば，/NOWRITEまたは/READ_ONLY修飾子がDCLコマンド・ライン で使用されたかどうかを知ることができます。

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

両方のGET_INFOともに"偽"を返したときには，アプリケーションは省略時の 動作をします(省略時の動作はアプリケーションによって異なります)。

日本語EVEにおいては，/NOWRITE修飾子は，/NOMODIFY， /NOOUTPUTを指定したときとまったく同じです。

5.6 DEC XTPUコマンドのパラメータ

   $ EDIT/XTPU/SECTION=sys$library:jeve$section_v3 history.txt

ファイル仕様はファイル名だけでも，また次の例に示されているように， 完全なファイル仕様でも指定できます。

   $ EDIT/XTPU disk$user:[smith]letter.dat

ファイル仕様の一部としてバージョン番号を指定する必要はありません。 バージョン番号を指定しなかったときには，DEC XTPUはディレクトリの中で 最大のバージョン番号を読み込みます。古いバージョンのファイルを 編集したい場合には，ファイル仕様にバージョン番号を指定してください。

ファイル仕様には複数のファイルを同時に指定することができます。 複数のファイルを指定する場合にはファイル名をコンマ(,)で区切って指定します。 以下の例ではfirst.txtとsecond.txtの2つのファイルを指定しています。

   $ EDIT/XTPU first.txt,second.txt