sitelogo
外部関数の述語としての実現
MINERVA superseeded IF/Prolog. Please see http://www.ifcomputer.co.jp/MINERVA for details.

We discontinued to sell IF/Prolog Dec 31. 2003. For current customers, we continue to provide professional support for IF/Prolog until Dec 31, 2008.

widgetクラスによって提供される外部関数は、IF/Prologから呼び出しが行えるようにすべきです。これらの関数を呼び出す述語をIF/Prologに追加するには、標準のCインタフェ−スを使います。

XとIF/Prologの間の"Arg"名の衝突を避けるためには、ファイルcpred.hの代わりにファイルxcpred.hをインクル−ドし、C述語に対するパラメ−タを取得するために、Arg()の代わりにIFArg()を使って下さい。

新しい述語は、Cboot()と同様の手続き、たとえばCbootNewExternals()中でPrologに登録しなければなりません。この手続きは、主手続きCbootXif()から呼び出されなければなりません。$PROROOT/motif中のcbootxif.cを編集し、この呼び出しを追加して下さい。

例題：述語xmListDeselectPos/2を使用したXmListDeselectPos()の実現

static int IFXmListDeselectPos()

Widget list; unsigned int position;

if ( !XChk(IsWidget(IFArg(1),&list), IF_EXC_widget_exp) !XChk(IsUInt(IFArg(2), &position), IF_EXC_pos_int_exp)) return 0;

if (! XChk(XtIsSubclass(list), xmListWidgetClass), IF_EXC_list_exp)) return 0;

XmListDeselectPos(list, (int) position);

return 1;

. . . int CbootListExternals()

. . . CPRIM("xmListDeselectPos",2,IFXmListDeselectPos);

外部関数の実現については、例題のあるソ−ス $PROROOT/motif11/mtextext.cも参照して下さい。

Widgetの名前の変換
C言語のクラスパラメータ
引数リストの変換

Up read on...
scroll to top managed with ubiCMS