line 187 :
line 188 : char * hb_parc( int iParam, ... )
line 189 : {
line 190 : static FARPROC pParC = NULL;
line 191 :
line 192 : if ( !pParC )
line 193 : {
line 194 : pParC = hb_GetProcAddress( "_hb_parc" );
line 195 : }
line 196 :
line 197 : if( pExtIsArray && pParC )
line 198 : {
line 199 : if( ( ( EXT_IS_ARRAY ) pExtIsArray )( iParam ) )
line 200 : {
line 201 : va_list va;
line 202 : ULONG ulArrayIndex;
line 203 :
line 204 : va_start( va, iParam );
line 205 : ulArrayIndex = va_arg( va, ULONG );
line 206 : va_end( va );
line 207 :
line 208 : return ( ( EXT_PARC2 ) pParC )( iParam, ulArrayIndex );
line 209 : }
line 210 : else
line 211 : {
line 212 : return ( ( EXT_PARC1 ) pParC )( iParam );
line 213 : }
line 214 : }
line 215 : else
line 216 : {
line 217 : return "";
line 218 : }
line 219 : }
C:\temp>c:\bcc55\bin\bcc32 -c -Ic:\xharbour\include maindllp.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
maindllp.c:
C:\temp>
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 82 guests