> -EM オプションの桐の本当の意味は EMS をなるべく使わず
> メインメモリを使うようにすると言うオプション

違った！　逆だった。　(;_;)

遠い昔の記述から・・・　（ただし桐4時代の話）

---------------------------------------------------------------------------------
#8685/8686　Ｋ３ＵＧ　ボード
★タイトル (MAB58670)  92/10/13  11:16  ( 16)
雑＞RSWAP で勘違いしておりました／hidetake
★内容
#8629で書いた内容ですが、一部間違いがありました。
NIFTY-Serve の方で、立花さんから指摘されましたので訂正します。

》　hidetake さんはあちらで RSWAP.COM は COMMAND.COM が起動されたと
》モリやディスクにスワップされるかのようなことをお書きでしたが、上記のように直
》接 FD を起動させても、ちゃんとスワップされます。

失礼しました。
私の環境は EMS が少ないのに、rswap[ret] だけで、常駐しておりました。
それと、普通のソフトでは、COMSPEC を参照して子プロセスを実行するのに
桐では、直接実行するのでスワップしないと勘違いしておりました。

rswap -dl:\ で常駐したら確かにスワップしました。

どうも有難うございました。＞立花さん
どうも失礼しました。＞ＹＯＳＨＩさん                        hidetake



#8686/8686　Ｋ３ＵＧ　ボード
★タイトル (MAB58670)  92/10/13  11:18  ( 88)
桐＞桐からの子プロセス実行法《コラム》／hidetake
★内容
「禁断の秘技、桐からの子プロセス実行法」《コラム》 Written by hidetake
＿＿＿＿
はじめに
￣￣￣￣
　今日は、息抜きとして《コラム》です。
　桐のメモリ等について考察してみましょう。
＿＿＿＿＿
本日の内容
￣￣￣￣￣
　桐の、空きメモリなどのメモリ状況については、-E パラメータを指定して
起動することにより画面上に一瞬表示されますが、速すぎてなかなか確認する
ことはできません。
　環境設定で、桐の起動時外字を読み込むように設定すると、若干表示される
時間が長くなりますが、それでも充分な確認はできません。
　桐が使用するメモリの状況や色々な内部の状況を確認するために、非公開・
非サポートコマンドで、オープン状況コマンドがあります。このコマンドを実
行すると、"5:メモリ" で空きメモリの状況を確認することができます。
　また、桐の内部バッファについては、#バッファ数(num)で確認できますので、
起動オプションによる違いを見てみましょう。
　　　　　　　　　　　　　　　　　　　　　　　　　 ****************** 
それでは、次の３つの場合について調べてみましょう。*  ・・・・・・・・・・・・・・  *
                                                  *  ・   ダンプ   ・  *
[A] 起動オプションを何も指定しないで起動          *  ・ 1:文字符号 ・  *
[B] -Ehvl -Rbt -Stnmbk -Ka -U で起動              *  ・ 2:ファイル ・  *
[C] -Ehmvl -Rbt -Stnmbk -Ka -U で起動             *  ・ 3:表引き   ・  *
                                                  *  ・ 4:バッファ ・  *
                       [A]     [B]     [C]        *  ・ 5:メモリ   ・  *
  (1)総バッファ数:     141     141     125        *  ・ 6:ダンプ   ・  *
  (2)メインメモリ:      54      54       1        *  ・・・・・・・・・・・・・・  *
  (3)ＥＭＳ      :      67      87     124        *   オープン状況   *
  (4)Ｇ−ＶＲＡＭ:      20       0       0        *   コマンド画面   *
                                                   ******************
----------------------------------------------------------------------
[A] 変数・名札表    : G-vram
　　変数表サイズ    :  8192 Bytes 未使用サイズ: 7748 Bytes
　　名札表サイズ    :  8192 Bytes 未使用サイズ: 8192 Bytes
　　ファイルバッファ: EMS
　　プリンタドライバ: EMS
　　スワップファイル: EMS
　　空きメモリ      : 0 Bytes
----------------------------------------------------------------------
[B] 変数・名札表    : EMS
　　変数表サイズ    : 16384 Bytes 未使用サイズ:15940 Bytes
　　名札表サイズ    : 16384 Bytes 未使用サイズ:16384 Bytes
　　ファイルバッファ: EMS
　　プリンタドライバ: EMS
　　スワップファイル: EMS
　　空きメモリ      : 0 Bytes
----------------------------------------------------------------------
[C] 変数・名札表    : EMS
　　変数表サイズ    : 16384 Bytes 未使用サイズ:15940 Bytes
　　名札表サイズ    : 16384 Bytes 未使用サイズ:16384 Bytes
　　ファイルバッファ: EMS
　　プリンタドライバ: EMS
　　スワップファイル: EMS
　　空きメモリ      : 218720 Bytes
----------------------------------------------------------------------

