/*#####################################################
#  Version 1.1.2
#  Author: Hannes Serruys
#  Last updated: 11/30/2025
#####################################################*/
global EUROMOD_COMMAND_VERSION = "1.1.2"
// Minimum EUROMOD software version these commands require (keep in sync with euromod.ado).
global EUROMOD_CONNECTOR_VERSION = "3.7.10"

if "$EUROMOD_PATH" == "" {
	global EUROMOD_PATH = "C:/Program Files/EUROMOD/Executable"
}

local wd = c(pwd)
quietly cd "$EUROMOD_PATH"
capture program EM_StataPlugin, plugin using ("$EUROMOD_PATH/StataPlugin.plugin")
quietly cd "`wd'"
program define euromod_getinfo, rclass
	local wd = c(pwd)
	syntax , model(string) [country(string) system(string) parId(string) all dataset(string) extension(string) switchvalue]
	if "`system'" != "" & "`country'" == "" {
			di in r "Need country argument in order to identify system."
			error -1
	}
	if "`parId'" != "" & "`system'" == "" {
		di in r "Need system argument in order to identify parameter."
		error -1
	}
	//Using option all, all possible information is returned, otherwise the most specific information is returned
	if "`all'" == "all" {
		plugin call EM_StataPlugin, "xmlInfo" "`model'"
		if  "`country'" != "" {
			//getting country specific information
			capture noisily plugin call EM_StataPlugin, "setIterators" "`model'" "`country'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
			capture noisily plugin call EM_StataPlugin, "xmlInfoCountry" "`model'" "`country'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
		
		//get system specific information if specified
		if  "`system'" != "" {
			//getting system specific information
			capture noisily plugin call EM_StataPlugin, "xmlInfoSystem" "`model'" "`country'" "`system'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
		
		if "`parId'" != "" { 
			capture noisily plugin call EM_StataPlugin, "xmlInfoSystem" "`model'" "`country'" "`system'" "`parId'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
	}
	else {
		if "`parId'" != "" { 
			capture noisily plugin call EM_StataPlugin, "xmlInfoPar" "`model'" "`country'" "`system'" "`parId'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
		else if "`switchvalue'" != "" {
			if "`extension'" == "" | "`dataset'" == "" | "`system'" == "" { 
				di "extension, dataset and system are non-optional when retrieving the value of a switch."
			}
			capture noisily plugin call EM_StataPlugin, "getExtensionSwitchValue" "`model'" "`country'" "`system'" "`dataset'" "`extension'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
		else if "`dataset'" != "" {
			capture noisily plugin call EM_StataPlugin, "xmlInfoDataset" "`model'" "`country'" "`dataset'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
		else if "`system'" != "" {
			capture noisily plugin call EM_StataPlugin, "xmlInfoSystem" "`model'" "`country'" "`system'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
		else if "`country'" !=  "" {
			capture noisily plugin call EM_StataPlugin, "xmlInfoCountry" "`model'" "`country'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
			capture noisily plugin call EM_StataPlugin, "setIterators" "`model'" "`country'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		} 
		else {
			capture noisily plugin call EM_StataPlugin, "xmlInfo" "`model'"
			di in r "`errorMessageEM'"
			if (_rc != 0) {
				quietly cd "`wd'"
				error -1
				exit
			}
		}
		
	}
	
	
	// Setting return List Macros
	plugin call EM_StataPlugin, "setReturnList"
	foreach local_connector in `return_list_locals_connector' {
		return local `local_connector' "`rlm`local_connector''"
	}
	quietly cd "`wd'"
end