~jdpipe/ascend/trunk-old

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#include "defaultpaths.h"

#include <ascend/utilities/config.h>

#ifdef WIN32
#include <windows.h>
#endif

const char *get_default_solvers_path(){
#ifdef WIN32
# define MAXLEN 3000
	HKEY key;
	DWORD datatype, len = MAXLEN;
	long res;
	static unsigned char value[MAXLEN];
	res = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\ASCEND", 0L, KEY_QUERY_VALUE, &key);
	if(res==ERROR_SUCCESS){
		res = RegQueryValueEx(key, ASC_ENV_SOLVERS, NULL, &datatype, value, &len);
		if(res==ERROR_SUCCESS){
			RegCloseKey(key);
			return value;
		}
	}
#endif
	return ASC_DEFAULT_ASCENDSOLVERS;
}

const char *get_default_library_path(){
#ifdef WIN32
# define MAXLEN 3000
	HKEY key;
	DWORD datatype, len = MAXLEN;
	long res;
	static unsigned char value[MAXLEN];
	res = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\ASCEND", 0L, KEY_QUERY_VALUE, &key);
	if(res==ERROR_SUCCESS){
		res = RegQueryValueEx(key, ASC_ENV_LIBRARY, NULL, &datatype, value, &len);
		if(res==ERROR_SUCCESS){
			RegCloseKey(key);
			return value;
		}
	}
#endif
	return ASC_DEFAULT_ASCENDLIBRARY;
}