better detection of LCC-Win32 and easier to use with scilab
[scilab.git] / scilab / modules / dynamic_link / macros / findlcccompiler.sci
1 //==========================================
2 // Allan CORNET
3 // INRIA 2008
4 // Detect LCC-Win32 compiler
5 //==========================================
6 function res = findlcccompiler()
7   res = %F;
8   if MSDOS then
9     try
10       lccincludepath = winqueryreg('HKEY_CURRENT_USER', ..
11                                    'Software\lcc\compiler', ..
12                                    'includepath');
13                         
14     catch
15       return;
16     end
17   
18     try
19       winqueryreg('HKEY_CURRENT_USER', ..
20                   'Software\lcc\lcclnk', ..
21                   'libpath');
22       index = strindex(lccincludepath,filesep());
23       szindex = size(index);
24       lccbasepath = part(lccincludepath,[1:index(szindex(2))]);
25       lccbinpath = lccbasepath + 'bin';
26       lccexe = lccbinpath + filesep() + 'lcc.exe';
27       if ( fileinfo(lccexe) <> [] ) then
28         res = %T;
29       end
30     catch
31       return; 
32     end
33   end
34 endfunction
35 //==========================================
36