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.
関数名
IFISAT
IFISSTRING
IFSTRAT
概要
FUNCTION IFISAT(TERM)
TERM TERM
FUNCTION IFISSTRING(TERM,STRING)
TERM TERM
CHARACTER*(*) STRING
FUNCTION IFSTRAT(STRING)
CHARACTER*(*) STRING
説明
IFISATは、その引数がIF/Prologのアトムの場合には1を返し、それ以外の場合には、0を返します。
IFISSTRINGは、TERM がアトム、整数、または実数の場合には1を返し、第2引数にこのTERMを表す文字列へのポインタを格納します。
変換例をいくつか示します。
Prologの項 FORTRANの文字列
abc ==> 'abc'
123 ==> '123'
1.5 ==> '1.5'
IFSTRATは、FORTRANの文字列をアトムを表すIF/Prologの項に変換します。
この関数は、IFUNIFYARGと組み合わせてIF/Prologに結果を返すためによく使われます。たとえば:
IFUNIFYARG(2, IFSTRAT('mystring'))のようになります。
| 
