#include "stdafx.h"
#include <windows.h>
#include "pborca.h"


HPBORCA s;
TCHAR libname[ 2048 ];
HPBORCA WINAPI SessionOpen()
{
HPBORCA hORCASession;
hORCASession = PBORCA_SessionOpen();
return hORCASession;
}

int WINAPI SetUpSession(HPBORCA hORCASession)
{
	TCHAR szApplName[ 36 ];
	int nReturnCode;
	LPTSTR lpLibraryNames[ 1 ] ={libname};
	nReturnCode = PBORCA_SessionSetLibraryList(hORCASession, lpLibraryNames,  1 );
	if (nReturnCode !=  0 ) return nReturnCode; // return if it failed
	_tcscpy(szApplName, _TEXT("test"));
	nReturnCode = PBORCA_SessionSetCurrentAppl(hORCASession, lpLibraryNames[ 0 ], szApplName);
	return nReturnCode;
}
void WINAPI SessionClose(HPBORCA hORCASession)
{
	PBORCA_SessionClose(hORCASession);
	return;
}


void __stdcall HierProc(PBORCA_REFERENCE
*pDirEntry, LPVOID lpUserData)
{
	wprintf(_TEXT("\tRef Found:%s at %s\n"),pDirEntry->lpszEntryName,pDirEntry->lpszLibraryName);

}
void __stdcall DirectoryProc(PBORCA_DIRENTRY
*pDirEntry, LPVOID lpUserData)
{
	wprintf(_TEXT("Entry Found:%s\n"),pDirEntry->lpszEntryName);
	int r = PBORCA_ObjectQueryReference(s,libname,pDirEntry->lpszEntryName,pDirEntry->otEntryType,HierProc,NULL);
	if( 0 !=r&&- 15 !=r){printf("Error occurred:%d\n",r);}
}
int _tmain(int argc, _TCHAR* argv[])
{
	s = SessionOpen() ;
	SetUpSession(s);
	wcscpy(libname,argv[ 1 ]);
	int ret = PBORCA_LibraryDirectory(s,libname,NULL, 0 ,DirectoryProc,NULL);
	printf("%d\n",ret);
	SessionClose(s);
	return  0 ;
}