Fix broken controller/joystick button and axis events
The problem were bad records in SDLh.pas
# Checks if a given Haskell package exists (using ghc-pkg)
# and fails if it's missing.
# Loosely based on CheckLibraryExists.cmake from CMake.
#=============================================================================
# Copyright 2002-2009 Kitware, Inc.
#
# Distributed under the OSI-approved BSD License
#
# This software is distributed WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# See the License for more information.
#=============================================================================
macro(CHECK_HASKELL_PACKAGE_EXISTS PACKAGE MODULE FUNCTION PARAMCOUNT)
# NOTE: MODULE, FUNCTION and PARAMCOUNT are curretly ignored.
# TODO: Either implement these or drop?
set(VARIABLE "HS_PACKAGE_${PACKAGE}")
if(NOT (${VARIABLE} EQUAL "1"))
message(STATUS "Looking for Haskell package ${PACKAGE} ...")
execute_process(COMMAND ${GHC_PKG_EXECUTABLE}
"latest"
${PACKAGE}
"--simple-output"
RESULT_VARIABLE COMMAND_RESULT
ERROR_VARIABLE BUILD_ERROR
OUTPUT_STRIP_TRAILING_WHITESPACE
OUTPUT_QUIET
)
if(${COMMAND_RESULT} EQUAL 0)
message(STATUS "Looking for Haskell package ${PACKAGE} - found")
set(${VARIABLE} "1" CACHE INTERNAL "Have package ${PACKAGE}")
file(APPEND ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeOutput.log
"Determining if the Haskell package ${PACKAGE} exists has passed\n\n")
else()
message(STATUS "Looking for Haskell package ${PACKAGE} - not found")
set(${VARIABLE} "0" CACHE INTERNAL "Have package ${PACKAGE}")
file(APPEND ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeError.log
"Determining if the Haskell package ${PACKAGE} "
"exists failed with the following output:\n"
"${BUILD_ERROR}\n\n")
message(FATAL_ERROR "Haskell package '${PACKAGE}' required")
endif()
endif()
endmacro()