CLIPPER FILEOPEN()
{
BYTEP fpFileName;
FHANDLE hFile = FS_ERROR;
USHORT uiFlags = FO_READWRITE;
ERRORP pError;
if ( ISCHAR( 1 ) )
{
fpFileName = _parc( 1 );
uiFlags |= ( ISLOG( 2 ) && _parl( 2 ) ) ? FO_SHARED : FO_EXCLUSIVE;
pError = _errNew();
_errPutSubCode( pError, 1111 ); // subCode determined by caller
hFile = FileOpener( fpFileName, uiFlags, pError );
if ( ISBYREF( 1 ) )
_storc( fpFileName, 1 );
}
_retni( hFile );
}
CLIPPER AMODPUBLIC( void ){
WORD wModule,i,wPublics;
if ((PCOUNT() >= 1) && ISNUM(1) && (wLib != 0xffff) && ((wModule=_parni(1)-1) < wModules)){
wPublics=ScanModPublics(wModule);
if (wPublics > 0){
_reta(wPublics);
for(i=0;i <= wPublics; i++){
_storc(pcStrings[i],-1,i+1);
}
FreeStrings(wPublics);
return;
}
_ret();
return;
}
}
CLIPPER AMODEXTERN( void ){
WORD wModule,i,wExternals;
if ((PCOUNT() >= 1) && ISNUM(1) && (wLib != 0xffff) && ((wModule=_parni(1)-1) < wModules)){
wExternals=ScanModExternals(wModule);
if (wExternals > 0){
_reta(wExternals);
for(i=0;i <= wExternals; i++){
_storc(pcStrings[i],-1,i+1);
}
FreeStrings(wExternals);
return;
}
_ret();
return;
}
}
CLIPPER ALIBMODULE( void ){
BYTE acBuffer[300];
WORD i;
if (wLib!=0xffff){
_reta(wModules);
_tlseek(wLib,0,0);
for (i=0;i<wModules;i++){
_tlseek(wLib,alOffsets[i],0);
if (ReadByte() == THEADR){
if (ReadHdrRecord(acBuffer)){
_storc(acBuffer,-1,i+1);
}
}else{
_ret();
return;
}
}
return;
}
_ret();
return;
}
CLIPPER HB_STRINGS7()
{
_storc( _parc( 2 ), 1, 1 );
}
CLIPPER HB_UNDOC11()
{
_retc( _parc( 1 ) );
_storc( "CLIPPER power!!!", -1 );
}
