/**
 * Import data from an ASCII file
 * PARAMETERS
 *   strFile - The file name of the source ASCII file.
 *   strSheet - The Worksheet name for import.
 */
bool read_from(String strFile, String strSheet)
{
	// Create a Worksheet object
	Worksheet wks;
	wks.Attach(strSheet);
	if (!wks.IsValid()) 
		wks.Create();
	
	// Rename the Worksheet, so we can operate it.
	// Assume it is the active window now.
	PageBase pb = Project.Pages();
	pb.Rename(strSheet);
	
	// Import
	// Do not rename the worksheet page to the file name
	// after import
	if (wks.ImportASCII(strFile))
		return true;
	else
		return false;
}

/**
 * Export Worksheet data to an ASCII file
 * PARAMETERS:
 *   strFile2 - The file name of the destination ASCII file.
 *   strSheet - The Workshhet name for export.
 */
bool write_to(String strFile2, String strSheet)
{
	// Declare a Worksheet Object
	Worksheet wks;
	wks.Attach(strSheet);
	
	// If the Worksheet doesn't exist, quit.
	if (!wks.IsValid())
		return false;
	
	// If exists, export to ASCII.
	if (-1 != wks.ExportASCII(strFile2, WKS_EXPORT_ALL))
		return true;
	else
		return false;
}

/**
 * Peform single-peak Gaussian fitting.
 * PARAMETERS:
 *   strFile - The file name of the source ASCII file.
 *   strFile2 - The file name of the destination ASCII file.
 *   strSheet - The Worksheet name that will store source data.
 */
bool gaussian_fit(String strFile, String strFile2, String strSheet)
{
	// Import
	if (!read_from(strFile, strSheet))
		return false;
	
	// Source data Y column
	String strCurve = strSheet;
	strCurve += "_B";
	
	// Begin fitting
	using NLSF = LabTalk.NLSF;	// Point to the NLSF object
	NLSF.Init();		// Initialize the fitter
	NLSF.Func$ = "gaussamp";	// Assign fitting function
	NLSF.cleanupfitdata(); 	
	NLSF.FitData$ = strCurve;	// Assign dataset name
	NLSF.Execute("parainit");	// Perform automatic parameter initialization
	NLSF.Fit(100);		// Perform fit - up to 100 iterations


	// The Worksheet name that contains fitting results.
	String strSheet2 = NLSF.funcCol$;
	strSheet2 = strSheet2.Left(strSheet2.Find("_", 0));

	// Export
	// out_str(strSheet2);
	return write_to(strFile2, strSheet2);
}

// hwndOrigin is a global variable. It refers to the child window
// of the Script Window (i.e. Edit).

HWND hwndOrigin;

/**
 * Initializations:
 * 1. Start Origin, but show the script window only.
 * 2. Find the handle of the script window.
 * 3. Find the handle of the child of the script window (Edit), 
 *    and save it as a global variable.
 */
BOOL initOrigin()
{
	// The /h switch hides everything but the script window.
	// The -i CommandLine switch insures that the script window will be open.
	// Here we assume that CommandLine.ini is stored in D:\Origin
	LPCTSTR lpstrPath = "Origin Path Here\\Origin75 /h -i D:\\Origin\\CommandLine";
	
	// The handle already exit.
	if (hwndOrigin != NULL)
		return true;
	// Start Origin from the command line, and
	// Find the script window and its child by using FindWindowEx API.
	else {
		WinExec(lpstrPath, SW_SHOW);

		HWND hwndOriginSW = FindWindowEx(NULL, NULL, "ORIGIN_SW", NULL);
		if (hwndOriginSW != NULL)
		{
			hwndOrigin = FindWindowEx(hwndOriginSW, NULL, "Edit", NULL);
			if (hwndOrigin != NULL)
			{
				return true;
			}
		}
	}
	// Failure
	return false;
}

/**
 * Exit Origin by sending 'exit' command to the script window.
 */
void exitOrigin()
{
	// doc -s suppresses the "save or not" dialog box.
	LPCTSTR lpstrCommand = "doc -s; exit";
	// Send the command to the script window.
	// WM_KEYDOWN excutes the command.
	if (hwndOrigin != NULL)
	{
		SendMessage(hwndOrigin, WM_SETTEXT, 0, (LPARAM) lpstrCommand);
		SendMessage(hwndOrigin, WM_KEYDOWN, VK_RETURN, 0L);
	}
}

	if (!initOrigin())
	{
		AfxMessageBox("Origin initialization fails");
		return 0;
	}

	// The file name that Origin will read data from
	LPSTR lpstrFile = "D:\\Origin\\temp.txt";

	// The file name that Origin will save resulting data to
	LPSTR lpstrFile2 = "D:\\Origin\\temp2.txt";

	// TODO
	// Here are codes that can save the data to be fitted to 'lpstrFile'
	//

	// Open a new window by a user-created template 'Gauss'.
	// The template includes the Origin C codes in step 2.
	// Thus Origin C codes are automatically compiled when open
	// the new data window
	SendMessage(hwndOrigin, WM_SETTEXT, 0, (LPARAM) "win -t data D:\\Origin\\Gauss Data1");
	SendMessage(hwndOrigin, WM_KEYDOWN, VK_RETURN, 0L);

	// Send the fitting command to the script window.
	char buffer[256];
	sprintf(buffer, "gaussian_fit %s %s", lpstrFile, "Data1");
	SendMessage(hwndOrigin, WM_SETTEXT, 0, (LPARAM) buffer);
	SendMessage(hwndOrigin, WM_KEYDOWN, VK_RETURN, 0L);

	// TODO
	// Here are code that can read data stored in 'lpstrFile2';
	//
	exitOrigin();

	return 0;