Modules/FindTclStub.cmake

   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:
   5 # FindTclStub
   6 # -----------
   7 #
   8 # TCL_STUB_LIBRARY_DEBUG and TK_STUB_LIBRARY_DEBUG were removed.
   9 #
  10 # This module finds Tcl stub libraries.  It first finds Tcl include
  11 # files and libraries by calling FindTCL.cmake.  How to Use the Tcl
  12 # Stubs Library:
  13 #
  14 # ::
  15 #
  16 #    http://tcl.activestate.com/doc/howto/stubs.html
  17 #
  18 # Using Stub Libraries:
  19 #
  20 # ::
  21 #
  22 #    http://safari.oreilly.com/0130385603/ch48lev1sec3
  23 #
  24 # This 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 #
  34 # In an effort to remove some clutter and clear up some issues for
  35 # people who are not necessarily Tcl/Tk gurus/developers, some
  36 # variables 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 include(${CMAKE_CURRENT_LIST_DIR}/FindTCL.cmake)
  48
  49 get_filename_component(TCL_TCLSH_PATH "${TCL_TCLSH}" PATH)
  50 get_filename_component(TCL_TCLSH_PATH_PARENT "${TCL_TCLSH_PATH}" PATH)
  51 string(REGEX REPLACE
  52   "^.*tclsh([0-9]\\.*[0-9]).*$" "\\1" TCL_TCLSH_VERSION "${TCL_TCLSH}")
  53
  54 get_filename_component(TK_WISH_PATH "${TK_WISH}" PATH)
  55 get_filename_component(TK_WISH_PATH_PARENT "${TK_WISH_PATH}" PATH)
  56 string(REGEX REPLACE
  57   "^.*wish([0-9]\\.*[0-9]).*$" "\\1" TK_WISH_VERSION "${TK_WISH}")
  58
  59 get_filename_component(TCL_INCLUDE_PATH_PARENT "${TCL_INCLUDE_PATH}" PATH)
  60 get_filename_component(TK_INCLUDE_PATH_PARENT "${TK_INCLUDE_PATH}" PATH)
  61
  62 get_filename_component(TCL_LIBRARY_PATH "${TCL_LIBRARY}" PATH)
  63 get_filename_component(TCL_LIBRARY_PATH_PARENT "${TCL_LIBRARY_PATH}" PATH)
  64 string(REGEX REPLACE
  65   "^.*tcl([0-9]\\.*[0-9]).*$" "\\1" TCL_LIBRARY_VERSION "${TCL_LIBRARY}")
  66
  67 get_filename_component(TK_LIBRARY_PATH "${TK_LIBRARY}" PATH)
  68 get_filename_component(TK_LIBRARY_PATH_PARENT "${TK_LIBRARY_PATH}" PATH)
  69 string(REGEX REPLACE
  70   "^.*tk([0-9]\\.*[0-9]).*$" "\\1" TK_LIBRARY_VERSION "${TK_LIBRARY}")
  71
  72 set(TCLTK_POSSIBLE_LIB_PATHS
  73   "${TCL_INCLUDE_PATH_PARENT}/lib"
  74   "${TK_INCLUDE_PATH_PARENT}/lib"
  75   "${TCL_LIBRARY_PATH}"
  76   "${TK_LIBRARY_PATH}"
  77   "${TCL_TCLSH_PATH_PARENT}/lib"
  78   "${TK_WISH_PATH_PARENT}/lib"
  79 )
  80
  81 if(WIN32)
  82   get_filename_component(
  83     ActiveTcl_CurrentVersion
  84     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\ActiveState\\ActiveTcl;CurrentVersion]"
  85     NAME)
  86   set(TCLTK_POSSIBLE_LIB_PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
  87     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\ActiveState\\ActiveTcl\\${ActiveTcl_CurrentVersion}]/lib"
  88     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.6;Root]/lib"
  89     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.5;Root]/lib"
  90     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.4;Root]/lib"
  91     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.3;Root]/lib"
  92     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.2;Root]/lib"
  93     "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Scriptics\\Tcl\\8.0;Root]/lib"
  94     "$ENV{ProgramFiles}/Tcl/Lib"
  95     "C:/Program Files/Tcl/lib"
  96     "C:/Tcl/lib"
  97     )
  98 endif()
  99
 100 find_library(TCL_STUB_LIBRARY
 101   NAMES
 102   tclstub
 103   tclstub${TK_LIBRARY_VERSION} tclstub${TCL_TCLSH_VERSION} tclstub${TK_WISH_VERSION}
 104   tclstub87 tclstub8.7
 105   tclstub86 tclstub8.6
 106   tclstub85 tclstub8.5
 107   tclstub84 tclstub8.4
 108   tclstub83 tclstub8.3
 109   tclstub82 tclstub8.2
 110   tclstub80 tclstub8.0
 111   PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
 112 )
 113
 114 find_library(TK_STUB_LIBRARY
 115   NAMES
 116   tkstub
 117   tkstub${TCL_LIBRARY_VERSION} tkstub${TCL_TCLSH_VERSION} tkstub${TK_WISH_VERSION}
 118   tkstub87 tkstub8.7
 119   tkstub86 tkstub8.6
 120   tkstub85 tkstub8.5
 121   tkstub84 tkstub8.4
 122   tkstub83 tkstub8.3
 123   tkstub82 tkstub8.2
 124   tkstub80 tkstub8.0
 125   PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
 126 )
 127
 128 find_library(TTK_STUB_LIBRARY
 129   NAMES
 130   ttkstub
 131   ttkstub${TCL_LIBRARY_VERSION} ttkstub${TCL_TCLSH_VERSION} ttkstub${TK_WISH_VERSION}
 132   ttkstub88 ttkstub8.8
 133   ttkstub87 ttkstub8.7
 134   ttkstub86 ttkstub8.6
 135   ttkstub85 ttkstub8.5
 136   PATHS ${TCLTK_POSSIBLE_LIB_PATHS}
 137 )
 138
 139 mark_as_advanced(
 140   TCL_STUB_LIBRARY
 141   TK_STUB_LIBRARY
 142   )