1# Distributed under the OSI-approved BSD 3-Clause License.  See accompanying
2# file Copyright.txt or https://cmake.org/licensing for details.
3
4#[=======================================================================[.rst:
5FindTclStub
6-----------
7
8TCL_STUB_LIBRARY_DEBUG and TK_STUB_LIBRARY_DEBUG were removed.
9
10This module finds Tcl stub libraries.  It first finds Tcl include
11files and libraries by calling FindTCL.cmake.  How to Use the Tcl
12Stubs Library:
13
14::
15
16   http://tcl.activestate.com/doc/howto/stubs.html
17
18Using Stub Libraries:
19
20::
21
22   http://safari.oreilly.com/0130385603/ch48lev1sec3
23
24This code sets the following variables:
25
26::
27
28  TCL_STUB_LIBRARY       = path to Tcl stub library
29  TK_STUB_LIBRARY        = path to Tk stub library
30  TTK_STUB_LIBRARY       = path to ttk stub library
31
32
33
34In an effort to remove some clutter and clear up some issues for
35people who are not necessarily Tcl/Tk gurus/developers, some
36variables were moved or removed.  Changes compared to CMake 2.4 are:
37
38::
39
40   => these libs are not packaged by default with Tcl/Tk distributions.
41      Even when Tcl/Tk is built from source, several flavors of debug libs
42      are created and there is no real reason to pick a single one
43      specifically (say, amongst tclstub84g, tclstub84gs, or tclstub84sgx).
44      Let's leave that choice to the user by allowing him to assign
45      TCL_STUB_LIBRARY to any Tcl library, debug or not.
46#]=======================================================================]
47
48include(${CMAKE_CURRENT_LIST_DIR}/FindTCL.cmake)
49
50get_filename_component(TCL_TCLSH_PATH "${TCL_TCLSH}" PATH)
51get_filename_component(TCL_TCLSH_PATH_PARENT "${TCL_TCLSH_PATH}" PATH)
52string(REGEX REPLACE
53  "^.*tclsh([0-9]\\.*[0-9]).*$" "\\1" TCL_TCLSH_VERSION "${TCL_TCLSH}")
54
55get_filename_component(TK_WISH_PATH "${TK_WISH}" PATH)
56get_filename_component(TK_WISH_PATH_PARENT "${TK_WISH_PATH}" PATH)
57string(REGEX REPLACE
58  "^.*wish([0-9]\\.*[0-9]).*$" "\\1" TK_WISH_VERSION "${TK_WISH}")
59
60get_filename_component(TCL_INCLUDE_PATH_PARENT "${TCL_INCLUDE_PATH}" PATH)
61get_filename_component(TK_INCLUDE_PATH_PARENT "${TK_INCLUDE_PATH}" PATH)
62
63get_filename_component(TCL_LIBRARY_PATH "${TCL_LIBRARY}" PATH)
64get_filename_component(TCL_LIBRARY_PATH_PARENT "${TCL_LIBRARY_PATH}" PATH)
65string(REGEX REPLACE
66  "^.*tcl([0-9]\\.*[0-9]).*$" "\\1" TCL_LIBRARY_VERSION "${TCL_LIBRARY}")
67
68get_filename_component(TK_LIBRARY_PATH "${TK_LIBRARY}" PATH)
69get_filename_component(TK_LIBRARY_PATH_PARENT "${TK_LIBRARY_PATH}" PATH)
70string(REGEX REPLACE
71  "^.*tk([0-9]\\.*[0-9]).*$" "\\1" TK_LIBRARY_VERSION "${TK_LIBRARY}")
72
73set(TCLTK_POSSIBLE_LIB_PATHS
74  "${TCL_INCLUDE_PATH_PARENT}/lib"
75  "${TK_INCLUDE_PATH_PARENT}/lib"
76  "${TCL_LIBRARY_PATH}"
77  "${TK_LIBRARY_PATH}"
78  "${TCL_TCLSH_PATH_PARENT}/lib"
79  "${TK_WISH_PATH_PARENT}/lib"
80)
81
82if(WIN32)
83  get_filename_component(
84    ActiveTcl_CurrentVersion
85    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\ActiveState\\ActiveTcl;CurrentVersion]"
86    NAME)
87  set(TCLTK_POSSIBLE_LIB_PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
88    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\ActiveState\\ActiveTcl\\${ActiveTcl_CurrentVersion}]/lib"
89    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.6;Root]/lib"
90    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.5;Root]/lib"
91    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.4;Root]/lib"
92    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.3;Root]/lib"
93    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.2;Root]/lib"
94    "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.0;Root]/lib"
95    "$ENV{ProgramFiles}/Tcl/Lib"
96    "C:/Program Files/Tcl/lib"
97    "C:/Tcl/lib"
98    )
99endif()
100
101find_library(TCL_STUB_LIBRARY
102  NAMES
103  tclstub
104  tclstub${TK_LIBRARY_VERSION} tclstub${TCL_TCLSH_VERSION} tclstub${TK_WISH_VERSION}
105  tclstub87 tclstub8.7
106  tclstub86 tclstub8.6
107  tclstub85 tclstub8.5
108  tclstub84 tclstub8.4
109  tclstub83 tclstub8.3
110  tclstub82 tclstub8.2
111  tclstub80 tclstub8.0
112  PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
113)
114
115find_library(TK_STUB_LIBRARY
116  NAMES
117  tkstub
118  tkstub${TCL_LIBRARY_VERSION} tkstub${TCL_TCLSH_VERSION} tkstub${TK_WISH_VERSION}
119  tkstub87 tkstub8.7
120  tkstub86 tkstub8.6
121  tkstub85 tkstub8.5
122  tkstub84 tkstub8.4
123  tkstub83 tkstub8.3
124  tkstub82 tkstub8.2
125  tkstub80 tkstub8.0
126  PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
127)
128
129find_library(TTK_STUB_LIBRARY
130  NAMES
131  ttkstub
132  ttkstub${TCL_LIBRARY_VERSION} ttkstub${TCL_TCLSH_VERSION} ttkstub${TK_WISH_VERSION}
133  ttkstub88 ttkstub8.8
134  ttkstub87 ttkstub8.7
135  ttkstub86 ttkstub8.6
136  ttkstub85 ttkstub8.5
137  PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
138)
139
140mark_as_advanced(
141  TCL_STUB_LIBRARY
142  TK_STUB_LIBRARY
143  )
144