Beispiel #1
0
/*{{CGEN_CPMIC */
INT16 CDlpFile_OnExists(CDlpObject* __this)
/* DO NOT CALL THIS FUNCTION FROM C++ SCOPE.     */
/* IT MAY INTERFERE WITH THE INTERPRETER SESSION */
{
	INT16 __nErr    = O_K;
	INT32  __nErrCnt = 0;
	char* sFilename;
	GET_THIS_VIRTUAL_RV(CDlpFile,NOT_EXEC);
	MIC_CHECK;
	__nErrCnt = CDlpObject_GetErrorCount();
	sFilename = MIC_GET_S(1,0);
	if (CDlpObject_GetErrorCount()>__nErrCnt) return NOT_EXEC;
	MIC_PUT_B(CDlpFile_Exists(_this, sFilename));
	return __nErr;
}
Beispiel #2
0
INT16 CFvrtools_OnIsFvr(CDlpObject* __this)
/* DO NOT CALL THIS FUNCTION FROM C++ SCOPE.     */
/* IT MAY INTERFERE WITH THE INTERPRETER SESSION */
{
	INT16 __nErr    = O_K;
	INT32  __nErrCnt = 0;
	INT32 nU;
	fst* itFvr;
	GET_THIS_VIRTUAL_RV(CFvrtools,NOT_EXEC);
	MIC_CHECK;
	__nErrCnt = CDlpObject_GetErrorCount();
	itFvr = MIC_GET_I_EX(itFvr,fst,1,1);
	nU = (INT32)MIC_GET_N(2,0);
	if (CDlpObject_GetErrorCount()>__nErrCnt) return NOT_EXEC;
	MIC_PUT_B(CFvrtools_IsFvr(_this, nU, itFvr));
	return __nErr;
}