0029520: Visualization - drop deprecated V3d_View::Export() functionality and depende...
[occt.git] / adm / genconfdeps.tcl
1 # =======================================================================
2 # Created on: 2012-01-26
3 # Created by: Kirill GAVRILOV
4 # Copyright (c) 2012 OPEN CASCADE SAS
5 #
6 # This file is part of Open CASCADE Technology software library.
7 #
8 # This library is free software; you can redistribute it and/or modify it under
9 # the terms of the GNU Lesser General Public License version 2.1 as published
10 # by the Free Software Foundation, with special exception defined in the file
11 # OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 # distribution for complete text of the license and disclaimer of any warranty.
13 #
14 # Alternatively, this file may be used under the terms of Open CASCADE
15 # commercial license or contractual agreement.
16
17 # =======================================================================
18 # Tools for search of third-party libraries and generation on environment
19 # customization script
20 # =======================================================================
21
22 set ARCH "64"
23
24 if { "$tcl_platform(platform)" == "unix" } {
25   set SYS_PATH_SPLITTER ":"
26   set SYS_LIB_PREFIX    "lib"
27   set SYS_EXE_SUFFIX    ""
28   if { "$tcl_platform(os)" == "Darwin" } {
29     set SYS_LIB_SUFFIX "dylib"
30   } else {
31     set SYS_LIB_SUFFIX "so"
32   }
33   set VCVER "gcc"
34   set VCVARS ""
35 } elseif { "$tcl_platform(platform)" == "windows" } {
36   set SYS_PATH_SPLITTER ";"
37   set SYS_LIB_PREFIX    ""
38   set SYS_LIB_SUFFIX    "lib"
39   set SYS_EXE_SUFFIX    ".exe"
40   set VCVER  "vc10"
41   set VCVARS ""
42 }
43
44 set SHORTCUT_HEADERS "ShortCut"
45
46 set PRODUCTS_PATH ""
47 set CSF_OPT_INC   [list]
48 set CSF_OPT_LIB32 [list]
49 set CSF_OPT_LIB64 [list]
50 set CSF_OPT_BIN32 [list]
51 set CSF_OPT_BIN64 [list]
52
53 if { "$tcl_platform(pointerSize)" == "4" } {
54   set ARCH "32"
55 }
56 if { [info exists ::env(ARCH)] } {
57   set ARCH "$::env(ARCH)"
58 }
59
60 if { [info exists ::env(SHORTCUT_HEADERS)] } {
61   set SHORTCUT_HEADERS "$::env(SHORTCUT_HEADERS)"
62   if { $SHORTCUT_HEADERS == "true" } {
63     set SHORTCUT_HEADERS "ShortCut"
64   }
65 }
66
67 # fetch environment variables (e.g. set by custom.sh or custom.bat) and set them as tcl variables with the same name
68 set THE_ENV_VARIABLES {HAVE_FREEIMAGE HAVE_FFMPEG HAVE_TBB HAVE_GLES2 HAVE_D3D HAVE_VTK HAVE_ZLIB HAVE_LIBLZMA HAVE_OPENCL CHECK_QT4 CHECK_JDK MACOSX_USE_GLX HAVE_RelWithDebInfo}
69 foreach anEnvIter $THE_ENV_VARIABLES {
70   set ${anEnvIter} "false"
71   if { [info exists ::env(${anEnvIter})] } {
72     set ${anEnvIter} "$::env(${anEnvIter})"
73   }
74 }
75 # do not export platform-specific variables
76 if { "$::tcl_platform(os)" == "Darwin" } {
77   set HAVE_GLES2 ""
78 } else {
79   set MACOSX_USE_GLX ""
80 }
81 if { "$tcl_platform(platform)" != "windows" } {
82   set HAVE_D3D ""
83   set HAVE_RelWithDebInfo ""
84 }
85 foreach anEnvIter {ARCH VCVER VCVARS PRODUCTS_PATH} {
86   if { [info exists ::env(${anEnvIter})] } {
87     set ${anEnvIter} "$::env(${anEnvIter})"
88   }
89 }
90
91 if { [info exists ::env(CSF_OPT_INC)] } {
92   set CSF_OPT_INC [split "$::env(CSF_OPT_INC)" $::SYS_PATH_SPLITTER]
93 }
94 if { [info exists ::env(CSF_OPT_LIB32)] } {
95   set CSF_OPT_LIB32 [split "$::env(CSF_OPT_LIB32)" $::SYS_PATH_SPLITTER]
96 }
97 if { [info exists ::env(CSF_OPT_LIB64)] } {
98   set CSF_OPT_LIB64 [split "$::env(CSF_OPT_LIB64)" $::SYS_PATH_SPLITTER]
99 }
100 if { [info exists ::env(CSF_OPT_BIN32)] } {
101   set CSF_OPT_BIN32 [split "$::env(CSF_OPT_BIN32)" $::SYS_PATH_SPLITTER]
102 }
103 if { [info exists ::env(CSF_OPT_BIN64)] } {
104   set CSF_OPT_BIN64 [split "$::env(CSF_OPT_BIN64)" $::SYS_PATH_SPLITTER]
105 }
106
107 # Search header file in $::CSF_OPT_INC and standard paths
108 proc wokdep:SearchHeader {theHeader} {
109   # search in custom paths
110   foreach anIncPath $::CSF_OPT_INC {
111     set aPath "${anIncPath}/${theHeader}"
112     if { [file exists "$aPath"] } {
113       return "$aPath"
114     }
115   }
116
117   # search in system
118   set aPath "/usr/include/${theHeader}"
119   if { [file exists "$aPath"] } {
120     return "$aPath"
121   }
122
123   if { "$::tcl_platform(os)" == "Linux" } {
124     if { "$::ARCH" == "64" } {
125       set aPath "/usr/include/x86_64-linux-gnu/${theHeader}"
126       if { [file exists "$aPath"] } {
127         return "$aPath"
128       }
129     } else {
130       set aPath "/usr/include/i386-linux-gnu/${theHeader}"
131       if { [file exists "$aPath"] } {
132         return "$aPath"
133       }
134     }
135   }
136
137   return ""
138 }
139
140 # Search library file in $::CSF_OPT_LIB* and standard paths
141 proc wokdep:SearchLib {theLib theBitness {theSearchPath ""}} {
142   if { "$theSearchPath" != "" } {
143     set aPath "${theSearchPath}/${::SYS_LIB_PREFIX}${theLib}.${::SYS_LIB_SUFFIX}"
144     if { [file exists "$aPath"] } {
145       return "$aPath"
146     } else {
147       return ""
148     }
149   }
150
151   # search in custom paths
152   foreach aLibPath [set ::CSF_OPT_LIB$theBitness] {
153     set aPath "${aLibPath}/${::SYS_LIB_PREFIX}${theLib}.${::SYS_LIB_SUFFIX}"
154     if { [file exists "$aPath"] } {
155       return "$aPath"
156     }
157   }
158
159   # search in system
160   if { "$::ARCH" == "$theBitness"} {
161     set aPath "/usr/lib/${::SYS_LIB_PREFIX}${theLib}.${::SYS_LIB_SUFFIX}"
162     if { [file exists "$aPath"] } {
163       return "$aPath"
164     }
165   }
166
167
168   if { "$::tcl_platform(os)" == "Linux" } {
169     if { "$theBitness" == "64" } {
170       set aPath "/usr/lib/x86_64-linux-gnu/lib${theLib}.so"
171       if { [file exists "$aPath"] } {
172         return "$aPath"
173       }
174     } else {
175       set aPath "/usr/lib/i386-linux-gnu/lib${theLib}.so"
176       if { [file exists "$aPath"] } {
177         return "$aPath"
178       }
179     }
180   }
181
182   return ""
183 }
184
185 # Search file in $::CSF_OPT_BIN* and standard paths
186 proc wokdep:SearchBin {theBin theBitness {theSearchPath ""}} {
187   if { "$theSearchPath" != "" } {
188     set aPath "${theSearchPath}/${theBin}"
189     if { [file exists "$aPath"] } {
190       return "$aPath"
191     } else {
192       return ""
193     }
194   }
195
196   # search in custom paths
197   foreach aBinPath [set ::CSF_OPT_BIN$theBitness] {
198     set aPath "${aBinPath}/${theBin}"
199     if { [file exists "$aPath"] } {
200       return "$aPath"
201     }
202   }
203
204   # search in system
205   if { "$::ARCH" == "$theBitness"} {
206     set aPath "/usr/bin/${theBin}"
207     if { [file exists "$aPath"] } {
208       return "$aPath"
209     }
210   }
211
212   return ""
213 }
214
215 # Detect compiler C-runtime version 'vc*' and architecture '32'/'64'
216 # to determine preferred path.
217 proc wokdep:Preferred {theList theCmpl theArch} {
218   if { [llength $theList] == 0 } {
219     return ""
220   }
221
222   # keep only two first digits in "vc141"
223   if { ! [regexp {^vc[0-9][0-9]} $theCmpl aCmpl] } {
224     set aCmpl $theCmpl
225   }
226
227   set aShortList {}
228   foreach aPath $theList {
229     if { [string first "$aCmpl" "$aPath"] != "-1" } {
230       lappend aShortList "$aPath"
231     }
232   }
233
234   if { [llength $aShortList] == 0 } {
235     #return [lindex $theList 0]
236     set aShortList $theList
237   }
238
239   set aVeryShortList {}
240   foreach aPath $aShortList {
241     if { [string first "$theArch" "$aPath"] != "-1" } {
242       lappend aVeryShortList "$aPath"
243     }
244   }
245   if { [llength $aVeryShortList] == 0 } {
246     return [lindex [lsort -decreasing $aShortList] 0]
247   }
248
249   return [lindex [lsort -decreasing $aVeryShortList] 0]
250 }
251
252 # Search library placement
253 proc wokdep:SearchStandardLibrary {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64 theName theCheckHeader theCheckLib theCheckFolders} {
254   upvar $theErrInc   anErrInc
255   upvar $theErrLib32 anErrLib32
256   upvar $theErrLib64 anErrLib64
257   upvar $theErrBin32 anErrBin32
258   upvar $theErrBin64 anErrBin64
259
260   set isFound "true"
261   set aHeaderPath [wokdep:SearchHeader "$theCheckHeader"]
262   if { "$aHeaderPath"  == "" } {
263     set hasHeader false
264     foreach aFolderIter $theCheckFolders {
265       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{$aFolderIter}*] "$::VCVER" "$::ARCH" ]
266       if { "$aPath" != "" && [file exists "$aPath/include/$theCheckHeader"] } {
267         lappend ::CSF_OPT_INC "$aPath/include"
268         set hasHeader true
269         break
270       }
271     }
272     if { !$hasHeader } {
273       lappend anErrInc "Error: '$theCheckHeader' not found ($theName)"
274       set isFound "false"
275     }
276   }
277
278   foreach anArchIter {64 32} {
279     set aLibPath [wokdep:SearchLib "$theCheckLib" "$anArchIter"]
280     if { "$aLibPath" == "" } {
281       set hasLib false
282       foreach aFolderIter $theCheckFolders {
283         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{$aFolderIter}*] "$::VCVER" "$anArchIter" ]
284         set aLibPath [wokdep:SearchLib "$theCheckLib" "$anArchIter" "$aPath/lib"]
285         if { "$aLibPath" != "" } {
286           lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
287           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
288           set hasLib true
289           break
290         }
291       }
292       if { !$hasLib } {
293         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}$theCheckLib.${::SYS_LIB_SUFFIX}' not found ($theName)"
294         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
295       }
296     }
297
298     if { "$::tcl_platform(platform)" == "windows" } {
299       set aDllPath [wokdep:SearchBin "$theCheckLib.dll" "$anArchIter"]
300       if { "$aDllPath" == "" } {
301         set hasDll false
302         foreach aFolderIter $theCheckFolders {
303           set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{$aFolderIter}*] "$::VCVER" "$anArchIter" ]
304           set aDllPath [wokdep:SearchBin "$theCheckLib.dll" "$anArchIter" "$aPath/bin"]
305           if { "$aDllPath" != "" } {
306             lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
307             set hasDll true
308             break
309           } else {
310             set aDllPath [wokdep:SearchBin "$theCheckLib.dll" "$anArchIter" "$aPath/lib"]
311             if { "$aDllPath" != "" } {
312               lappend ::CSF_OPT_BIN$anArchIter "$aPath/lib"
313               set hasDll true
314               break
315             }
316           }
317         }
318         if { !$hasDll } {
319           lappend anErrBin$anArchIter "Error: '$theCheckLib.dll' not found ($theName)"
320           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
321         }
322       }
323     }
324   }
325
326   return "$isFound"
327 }
328
329 # Search Tcl/Tk libraries placement
330 proc wokdep:SearchTclTk {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
331   upvar $theErrInc   anErrInc
332   upvar $theErrLib32 anErrLib32
333   upvar $theErrLib64 anErrLib64
334   upvar $theErrBin32 anErrBin32
335   upvar $theErrBin64 anErrBin64
336
337   set tclver_maj 8
338   set tclver_min 6
339   
340   set isFound "true"
341   set aTclHPath [wokdep:SearchHeader "tcl.h"]
342   set aTkHPath  [wokdep:SearchHeader "tk.h"]
343   if { "$aTclHPath" == "" || "$aTkHPath" == "" } {
344     if { [file exists "/usr/include/tcl8.6/tcl.h"]
345       && [file exists "/usr/include/tcl8.6/tk.h" ] } {
346       lappend ::CSF_OPT_INC "/usr/include/tcl8.6"
347       set aTclHPath "/usr/include/tcl8.6/tcl.h"
348     } else {
349       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{tcl}*] "$::VCVER" "$::ARCH" ]
350       if { "$aPath" != "" && [file exists "$aPath/include/tcl.h"] && [file exists "$aPath/include/tk.h"] } {
351         lappend ::CSF_OPT_INC "$aPath/include"
352         set aTclHPath "$aPath/include/tcl.h"
353       } else {
354         lappend anErrInc "Error: 'tcl.h' or 'tk.h' not found (Tcl/Tk)"
355         set isFound "false"
356       }
357     }
358   }
359
360   # detect tcl version by parsing header file
361   if { $isFound } {
362     set fh [open $aTclHPath]
363     set tcl_h [read $fh]
364     close $fh
365     regexp {define\s+TCL_MAJOR_VERSION\s+([0-9]+)} $tcl_h dummy tclver_maj
366     regexp {define\s+TCL_MINOR_VERSION\s+([0-9]+)} $tcl_h dummy tclver_min
367   }
368
369   if { "$::tcl_platform(platform)" == "windows" } {
370     set aTclLibName "tcl${tclver_maj}${tclver_min}"
371     set aTkLibName  "tk${tclver_maj}${tclver_min}"
372   } else {
373     set aTclLibName "tcl${tclver_maj}.${tclver_min}"
374     set aTkLibName  "tk${tclver_maj}.${tclver_min}"
375   }
376
377   foreach anArchIter {64 32} {
378     set aTclLibPath [wokdep:SearchLib "$aTclLibName" "$anArchIter"]
379     set aTkLibPath  [wokdep:SearchLib "$aTkLibName"  "$anArchIter"]
380     if { "$aTclLibPath" == "" || "$aTkLibPath" == "" } {
381       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{tcl}*] "$::VCVER" "$anArchIter" ]
382       set aTclLibPath [wokdep:SearchLib "$aTclLibName" "$anArchIter" "$aPath/lib"]
383       set aTkLibPath  [wokdep:SearchLib "$aTkLibName"  "$anArchIter" "$aPath/lib"]
384       if { "$aTclLibPath" != "" && "$aTkLibPath" != "" } {
385         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
386       } else {
387         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}${aTclLibName}.${::SYS_LIB_SUFFIX}' or '${::SYS_LIB_PREFIX}${aTkLibName}.${::SYS_LIB_SUFFIX}' not found (Tcl/Tk)"
388         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
389       }
390     }
391
392     if { "$::tcl_platform(platform)" == "windows" } {
393       set aTclDllPath [wokdep:SearchBin "${aTclLibName}.dll" "$anArchIter"]
394       set aTkDllPath  [wokdep:SearchBin "${aTkLibName}.dll"  "$anArchIter"]
395       if { "$aTclDllPath" == "" || "$aTkDllPath" == "" } {
396         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{tcl}*] "$::VCVER" "$anArchIter" ]
397         set aTclDllPath [wokdep:SearchBin "${aTclLibName}.dll" "$anArchIter" "$aPath/bin"]
398         set aTkDllPath  [wokdep:SearchBin "${aTkLibName}.dll"  "$anArchIter" "$aPath/bin"]
399         if { "$aTclDllPath" != "" && "$aTkDllPath" != "" } {
400           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
401         } else {
402           lappend anErrBin$anArchIter "Error: '${aTclLibName}.dll' or '${aTkLibName}.dll' not found (Tcl/Tk)"
403           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
404         }
405       }
406     }
407   }
408
409   return "$isFound"
410 }
411
412 # Search FreeType library placement
413 proc wokdep:SearchFreeType {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
414   upvar $theErrInc   anErrInc
415   upvar $theErrLib32 anErrLib32
416   upvar $theErrLib64 anErrLib64
417   upvar $theErrBin32 anErrBin32
418   upvar $theErrBin64 anErrBin64
419
420   set isFound "true"
421   set aFtBuildPath [wokdep:SearchHeader "ft2build.h"]
422
423   if { "$aFtBuildPath" == "" } {
424     # TODO - use `freetype-config --cflags` instead
425     set aSysFreeType "/usr/include/freetype2"
426     if { [file exists "$aSysFreeType/ft2build.h"] } {
427       lappend ::CSF_OPT_INC "$aSysFreeType"
428     } elseif { [file exists "$aSysFreeType/freetype2/ft2build.h"] } {
429       lappend ::CSF_OPT_INC "$aSysFreeType/freetype2"
430     } else {
431       set aSysFreeType "/usr/X11/include/freetype2"
432       if { [file exists "$aSysFreeType/ft2build.h"] } {
433         lappend ::CSF_OPT_INC "/usr/X11/include"
434         lappend ::CSF_OPT_INC "$aSysFreeType"
435       } else {
436         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{freetype}*] "$::VCVER" "$::ARCH" ]
437         if {"$aPath" != ""} {
438           if {[file exists "$aPath/include/ft2build.h"]} {
439             lappend ::CSF_OPT_INC "$aPath/include"
440           } elseif {[file exists "$aPath/include/freetype2/ft2build.h"]} {
441             lappend ::CSF_OPT_INC "$aPath/include/freetype2"
442           }
443         } else {
444           lappend anErrInc "Error: 'freetype.h' not found (FreeType2)"
445           set isFound "false"
446         }
447       }
448     }
449   }
450
451   # parse 'freetype-config --libs'
452   set aConfLibPath ""
453   if { [catch { set aConfLibs [exec freetype-config --libs] } ] == 0 } {
454     foreach aPath [split $aConfLibs " "] {
455       if { [string first "-L" "$aPath"] == 0 } {
456         set aConfLibPath [string range "$aPath" 2 [string length "$aPath"]]
457       }
458     }
459   }
460
461   foreach anArchIter {64 32} {
462     set aFtLibPath [wokdep:SearchLib "freetype" "$anArchIter"]
463     if { "$aFtLibPath" == "" } {
464       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{freetype}*] "$::VCVER" "$anArchIter" ]
465       set aFtLibPath [wokdep:SearchLib "freetype" "$anArchIter" "$aPath/lib"]
466       if { "$aFtLibPath" != "" } {
467         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
468       } else {
469         set aFtLibPath [wokdep:SearchLib "freetype" "$anArchIter" "$aConfLibPath"]
470         if { "$aFtLibPath" != "" } {
471           lappend ::CSF_OPT_LIB$anArchIter "$aConfLibPath"
472         } else {
473           lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}freetype.${::SYS_LIB_SUFFIX}' not found (FreeType2)"
474           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
475         }
476       }
477     }
478     if { "$::tcl_platform(platform)" == "windows" } {
479       set aFtDllPath [wokdep:SearchBin "freetype.dll" "$anArchIter"]
480       if { "$aFtDllPath" == "" } {
481         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{freetype}*] "$::VCVER" "$anArchIter" ]
482         set aFtDllPath [wokdep:SearchBin "freetype.dll" "$anArchIter" "$aPath/bin"]
483         if { "$aFtDllPath" != "" } {
484           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
485         } else {
486           set aFtDllPath [wokdep:SearchBin "freetype.dll" "$anArchIter" "$aPath/lib"]
487           if { "$aFtDllPath" != "" } {
488             lappend ::CSF_OPT_BIN$anArchIter "$aPath/lib"
489           } else {
490             lappend anErrBin$anArchIter "Error: 'freetype.dll' not found (FreeType2)"
491             if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
492           }
493         }
494       }
495     }
496   }
497
498   return "$isFound"
499 }
500
501 # Search FreeImage library placement
502 proc wokdep:SearchFreeImage {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
503   upvar $theErrInc   anErrInc
504   upvar $theErrLib32 anErrLib32
505   upvar $theErrLib64 anErrLib64
506   upvar $theErrBin32 anErrBin32
507   upvar $theErrBin64 anErrBin64
508
509   # binary distribution has another layout
510   set aFImageDist     "Dist"
511
512   set isFound "true"
513   set aFImageHPath [wokdep:SearchHeader "FreeImage.h"]
514   if { "$aFImageHPath" == "" } {
515     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{freeimage}*] "$::VCVER" "$::ARCH" ]
516     if { "$aPath" != "" && [file exists "$aPath/include/FreeImage.h"] } {
517       lappend ::CSF_OPT_INC "$aPath/include"
518     } elseif { "$aPath" != "" && [file exists "$aPath/$aFImageDist/FreeImage.h"] } {
519       lappend ::CSF_OPT_INC "$aPath/$aFImageDist"
520     } else {
521       lappend anErrInc "Error: 'FreeImage.h' not found (FreeImage)"
522       set isFound "false"
523     }
524   }
525
526   foreach anArchIter {64 32} {
527     set aFImageLibPath [wokdep:SearchLib "freeimage"     "$anArchIter"]
528     if { "$aFImageLibPath" == "" } {
529       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{freeimage}*] "$::VCVER" "$anArchIter" ]
530       set aFImageLibPath [wokdep:SearchLib "freeimage" "$anArchIter" "$aPath/lib"]
531       if { "$aFImageLibPath" != "" } {
532         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
533       } else {
534         set aFImageLibPath [wokdep:SearchLib "freeimage" "$anArchIter" "$aPath/$aFImageDist"]
535         if { "$aFImageLibPath" != "" } {
536           lappend ::CSF_OPT_LIB$anArchIter "$aPath/$aFImageDist"
537         } else {
538           lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}freeimage.${::SYS_LIB_SUFFIX}' not found (FreeImage)"
539           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
540         }
541       }
542     }
543     if { "$::tcl_platform(platform)" == "windows" } {
544       set aFImageDllPath [wokdep:SearchBin "freeimage.dll" "$anArchIter"]
545       if { "$aFImageDllPath" == "" } {
546         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{freeimage}*] "$::VCVER" "$anArchIter" ]
547         set aFImageDllPath [wokdep:SearchBin "freeimage.dll" "$anArchIter" "$aPath/bin"]
548         if { "$aFImageDllPath" != "" } {
549           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
550         } else {
551           set aFImageDllPath [wokdep:SearchBin "freeimage.dll" "$anArchIter" "$aPath/$aFImageDist"]
552           if { "$aFImageDllPath" != "" } {
553             lappend ::CSF_OPT_BIN$anArchIter "$aPath/$aFImageDist"
554           } else {
555             lappend anErrBin$anArchIter "Error: 'freeimage.dll' is not found (FreeImage)"
556             if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
557           }
558         }
559       }
560     }
561   }
562
563   return "$isFound"
564 }
565
566 # Search FFmpeg framework placement
567 proc wokdep:SearchFFmpeg {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
568   upvar $theErrInc   anErrInc
569   upvar $theErrLib32 anErrLib32
570   upvar $theErrLib64 anErrLib64
571   upvar $theErrBin32 anErrBin32
572   upvar $theErrBin64 anErrBin64
573
574   set isFound "true"
575   set aFFmpegHPath [wokdep:SearchHeader "libavutil/avutil.h"]
576   if { "$aFFmpegHPath"  == "" } {
577     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{ffmpeg}*] "$::VCVER" "$::ARCH" ]
578     if { "$aPath" != "" && [file exists "$aPath/include/libavutil/avutil.h"] } {
579       lappend ::CSF_OPT_INC "$aPath/include"
580     } else {
581       lappend anErrInc "Error: 'libavutil/avutil.h' not found (FFmpeg)"
582       set isFound "false"
583     }
584   }
585
586   foreach anArchIter {64 32} {
587     set aFFmpegLibPath [wokdep:SearchLib "avutil" "$anArchIter"]
588     if { "$aFFmpegLibPath" == "" } {
589       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{ffmpeg}*] "$::VCVER" "$anArchIter" ]
590       set aFFmpegLibPath [wokdep:SearchLib "avutil" "$anArchIter" "$aPath/lib"]
591       if { "$aFFmpegLibPath" != "" } {
592         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
593         lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
594       } else {
595         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}avutil.${::SYS_LIB_SUFFIX}' not found (FFmpeg)"
596         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
597       }
598     }
599   }
600
601   return "$isFound"
602 }
603
604 # Search TBB library placement
605 proc wokdep:SearchTBB {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
606   upvar $theErrInc   anErrInc
607   upvar $theErrLib32 anErrLib32
608   upvar $theErrLib64 anErrLib64
609   upvar $theErrBin32 anErrBin32
610   upvar $theErrBin64 anErrBin64
611
612   # keep only two first digits in "vc141"
613   if { ! [regexp {^vc[0-9][0-9]} ${::VCVER} aVcLib] } {
614     set aVcLib ${::VCVER}
615   }
616
617   set isFound "true"
618   set aTbbHPath [wokdep:SearchHeader "tbb/scalable_allocator.h"]
619   if { "$aTbbHPath"  == "" } {
620     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{tbb}*] "$::VCVER" "$::ARCH" ]
621     if { "$aPath" != "" && [file exists "$aPath/include/tbb/scalable_allocator.h"] } {
622       lappend ::CSF_OPT_INC "$aPath/include"
623     } else {
624       lappend anErrInc "Error: 'tbb/scalable_allocator.h' not found (Intel TBB)"
625       set isFound "false"
626     }
627   }
628
629   foreach anArchIter {64 32} {
630     set aSubDir "ia32"
631     if { "$anArchIter" == "64"} {
632       set aSubDir "intel64"
633     }
634
635     set aTbbLibPath [wokdep:SearchLib "tbb" "$anArchIter"]
636     if { "$aTbbLibPath" == "" } {
637       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{tbb}*] $aVcLib "$anArchIter" ]
638       set aTbbLibPath [wokdep:SearchLib "tbb" "$anArchIter" "$aPath/lib/$aSubDir/$aVcLib"]
639       if { "$aTbbLibPath" == "" } {
640         # Set the path to the TBB library for Linux
641         if { "$::tcl_platform(platform)" != "windows" } {
642           set aSubDir "$aSubDir/cc4.1.0_libc2.4_kernel2.6.16.21"
643         }
644         set aTbbLibPath [wokdep:SearchLib "tbb" "$anArchIter" "$aPath/lib/$aSubDir"]
645         if { "$aTbbLibPath" != "" } {
646           lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib/$aSubDir"
647         }
648       } else {
649         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib/$aSubDir/$aVcLib"
650       }
651       if { "$aTbbLibPath" == "" } {
652         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}tbb.${::SYS_LIB_SUFFIX}' not found (Intel TBB)"
653         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
654       }
655     }
656     if { "$::tcl_platform(platform)" == "windows" } {
657       set aTbbDllPath [wokdep:SearchBin "tbb.dll" "$anArchIter"]
658       if { "$aTbbDllPath" == "" } {
659         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{tbb}*] $aVcLib "$anArchIter" ]
660         set aTbbDllPath [wokdep:SearchBin "tbb.dll" "$anArchIter" "$aPath/bin/$aSubDir/$aVcLib"]
661         if { "$aTbbDllPath" != "" } {
662           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin/$aSubDir/$aVcLib"
663         } else {
664           lappend anErrBin$anArchIter "Error: 'tbb.dll' not found (Intel TBB)"
665           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
666         }
667       }
668     }
669   }
670
671   return "$isFound"
672 }
673
674 # Search OpenCL library placement
675 proc wokdep:SearchOpenCL {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
676   upvar $theErrInc   anErrInc
677   upvar $theErrLib32 anErrLib32
678   upvar $theErrLib64 anErrLib64
679   upvar $theErrBin32 anErrBin32
680   upvar $theErrBin64 anErrBin64
681
682   set isFound "true"
683   if { "$::tcl_platform(os)" == "Darwin" } {
684     # OpenCL framework available since Mac OS X 16
685     return "$isFound"
686   }
687
688   set aCLHPath [wokdep:SearchHeader "CL/cl_gl.h"]
689   if { "$aCLHPath"  == "" } {
690     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{OpenCL}*] "$::VCVER" "$::ARCH" ]
691     if { "$aPath" != "" && [file exists "$aPath/include/CL/cl_gl.h"] } {
692       lappend ::CSF_OPT_INC "$aPath/include"
693     } else {
694       lappend anErrInc "Error: 'CL/cl_gl.h' not found (OpenCL)"
695       set isFound "false"
696     }
697   }
698
699   foreach anArchIter {64 32} {
700     set aCLLibPath [wokdep:SearchLib "OpenCL" "$anArchIter"]
701     if { "$aCLLibPath" == "" } {
702       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{OpenCL}*] "$::VCVER" "$anArchIter" ]
703       set aCLLibPath [wokdep:SearchLib "OpenCL" "$anArchIter" "$aPath/lib"]
704       if { "$aCLLibPath" != "" } {
705         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
706       } else {
707         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}OpenCL.${::SYS_LIB_SUFFIX}' not found (OpenCL)"
708         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
709       }
710     }
711   }
712
713   return "$isFound"
714 }
715
716 # Search EGL library placement
717 proc wokdep:SearchEGL {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
718   upvar $theErrInc   anErrInc
719   upvar $theErrLib32 anErrLib32
720   upvar $theErrLib64 anErrLib64
721   upvar $theErrBin32 anErrBin32
722   upvar $theErrBin64 anErrBin64
723
724   set isFound "true"
725   set aHeaderPath [wokdep:SearchHeader "EGL/egl.h"]
726   if { "$aHeaderPath"  == "" } {
727     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{EGL}*] "$::VCVER" "$::ARCH" ]
728     if { "$aPath" == "" || ![file exists "$aPath/include/EGL/egl.h"] } {
729       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{angle}*] "$::VCVER" "$::ARCH" ]
730     }
731
732     if { "$aPath" != "" && [file exists "$aPath/include/EGL/egl.h"] } {
733       lappend ::CSF_OPT_INC "$aPath/include"
734     } else {
735       lappend anErrInc "Error: 'EGL/egl.h' not found (EGL)"
736       set isFound "false"
737     }
738   }
739
740   set aLibName "EGL"
741   if { "$::tcl_platform(platform)" == "windows" } {
742     # awkward exception
743     set aLibName "libEGL"
744   }
745
746   foreach anArchIter {64 32} {
747     set aLibPath [wokdep:SearchLib "$aLibName" "$anArchIter"]
748     if { "$aLibPath" == "" } {
749       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{EGL}*] "$::VCVER" "$anArchIter" ]
750       set aLibPath [wokdep:SearchLib "$aLibName" "$anArchIter" "$aPath/lib"]
751       if { "$aLibPath" == "" } {
752         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{angle}*] "$::VCVER" "$anArchIter" ]
753         set aLibPath [wokdep:SearchLib "$aLibName" "$anArchIter" "$aPath/lib"]
754       }
755
756       if { "$aLibPath" != "" } {
757         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
758       } else {
759         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}${aLibName}.${::SYS_LIB_SUFFIX}' not found (EGL)"
760         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
761       }
762     }
763
764     if { "$::tcl_platform(platform)" == "windows" } {
765       set aDllPath [wokdep:SearchBin "libEGL.dll" "$anArchIter"]
766       if { "$aDllPath" == "" } {
767         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{EGL}*] "$::VCVER" "$anArchIter" ]
768         set aDllPath [wokdep:SearchBin "libEGL.dll" "$anArchIter" "$aPath/bin"]
769         if { "$aDllPath" == "" } {
770           set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{angle}*] "$::VCVER" "$anArchIter" ]
771           set aDllPath [wokdep:SearchBin "libEGL.dll" "$anArchIter" "$aPath/bin"]
772         }
773
774         if { "$aDllPath" != "" } {
775           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
776         } else {
777           lappend anErrBin$anArchIter "Error: 'libEGL.dll' not found (EGL)"
778           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
779         }
780       }
781     }
782   }
783
784   return "$isFound"
785 }
786
787 # Search OpenGL ES 2.0 library placement
788 proc wokdep:SearchGLES {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
789   upvar $theErrInc   anErrInc
790   upvar $theErrLib32 anErrLib32
791   upvar $theErrLib64 anErrLib64
792   upvar $theErrBin32 anErrBin32
793   upvar $theErrBin64 anErrBin64
794
795   set isFound "true"
796   set aHeaderPath [wokdep:SearchHeader "GLES2/gl2.h"]
797   if { "$aHeaderPath"  == "" } {
798     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{GLES}*] "$::VCVER" "$::ARCH" ]
799     if { "$aPath" == "" || ![file exists "$aPath/include/GLES2/gl2.h"] } {
800       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{angle}*] "$::VCVER" "$::ARCH" ]
801     }
802
803     if { "$aPath" != "" && [file exists "$aPath/include/GLES2/gl2.h"] } {
804       lappend ::CSF_OPT_INC "$aPath/include"
805     } else {
806       lappend anErrInc "Error: 'GLES2/gl2.h' not found (OpenGL ES 2.0)"
807       set isFound "false"
808     }
809   }
810
811   set aLibName "GLESv2"
812   if { "$::tcl_platform(platform)" == "windows" } {
813     # awkward exception
814     set aLibName "libGLESv2"
815   }
816
817   foreach anArchIter {64 32} {
818     set aLibPath [wokdep:SearchLib "$aLibName" "$anArchIter"]
819     if { "$aLibPath" == "" } {
820       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{GLES}*] "$::VCVER" "$anArchIter" ]
821       set aLibPath [wokdep:SearchLib "$aLibName" "$anArchIter" "$aPath/lib"]
822       if { "$aLibPath" == "" } {
823         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{angle}*] "$::VCVER" "$anArchIter" ]
824         set aLibPath [wokdep:SearchLib "$aLibName" "$anArchIter" "$aPath/lib"]
825       }
826
827       if { "$aLibPath" != "" } {
828         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
829       } else {
830         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}${aLibName}.${::SYS_LIB_SUFFIX}' not found (OpenGL ES 2.0)"
831         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
832       }
833     }
834
835     if { "$::tcl_platform(platform)" == "windows" } {
836       set aDllPath [wokdep:SearchBin "libGLESv2.dll" "$anArchIter"]
837       if { "$aDllPath" == "" } {
838         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{EGL}*] "$::VCVER" "$anArchIter" ]
839         set aDllPath [wokdep:SearchBin "libGLESv2.dll" "$anArchIter" "$aPath/bin"]
840         if { "$aDllPath" == "" } {
841           set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{angle}*] "$::VCVER" "$anArchIter" ]
842           set aDllPath [wokdep:SearchBin "libGLESv2.dll" "$anArchIter" "$aPath/bin"]
843         }
844
845         if { "$aDllPath" != "" } {
846           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
847         } else {
848           lappend anErrBin$anArchIter "Error: 'libGLESv2.dll' not found (OpenGL ES 2.0)"
849           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
850         }
851       }
852     }
853   }
854
855   return "$isFound"
856 }
857
858 # Auxiliary function, gets VTK version to set default search directory
859 proc wokdep:VtkVersion { thePath } {
860   set aResult "6.1"
861
862   set aVtkRoot [lindex [regexp -all -inline {[0-9.]*} [file tail $thePath]] 0]
863   if { "$aVtkRoot" != "" } {
864     set aVtkRoot [regexp -inline {[0-9]*.[0-9]*} $aVtkRoot]
865     if { "$aVtkRoot" != "" } {
866     set aResult $aVtkRoot
867     }
868   }
869
870   return $aResult
871 }
872
873 # Search VTK library placement
874 proc wokdep:SearchVTK {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
875   upvar $theErrInc   anErrInc
876   upvar $theErrLib32 anErrLib32
877   upvar $theErrLib64 anErrLib64
878   upvar $theErrBin32 anErrBin32
879   upvar $theErrBin64 anErrBin64
880
881   set isFound "true"
882   
883   set aVtkPath ""
884   set aVtkIncPath [wokdep:SearchHeader "vtkConfigure.h"]
885   set aVtkVer [wokdep:VtkVersion $aVtkIncPath]
886   if { "$aVtkIncPath" == ""} {
887     set aPathList [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{VTK}*]
888     set aVtkPath [wokdep:Preferred "$aPathList" "$::VCVER" "$::ARCH" ]
889     if { "$aVtkPath" != "" && [file exists "$aVtkPath/include/vtk-[wokdep:VtkVersion $aVtkPath]/vtkConfigure.h"]} { 
890       set aVtkVer [wokdep:VtkVersion $aVtkPath]
891       lappend ::CSF_OPT_INC "$aVtkPath/include/vtk-[wokdep:VtkVersion $aVtkPath]"
892     } else { # try to search in all found paths
893       set isFound "false"
894       foreach anIt $aPathList {
895         if { [file exists "$anIt/include/vtk-[wokdep:VtkVersion $anIt]/vtkConfigure.h"] } {
896           set aVtkPath $anIt
897           set aVtkVer [wokdep:VtkVersion $aVtkPath]
898           lappend ::CSF_OPT_INC "$anIt/include/vtk-[wokdep:VtkVersion $anIt]"
899           set isFound "true"
900           break
901         }
902       }
903
904       # Bad case: we do not found vtkConfigure.h in all paths.
905       if { "$isFound" == "false"} {
906         lappend anErrInc "Error: 'vtkConfigure.h' not found (VTK)"
907         set isFound "false"
908       }
909     }
910   }
911
912   set aVtkLibPath ""
913   foreach anArchIter {64 32} {
914     set aVtkLibPath [wokdep:SearchLib "vtkCommonCore-$aVtkVer" "$anArchIter"]
915     if { "$aVtkLibPath" == "" } {
916       set aPathList [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{VTK}*]
917       set aPath [wokdep:Preferred $aPathList "$::VCVER" "$anArchIter" ]
918       set aVtkLibPath [wokdep:SearchLib "vtkCommonCore-$aVtkVer" "$anArchIter" "$aPath/lib"]
919       if { "$aVtkLibPath" != "" } {
920         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
921       } else {
922         set aPath [wokdep:SearchLib "vtkCommonCore-$aVtkVer" "$anArchIter" "$aVtkPath/lib"]
923         if { "$aPath" != "" } {
924           set aLibPath $aVtkIncPath
925           lappend ::CSF_OPT_LIB$anArchIter "$aLibPath/lib"
926         } else {
927           # The last chance: search /lib directory in all found paths
928           foreach anIt $aPathList {
929             set aVtkLibPath [wokdep:SearchLib "vtkCommonCore-$aVtkVer" "$anArchIter" "$anIt/lib"]
930             if { "$aVtkLibPath" != ""} {
931               lappend ::CSF_OPT_LIB$anArchIter "$anIt/lib"
932               break
933             }
934           }
935           if { "$aVtkLibPath" == "" } {
936             lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}vtkCommonCore-${aVtkVer}\.${::SYS_LIB_SUFFIX}' not found (VTK)"
937             if { "$::ARCH" == "$anArchIter" } {
938               set isFound "false"
939             }
940           }
941         }
942       }
943     }
944   }
945   
946     # Search binary path
947     if { "$::tcl_platform(platform)" == "windows" } {
948       foreach anArchIter {64 32} {
949         set aVtkBinPath [wokdep:SearchBin "vtkCommonCore-${aVtkVer}.dll" "$anArchIter"]
950         if { "$aVtkBinPath" == "" } {
951           set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{VTK}*] "$::VCVER" "$anArchIter" ]
952           set aVtkBinPath [wokdep:SearchBin "vtkCommonCore-${aVtkVer}.dll" "$anArchIter" "$aPath/bin"]
953           if { "$aVtkBinPath" != "" } { lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
954           } else {
955             set aVtkBinPath [wokdep:SearchBin "vtkCommonCore-${aVtkVer}.dll" "$anArchIter" "$aPath/lib"]
956             if { "$aVtkBinPath" != "" } { lappend ::CSF_OPT_BIN$anArchIter "$aPath/lib" } 
957           }
958         }
959       }
960       
961       # We didn't find preferred binary path => search through inc path or among all available VTK directories
962       if { "$aVtkBinPath" == "" } {
963         # Try to find in lib path
964         set aPath [wokdep:SearchBin "vtkCommonCore-${aVtkVer}.dll" "$anArchIter" "$aVtkLibPath/bin"]
965         if { "$aPath" != "" } { lappend ::CSF_OPT_BIN$anArchIter "$aVtkLibPath/bin"
966         } elseif { [wokdep:SearchBin "vtkCommonCore-${aVtkVer}.dll" "$anArchIter" "$aVtkLibPath/lib"] != "" } {
967           lappend ::CSF_OPT_BIN$anArchIter "$aVtkLibPath/lib"
968         } else {
969            lappend anErrBin$anArchIter "Error: 'vtkCommonCore-${aVtkVer}.dll' not found (VTK)"
970            set isFound "false"
971         }
972       }
973     }
974
975   return "$isFound"
976 }
977
978 # Search Qt4 libraries placement
979 proc wokdep:SearchQt4 {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
980   upvar $theErrInc   anErrInc
981   upvar $theErrLib32 anErrLib32
982   upvar $theErrLib64 anErrLib64
983   upvar $theErrBin32 anErrBin32
984   upvar $theErrBin64 anErrBin64
985
986   set isFound "true"
987   set aQMsgBoxHPath [wokdep:SearchHeader "QtGui/qmessagebox.h"]
988   if { "$aQMsgBoxHPath" == "" } {
989     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{qt4}*] "$::VCVER" "$::ARCH" ]
990     if { "$aPath" != "" && [file exists "$aPath/include/QtGui/qmessagebox.h"] } {
991       lappend ::CSF_OPT_INC "$aPath/include"
992       lappend ::CSF_OPT_INC "$aPath/include/Qt"
993       lappend ::CSF_OPT_INC "$aPath/include/QtGui"
994       lappend ::CSF_OPT_INC "$aPath/include/QtCore"
995     } else {
996       if { [file exists "/usr/include/qt4/QtGui/qmessagebox.h"] } {
997         lappend ::CSF_OPT_INC "/usr/include/qt4"
998         lappend ::CSF_OPT_INC "/usr/include/qt4/Qt"
999         lappend ::CSF_OPT_INC "/usr/include/qt4/QtGui"
1000         lappend ::CSF_OPT_INC "/usr/include/qt4/QtCore"
1001       } else {
1002         lappend anErrInc "Error: 'QtGui/qmessagebox.h' not found (Qt4)"
1003         set isFound "false"
1004       }
1005     }
1006   }
1007
1008   set aQtGuiLibName "QtGui"
1009   if { "$::tcl_platform(platform)" == "windows" } {
1010     set aQtGuiLibName "QtGui4"
1011   }
1012
1013   foreach anArchIter {64 32} {
1014     set aQMsgBoxLibPath [wokdep:SearchLib "${aQtGuiLibName}" "$anArchIter"]
1015     if { "$aQMsgBoxLibPath" == "" } {
1016       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{qt4}*] "$::VCVER" "$anArchIter" ]
1017       set aQMsgBoxLibPath [wokdep:SearchLib "${aQtGuiLibName}" "$anArchIter" "$aPath/lib"]
1018       if { "$aQMsgBoxLibPath" != "" } {
1019         lappend ::CSF_OPT_LIB$anArchIter "$aPath/lib"
1020       } else {
1021         lappend anErrLib$anArchIter "Error: '${::SYS_LIB_PREFIX}${aQtGuiLibName}.${::SYS_LIB_SUFFIX}' not found (Qt4)"
1022         if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
1023       }
1024     }
1025     if { "$::tcl_platform(platform)" == "windows" } {
1026       set aQMsgBoxDllPath [wokdep:SearchBin "QtGui4.dll" "$anArchIter"]
1027       if { "$aQMsgBoxDllPath" == "" } {
1028         set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{qt4}*] "$::VCVER" "$anArchIter" ]
1029         set aQMsgBoxDllPath [wokdep:SearchBin "QtGui4.dll" "$anArchIter" "$aPath/bin"]
1030         if { "$aQMsgBoxDllPath" != "" } {
1031           lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
1032         } else {
1033           lappend anErrBin$anArchIter "Error: 'QtGui4.dll' not found (Qt4)"
1034           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
1035         }
1036       }
1037     }
1038   }
1039
1040   return "$isFound"
1041 }
1042
1043 # Search JDK placement
1044 proc wokdep:SearchJDK {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
1045   upvar $theErrInc   anErrInc
1046   upvar $theErrLib32 anErrLib32
1047   upvar $theErrLib64 anErrLib64
1048   upvar $theErrBin32 anErrBin32
1049   upvar $theErrBin64 anErrBin64
1050
1051   set isFound "true"
1052   set aJniHPath   [wokdep:SearchHeader "jni.h"]
1053   set aJniMdHPath [wokdep:SearchHeader "jni_md.h"]
1054   if { "$aJniHPath" == "" || "$aJniMdHPath" == "" } {
1055     set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{jdk,java}*] "$::VCVER" "$::ARCH" ]
1056     if { "$aPath" != "" && [file exists "$aPath/include/jni.h"] } {
1057       lappend ::CSF_OPT_INC "$aPath/include"
1058       if { "$::tcl_platform(platform)" == "windows" } {
1059         lappend ::CSF_OPT_INC "$aPath/include/win32"
1060       } elseif { [file exists "$aPath/include/linux"] } {
1061         lappend ::CSF_OPT_INC "$aPath/include/linux"
1062       }
1063     } else {
1064       if { [file exists "/System/Library/Frameworks/JavaVM.framework/Home/include/jni.h"] } {
1065         lappend ::CSF_OPT_INC "/System/Library/Frameworks/JavaVM.framework/Home/include"
1066       } else {
1067         lappend anErrInc "Error: 'jni.h' or 'jni_md.h' not found (JDK)"
1068         set isFound "false"
1069       }
1070     }
1071   }
1072
1073   foreach anArchIter {64 32} {
1074     set aJavacPath [wokdep:SearchBin "javac${::SYS_EXE_SUFFIX}" "$anArchIter"]
1075     if { "$aJavacPath" == "" } {
1076       set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{jdk,java}*] "$::VCVER" "$anArchIter" ]
1077       set aJavacPath [wokdep:SearchBin "javac${::SYS_EXE_SUFFIX}" "$anArchIter" "$aPath/bin"]
1078       if { "$aJavacPath" != "" } {
1079         lappend ::CSF_OPT_BIN$anArchIter "$aPath/bin"
1080       } else {
1081         if { "$::ARCH" == "$anArchIter" && [file exists "/System/Library/Frameworks/JavaVM.framework/Home/bin/javac${::SYS_EXE_SUFFIX}"] } {
1082           lappend ::CSF_OPT_BIN$anArchIter "/System/Library/Frameworks/JavaVM.framework/Home/bin"
1083         } else {
1084           lappend anErrBin$anArchIter "Error: 'javac${::SYS_EXE_SUFFIX}' not found (JDK)"
1085           if { "$::ARCH" == "$anArchIter"} { set isFound "false" }
1086         }
1087       }
1088     }
1089   }
1090
1091   return "$isFound"
1092 }
1093
1094 # Search X11 libraries placement
1095 proc wokdep:SearchX11 {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin64} {
1096   upvar $theErrInc   anErrInc
1097   upvar $theErrLib32 anErrLib32
1098   upvar $theErrLib64 anErrLib64
1099   upvar $theErrBin32 anErrBin32
1100   upvar $theErrBin64 anErrBin64
1101
1102   set isFound "true"
1103   if { "$::tcl_platform(platform)" == "windows" || ( "$::tcl_platform(os)" == "Darwin" && "$::MACOSX_USE_GLX" != "true" ) } {
1104     return "$isFound"
1105   }
1106
1107   set aXmuLibPath [wokdep:SearchLib "Xmu" "$::ARCH"]
1108   if { "$aXmuLibPath" == "" } {
1109     set aXmuLibPath [wokdep:SearchLib "Xmu" "$::ARCH" "/usr/X11/lib"]
1110     if { "$aXmuLibPath" != "" } {
1111       #lappend ::CSF_OPT_LIB$::ARCH "/usr/X11/lib"
1112     } else {
1113       lappend anErrLib$::ARCH "Error: '${::SYS_LIB_PREFIX}Xmu.${::SYS_LIB_SUFFIX}' not found (X11)"
1114       set isFound "false"
1115     }
1116   }
1117
1118   return "$isFound"
1119 }
1120
1121 # Generate (override) custom environment file
1122 proc wokdep:SaveCustom {} {
1123   if { "$::tcl_platform(platform)" == "windows" } {
1124     set aCustomFilePath "./custom.bat"
1125     set aFile [open $aCustomFilePath "w"]
1126     puts $aFile "@echo off"
1127     puts $aFile "rem This environment file was generated by wok_depsgui.tcl script at [clock format [clock seconds] -format "%Y.%m.%d %H:%M"]"
1128
1129     puts $aFile ""
1130     puts $aFile "set VCVER=$::VCVER"
1131     puts $aFile "set ARCH=$::ARCH"
1132     puts $aFile "set VCVARS=$::VCVARS"
1133     puts $aFile "set SHORTCUT_HEADERS=$::SHORTCUT_HEADERS"
1134
1135     puts $aFile ""
1136     puts $aFile "set \"PRODUCTS_PATH=$::PRODUCTS_PATH\""
1137
1138     puts $aFile ""
1139     puts $aFile "rem Optional 3rd-parties switches"
1140     foreach anEnvIter $::THE_ENV_VARIABLES {
1141       set aName ${anEnvIter}
1142       set aValue [set ::${anEnvIter}]
1143       if { "$aValue" != "" } {
1144         puts $aFile "set ${aName}=$aValue"
1145       }
1146     }
1147
1148     set aStringInc [join $::CSF_OPT_INC $::SYS_PATH_SPLITTER]
1149     puts $aFile ""
1150     puts $aFile "rem Additional headers search paths"
1151     puts $aFile "set \"CSF_OPT_INC=$aStringInc\""
1152
1153     set aStringLib32 [join $::CSF_OPT_LIB32 $::SYS_PATH_SPLITTER]
1154     puts $aFile ""
1155     puts $aFile "rem Additional libraries (32-bit) search paths"
1156     puts $aFile "set \"CSF_OPT_LIB32=$aStringLib32\""
1157
1158     set aStringLib64 [join $::CSF_OPT_LIB64 $::SYS_PATH_SPLITTER]
1159     puts $aFile ""
1160     puts $aFile "rem Additional libraries (64-bit) search paths"
1161     puts $aFile "set \"CSF_OPT_LIB64=$aStringLib64\""
1162
1163     set aStringBin32 [join $::CSF_OPT_BIN32 $::SYS_PATH_SPLITTER]
1164     puts $aFile ""
1165     puts $aFile "rem Additional (32-bit) search paths"
1166     puts $aFile "set \"CSF_OPT_BIN32=$aStringBin32\""
1167
1168     set aStringBin64 [join $::CSF_OPT_BIN64 $::SYS_PATH_SPLITTER]
1169     puts $aFile ""
1170     puts $aFile "rem Additional (64-bit) search paths"
1171     puts $aFile "set \"CSF_OPT_BIN64=$aStringBin64\""
1172
1173     close $aFile
1174   } else {
1175     set aCustomFilePath "./custom.sh"
1176     set aFile [open $aCustomFilePath "w"]
1177     puts $aFile "#!/bin/bash"
1178     puts $aFile "# This environment file was generated by wok_depsgui.tcl script at [clock format [clock seconds] -format "%Y.%m.%d %H:%M"]"
1179
1180     puts $aFile ""
1181     puts $aFile "export ARCH=$::ARCH"
1182     puts $aFile "export SHORTCUT_HEADERS=$::SHORTCUT_HEADERS"
1183
1184     puts $aFile ""
1185     puts $aFile "export PRODUCTS_PATH=\"$::PRODUCTS_PATH\""
1186
1187     puts $aFile ""
1188     puts $aFile "# Optional 3rd-parties switches"
1189     foreach anEnvIter $::THE_ENV_VARIABLES {
1190       set aName ${anEnvIter}
1191       set aValue [set ::${anEnvIter}]
1192       if { "$aValue" != "" } {
1193         puts $aFile "export ${aName}=${aValue}"
1194       }
1195     }
1196
1197     set aStringInc [join $::CSF_OPT_INC $::SYS_PATH_SPLITTER]
1198     puts $aFile ""
1199     puts $aFile "# Additional headers search paths"
1200     puts $aFile "export CSF_OPT_INC=\"$aStringInc\""
1201
1202     set aStringLib$::ARCH [join [set ::CSF_OPT_LIB$::ARCH] $::SYS_PATH_SPLITTER]
1203     puts $aFile ""
1204     puts $aFile "# Additional libraries ($::ARCH-bit) search paths"
1205     puts $aFile "export CSF_OPT_LIB$::ARCH=\"[set aStringLib$::ARCH]\""
1206
1207     set aStringBin$::ARCH [join [set ::CSF_OPT_BIN$::ARCH] $::SYS_PATH_SPLITTER]
1208     puts $aFile ""
1209     puts $aFile "# Additional ($::ARCH-bit) search paths"
1210     puts $aFile "export CSF_OPT_BIN$::ARCH=\"[set aStringBin$::ARCH]\""
1211
1212     close $aFile
1213   }
1214
1215   puts "Configuration saved to file '$aCustomFilePath'"
1216 }