　オプションなしで起動する EMS があっても、一部は G-VRAM 上にバッファ
を取ります。次に -Ev を指定して G-VRAM を使わないようにすると G-VRAM
の分が EMS 上に移動します。そして -Em を追加してメインメモリをなるべく
使わないようにすると、メインメモリには１だけ残して、他は全て EMS 上に
バッファは割り当てられます。また、EMS に余裕が無いとバッファ数が少なく
なってしまいます。

　メモリのスピードから見てみると、一番速いのがメインメモリで、次に EMS
で、そして一番遅いのが G-VRAM ですので、桐の処理スピードをなるべく速く
するには、EMS に余裕があるのならば -Ev を指定し G-VRAM を使わないよ
にすべきです。また、子プロセスを実行させるために -Emv を指定すると一番
速いメモリを子プロセスの為に使わず開けておき、桐はバッファを遅い EMS
上にとり作業するため処理が遅くなると思われます。
　従いまして、常時 -Emv を指定するのではなく、必要に応じて指定した方が
良いと思われます。
　また、桐は EMS を最大 656 Kb しか使用しないので、EMS の設定につい
も考慮する必要があります。
＿＿＿＿
おわりに
￣￣￣￣
　私は、ＶZを常時常駐させているため気づきませんでしたが、子プロセスを
実行してコマンドラインに下りた時、カーソルが非表示の状態になっておりま
す。これは、STOP キーを押すか、エスケープ・シーケンスの ESC[>5l にて
表示させるようにできます。

　それでは次回は、子プロセスを実行させるための一括処理の予定ですが、
ちょっと疲れてきたので、しばらく休憩をいれます。
                                                            hidetake
---------------------------------------------------------------------------------

ちなみに、WSH (VBS) で Windowsまで一挙に終了するには次のようなスクリプトで
可能です。（ただし WMI を使っているの基本的に Windows 2000 以降）

shutdow.vbs
--------------------------------------------------------------------------
For Each OpSys in GetObject("winmgmts:{impersonationLevel=impersonate, (Shutdown)}").ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Primary=true")
'   OpSys.Win32Shutdown 8,0
    OpSys.Shutdown()
    Exit For
Next
--------------------------------------------------------------------------


これと、今まで何度も出してきたアプリケーションが終了するのを待つ VBS と組み
合わせば、桐の中で実行すれば、任意終了だろうが、会話処理だろうが、桐が落ちて
しまおうが、kiri9.exe の実行が無くなれば Windows を終了するようにも可能です。

kiriwait_shutdown.vbs
--------------------------------------------------------------------------
For Each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_Process WHERE NAME='kiri9.exe'")
    Call WaitExitKiri()
Next

For Each OpSys in GetObject("winmgmts:{impersonationLevel=impersonate, (Shutdown)}").ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Primary=true")
'   OpSys.Win32Shutdown 8,0
    OpSys.Shutdown()
    Exit For
Next

WScript.Quit

Sub WaitExitKiri()
    Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
                                                'SWbemLocatorオブジェクト作成
    Set oService = Locator.ConnectServer        'SWbemServicesオブジェクト取得

    On Error Resume Next                        'ここからエラー処理を有効に。
    Set oEvent = oService.ExecNotificationQuery _
                ("select * from __InstanceDeletionEvent within 1 " & _
                "where targetinstance isa 'Win32_Process' " & _
                "and targetinstance.Name = 'kiri9.exe' ")

    'イベントクラス(__InstanceDeletionEventクラス。
    'インスタンスの削除イベント)の作成。
    'within 1 …該当イベントを1秒間隔でポーリング
    'where targetinstance isa 'Win32_Process' …Win32_Processクラスのインスタンスを監視対象にする
    'targetinstance.Name = 'kiri9.exe' …インスタンス名が、kiri9.exeであるものを選ぶ

    Do
        WScript.Sleep 100                       'ループをまわしとく。100msec 待つ。
        Set oEvt = oEvent.NextEvent(500)
                                                'SWbemEventSourceオブジェクトのNextEventメソッド。
                                                '500msecでタイムアウトする。
        If Err.Number = -2147209215 Then        'タイムアウトすると、上記のエラー発生。
            Err.Clear
        Else                                    'エラーが発生しない場合は、正常に終了したということとなる。
            'MsgBox oEvt.TargetInstance.ExecutablePath & "が終了しました。"
                                                'SWemObject(__InstanceDeletionEventクラス)のTargetInstanceプロパティ
                                                'は、ターゲットインスタンスを返す。この場合はWin32_Processクラスのインスタンス。
             Exit Do
        End If
    Loop
End Sub
--------------------------------------------------------------------------

E-Mail 　URL