int _cdecl Excel12(int xlfn, LPXLOPER12 operRes, int count, ...) { LPXLOPER12 rgxloper12[cxloper12Max]; va_list ap; int ioper; int mdRet; FetchExcel12EntryPt(); if (pexcel12 == NULL) { mdRet = xlretFailed; } else { mdRet = xlretInvCount; if ((count >= 0) && (count <= cxloper12Max)) { va_start(ap, count); for (ioper = 0; ioper < count ; ioper++) { rgxloper12[ioper] = va_arg(ap, LPXLOPER12); } va_end(ap); mdRet = (pexcel12)(xlfn, count, &rgxloper12[0], operRes); } } return(mdRet); }
int pascal Excel12v(int xlfn, LPXLOPER12 operRes, int count, LPXLOPER12 opers[]) { #ifdef _WIN64 return(xlretFailed); #else int mdRet; FetchExcel12EntryPt(); if (pexcel12 == NULL) { mdRet = xlretFailed; } else { mdRet = (pexcel12)(xlfn, count, &opers[0], operRes); } return(mdRet); #endif }
void pascal SetExcel12EntryPt(EXCEL12PROC pexcel12New) { FetchExcel12EntryPt(); if (pexcel12 == NULL) { pexcel12 = pexcel12New; } }